X-Git-Url: http://git.euphorik.ch/?p=powerfractal.git;a=blobdiff_plain;f=Src%2FPower_Colors.adb;h=6ca2c36d57e564d1ce2a01e5321d2e4da4019e1c;hp=b0c105182a8a5de1b642983a35feb618a2dac0db;hb=HEAD;hpb=c64b47f429175dc19a3cc992abbf08164cb8c534 diff --git a/Src/Power_Colors.adb b/Src/Power_Colors.adb index b0c1051..6ca2c36 100644 --- a/Src/Power_Colors.adb +++ b/Src/Power_Colors.adb @@ -207,23 +207,6 @@ package body Power_Colors is tmp_2 := float(fractal.couleur(partie + 1).b) - float(fractal.couleur(partie).b); tmp := tmp_2 * pourcentage + float(fractal.couleur(partie).b); matrice_tampon(x, y).b := limite(tmp); - - --- --- put(integer(partie), 0); --- put(": "); --- put(pourcentage, 0, 2, 0); --- put("%"); --- put(matrice(x, y), 8, 2, 0); --- put(integer(matrice_tampon(x, y).r)); --- put(" ("); --- put(x, 3); --- put(y, 4); --- put(")"); --- new_line; --- - - end loop; end loop;