Présentation de cerc_006.jps

autocrop
30 setxunit
/cerc {O 2} def

/B {60 cerc cpoint} def
B dupp 215 dir addv cerc interdroitecercle popp /A defpoint
B dupp 0 dir addv cerc interdroitecercle popp /D defpoint
A dupp -47 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
   (D) A cltext
   (C) B urtext
   (A) C drtext
   (B) D ultext
   (I) I (-2 -3) bltext
8 setfontsize
setTimes
   (47°) 15 A .95 cpoint cctext
   (35°) 197.5 B .95 cpoint cctext
#tex# $\cal C$
-135 O 2.35 cpoint cctexlabel