autocrop
-20 40 setxrange
-25 40 setyrange
7 setxunit
%quadrillage
%marks
1 setlinewidth
/r 12 def
/A {0 0} def
/A' {0 -5} def
/B {r 0} def
/C {r r} def
/D {0 r} def
/B' {r 8 add -5} def
/C' {r 8 add r} def
/fillstyle {.9 setgray fill} def
[A' B' C' D] polygone*
/fillstyle {1 setgray fill} def
[A B C D] polygone*
setTimesItalic
(A) A ultext
(B) B ultext
(C) C ultext
(D) D ultext
.7 setlinewidth
gsave
-1 0 stranslate
[A A'] (<->) ligne
(5 m) A A' milieu cltext
grestore
gsave
0 1 stranslate
[C C'] (<->) ligne
(8 m) C C' milieu uctext
grestore
|