Fichier solide_gen_06b.jps — Modifié le 8 Janvier 2008 à 11 h 29

solide_gen_06b.pdf
Source
usecolor
-6 2 setxrange
-6 3 setyrange
25 setxunit
3 10 6 SetCamPos
0 0 0 SetCamView
qplanxy
2 setlinejoin 

{DeepSkyBlue} setlight
5 12 6 setlightsrc
/aretescachees false def
solidgridOff

30 setresolution
newpath
   4 0 smoveto
   4 0 {2 mul Sin 1.3 mul 3 add} Courbe_
   0 0 slineto
currentcpathpointstable 
0 2 newprismedroit
drawsolid*