%autocrop 20 setxunit %quadrillage marks -12.5 8 setxrange -5.5 12 setyrange %% le plan de base /P1 {-9 -3} def /P2 {4 -5} def /P3 {8.5 0} def /a {-6 4.5 0} def /b {6 4.5 0} def /c {6 -4.5 0} def /d {-6 -4.5 0} def /s {-4.5 3 11.4} def /s' {s pop 0} def /alpha 35 def /beta 170 def /vect_I {alpha cos alpha sin .5 mulv} def /vect_J {beta cos beta sin .9 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 /S /S'] [a b c d s s'] {xyz2xy} capply mapnp 6 S D ydpoint /D' defpoint 7 S C ydpoint /C' defpoint %% corrige S' D S S' D' paral interdroite /D" defpoint S' C S S' C' paral interdroite /C" defpoint C" D" B C interdroite /I defpoint C" D" A D interdroite /J defpoint /fillstyle {.9 setgray fill} def gsave noir mixte .6 setlinewidth [C' D' J I] polygone* .8 setlinewidth pointilles orange [S' D] ligne [D" D'] ligne [S' C] ligne [C" C'] ligne grestore [D" C"] {times2} plot %%%%%%%%%% /dotscale {2 dup} def [S' C' D'] {times} plot 1.2 setlinewidth [A D C S] ligne [A S D] ligne gsave .8 setlinewidth pointilles [A B C] ligne [B S S'] ligne grestore 2 setlinewidth [-12 P2 P1 xdpoint P2 P3] ligne 12 setfontsize setTimesItalic (A) A dltext (B) B dctext (C) C urtext (D) D drtext (c) C" drtext (d) D" (6 0) brtext (D') D' (5 2) uctext (C') C' urtext (S) S ultext (s) S' brtext (H) P2 (0 7) ultext