400 setwidth 400 setheight -2 16 setxrange -3.5 14.5 setyrange /fillstyle {.9 setgray fill} def jpegmode /l 8 def /a {0 l l} def /e {0 l 0} def /i {5 0 l} def /b {l l l} def /f {l l 0} def /j {l 5 l} def /c {l 0 l} def /g {l 0 0} def /k {l 0 4} def /d {0 0 l} def /h {0 0 0} def /m {l 2 div 0 0} def /vect_I {-10 cos -10 sin} def /vect_J {35 cos 35 sin .8 mulv} def /vect_K {0 1} 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 /I /J /K /M] [a b c d e f g h i j k m] {xyz2xy} capply mapnp %% intersection no 1 A C I J interdroite /A1 defpoint M C I K interdroite /A2 defpoint A A1 M paral H E interdroite /A3 defpoint %% intersection no 2 A1 A2 K paral I J interdroite /K1 defpoint A A1 K1 paral A B interdroite /K2 defpoint A2 M K paral H G interdroite /K3 defpoint A3 M K3 paral H E interdroite /K4 defpoint A3 A K4 paral A E interdroite /K5 defpoint %% trace intersection 2 .7 setlinewidth [K5 K4 K3 K K1 K2] polygone* %% trace intersection 1 /fillstyle {.7 setgray continu hachure} def mixte [A A1 A2 M A3] polygone* continu %% .3 setlinewidth %% [I C J] ligne 1 setlinewidth [A D I J B A] ligne [D H G F B] ligne [I K J] ligne [K G] ligne gsave pointilles [A E H] ligne [E F] ligne grestore 12 setfontsize setTimesItalic (A) A ultext (F) F brtext (J) J ultext (B) B urtext (G) G drtext (K) K drtext (D) D ultext (H) H dltext (M) M dctext (E) E urtext (I) I uctext