-2 2 setxrange
-2 2 setyrange
100 setxunit

1.5 -8 6 SetCamPos
0 0 0 SetCamView

-10 10 setxrange3d
-3 3 setyrange3d

GetCamPos setlightsrc
%1.5 setlightintensity
/aretescachees false def
2 setlinejoin 

.1 setlinewidth
gris
1 [5] newcube
dup {normalize3d} solidtransform
dup (cyan) outputcolors
drawsolid*