Présentation de synt_004.jps

/syracuse/bbgraf/albums/geometrie_2nd/synt_004.jpg
-8 8 setxrange -8 8 setyrange 2 2 setmkstep 20 setxunit /A {-2 4} def /B {4 2} def /C {-4 -2} def /D {2 -4} def /I {A B milieu} def /J {C B milieu} def A J C I interdroite /G defpoint quadrillage [A B C D I J G] points tracerepere marks /f1 {.5 mul} def /f2 {neg 10 add 3 div} def C A B angledroit {f1} courbe {f2} courbe A C droite A O droite [C D B] ligne C I droite setTimesItalic (O) O (2 -1) dltext (A) A (-2 1) dltext (B) B uctext (C) C ultext (D) D dltext (I) I uctext (J) J (0 1) urtext (G) G cltext (d) 7 dup f1 ultext setTimes (1) indice setTimesItalic (d) -7 dup f2 urtext setTimes (2) indice setTimesItalic (d) -5 A C xdpoint drtext setTimes (3) indice setTimesItalic (d) 3 A O xdpoint dltext setTimes (4) indice