Fichier 815.jps — Modifié le 2 Février 2008 à 12 h 45
%% auteur : Peric
-1 15 setxrange
-3 3 setyrange
28.45 setxunit
/t {2} def
/m {1.5} def
noir
continu
/A{0 0} def
/B{4 0} def
/tracer {1 dict begin
/n exch def
/y exch def
/x exch def
[x y n {dupp dupp up 2 n div mulv translatepoint dupp right 2 n div mulv translatepoint dupp down 2 n div mulv translatepoint dupp down 2 n div mulv translatepoint dupp right 2 n div mulv translatepoint dupp up 2 n div mulv translatepoint} repeat] ligne
end
} def
A 1 tracer
7 0 2 tracer
14 0 3 tracer
[A B] ligne