autocrop
-4.5 5 setxrange
-3 3 setyrange
20 setxunit
6 6 3 SetCamPos
0 0 1 SetCamUp
0 0 0 SetCamView
%qplanxy
2 setlinejoin 

setCourierBold 
([(jaune) (orange)]) -1.2 -3 uctext

.1 setlinewidth
.6 setgray
0 3 -2 2 [.5 .5] newgrille
dup [(jaune) (orange)] solidputhuecolors
%dup [1 0 0 0 0 0 1 0] solidputhuecolors
drawsolid*