Présentation de 3D_15.jps

%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