56.90 setxunit -0.9 4.9 setxrange -2.5 2.5 setyrange 1 1 settkstep 1 1 setmkstep ticks /t {2} def /xmarkstyle {[1.5 dup] dltext} def /ymarkstyle {[1.5 dup] ultext} def %[-1] {xmark} apply %[1 ] {ymark} apply /xmarkstyle {[1.5 dup] drtext} def /ymarkstyle {[1.5 dup] dltext} def [1] {xmark} apply %[-1] {ymark} apply traceaxes %axesarrow unites % %i % %0 1 [1.5 dup] cltexlabel /titrait {%le point à marquer puis un point de la droite 4 dict begin /b defpoint /a defpoint /d {a a b vecteur arg 90 add dir 0.05 mulv translatepoint} def /e {a a b vecteur arg -90 add dir 0.05 mulv translatepoint} def [d e] ligne end } def /A {2 0} def /B {3 0} def /D {2 2 sqrt 2 div add 6 sqrt 2 div} def /D' {1 3 sqrt} def /O {0 0} def 2 1 2 5 1.5 0 1.5 interdroitecercle /M1 defpoint /M2 defpoint 1 setlinejoin 1 setlinewidth [A B D D'] {plus3} papply %[A B C D A] ligne (O) O [t dup] dltext (A) A [t dup] dltext (B) B [t dup] dltext (D) D [t dup] urtext (D') D' [t dup] ultext $\textrm{M}_1$ M1 [1.3 dup] urtexlabel $\textrm{M}_2$ M2 [1.3 dup] drtexlabel $\Gamma\,'$ 2 1 25 cos add mul 25 sin 2 mul [1.5 dup] urtexlabel $\frac{2\pi}3$ 2 0.3 add 0 A 60 rotatepoint [1.5 dup] urtexlabel 1.5 0 1.5 cercle A 2 cercle [A D'] ligne 0 120 A 0.4 (->) Cercle pointilles [2 1.6 2 -1.6] ligne [1 2 1 0] ligne A 2 sqrt cercle