Présentation de 3D_01b.jps

350 setwidth
350 setheight
-2 20 setxrange
-2 20 setyrange
/l 8 def

/a {0 l l} def    /f {l l 0} def    /m {0 3 l} def 
/b {l l l} def 	  /g {l 0 0} def    /n {4 0 l} def 
/c {l 0 l} def 	  /h {0 0 0} def    /p {0 0 5} def 
/e {0 l 0} def 

/I {-15 cos -15 sin} def
/J {35 cos 35 sin .8 mulv} def
/K {0 1} def

/cree_points {
   [/A /B /C /E /F /G /H /M /N /P] 
   [a b c e f g h m n p] {xyz2xy} capply
   mapnp
} def

/dessin {
   [M A B C G F B] ligne
   [C N M P N] ligne
   [P H G] ligne
   [A E H] ligne
   [E F] ligne
} def

%% vue de dessus
/xyz2xy {
   pop
} def
cree_points
/mn M N distance def

gsave
   0 -1 stranslate
   1 setlinewidth
   dessin
   
   10 setfontsize
   setTimesItalic
      (A) A ultext      (P) P dltext
      (B) B urtext      (M) M bltext
      (C) C drtext      (N) N dctext
grestore

%% vue de face
/xyz2xy {
   exch pop
} def

gsave
   0 10 stranslate
   cree_points
   /pn P N distance def
   
   1 setlinewidth
   dessin
   
   10 setfontsize
   setTimesItalic
      (C) C urtext      (P) P cltext
      (G) G drtext      (M) M ultext
      (H) H dltext      (N) N uctext
grestore

%% vue de gauche
/xyz2xy {
3 dict begin
   /z exch def
   /y exch def
   /x exch def
   y neg z
end
} def

gsave
   19 10 stranslate
   cree_points
   /mp M P distance def
   dessin
   
   10 setfontsize
   setTimesItalic
      (A) A ultext      (P) P crtext
      (E) E dltext      (M) M uctext
      (H) H drtext      (N) N urtext
grestore

gsave
   11 -1 stranslate
   /M {3 7} def
   M .2 -1 mn mulv addv /N defpoint
   M mp
   N pn
   intercercle /P defpoint pop
   [M N P] polygone
   .5 setlinewidth
   M N 10 Arc
   M P 10 Arc
   N P 10 Arc
   
   setTimesItalic
      (M) M ultext
      (N) N drtext
      (P) P urtext
grestore