Présentation de 3498.jps

/syracuse/bbgraf/tmp/3498.jpg
%% auteur : Mora autocrop 20 setxunit %quadrillage marks -15 15 setxrange -2 13 setyrange /l 8 def /a {0 l l} def /b {l l l} def /c {l 0 l} def /d {0 0 l} def /e {0 l 0} def /f {l l 0} def /g {l 0 0} def /h {0 0 0} def /vect_I {-5 cos -5 sin} def /vect_J {35 cos 35 sin .6 mulv} def /vect_K {0 1} def /xyz2xy { 3 dict begin /z exch def /y exch def /x exch def vect_I x mulv vect_J y mulv vect_K z mulv addv addv end } def [/A /B /C /D /E /F /G /H ] [a b c d e f g h ] {xyz2xy} capply mapnp %% corrige %%%%%%%%%% /dotscale {2 dup} def 1.2 setlinewidth [A B C G F B] ligne [C D A] ligne [D H G] ligne gsave .8 setlinewidth pointilles [A E H] ligne [E F] ligne grestore %% 4 setlinewidth % [C E] (->) ligne % [A H] (->) ligne 12 setfontsize setTimesItalic (F) A ultext (G) B urtext (H) C dltext (E) D dltext (B) E bltext (C) F urtext (D) G drtext (A) H urtext