Présentation de cerc_005.jps

autocrop
30 setxunit
/cerc {O 2} def

/B {60 cerc cpoint} def
B dupp 205 dir addv cerc interdroitecercle popp /A defpoint
B dupp 0 dir addv cerc interdroitecercle popp /D defpoint
A dupp -55 A B angle add dir addv cerc interdroitecercle popp /C defpoint
A B C D interdroite /I defpoint

C A B .65 (=) tripointarc
D B A .65 (-) tripointarc

cerc cercle
[C A B D] polygone

setTimesItalic
   (A) A cltext
   (B) B urtext
   (C) C drtext
   (D) D ultext
   (I) I (-1 -2) bltext
8 setfontsize
setTimes
   (55°) 0 A .95 cpoint cctext
   (25°) 192.5 B .95 cpoint cctext
#tex# $\cal C$
-135 O 2.35 cpoint cctexlabel