Changeset 32

Timestamp:

06/01/08 18:14:46 (7 months ago)

Author:

jpv

Message:

Ajout de planshowbase et planshowbase3d

Files:

• trunk/solides.pro (modified) (7 diffs)
• trunk/tests/index.txt (modified) (1 diff)
• trunk/tests/test_16.pdf (added)
• trunk/tests/test_16.tex (added)

trunk/solides.pro

@@ -1 +1 @@
-%!
-% PostScript prologue for pst-solides3d.tex.
-8, 2008/05/3
+9, 2008/06/0
-%
-%% COPYRIGHT 2008 by Jean-Paul Vignault, Manuel Luque
@@ -416 +416 @@
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%                  la 2D                             %%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%%%%% ### vecteur ###
+%% syntaxe~: A B vecteur
+/vecteur {
+                %% xA yA xB yB 
+   3 -1 roll    %% xA xB yB yA 
+   sub          %% xA xB yB-yA 
+   3 1 roll     %% yB-yA xA xB 
+   exch sub     %% yB-yA xB-xA 
+   exch
+} def
+
+%%%%% ### defpoint ###
+%% syntaxe : xA yA /A defpoint
+/defpoint {
+1 dict begin
+   /t@mp@r@ire exch def
+   [ 3 1 roll ] cvx t@mp@r@ire exch 
+end def
+} def
+
+%%%%% ### normalize ###
+%% syntaxe : u normalize -> u / ||u||
+/normalize {
+2 dict begin
+   /u defpoint
+   /n u norme def
+   u 1 n div mulv
+end
+} def
+
+%%%%% ### norme ###
+%% syntaxe : u norme --> |u|
+/norme {
+   dup mul
+   exch
+   dup mul
+   add sqrt
+} def
+
+%%%%% ### oldarrow ###
+%% syntaxe : A B oldarrow --> trace fleche en B, direction AB
+/oldarrow {
+4 dict begin
+gsave
+   /B defpoint
+   /A defpoint
+   oldarrowscale scale
+   oldarrowangle rotate
+   newpath 
+   B smoveto
+   A B vecteur normalize /u defpoint
+   u neg exch /v defpoint
+   u oldarrowpointe neg mulv rmoveto %% ainsi c'est la pointe qui est en (0, 0)
+   %% le pt extremal arriere haut
+      u oldarrowplume neg mulv        %% l'abscisse
+      v oldarrow@ngle sin oldarrow@ngle cos div oldarrowplume mul mulv addv %% l'ordonnee
+   rlineto
+      u oldarrowplume oldarrowpointe add mulv
+      v oldarrow@ngle sin oldarrow@ngle cos div oldarrowplume mul neg mulv addv
+   rlineto 
+      u oldarrowplume oldarrowpointe add neg mulv
+      v oldarrow@ngle sin oldarrow@ngle cos div oldarrowplume mul neg mulv addv
+   rlineto
+   closepath fill
+grestore
+end
+} def
+
+/oldarrowpointe 12.5 def
+/oldarrowplume 2.5 def 
+/oldarrow@ngle 60 def        
+/oldarrowscale {1 1} def
+/oldarrowangle 0 def     %% pour l'utilisateur
+
+%%%%% ### fin insertion ###
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%                  les tests                         %%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -972 +1052 @@
-      newpath
-   } ifelse
+end
+} def
+
+%%%%% ### projscene ###
+%% syntaxe : plantype bprojscene ... eprojscene
+/bprojscene {
+10 dict begin
+gsave
+   /l@pl@n exch def
+   /savestroke {SolidesDict /stroke get exec} def
+   /stroke {l@pl@n projpath savestroke} def
+   /savefill {SolidesDict /fill get exec} def
+   /fill {l@pl@n projpath savefill} def
+} def
+/eprojscene {
+grestore
-end
-} def
@@ -5252 +5348 @@
-      leplan mybool projpath
-   stroke
+end
+} def
+
+%% syntaxe : plantype str1 str2 planshowbase -> - 
+%% syntaxe : plantype str2 planshowbase -> - 
+%% syntaxe : plantype planshowbase -> - 
+/planshowbase {
+3 dict begin
+   dup isstring {
+      /couleur2 exch def
+      dup isstring {
+         /couleur1 exch def
+      } {
+         /couleur1 (rouge) def
+      } ifelse
+   } {
+      /couleur1 (rouge) def
+      /couleur2 (vert) def
+   } ifelse
+   bprojscene
+      couleur1 cvx exec
+      newpath
+         0 0 smoveto
+         1 0 slineto
+      stroke
+      0 0 1 0 oldarrow
+      couleur2 cvx exec
+      newpath
+         0 0 smoveto
+         0 1 slineto
+      stroke
+      0 0 0 1 oldarrow
+   eprojscene
+end
+} def
+
+%% syntaxe : plantype str1 str2 str3 planshowbase3d -> - 
+%% syntaxe : plantype str2 str3 planshowbase3d -> - 
+%% syntaxe : plantype str3 planshowbase3d -> - 
+%% syntaxe : plantype planshowbase3d -> - 
+%% syntaxe : plantype str1 str2 str3 array planshowbase3d -> - 
+%% syntaxe : plantype str2 str3 array planshowbase3d -> - 
+%% syntaxe : plantype str3 array planshowbase3d -> - 
+%% syntaxe : plantype array planshowbase3d -> - 
+/planshowbase3d {
+7 dict begin
+   dup dup isarray exch isplan not and {
+      /table exch def
+   } {
+      /table {} def
+   } ifelse
+   dup isstring {
+      /couleur3 exch def
+      dup isstring {
+         /couleur2 exch def
+         dup isstring {
+            /couleur1 exch def
+         } {
+            /couleur1 (rouge) def
+         } ifelse
+      } {
+         /couleur2 (vert) def
+         /couleur1 (rouge) def
+      } ifelse
+   } {
+      /couleur1 (rouge) def
+      /couleur2 (vert) def
+      /couleur3 (bleu) def
+   } ifelse
+   /plan exch def
+   plan couleur1 couleur2 planshowbase
+   plan plangetorigine /I defpoint3d
+   plan plangetbase
+   dup 0 getp3d /u defpoint3d
+   1 getp3d /v defpoint3d
+   u v vectprod3d table newvecteur
+   {I addv3d} solidtransform
+   dup couleur3 solidputcolors
+   solidgridOff
+   drawsolid**
-end
-} def
@@ -7487 +7663 @@
-%%%%% ### newvecteur ### 
-%% syntaxe : x y z newvecteur
+%% syntaxe : x y z array newvecteur
-/newvecteur {
-4 dict begin
+   dup isarray {
+      /table exch def
+      /h@uteur table 1 get def
+      /r@y@n table 0 get def
+   } {
+      /h@uteur .3 def
+      /r@y@n .1 def
+   } ifelse
-   /A defpoint3d
-   %%Sommets
@@ -7496 +7681 @@
-   ] def
-   S F generesolid
-%%   /axe exch def
-   [ A ]
-   normalvect_to_orthobase
@@ -7503 +7687 @@
-   /imI defpoint3d
-
-.3
-.1 .3
+h@uteur
+r@y@n h@uteur
-   dup (noir) outputcolors
-   {0 0 z translatepoint3d} solidtransform

trunk/tests/index.txt

@@ -14 +14 @@
-test_14 : nommer un solide
-test_15 : objet load + lumière ponctuelle
+test_16 : planshowbase et planshowbase3d