Fichier 8749.jps — Modifié le 27 Mai 2008 à 15 h 18

8749.pdf
Source
%% 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 setlinewidth
[A B C G F B] ligne
[C D A] ligne
[D H G] ligne
%[F H] ligne
gsave
   .8 setlinewidth
   pointilles
   [A E H] ligne
 [E F] ligne    
grestore
/arrowscale{1.5 1.5} def
[A D] ligne
[A C] ligne
pointilles
[G E] ligne
[A H] ligne
[H C] ligne
12 setfontsize
setTimesItalic
   (F) A ultext   
   (G) B urtext	  
   (H) C uctext	  
   (E) D dltext	  
   (B) E bltext
   (C) F urtext   
   (D) G drtext   
   (A) H dltext