Zhang-Suen thinning algorithm: Difference between revisions
m
→{{header|Perl 6}}: works again after adding a 'flat', set of parens
(added FreeBASIC) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: works again after adding a 'flat', set of parens) |
||
Line 1,767:
my \v = +@lines;
my \h = +@lines[0];
my @black = flat @lines.map: *.values; # Flatten to 1-dimensional.
my \p8 = [-h-1, -h+0, -h+1, # Flatland distances to 8 neighbors.
Line 1,775:
# Candidates have 8 neighbors and are known black
my @cand = grep { @black[$_] }, do
for 1..v-2 X 1..h-2 -> (\y,\x) { y*h + x }
repeat while my @goners1 or my @goners2 {
| |||