Présentation de famille2.jps

100 setheight
250 setwidth
-1 3 setyrange

/A {0 2} def
/B {2 2} def

O times2                                %% on marque l'origine
O square2

[0 1 5 nto] {A B ABpoint} apply         %% on genere 5 points entre A et B
dup points                              %% on les represente avec des points
{2 -2 translatepoint} papply            %% on les translate
bleu
dup {times2} plot                       %% on les represente avec des croix bleues
{O 150 rotatepoint} papply              %% rotation a 135 deg autour du point O
rouge
{circ2} plot                            %% on les represente avec des cercles rouges

setTimesItalic
   (A) A ultext
   (B) B urtext
   (O) O drtext