autocrop
28.45 setxunit
%quadrillage marks
-15 25 setxrange
-10 13 setyrange

/a {0 12 3} def    
/b {0 0 3} def    
/c {9 0 3} def    
/d {9 12 3} def    
/e {0 12 0} def 
/f {0 0 0} def
/g {9 0 0} def
/h {9 12 0} def
/m {3 0 0} def
/n {0 4 0} def
/p {1 4 3 div 1} def
/vect_I {35 cos 35 sin .27 mulv} def
/vect_J {175 cos 175 sin .35 mulv} def
/vect_K {0 1 0.6 mulv} 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 /M /N /P] 
[a b c d e f g h m n p] {xyz2xy} capply
mapnp

/V {4 -1} def
/B' {B V translatepoint} def 
/M' {M V translatepoint} def 
/N' {N V translatepoint} def 
/F' {F V translatepoint} def 
/P' {P V translatepoint} def 

%% corrige
%%%%%%%%%%

dotscale {2 dup} def
1 setlinewidth
[A E N M G C D A B C] ligne
%[B F] ligne
/fillstyle {hachure} def
[M B N] polygone*
[M N] ligne 
[B' F' N' B' M' F'] ligne
gsave
   .8 setlinewidth
   pointilles
   [D H E] ligne
   [H G] ligne 
   [M' N'] ligne  
grestore
%12 setfontsize
%setTimesItalic
   (A) A [1.5 dup] ultext   
   (B) B [1.5 dup] ultext	  
   (C) C [1.5 dup] urtext	  
   (D) D [1.5 dup] ultext	  
   (E) E [1.5 dup] dltext
   %(F) F [1.5 dup] dctext   
   (G) G [1.5 dup] drtext   
   (H) H [1.5 dup] dctext 
   (M) M [1.5 dup] drtext   
   (N) N [1.5 dup] dltext

dotted
/angleA -60 def
/angleB 120 def
P (Z) enode 
P' (Z') enode
(Z) (Z') (->) nccurve





%% adresse IP : 82.254.24.233