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**