10 lines
302 B
Text
10 lines
302 B
Text
(de ppmFloodFill (Ppm X Y Color)
|
|
(let Target (get Ppm Y X)
|
|
(recur (X Y)
|
|
(when (= Target (get Ppm Y X))
|
|
(set (nth Ppm Y X) Color)
|
|
(recurse (dec X) Y)
|
|
(recurse (inc X) Y)
|
|
(recurse X (dec Y))
|
|
(recurse X (inc Y)) ) ) )
|
|
Ppm )
|