%% auteur : Peric
%autocrop
50 setxunit
%quadrillage marks
-1 6 setxrange
-1 4 setyrange
/l 8 def
/r 0.3 def

/a {0 0 0} def    
/b {4 0 0} def    
/c {4 4 0} def    
/d {0 4 0} def    
/e {0 0 2} def 
/f {4 0 2} def
/g {4 4 2} def
/h {0 4 2} def
/m {r 4 r sub r 2 sqrt mul} def
/m1 {r 4 r sub 0} def
/m2 {0 4 r 2 sqrt mul} def
/R {r 2 sqrt mul} def
/n {R 0 R} def
/n1 {0 0 R} def
/n2 {R 0 0} def
/p {R R 0} def
/p1 {0 R 0} def

/z {1.5} def

/vect_I {1 0} def
/vect_J {50 dup cos 2 1 roll sin .4 mulv} def
/vect_K {0 1} def

%% [O vect_I] (->) ligne
%% [O vect_J] (->) ligne
%% [O vect_K] (->) ligne

/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 /M1 /M /M2 /N /N1 /N2 /P /P1] 
[a b c d e f g h m1 m m2 n n1 n2 p p1] {xyz2xy} capply
mapnp

/dotscale {2 dup} def
1.2 setlinewidth
[A B F E A] ligne
[E H G F] ligne
[B C G] ligne
[B E] ligne
[N1 N N2] ligne

gsave
   .8 setlinewidth
   pointilles
   [A D C] ligne
   [H D] ligne
   [B D] ligne
   [B H] ligne
   [M1 M M2] ligne
   [P1 P N2] ligne

grestore


12 setfontsize
setTimesItalic
   (A) A [z dup] dltext   
   (B) B [z dup] drtext	  
   (C) C [z dup] drtext	  
   (D) D [z dup] bltext	  
   (E) E [z dup] bltext
   (F) F [z dup] ultext   
   (G) G [z dup] urtext   
   (H) H [z dup] ultext