%autocrop
/h0 {1.5} def

1.138 h0 div setxunit
1.138 h0 div setyunit
%0.569 setxunit
%quadrillage marks
%-10 500 setxrange
%-150 200 setyrange

-10 700 setxrange
-300 1200 setyrange

/loinx {1000} def
/loinz {1000} def
/ax {-1} def
/ay {89} def
/b0 {90 ay sub ax add} def
/o {0 -10 -20} def 
/a {0 -10 51} def   
/b {230 -10 51} def    
/c {230 -10 34} def    
/d {260 -10 34} def    
/e {260 -10 17} def 
/f {0 80 51} def
/g {290 80 51} def
/g' {290 50 51} def
/h {230 50 34} def
/h' {230 50 51} def
/i {290 50 34} def
/i' {290 80 34} def
/j {320 20 34} def
/k {260 20 34} def
/l {260 20 17} def
/m {320 20 17} def
/n {320 80 17} def
/n' {320 80 34} def
/p {290 80 68} def
/q {0 80 68} def
/r {loinx -10 0} def
/s {loinx -10 17} def
/t {500 80 17} def
/u {290 80 loinz} def
/v {0 600 68} def
/w {loinx 80 loinz} def

/a1 {530 -50 17} def   
/b1 {530 -50 34} def    
/c1 {560 -50 34} def    
/d1 {560 -50 51} def    
/e1 {590 -50 51} def 
/f1 {590 -50 68} def
/g1 {740 -50 68} def
/h1 {740 -50 51} def
/i1 {770 -50 51} def
/j1 {770 -50 34} def
/k1 {800 -50 34} def
/l1 {800 -50 17} def
/m1 {830 -50 17} def
/n1 {830 -50 0} def
/x1 {500 -10 17} def
/y1 {500 -50 17} def
/z1 {500 -50 -20} def
/w1 {500 -10 -20} def
/o1  {860 -50 0} def
/p1  {860 -50 -20} def
/q1  {860 20 -20} def
/r1  {860 20 0} def
/s1 {loinx 20 -20} def
/t1 {loinx 20 0} def




/a2 {530 80 17} def   
/b2 {530 80 34} def    
/c2 {560 80 34} def    
/d2 {560 80 51} def    
/e2 {590 80 51} def 
/f2 {590 80 68} def
/g2 {740 80 68} def
/h2 {740 80 51} def
/i2 {770 80 51} def
/j2 {770 80 34} def
/k2 {800 80 34} def
/l2 {800 80 17} def
/m2 {830 80 17} def
/n2 {830 80 0} def
/t2 {loinx 80 0} def

/to1 {620 80 90} def
/to2 {710 80 90} def
/to3 {710 80 305} def
/to4 {620 80 305} def

/po1 {620 100 90} def
/po2 {710 100 90} def
/po3 {710 100 305} def
/po4 {620 100 305} 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
/vect_I {ax dup cos exch sin 1 mulv} def
/vect_J {ay dup cos exch sin 1 mulv} def
/vect_K {0 1 1 mulv} def

/coco {255 255 div 255 255 div 220 255 div} 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

[/O /A /B /C /D /E /F /G /G' /H /H' /I /I' /J /K /L /M /N /N' /P /Q /R /S /T /U /V /W /A1 /B1 /C1 /D1 /E1 /F1 /G1 /H1 /I1 /J1 /K1 /L1 /M1 /N1 /X1 /Y1 /Z1 /W1 /O1 /P1 /Q1 /R1 /S1 /T1 /A2 /B2 /C2 /D2 /E2 /F2 /G2 /H2 /I2 /J2 /K2 /L2 /M2 /N2 /T2 /PO1 /PO2 /PO3 /PO4 /TO1 /TO2 /TO3 /TO4] 
[o a b c d e f g g' h h' i i' j k l m n n' p q r s t u v w a1 b1 c1 d1 e1 f1 g1 h1 i1 j1 k1 l1 m1 n1 x1 y1 z1 w1 o1 p1 q1 r1 s1 t1 a2 b2 c2 d2 e2 f2 g2 h2 i2 j2 k2 l2 m2 n2 t2 po1 po2 po3 po4 to1 to2 to3 to4] {xyz2xy} capply
mapnp


dotscale {2 dup} def
2 setlinewidth
1 setlinejoin


/fillstyle {coco setrgbcolor fill} def
[T1 R1 Q1 S1] polygone*
[O1 P1 Q1 R1] polygone*

% Porte
/fillstyle {orange fill} def
[PO1 PO2 PO3 PO4] polygone*
gsave 
630 100 115 xyz2xy stranslate
9 {0 0 0 xyz2xy point 0 0 21.25 xyz2xy stranslate} repeat
700 100 115 xyz2xy stranslate
9 {0 0 0 xyz2xy point 0 0 21.25 xyz2xy stranslate} repeat
630 100 285 xyz2xy stranslate
3 {0 0 0 xyz2xy point 70 3 div 0 0 xyz2xy stranslate} repeat


grestore



/fillstyle {coco setrgbcolor fill} def
[PO1 PO4 TO4 TO1] polygone*
[PO4 PO3 TO3 TO4] polygone*
[PO2 PO3 TO3 TO2] polygone*
/fillstyle {blanc fill} def
[PO1 PO2 TO2 TO1] polygone*


% Enduit vertical
gsave
newpath
U smoveto
P slineto Q slineto F slineto G slineto I' slineto N' slineto N slineto A2 slineto B2 slineto C2 slineto D2 slineto E2 slineto F2 slineto G2 slineto H2 slineto I2 slineto J2 slineto K2 slineto L2 slineto M2 slineto N2 slineto T2 slineto W slineto 
TO4 smoveto
TO3 slineto TO2 slineto TO1 slineto TO4 slineto
clip
coco setrgbcolor fill
2 setlinewidth noir 
stroke 
grestore
[W U P Q F G I' N' N A2 B2 C2 D2 E2 F2 G2 H2 I2 J2 K2 L2 M2 N2 T2 ] ligne
[TO1 TO2 TO3 TO4 TO1] ligne



%/fillstyle {255 255 div 255 255 div 220 255 div setrgbcolor fill} def
/fillstyle {coco setrgbcolor fill} def
[W1 O A B C D E X1 W1] polygone*
[X1 Y1 Z1 W1] polygone*

%[U P Q F G I' N' N A2 B2 C2 D2 E2 F2 G2 H2 I2 J2 K2 L2 M2 N2 T2 W] polygone*


%carrelage d'un plan horizontal
/hstep {30 b0 cos mul 1.138 h0 div mul} def
/hangle {ax} def
%/fillstyle {255 255 div 180 255 div 150 255 div setrgbcolor fill noir hachure %/hangle hangle ay ax sub add store hachure} def
/fillstyle {blanc fill noir hachure /hangle hangle ay ax sub add store hachure} def
[U P Q V] polygone*
/hangle {ax} def
[A F G G' H' B A] polygone*
/hangle {ax} def
[A1 Y1 X1 E L M N A2] polygone*
/hangle {ax} def
[C D K J N' I' I H] polygone*


%carrelage d'un plan parallèle à Oxz
/hangle {90} def
/hstep {30 ax cos mul 1.138 h0 div mul} def
%/fillstyle {255 255 div 180 255 div 150 255 div setrgbcolor fill noir hachure} def
/fillstyle {blanc fill noir hachure} def
[F Q P G] polygone*
[H H' G' I] polygone*
[K L M J] polygone*


%carrelage d'un plan parallèle à Oyz
/hangle {90} def
/hstep {30 ay cos mul 1.138 h0 div mul} def
%/fillstyle {255 255 div 180 255 div 150 255 div setrgbcolor fill noir hachure} def
/fillstyle {blanc fill noir hachure} def
[B C H H'] polygone*
[G G' I I'] polygone*
[D E L K] polygone*
[M J N' N] polygone*


2 setlinewidth
[Q F A O W1] ligne
[E L M N T] ligne
[A B C D E X1] ligne
[F G G' H' H I I' N' J K L] ligne
[B H'] ligne
[C H] ligne
[D K] ligne
%[E L] ligne
[J M] ligne
[V Q P] ligne
[I G'] ligne
[P U] ligne
[P I'] ligne
[N N'] ligne

%[X1 Y1 A1 B1 C1 D1 E1 F1 G1 H1 I1 J1 K1 L1 M1 N1] ligne
%[A2 B2 C2 D2 E2 F2 G2 H2 I2 J2 K2 L2 M2 N2] ligne




%12 setfontsize
%setTimesItalic
  % (A) A [1.5 dup] ultext   
   %(B) B [1.5 dup] ultext

/hangle {90} def
/hstep {30 ay cos mul 1.138 h0 div mul} def
/fillstyle {blanc fill noir hachure} def
[A1 B1 B2 A2] polygone*
/hstep {30 b0 cos mul 1.138 h0 div mul} def
/hangle {ax} def
/fillstyle {blanc fill noir hachure /hangle hangle ay ax sub add store hachure} def
[B1 C1 C2 B2] polygone*
/hangle {90} def
/hstep {30 ay cos mul 1.138 h0 div mul} def
/fillstyle {blanc fill noir hachure} def
[C1 D1 D2 C2] polygone*
/hstep {30 b0 cos mul 1.138 h0 div mul} def
/hangle {ax} def
/fillstyle {blanc fill noir hachure /hangle hangle ay ax sub add store hachure} def
[D1 E1 E2 D2] polygone*
/hangle {90} def
/hstep {30 ay cos mul 1.138 h0 div mul} def
/fillstyle {blanc fill noir hachure} def
[E1 F1 F2 E2] polygone*

/hstep {30 b0 cos mul 1.138 h0 div mul} def
/hangle {ax} def

/fillstyle {blanc fill noir hachure /hangle hangle ay ax sub add store hachure} def
[T2 N2 N1 O1 R1 T1] polygone*


/hangle {90} def
/hstep {30 ay cos mul 1.138 h0 div mul} def
/fillstyle {blanc fill noir hachure} def
[M1 N1 N2 M2] polygone*
/hstep {30 b0 cos mul 1.138 h0 div mul} def
/hangle {ax} def
/fillstyle {blanc fill noir hachure /hangle hangle ay ax sub add store hachure} def
[L1 M1 M2 L2] polygone*
/hangle {90} def
/hstep {30 ay cos mul 1.138 h0 div mul} def
/fillstyle {blanc fill noir hachure} def
[K1 L1 L2 K2] polygone*
/hstep {30 b0 cos mul 1.138 h0 div mul} def
/hangle {ax} def
/fillstyle {blanc fill noir hachure /hangle hangle ay ax sub add store hachure} def
[J1 K1 K2 J2] polygone*
/hangle {90} def
/hstep {30 ay cos mul 1.138 h0 div mul} def
/fillstyle {blanc fill noir hachure} def
[I1 J1 J2 I2] polygone*
/hstep {30 b0 cos mul 1.138 h0 div mul} def
/hangle {ax} def
/fillstyle {blanc fill noir hachure /hangle hangle ay ax sub add store hachure} def
[H1 I1 I2 H2] polygone*
/hangle {90} def
/hstep {30 ay cos mul 1.138 h0 div mul} def
/fillstyle {blanc fill noir hachure} def
[G1 H1 H2 G2] polygone*
/hstep {30 b0 cos mul 1.138 h0 div mul} def
/hangle {ax} def
/fillstyle {blanc fill noir hachure /hangle hangle ay ax sub add store hachure} def
[F1 G1 G2 F2] polygone*

/fillstyle {coco setrgbcolor fill} def
[P1 Z1 Y1 A1 B1 C1 D1 E1 F1 G1 H1 I1 J1 K1 L1 M1 N1 O1] polygone*





%% adresse IP : 82.255.18.233




%% adresse IP : 82.251.250.87