%% code obsolete, desole
-3 6 setxrange
-4 4 setyrange
.5 .5 setquadrillagestep
quadrillage
/A {0 1} def
/B {O} def
/C {1 0} def
/D {1 1} def
/E {0 2} def
/F {-2 0} def
/G {1 -3} def
A B C D E F G 7 points
medium setcourbelinewidth
A 1 0 90 tracearc
B 2 90 180 tracearc
C 3 180 270 tracearc
D 4 270 0 tracearc
setTimesItalic
(A) A uplefttext
(B) B downlefttext
(C) C downrighttext
(D) D uprighttext
(E) E uptext
(F) F lefttext
(G) G downtext
|