Fichier 821.jps — Modifié le 2 Février 2008 à 12 h 45
%% auteur : Peric
-1 19 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 1 sub def
/y exch def
/x exch def
[x y n {dupp dupp up 2 2 n exp div mulv translatepoint dupp right 2 2 n exp div mulv translatepoint dupp down 2 2 n exp div mulv translatepoint dupp down 2 2 n exp div mulv translatepoint dupp right 2 2 n exp div mulv translatepoint dupp up 2 2 n exp div mulv translatepoint} repeat] ligne
end
} def
A 1 tracer
7 0 2 tracer
14 0 3 tracer
[A B] ligne
[7 0 11 0] ligne
[14 0 18 0] ligne