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

[mp-solid.git] / objets.mp

diff --git a/objets.mp b/objets.mp
index 4942bcb..39c4ecc 100644 (file)
--- 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;