Présentation de ex_13.jps

-1 5 setxrange
-1 5 setyrange
/a {4} def
/A {a 0} def
/B {0 a} def
/C {A B milieu} def

1.5 setlinewidth

O a 0 90 tracearc
O B milieu a 2 div 90 -90 tracearcn
O A milieu a 2 div 180 0 tracearcn

C A C distance cercle

setTimesItalic
(A) A drtext
(B) B ultext
(C) C urtext
(O) O dltext