%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 200 setyrange

/loinx {1000} def
/loinz {1000} def
/ax {-20} def
/ay {50} 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 {410 80 17} def
/u {290 80 loinz} def
/v {0 600 68} def
/w {loinx 80 loinz} def

/a1 {440 -50 17} def   
/b1 {440 -50 34} def    
/c1 {470 -50 34} def    
/d1 {470 -50 51} def    
/e1 {500 -50 51} def 
/f1 {500 -50 68} def
/g1 {650 -50 68} def
/h1 {650 -50 51} def
/i1 {680 -50 51} def
/j1 {680 -50 34} def
/k1 {710 -50 34} def
/l1 {710 -50 17} def
/m1 {740 -50 17} def
/n1 {740 -50 0} def
/x1 {410 -10 17} def
/y1 {410 -50 17} def
/z1 {410 -50 -20} def
/w1 {410 -10 -20} def
/o1  {770 -50 0} def
/p1  {770 -50 -20} def
/q1  {770 20 -20} def
/r1  {770 20 0} def
/s1 {loinx 20 -20} def
/t1 {loinx 20 0} def




/a2 {440 80 17} def   
/b2 {440 80 34} def    
/c2 {470 80 34} def    
/d2 {470 80 51} def    
/e2 {500 80 51} def 
/f2 {500 80 68} def
/g2 {650 80 68} def
/h2 {650 80 51} def
/i2 {680 80 51} def
/j2 {680 80 34} def
/k2 {710 80 34} def
/l2 {710 80 17} def
/m2 {740 80 17} def
/n2 {740 80 0} def
/t2 {loinx 80 0} def

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

/po1 {530 100 90} def
/po2 {620 100 90} def
/po3 {620 100 305} def
/po4 {530 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 
550 100 167.5 xyz2xy stranslate
1 setlinewidth 
8 {50 9 div 0 0 xyz2xy  stranslate [0 0 0 xyz2xy 0 0 118 xyz2xy] ligne } repeat
grestore

gsave
newpath
530 100 90 xyz2xy smoveto
0 0 215 xyz2xy srlineto 
90 0 0 xyz2xy srlineto 
0 0 -215 xyz2xy srlineto 
-90 0 0 xyz2xy srlineto 
20 0 185.5 xyz2xy srmoveto
0 0 -108 xyz2xy srlineto
50 0 0 xyz2xy srlineto
0 0 108 xyz2xy srlineto
-50 3 div 0 10 xyz2xy srlineto
-50 3 div 0 0 xyz2xy srlineto
-50 3 div 0 -10 xyz2xy srlineto
clip 2 setlinewidth orange fill  stroke
%20 0 62.5 xyz2xy stranslate
%[0 0 108 xyz2xy 0 0 0 xyz2xy 50 0 0 xyz2xy 50 0 108 xyz2xy] ligne
%[0 0 108 xyz2xy 50 3 div 0 118 xyz2xy 2 50 mul 3 div 0 118 xyz2xy 50 0 108 xyz2xy] ligne
grestore

gsave
newpath
550 100 275.5  xyz2xy smoveto
0 0 -108 xyz2xy srlineto
50 0 0 xyz2xy srlineto
0 0 108 xyz2xy srlineto
-50 3 div 0 10 xyz2xy srlineto
-50 3 div 0 0 xyz2xy srlineto
-50 3 div 0 -10 xyz2xy srlineto
clip 2 setlinewidth noir  stroke
grestore

gsave
newpath
550 100 167.5  xyz2xy smoveto
5 {0 0 -11 xyz2xy srmoveto  50 0 0 xyz2xy srlineto -50 0 0 xyz2xy srmoveto} repeat
clip 1 setlinewidth stroke
grestore

gsave 
550 50 3 div add 100 167.5 3 11 mul 2 div sub xyz2xy point
50 3 div 0 0 xyz2xy stranslate
550 50 3 div add 100 167.5 3 11 mul 2 div sub xyz2xy point
0 0 -22 xyz2xy stranslate
550 50 3 div add 100 167.5 3 11 mul 2 div sub xyz2xy point
-50 3 div 0 0 xyz2xy stranslate
550 50 3 div add 100 167.5 3 11 mul 2 div sub xyz2xy point
grestore

gsave 
0.5 setlinewidth
[550 100 167.5 xyz2xy 550 100 105 xyz2xy] ligne
50 0 0 xyz2xy stranslate
[550 100 167.5 xyz2xy 550 100 105 xyz2xy] ligne
grestore

gsave 
540 100 115 xyz2xy stranslate
9 {0 0 0 xyz2xy point 0 0 21.25 xyz2xy stranslate} repeat
70 0 -191.25 xyz2xy stranslate 
9 {0 0 0 xyz2xy point 0 0 21.25 xyz2xy stranslate} repeat
-70 70 3 div add 0 -11.25 xyz2xy stranslate
2 {0 0 0 xyz2xy point 70 3 div 0 0 xyz2xy stranslate} repeat
-80 0 -190 xyz2xy stranslate
[0 0 0 xyz2xy  90 0 0 xyz2xy] ligne
grestore 





/fillstyle {coco setrgbcolor fill} def
%/fillstyle {bleu hachure} def
[PO1 PO4 TO4 TO1] polygone*
[PO4 PO3 TO3 TO4] polygone*
[PO2 PO3 TO3 TO2] polygone*
/fillstyle {blanc fill} def
[PO1 PO2 620 75 90 xyz2xy 530 75 90 xyz2xy] 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
%bleu hachure
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 {blanc fill} def
[TO1 TO2 620 80 80 xyz2xy 530 80 80 xyz2xy] polygone*



%/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*

2 setlinewidth
[Q F A O W1] ligne

%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.248.39.144