autocrop
20 setxunit
/cerc {O 3} def
/B {-10 cerc cpoint} def
/A {170 cerc cpoint} def
/F {-40 cerc cpoint} def
/E {46 cerc cpoint} def
cerc cercle
[A B] ligne
[E O] ligne
B O E .7 (-) tripointarc
setTimesItalic
(O) O ultext
(A) A ultext
(B) B crtext
(E) E urtext
8 setfontsize
setTimes
(56°) 10 O 1.2 cpoint cctext
|