Présentation de 3D_10a.jps

jpegmode
%quadrillage marks
400 setwidth
440 setheight
-12 8 setxrange
-7.5 14.5 setyrange

%% la plan de base
/P1 {-9 -3} def
/P2 {-6 -7.4} def
/P3 {9.5 -5} def

/a {-4 4 0} def    
/b {4 4 0} def    
/c {4 -4 0} def    
/d {-4 -4 0} def    
/s {0 0 12} def

/_d {-6 -5 -8 4} def

/vect_I {10 cos 10 sin} def
/vect_J {130 cos 130 sin .8 mulv} def
/vect_K {0 1} 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 /S] 
[a b c d s] {xyz2xy} capply
mapnp

1 S C xdpoint /U defpoint

C D _d interdroite /U1 defpoint
U U1 S D interdroite /U2 defpoint
A D _d interdroite /U3 defpoint
U3 U2 A S interdroite /U4 defpoint
A B _d interdroite /U5 defpoint
U5 U4 B S interdroite /U6 defpoint

gsave
   orange
   .5 setlinewidth
   D U1 1.1 trait
   U2 U1 1.1 trait
   U3 A 1.1 trait
   U3 U4 1.1 trait
   U5 A 1.1 trait
   U5 U4 1.1 trait
grestore

/fillstyle {.9 setgray fill} def

gsave
   .8 setlinewidth
   [U U2 U4 U6] polygone*
   pointilles
   [A B C] ligne
   [B S] ligne
grestore

/dotscale {2 dup} def
U times

1.2 setlinewidth
[A D C S] ligne
[A S D] ligne
[5 _d ydpoint -6 _d ydpoint] ligne

2 setlinewidth
[-12 P2 P1 xdpoint P2 P3] ligne

12 setfontsize
setTimesItalic
   (A) A dltext   
   (B) B urtext	  
   (C) C drtext	  
   (D) D dltext	  
   (U) U (3 0) brtext   
   (S) S urtext   
   (d) -5 -6 brtext