Fichier solide_gen_04a.jps — Modifié le 8 Janvier 2008 à 11 h 20
Source
-4 2 setxrange
-2 3 setyrange
25 setxunit
3 10 6 SetCamPos
0 0 0 SetCamView
qplanxy
2 setlinejoin
10 setresolution
newpath
pi 0 smoveto
pi 0 {Sin 2 mul} Courbe_
currentcpathpointstable -2 rollparray 0 2 [2] newprismedroit
drawsolid