Présentation de famille4.jps

/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