Fichier torjpv.jps — Modifié le 7 Mai 2008 à 20 h 42

torjpv.pdf
Source
usecolor
-6 6 setxrange
-5 3 setyrange
30 setxunit


%% parametrage du point de vue :
/alpha 90 def
/cerc {0 0 6} def

%0 6 4 SetCamPos
alpha cerc cpoint 4 SetCamPos
0 0 0 SetCamView
GetCamPos setlightsrc
2 setlinejoin 

/a 2.85 def

/g {
3 dict begin
   /t exch def
#rpn# a*Sin(t)/(1+(Cos(t))^2)
1
#rpn# a*Sin(t)*Cos(t)/(1+(Cos(t))^2)
end
} def

%on lit le fichier crée par torfix.jps

/tore1 (tore1) readsolidfile def

tore1
drawsolid**

%Le plan qui définit le lamniscate
[0 1 0 -1] eq2plan
newplan
dup (.3 setfillopacity AntiqueWhite) solidputcolors
drawsolid**

%ici je tente d'enlever la grille
solidgridOff

%le lemniscate
% t_min t_max rayon_tube [resolution]
 -0 6.28 (g) .05 [100 10] newtube
 dup (bleu) outputcolors
drawsolid**

%% %je remet la grille
solidgridOn

%on trace le tor2 qui a été défini par torfix cette fois vide
/tore2 (tore2) readsolidfile def
tore2
dup (rouge) solidputcolors
drawsolid**