Présentation de sembl_010.jps

%quadrillage
%marks
-4 4 setxrange
-1 5.5 setyrange
autocrop
30 setxunit
/r 3 def
/cerc {O r} def
0 cerc cpoint /B defpoint
180 cerc cpoint /A defpoint
110 cerc cpoint /E defpoint

O E E perp /tgte_E defdroite
O A A perp /tgte_A defdroite
O B B perp /tgte_B defdroite
tgte_A tgte_E interdroite /I defpoint
tgte_B tgte_E interdroite /J defpoint
I A 1.2 hompoint /I' defpoint
J B 1.2 hompoint /J' defpoint

%[A B O I J E I' J'] {times2} plot

1 setlinewidth
0 180 cerc Cercle

.8 setlinewidth
tgte_E droite
[I' A B J'] ligne
[O E] ligne

.6 setlinewidth

I A O angledroit
J E O angledroit
O B J angledroit

pointilles
[I O J] ligne

setTimesItalic
   (O) O dctext
   (A) A dltext
   (B) B drtext
   (I) I ultext
   (J) J urtext
   (E) E ultext