Présentation de geom3D_01.jps

%% trace d'un parallelepipede

%% les parametres


-3 5 setxrange
-1 4 setyrange

/alpha 30 def           %% angle de la perspective cavaliere

/beta 70 def		%% angle que fait l'arete (BC) avec l'horizontale

/L 4 def
/l 2 def
/h 2 def

/A {-2 0} def           %% le coin inférieur gauche de la face avant

/dc .5 def              %% l'eloignement pour les traits de cote


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


%% vecteur pour la translation verticale

/u {
   h beta cos mul
   h beta sin mul
} def
%% vecteur pour la translation sur la profondeur

/v {
   l alpha cos mul 
   l alpha sin mul 
} def

%% la face avant, obtenue par translations du point A

/B {A L 0 addv} def
/C {B u addv} def
/D {A u addv} def

%% on translate la face avant vers l'arriere

[A B C D]               %% le tableau de la face avant

%% dup points           %% on le duplique puis on marque les sommets

                        %% (pendant la mise au point)

{v addv} papply         %% on additionne le vecteur v (que les matheux

                        %% me pardonnent) a tous les points du tableau

aload pop               %% on vide le tableau sur la pile

/H defpoint             %% et on recupere les points en les nommant

/G defpoint 
/F defpoint 
/E defpoint 

%% on dessine les faces

/fillstyle {.9 setgray fill} def
[A B C D] polygone*
/fillstyle {.7 setgray fill} def
[C G F B] polygone*
/fillstyle {.8 setgray fill} def
[D H G C] polygone*

%% les aretes en pointille

gsave
   jpegmode
   pointilles
   [A E H] ligne
   [F E] ligne
grestore

%% les definitions poue les segments fleches

/w1 {dc 0} def          %% le vecteur pour la translation

/A1 {A w1 subv} def
/D1 {D w1 subv} def

/w2 {0 dc} def          %% le vecteur pour la translation

/A2 {A w2 subv} def
/B2 {B w2 subv} def

/w3 {dc 1.5 mul 0} def  %% le vecteur pour la translation

/B3 {B w3 addv } def
/F3 {F w3 addv } def

A1 D1 (<->) line
A2 B2 (<->) line
B3 F3 (<->) line

setTimesItalic
   (A) A dltext
   (B) B drtext
   (C) C urtext
   (D) D ultext
   (E) E ltext
   (F) F drtext
   (G) G urtext
   (H) H ultext
   (h) D1 A1 milieu ltext
   (L) A2 B2 milieu dtext
   (l) B3 F3 milieu drtext