Présentation de synt_001.jps

/syracuse/texpng/jpv/database/2nd/geometrie/transform/synt_001.jpg
2 2 setmkstep /A {-4 0} def /B {-2 2} def /t {1 -1 translatepoint} def /s {O sympoint} def /S {-1 -1 1 -1 axesympoint} def /r {O 90 rotatepoint} def /A1 {A t} def /B1 {B t} def /A2 {A s} def /B2 {B s} def /A3 {A S} def /B3 {B S} def /A4 {A r} def /B4 {B r} def quadrillage tracerepere marks .8 setlinewidth [A B A1 B1 A2 B2 A3 B3 A4 B4] dup {times2} plot {droite} dapply .5 setlinewidth [A A1] (->) ligne [B B1] (->) ligne pointilles [A A2] ligne [B B2] ligne [A A3] ligne [B B3] ligne O A A4 arcp O B B4 arcp setTimesItalic (A) A uctext (B) B ultext (A) A1 dctext (1) indice (B) B1 dctext (1) indice (A) A2 ultext (2) indice (B) B2 drtext (2) indice (A) A3 dctext (3) indice (B) B3 dltext (3) indice (A) A4 crtext (4) indice (B) B4 dltext (4) indice (d) 1 A B xdpoint ultext (d) 2 A1 B1 xdpoint ultext (1) indice (d) 5 A2 B2 xdpoint ultext (2) indice (d) -3 A3 B3 xdpoint dltext (3) indice (d) 1 A4 B4 xdpoint urtext (4) indice (O) O dltext