Présentation de 2780.jps

%% auteur : gh

100 setxunit
-1 3 setxrange
-1 2 setyrange

/cosa {pi 6 div Cos} def
/sina {pi 6 div Sin} def
/O {0 0} def
/A {cosa sina} def
/B {0 sina sub cosa} def
/M {2 cosa mul 2 sina mul} def
/Mx {2 cosa mul 0} def
/My {0 2 sina mul} def

tracerepere
16 setfontsize
setTimesItalic
   (O) O dltext



bleu
pointilles
M Mx (-) line
M My (-) line

1 setlinewidth
continu

[M] points
setTimesItalic
   (M) M ultext
   (a) Mx dctext
   (b) My cltext