%% auteur :
usecolor
tracerepere
quadrillage
marks
/G{1 2} def
G point
/H{2 0} def
H times2
magenta
{-2 mul 4 add} courbe
/fillstyle {AliceBlue fill} def
G 2 cercle*
utocrop
%% ́echelle et ́etendue de l’image
30 setxunit
-1 9 setxrange
-5 2 setyrange
%% Positionnement de la Cam ́era
6 -6 4 SetCamPos
-1 1.1 -0.3 SetCamVec
0.03 0.03 1 SetCamUp
ComputeCamera
%% traces
1.5 setlinewidth
.6 setgray
0 5 0 5 0 2 quadrilleXYZ
|