Présentation de famille4.jps

/syracuse/texpng/jpv/guide_jps/famille4.jpg
/A {-5 0} def A 1 0 translatepoint /B defpoint /ell [B 1 2 0] def [A B] points [.25 6 .25 stepto] %% genere la suite des x dans [0, 5] {ell A 4 -1 roll homell} apply %% genere la suite des centres {ellipse} apply