From: Christophe Poulain <cp@Debian.(none)>
Date: Mon, 22 Aug 2011 10:31:31 +0000 (+0200)
Subject: Ajout d'une option lorsque le paramètre traits est à false.
X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=commitdiff_plain;h=03410b32de1c2b15bf2cdae2b0eb8915e1656214;p=mp-solid.git

Ajout d'une option lorsque le paramètre traits est à false.
---

diff --git a/objets.mp b/objets.mp
index 4942bcb..39c4ecc 100644
--- a/objets.mp
+++ b/objets.mp
@@ -256,6 +256,16 @@ vardef DessineFusion=
 	Projette(Fc[cpt[k]][l])--
       endfor
       cycle withpen pencircle scaled0.25bp;
+      %add by cp 22/08/2011
+	else:
+	  draw for l=1 upto Fc[cpt[k]].nb:
+	      Projette(Fc[cpt[k]][l])--
+	  endfor
+	  cycle withcolor if Vue[cpt[k]]:
+	      if arcenciel: lumin(cpt[k])*Hsvtorgb(((cpt[k]/tapj)*360,satu,lum))
+	    else:lumin(cpt[k])*cou[cpt[k]] fi
+	  else: abs(lumin(cpt[k]))*cou[cpt[k]] fi;
+	  %fin add
     fi;
   endfor;
 enddef;