-5 4 setyrange
-6 5 setxrange

10 2 0 SetCamPos
0 0 0 SetCamView
50 setxunit
GetCamPos setlightsrc
2 setlightintensity


2 setlinejoin
%-2 1 2 [5 12] newcylindre

/alpha -360 def
/plan2 
   0 0 0 [alpha cos  0 alpha sin 90] norm2plan
%   dup [1. dup] planputngrid
   dup [-3.2 3.2 -4.2 2.2] planputrange
def

30 setfontsize
setTimes

bleu
plan2
newplan drawsolid
.5 .5 setmkstep

10 setfontsize
setCourier

gris
plan2 false planquadrillage
noir
plan2 false planmarks

orange
30 setfontsize
setTimes
(Test) -2 -3 plan2 cctextp3d