-4 4 setxrange -4 4 setyrange /A {0 2} def /B {0 -2} def /cerc {O 2} def %% syntaxe : I d manip --> le cercle de centre I tangent a la droite d donnee /manip { 2 dict begin /d defdroite /I defpoint I I d orthoproj I distance end } def /d {A B} def /dessin { /alpha 0 def rouge /pas 3 def 360 pas idiv { /alpha alpha pas add store /M {alpha cerc cpoint} def M d manip cercle } repeat } def {dessin} relief