-3 3 setxrange
-3 3 setyrange
/A {2 2 sqrt} def
/B {2 sqrt neg 2} def
/C {2 sqrt neg -2} def
/I {0 2} def
/J {2 3 pi mul 4 div polcar} def
/K {J -1 0 mulc} def
quadrillage
tracerepere
marks
[A B C I J K] points
[I J K] polygone
J I K angledroit
/r 6 sqrt def
O r cercle
O 2 cercle
gsave
newpath
0 r smoveto
O r cercle_
0 2 smoveto
O 2 cercle_
closepath
eoclip
hachure
grestore
setTimesItalic
(A) A urtext
(B) B ultext
(C) C dltext
(I) I (3 1) drtext
(J) J dctext
(K) K cltext
(O) O dltext
|