Présentation de famille3.jps

/A {-2 -4} def
/B {-2.5 -1.5} def
/D {0 0 0 2} def                           %% la droite pour la symetrie
/ell [B .25 1 A B angle] def               %% l'ellipse originelle

/fillstyle {jaune fill} def


[.5 3 .5 stepto]                            %% genere la suite des rapports dans [0, 5]
{ell A 4 -1 roll homell} apply             %% genere la suite des
                                           %% ellipses axees sur (AB)
dup {ellipse*} apply                       %% on les dessine
{D axesymell} apply                        %% on en fait la symetrie
                                           %% par rapport a la droite D

/hcolor {bleu} def
/fillstyle {hachure} def
{ellipse*} apply                           %% puis on les dessine

mixte
D droite                                   %% on represente D

[A B] points                               %% on marque les points A et B

setTimesItalic
   (A) A drtext
   (B) B drtext