Présentation de geom3D_01.jps

/syracuse/bbgraf/albums/geom3D_02/geom3D_01.jpg
%% 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