redraw, and fix floodfill.

include/tools.bm

@@ -1,4 +1,13 @@
+sub thickbox(sx,sy,ex,ey,col as long)
+    thickline sx, sy, ex, sy, col
+    thickline ex, sy, ex, ey, col
+    thickline ex, ey, sx, ey, col
+    thickline sx, ey, sx, sy, col
+end sub
 
+sub filledbox(sx,sy,ex,ey,col as long)
+    line(sx,sy)-(ex,ey),col,bf
+end sub
 
 sub filledPolygon (Points() as long, col as long)
     dim i as integer, j as integer
@@ -158,7 +167,8 @@ end sub
      ' For large images, you may need to increase this size
      DIM stackX(2000) AS INTEGER
      DIM stackY(2000) AS INTEGER
-      targetColor~&=point(startX,startY)
+     targetColor~&=point(startX,startY)
+     if targetColor~&=fillColor~& then exit sub
      stackPtr = 1
  
      stackX(stackPtr) = startX