%% auteur : Peric
-1 17 setxrange
-3 3 setyrange
28.45 setxunit

/t {1} def


noir
continu

/A{0 0} def
/A1{0 2}def
/A2{2 2}def
/A3{2 0}def
/A4{2 -2}def
/A5{4 -2}def
/B{4 0} def


/tracer {1 dict begin
/n exch  def
/nn {n 1 sub} def
/k {1 2 n {dup} repeat pop pop nn {mul} repeat } def
/y exch def
/x exch def
[x y k {dupp dupp up 2 k div mulv translatepoint dupp right 2 k div mulv  translatepoint dupp down 2 k div  mulv translatepoint dupp down 2 k div  mulv translatepoint dupp right 2 k div  mulv translatepoint dupp up 2 k div  mulv translatepoint} repeat] ligne
end
} def

A 1 tracer
6 0 2 tracer
12 0 3 tracer
0 -6 4 tracer
6 -6 5 tracer
12 -6 6 tracer

(1) A A1 milieu cltext
(2) A1 A2 milieu uctext
(3) A2 A3 milieu crtext
(4) A3 A4 milieu cltext
(5) A4 A5 milieu dctext
(6) A5 B milieu crtext
gsave
pointilles
[A B] ligne
[6 0 10 0] ligne
[12 0 16 0] ligne
0 -6 stranslate
grestore

gsave
3 {(A) A [t dup] dltext
(B) B [t dup] drtext
(I) A B milieu dltext
6 0 stranslate} repeat
0 -6 stranslate
3 {(A) A [t dup] dltext
(B) B [t dup] drtext
(I) A B milieu dltext
6 0 stranslate} repeat
grestore