Présentation de cerc_001.jps

/syracuse/bbgraf/albums/geometrie_2nd/cerc_001.jpg
autocrop /r 4 def /A {r neg 0} def /B {r 0} def /D {0 r} def A dupp -40 dir addv O r interdroitecercle popp /C defpoint [A B] ligne [D O] ligne [A C] ligne D O A angledroit C A O 1 tripointarc 1.2 setlinewidth O r cercle [B D C] polygone 10 setfontsize setTimes (40°) -20 A 1.5 cpoint cctext setTimesItalic (A) A cltext (B) B crtext (D) D uctext (C) C drtext (O) O dltext <tex> $\cal C$ </tex> 135 O r .5 add cpoint cctexlabel