Fichier 221.jps — Modifié le 26 Juin 2006 à 14 h 59
%% 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