-1 7 setxrange
-1 7 setyrange
20 setxunit
10 setfontsize
autocrop
/cross {
gsave
newpath
.75 setlinewidth
smoveto
2.5 2.5 rmoveto
-5 -5 rlineto
0 5 rmoveto
5 -5 rlineto
stroke
grestore
} def
/l1 2 def
/L1 6 def
/l2 2 def
/L2 4 def
/A {0 L1} def
/B {l1 L1} def
/C {l1 l2} def
/D {l1 L2 add l2} def
/E {l1 L2 add 0} def
/F {l1 0} def
/G1 {
A F milieu
} def
/G2 {
C E milieu
} def
[A B F O] polygone
[C D E F] polygone
G1 cross
G2 cross
O point
setTimesItalic
(O) O dltext
(G) G1 urtext
setTimes
(1) indice
setTimesItalic
(G) G2 urtext
setTimes
(2) indice
(6) 0 3 cltext
(2) 1 6 uctext
(2) 6 1 crtext
(4) 4 2 uctext
|