/A {0 3} def
/fillstyle {jaune fill} def
/ellipseangle 45 def
O point
[A 11 {2 copy O 30 rotatepoint} repeat] %% on genere la famille de points
dup %% on en fait une copie
{1.5 .75} papply %% on genere la famille d'ellipse
(ellipse*) dapply %% que l'on represente
bleu
{times2} plot %% puis on marque les points
|