Présentation de sembl_010.jps

/syracuse/bbgraf/albums/geometrie_2nd/sembl_010.jpg
%quadrillage %marks -4 4 setxrange -1 5.5 setyrange autocrop 30 setxunit /r 3 def /cerc {O r} def 0 cerc cpoint /B defpoint 180 cerc cpoint /A defpoint 110 cerc cpoint /E defpoint O E E perp /tgte_E defdroite O A A perp /tgte_A defdroite O B B perp /tgte_B defdroite tgte_A tgte_E interdroite /I defpoint tgte_B tgte_E interdroite /J defpoint I A 1.2 hompoint /I' defpoint J B 1.2 hompoint /J' defpoint %[A B O I J E I' J'] {times2} plot 1 setlinewidth 0 180 cerc Cercle .8 setlinewidth tgte_E droite [I' A B J'] ligne [O E] ligne .6 setlinewidth I A O angledroit J E O angledroit O B J angledroit pointilles [I O J] ligne setTimesItalic (O) O dctext (A) A dltext (B) B drtext (I) I ultext (J) J urtext (E) E ultext