Présentation de cerc_008.jps

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