Présentation de pyth_001a.jps

autocrop
-2 6 setxrange
-2 5 setyrange

/A {0 0} def
/B {4 0} def
/S {0 2} def
/T {4 3} def

[S A B T] {times} plot

.3 A B ABpoint /F defpoint
F times

S A B angledroit
A B T angledroit
[S F T] ligne

1.2 setlinewidth
[S A B T] ligne

setTimesItalic
   (A) A dltext
   (B) B drtext
   (S) S ultext
   (T) T urtext
   (F) F drtext

.4 setlinewidth
0 -7 translate

[A F] (<->) ligne
   (x) A F milieu dctext