X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=mp-solid.git;a=blobdiff_plain;f=objets.mp;fp=objets.mp;h=39c4ecc7f9fc98b6fce537d978760a75124727b9;hp=4942bcb422a98803190115524a555e7cd7da4f27;hb=03410b32de1c2b15bf2cdae2b0eb8915e1656214;hpb=ad5e6752247d5d6dcaf41a2c63f2aa979437820e

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;