Présentation de 2781.jps

/syracuse/bbgraf/tmp/2781.jpg
%% 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 1 setlinewidth continu [M] points setTimesItalic (M) M ultext setSymbol (q) .5 .12 cctext (r) A {30} uctext O M (-) line /arrowangle -5 store 1 0 O A 0.4 (->) tripointarc