From 03410b32de1c2b15bf2cdae2b0eb8915e1656214 Mon Sep 17 00:00:00 2001
From: Christophe Poulain <cp@Debian.(none)>
Date: Mon, 22 Aug 2011 12:31:31 +0200
Subject: [PATCH] =?utf8?q?Ajout=20d'une=20option=20lorsque=20le=20param?=
 =?utf8?q?=C3=A8tre=20traits=20est=20=C3=A0=20false.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 objets.mp | 10 ++++++++++
 1 file changed, 10 insertions(+)

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;
-- 
2.20.1