%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 {710 80 90} def /to3 {710 80 305} def /to4 {530 80 305} def /po1 {530 100 90} def /po2 {710 100 90} def /po3 {710 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 640 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 640 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 640 100 105 xyz2xy] ligne 50 0 0 xyz2xy stranslate [550 100 167.5 xyz2xy 640 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