Présentation de pyth_001.jps

-2 6 setxrange
-2 5 setyrange

/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

1.5 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 ultext
   (b) 45 F .6 cpoint urtext