O pacote Geomview.m faz com que o Geomview seja o
programa visualizador padrão para gráficos 3D no Mathematica. Para
carregar o pacote Geomview.m, digite o comando << Geomview.m para o Mathematica.
De agora em diante, sempre que você mostrar gráficos 3D com o comando Plot3D
ou Show, Mathematica irá enviar o gréfico para o Geomview.
Carregando Geomview.m implicitamene carrega OOGL.m também, de forma que você
pode usar o Geomview e WriteOOGL como descrito acima
após carregar Geomview.m. Você não tem que carregar separadamente o pacote
OOGL.m.
% math
Mathematica 2.0 for SGI Iris
Copyright 1988-91 Wolfram Research, Inc.
-- GL graphics initialized --
In[1] := <<Geomview.m
In[2] := Plot3D[x^2 + y^2, {x, -2, 2}, {y, -2, 2}]
Out[2] := -SurfaceGraphics-
O comando acima chama o geomivew e carrega o objeto gráfico dentro dele.
In[3] := Plot3D[{x*y + 6, RGBColor[0,x,y]}, {x,0,1}, {y,0,1}]
Out[3] := -SurfaceGraphics-
O comando imediatamente acima substitui o objeto anterior do Geomview pelo novo objeto.
In[4] := Geomview[{%2,%3}]
Out[4] := {-SurfaceGraphics-, -SurfaceGraphics-}
Mostra ambos os objetos de uma só vez. Você também pode ter mais de um
objeto do Mathematica de uma só vez mostrados no Geomview, e ter controle
separado deles, usando o comando do Geomview com um nome,
See Usando Mathematica para gerar arquivos OOGL.
In[5] := Graphics3D[ {RGBColor[1,0,0], Line[{ {2,2,2},{1,1,1} }] }]
Out[5] := -Graphics3D-
In[6] := Geomview["minhalinha", %5]
Isso adiciona a Linha especificada em In[5] ao visualizador
Geomview já existente. A Linha especificada em In[5] pode ser controlada independentemente do
objeto do "Mathematica", que atualmente é uma lista de dois gráficos.
In[7] := <<GL.m
Se você estiver em um SGI, chamando GL.m retorna o Mathematica a seu
usual visualizador de gráficos 3D. O seguinte
plot irá aparecer em uma janela estática normal do Mathematica.
In[8] := ParametricPlot3D[{Sin[x],Sin[y],Sin[x]*Cos[y]}, {x,0,Pi},{y,0,Pi}]
Out[8] := -Graphics3D-
Podemos retornar ao gráfico do Geomview a qualquer tempo chamando Geomview.m.
In[9] := <<Geomview.m
In[10] := Show[%8]
Out[10] := -Graphics3D-
In[11] := ParametricPlot3D[
{(2*(Cos[u] + u*Sin[u])*Sin[v])/(1 + u^2*Sin[v]^2),
(2*(Sin[u] - u*Cos[u])*Sin[v])/(1 + u^2*Sin[v]^2),
Log[Tan[v/2]] + (2*Cos[v])/(1 + u^2*Sin[v]^2)},
{u,-4,4},{v,.01,Pi-.01}]
Out[11] := -Graphics3D-
O último gráfico é de uma superfície de Kuen, uma superfície de curvatura negativa constante. Parametrização retirada do livro texto de Alfred Gray Modern Differential Geometry of Curves and Surfaces.