%% auteur : -2 6 setxrange -2 5 setyrange 30 setxunit /A {0 0} def /B {4 0} def /S {0 2} def /T {4 3} def /da1 10 def /da2 8 def [S A B T] {times} plot /D {S T mediatrice} def D droite [S T] ligne /v {3 4} def %% le vecteur direction D S dupp v addv interdroite /K1 defpoint T K1 da1 Arc S K1 da1 Arc D S dupp 7 -7 addv interdroite /K2 defpoint T K2 da2 Arc S K2 da2 Arc D A B interdroite /F defpoint F times S F A .5 (-) tripointarc B F T .5 (=) tripointarc S A B angledroit A B T angledroit T S T milieu F angledroit F T 2 marked F S 2 marked gsave pointilles [S F T] ligne grestore medium setlinewidth [S A B T] ligne setTimesItalic (A) A dltext (B) B drtext (S) S ultext (T) T urtext (F) F dltext setSymbol (a) 165 F .5 cpoint ltext (b) 45 F .6 cpoint rtext