Changeset 38

Timestamp:

06/06/08 15:43:33 (7 months ago)

Author:

jpv

Message:

Changement dans l'ordre d'application des options de coloriage

Files:

• trunk/solides.pro (modified) (3 diffs)

trunk/solides.pro

@@ -1 +1 @@
-%!
-% PostScript prologue for pst-solides3d.tex.
-3, 2008/06/05
+4, 2008/06/06
-%
-%% COPYRIGHT 2008 by Jean-Paul Vignault, Manuel Luque
@@ -8231 +8231 @@
-      dup rmfaces i get solidrmface
-   } for
-   activationgestioncouleurs {
-      dup solidwithinfaces {
-         gere_pstricks_color_inout 
-      } {
-         gere_pstricks_color_out 
-      } ifelse
-   } if
-
-   0 1 fcol length 2 idiv 1 sub {
-      /i exch def 
-      dup fcol 2 i mul get fcol 2 i mul 1 add get solidputfcolor
-   } for
-   tx@Dict /pst-transformoption known {
-      dup {pst-transformoption} solidtransform 
-   } if
-   solidinouthue length 0 gt { 
-      dup solidinouthue solidputinouthuecolors 
-   } {
-      solidhue length 0 gt {
-         dup solidhue solidputhuecolors
-      } if
-      solidinhue length 0 gt {
-         dup solidinhue solidputinhuecolors
-      } if
-   } ifelse
-   solidaffinage length 0 ne {
-      solidaffinage 0 get isstring {
@@ -8288 +8266 @@
-      dup videsolid
-   } if
+   activationgestioncouleurs {
+      dup solidwithinfaces {
+         gere_pstricks_color_inout 
+      } {
+         gere_pstricks_color_out
+      } ifelse
+   } if
+
+   0 1 fcol length 2 idiv 1 sub {
+      /i exch def 
+      dup fcol 2 i mul get fcol 2 i mul 1 add get solidputfcolor
+   } for
+   solidinouthue length 0 gt { 
+      dup solidinouthue solidputinouthuecolors 
+   } {
+      solidhue length 0 gt {
+         dup solidhue solidputhuecolors
+      } if
+      solidinhue length 0 gt {
+         dup solidinhue solidputinhuecolors
+      } if
+   } ifelse
-   /lightsrc where {pop solidlightOn} if
-   dup action