Fichier torjpv2.jps — Modifié le 8 Mai 2008 à 01 h 59
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
currentdict /lightsrc undef
%on trace le tor2 qui a été défini par torfix cette fois vide
/tore2 (tore2) readsolidfile def
tore2
dup (.3 setfillopacity rouge) solidputcolors
drawsolid**