-5 6 setxrange
-5 6 setyrange
%%% les ticks sur les axes
/xmkstep 2 def % les marques sur Ox
/ymkstep 2 def % les marques sur Oy
/xtkstep 1 def % les ticks sur Ox
/ytkstep 1 def % les ticks sur Oy
/xsubtkstep 1 def % les subticks sur Ox
/ysubtkstep 1 def % les subticks sur Oy
tracerepere
marks
/A {2 3 sqrt 2 mul} def
/B {2 3 sqrt -2 mul} def
/C {-4 0} def
/D {-1 3 sqrt} def
[A B C D] points
[A B C] tracepolygone
[B D] traceligne
gsave
mixte
O 4 tracecercle
grestore
/dt 30 def
/angle 120 def
verythin setcourbelinewidth
O 2 angle dt sub angle dt add tracearc
pointilles
[D D pop 0] traceligne
setTimesItalic
(O) O downlefttext
(A) A uprighttext
(B) B downrighttext
(C) C uplefttext
(D) D uplefttext
|