Présentation de 3D_15.jps

/syracuse/bbgraf/albums/sections_planes_02/3D_15.jpg
%autocrop 20 setxunit %quadrillage marks -14 15 setxrange -2 14.5 setyrange /l 8 def /a {0 l l} def /b {l l l} def /c {l 0 l} def /d {0 0 l} def /e {0 l 0} def /f {l l 0} def /g {l 0 0} def /h {0 0 0} def /i {1.5 7 l} def /j {6.5 0 4.5} def /k {6 4.5 l} def /vect_I {-5 cos -5 sin} def /vect_J {35 cos 35 sin .6 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 /E /F /G /H /I /J /K] [a b c d e f g h i j k] {xyz2xy} capply mapnp ymax I J K paral ydpoint /K' defpoint /dotscale {2 dup} def 1.2 setlinewidth I J -1 trait [K K'] ligne [A B C G F B] ligne [C D A] ligne [D H G] ligne gsave .8 setlinewidth pointilles [A E H] ligne [E F] ligne [I J] ligne grestore [I J K] {times} plot 12 setfontsize setTimesItalic (A) A ultext (B) B urtext (C) C dltext (D) D dltext (E) E bltext (F) F urtext (G) G drtext (H) H dltext (I) I dltext (J) J (-5 0) cltext (K) K dltext (d) ymax I J ydpoint dltext (d') ymax K K' ydpoint (3 0) drtext <tex> \vbox {\hsize 70mm \parindent 0pt Les droites $d$ et $d'$ sont parallèles. La droite $d$ rencontre les faces du cube en $I$ et $J$. La droite $d'$ rencontre les faces du cube en $K$ et en un point $L$ à dessiner. } </tex> /fillstyle {.9 setgray fill} def /linearc .5 store .8 setlinewidth /dx_boxit 2 def /dy_boxit 2 def boxit xmin 10 [1.5 dup] urtexlabel