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 F] ligne B O E .7 (-) tripointarc F O B 1 (=) tripointarc setTimesItalic (O) O ultext (A) A ultext (B) B crtext (E) E urtext (F) F drtext 8 setfontsize setTimes (56°) 10 O 1.2 cpoint cctext (30°) -22.5 O 1.5 cpoint cctext