Présentation de 8907.jps

%autocrop

28.45 setxunit
%quadrillage marks

-1 8 setxrange
-2 5 setyrange

/s {1.5} def
/t {6} def
/u {2} def
/v {3} def

/a {0 0 0} def   
/b {t 0 0} def    
/c {t u 0} def    
/d {0 u 0} def    
/e {0 u v} def 
/f {0 0 v} def
/g {t 0 v} def
/h {t u v} def

/i {a a b vecteur3d 0.75 mulv3d translatepoint3d} def
/j {e h milieu3d} def

/titrait {%le point à marquer puis un point de la droite

4 dict begin 
/b defpoint
/a defpoint
/d {a a b vecteur arg 90 add dir 0.1 mulv translatepoint} def
/e {a a b vecteur arg -90 add dir 0.1 mulv translatepoint} def
[d e] ligne
end
} def

%/vect_I {35 cos 35 sin .27 mulv} def

%/vect_J {175 cos 175 sin .35 mulv} def

%/vect_K {0 1 0.6 mulv} def

%/vect_I {-20 dup cos exch sin 1 mulv} def

/vect_I {0 dup cos exch sin 1 mulv} def
%/vect_J {35 cos 35 sin 1 mulv} def

/vect_J {45 dup cos exch sin 1 mulv} def
/vect_K {0 1 1 mulv} def



/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] 
[a b c d e f g h i j] {xyz2xy} capply
mapnp

(A) A [s dup] dltext 
(B) B [s dup] drtext
(C) C [s dup] crtext
(D) D [s dup] ultext
(E) E [s dup] ultext
(F) F [s dup] cltext
(G) G [s dup] drtext
(H) H [s dup] urtext
(I) I [s dup] drtext
(J) J [s dup] urtext

I B titrait
J H titrait
[F A B C H E F G B] ligne
[G H] ligne
gsave
pointilles
[A D E] ligne
[D C] ligne
grestore