12 lines
556 B
Text
12 lines
556 B
Text
# Drop a png onto this pane, then Run.
|
|
&p$"Found a _" °img&frab "image.png"
|
|
≡≡⊢ # Convert to greyscale.
|
|
Sensitivity ← 0.3 # Lower is finer.
|
|
N₄ ← [1_0 0_1 ¯ 1_0 0_¯1]
|
|
[40_40]⊙0.8 # Starting point, fill colour.
|
|
Good ← >Sensitivity⌵-⬚0.5⊡⊢ # Needs filling. Simple edges-check.
|
|
# Take first of list. If needs fill, do so and then add
|
|
# its four neighbours into queue. Repeat until queue is empty.
|
|
⍢(⨬(↘1|◴⊂+N₄¤°⊂ ⊃(⋅∘|∘|⋅⋅⋅∘)◡(⍜(⊡|⋅∘)⊢))◡Good
|
|
| >0⧻)
|
|
⋅⊙⋅
|