Présentation de sembl_006.jps

/syracuse/bbgraf/albums/geometrie_2nd/sembl_006.jpg
autocrop 50 setxunit /A {0 0} def A A -100 dir addv A 2 interdroitecercle popp /B defpoint A 3 B 2.5 intercercle popp /C defpoint 1.5 setlinewidth [A B C] polygone setTimesItalic (A) A uctext (B) B dltext (C) C drtext 10 setfontsize setTimes (2) A B milieu ultext (3) A C milieu urtext (2,5) B C milieu dltext 1.5 1 stranslate 40 rotate .5 dup scale -1 -2 stranslate [A B C] polygone 25 setfontsize setTimesItalic (M) A {-40} uctext (N) B {-40} dltext (P) C {-40} drtext 20 setfontsize setTimes (1) A B milieu {-40} cltext (1,5) A C milieu {-40} urtext (1,25) B C milieu {-40} dctext