Changeset 56

Timestamp:

06/19/08 13:55:10 (7 months ago)

Author:

jpv

Message:

Correction des couleurs pour les 2 parties d'un solide séparé

Files:

• trunk/pst-solides3d.sty (modified) (1 diff)
• trunk/solides.pro (modified) (4 diffs)

trunk/pst-solides3d.sty

@@ -5 +5 @@
-\ProvidesFile{pst-solides3d.tex}
-  [\filedate\space v\fileversion\space `PST-solides3D']
+\IfFileExists{solides.pro}{%
+   \ProvidesFile{solides.pro}
+     [2008/06/19 v. 3.33,  PostScript prologue file]
+     \@addtofilelist{solides.pro}}{}%
-\endinput

trunk/solides.pro

@@ -1 +1 @@
-%!
-% PostScript prologue for pst-solides3d.tex.
-2
+3
-%
-%% COPYRIGHT 2008 by Jean-Paul Vignault, Manuel Luque
@@ -8749 +8749 @@
-         solidname (1) append cvlit exch def
-         dup solidname (0) append cvlit exch def
+         %%
+         solidname (1) append cvx exec
+         solidhollow {
+            dup videsolid
+         } if
+         activationgestioncouleurs {
+            dup solidwithinfaces {
+               gere_pstricks_color_inout 
+            } {
+               gere_pstricks_color_out
+            } ifelse
+         } 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
+         pop
-         tx@Dict /solidname undef
-      } {
@@ -8764 +8787 @@
-         gere_pstricks_color_out
-      } ifelse
+      solidinouthue length 0 gt { 
+         dup solidinouthue solidputinouthuecolors 
+      } {
+         solidhue length 0 gt {
+            dup solidhue solidputhuecolors
+         } if
+         solidinhue length 0 gt {
+            dup solidinhue solidputinhuecolors
+         } if
+      } ifelse
-   } if
-
@@ -8770 +8803 @@
-      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
-   vecteur_en_c@urs not {
-      /lightsrc where {pop solidlightOn} if