Présentation de cerc_007a.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
[A E] ligne
[E B] ligne
[E O] ligne

O A E .7 (=) tripointarc
B O E .7 (-) tripointarc

.5 setlinewidth
A E B angledroit

setTimesItalic
   (O) O ultext
   (A) A ultext
   (B) B crtext
   (E) E urtext
8 setfontsize
setTimes
   (56°) 10 O 1.2 cpoint cctext   
   (28°) 5 A 1.2 cpoint cctext