Présentation de rect_001a.jps

-2 10 setxrange
-2 6 setyrange

%traceaxes
%marks

/A {0 0} def
/B {0 4} def
/M {8 0} def

%%%%%%%%%%%%%%%%%%%%%%%%%%%

/O {A B milieu} def
/E {A M milieu} def
/F {B M milieu} def

1 dict begin
   1 setlinewidth
   [A B M] polygone
end

[O F E] points
A B diamcercle cercle
B A M angledroit

setTimesItalic
   (A) A dltext
   (B) B ultext
   (M) M drtext
   (F) F urtext
   (E) E drtext
   (O) O urtext