Fixed Randomize gradient floating point error

2005-06-26 06:50:15 +00:00 · 2005-06-26 06:50:15 +00:00 · b33e302dbf
commit b33e302dbf
parent d6efa3a794
1 changed files with 4 additions and 0 deletions
--- a/2.10/Source/cmap.pas
+++ b/2.10/Source/cmap.pas
@ -83,6 +83,10 @@ var
  f, p, q, t, v: double;
 begin
  try
+    rgb[0] := 0;
+    rgb[1] := 0;
+    rgb[2] := 0;
+    
    j := floor(hsv[0]);
    f := hsv[0] - j;
    v := hsv[2];