Présentation de sembl_008.jps

/syracuse/bbgraf/albums/geometrie_2nd/sembl_008.jpg
autocrop -15 30 setxrange -10 20 setyrange 15 setxunit /ech 1.5 def 10 ech div setfontsize ech dup scale /D {O} def /B {-.6 2} def B 2.8 D 2.1 intercercle /A defpoint popp B A A 7.2 interdroitecercle popp /C defpoint D A A 9.6 interdroitecercle /E defpoint popp [A B C D E] {times} plot /fillstyle {orange fill} def [D C B E] polygone* setTimes (21) D A milieu {D A angle} uctext (28) B A milieu {B A angle} uctext (72) A C milieu {A C angle} uctext (96) A E milieu {A E angle} dctext setTimesItalic (D) D dltext (B) B ultext (A) A dctext (C) C drtext (E) E urtext