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