autocrop 20 setxunit -17 13 setxrange -6 11 setyrange %quadrillage marks /p {9 4 0} def /q {5 -4 0} def /n {-5 0 0} def /m {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 /N /M] [p q n m] {xyz2xy} capply mapnp %% corrige M N milieu /I defpoint M P milieu /J defpoint Q P milieu /K defpoint Q N milieu /L defpoint M Q milieu /U defpoint N P milieu /V defpoint /fillstyle {.9 setgray fill} def gsave .6 setlinewidth mixte [I J K L] polygone* pointilles [I K] ligne [J L] ligne [U V] ligne grestore [I J K L U V U V milieu] {times2} plot %%%%%%%%%% gsave .8 setlinewidth pointilles [P N] ligne grestore /dotscale {2 dup} def 1.2 setlinewidth [M P Q] ligne [M Q N] ligne [M N] ligne 12 setfontsize setTimesItalic (I) I ultext (J) J urtext (K) K drtext (L) L dltext (U) U urtext (V) V dctext (P) P crtext (Q) Q drtext (N) N cltext (M) M urtext %% %% \vbox {\hsize 60mm \parindent 0pt %% Le point $I$ est dans la face $SQR$ du tétraèdre. %% %% Tracer l'intersection $J$ de la face $PQR$ et de la droite $d$ %% parallèle à $(SP)$ qui passe par $I$. %% } %% %% %% /fillstyle {.9 setgray fill} def %% /linearc .5 store %% .8 setlinewidth %% /dx_boxit 2 def %% /dy_boxit 2 def %% boxit %% xmin 5.5 [1.5 dup] urtexlabel