815.jps

%% 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