Présentation de 3D_08a.jps

autocrop
20 setxunit
-18 13 setxrange
-9 12 setyrange
%quadrillage marks

/q {6 6 0} def    
/r {8 -3 0} def    
/p {-5 -2 0} def    
/s {0 0 8} def

/vect_I {-10 cos -10 sin} def
/vect_J {40 cos 40 sin .8 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

[/P /Q /R /S] 
[p q r s] {xyz2xy} capply
mapnp

4.5 R S ydpoint /I defpoint
/J {2.6 0} def
/K {5 4} def

%% corrige
I K S Q interdroite /U defpoint
I K R Q interdroite /A defpoint
I J R P interdroite /V defpoint
A V P Q interdroite /W defpoint
gsave
   .6 setlinewidth
   pointilles
   orange
   [U A Q] ligne
   [U A Q] ligne
   [A W] ligne
   mixte noir
   [I V] ligne
   /fillstyle {.8 setgray fill} def
   [I U W V] polygone*
grestore
A times2
%%%%%%%%%%

gsave
   .8 setlinewidth
   pointilles
   [P Q] ligne
grestore

/dotscale {2 dup} def
[I J K] {times} plot

1.2 setlinewidth
[S P R] ligne
[S Q R] ligne
[S R] ligne

%% le plan de base
/P1 {7 -5} def
/P2 {-7 -2} def
/P3 {12 0} def

2 setlinewidth
[P2 P1 P3] ligne

12 setfontsize
setTimesItalic
   (I) I dltext   
   (J) J dltext   
   (K) K ultext   
   (P) P dltext   
   (Q) Q drtext	  
   (R) R drtext	  
   (S) S urtext   

%% 
%% \vbox {\hsize 60mm \parindent 0pt
%% Un tétraèdre est posé sur le plan $H$. Sur les arêtes $SP$, $SQ$ et
%% $SR$, on a marqué les points $I$, $J$ et $K$.
%% 
%% $\bullet $ Dessiner l'intersection $A$ de la droite $(KJ)$ et du plan
%% $H$.
%% 
%% $\bullet $ Dessiner l'intersection du plan $IJK$ et du plan
%% $H$.
%% }
%% 
%% 
%% /fillstyle {.9 setgray fill} def
%% /linearc .5 store
%% .8 setlinewidth
%% /dx_boxit 2 def
%% /dy_boxit 2 def
%% boxit
%% xmin 4.5 [1.5 dup] urtexlabel