-2.5 4.5 setxrange
-4 7 setyrange
2 setxyrapport
.5 .5 setquadrillagestep
quadrillage
tracerepere
marks
/A {-1.25 1} def
/I0 {-1 3.5} def
/I0' {-.5 0} def
/I1 {0 -2} def
/I2 {.5 -2.75} def
/I3 {1.5 0} def
/I4 {3 6} def
/I5 {4 4} def
/.. {2.5 dup} def
A I1 droite
1.2 setlinewidth
[I0 {-80 dir} .. I0' .. I1 {3 -7} .. {right} I2 .. I3 .. I4 {right} .. {-60 dir} I5] draw
A point
setTimesItalic
(A) A dltext
(C) I5 urtext
|