Anonymous user
Bitmap/Flood fill: Difference between revisions
m
→{{header|Haskell}}
Line 927:
unless (oldC == newC) $ do
pushST st c -- store the coordinates in the stack
(
consumeSTStack st (scanWhileY b p oldC >=>
scanWhileX b st p oldC newC (w, h))
Line 976:
when (z5 /= oldC) $
setSpanRight p False
scanWhileX b st p oldC newC (
</lang>
|