Anonymous user
Zhang-Suen thinning algorithm: Difference between revisions
m
→{{header|REXX}}: added/changed comments and whitespace, changed indentations.
m (→{{header|Java}}: makes no difference) |
m (→{{header|REXX}}: added/changed comments and whitespace, changed indentations.) |
||
Line 2,089:
=={{header|REXX}}==
<lang rexx>/*REXX
parse arg iFID .; if iFID=='' then iFID='ZHANG_SUEN.DAT'
white=' '; @.=white /* [↓] read the input
do row=1 while lines(iFID)\==0; _=linein(iFID)
_=translate(_,,.0); cols.row=length(_)
do col=1 for cols.row; @.row.col=substr(_,col,1)
end /*col*/ /* [↑] assign whole row of
end /*row*/
rows=row-1 /*
call show@ 'input file ' iFID " contents:" /*display show the input
do until changed==0; changed=0 /*keep slimming until we're
do step=1 for 2 /*keep track of step
do r=1 for rows /*process all the rows and columns. */
do c=1 for cols.r; !.r.c=@.r.c /*assign an alternate grid. */
if r==1|r==rows|c==1|c==cols.r then iterate /*is this an edge?*/
if @.r.c==white then iterate /*
call Ps;
if b<2 | b>6
if a()\==1
if step==1 then if (p2 & p4 & p6) | p4 & p6 & p8 then iterate /* ║p9║p2║p3║ */
if step==2 then if (p2 & p4 & p8) | p2 & p6 & p8 then iterate /* ╠══╬══╬══╣ */
!.r.c=white /*set a grid character to white.
changed=1 /*indicate a
end /*c*/ /* ║p7║p6║p5║ */
end /*r*/ /* ╚══╩══╩══╝ */
call copy!
end /*step*/
end /*until changed==0*/
call show@ 'slimmed output:' /*display the slimmed
exit /*stick a fork in it, we're all done. */
/*─────────────────────────────────────────────────────────────────────────────────────────────────────────────*/
a: return (\p2==p3&p3)+(\p3==p4&p4)+(\p4==p5&p5)+(\p5==p6&p6)+(\p6==p7&p7)+(\p7==p8&p8)+(\p8==p9&p9)+(\p9==p2&p2)
b: return p2 + p3 + p4 + p5 + p6 + p7 + p8 + p9
copy!
show@: say; say arg(1); say; do r=1 for rows; _=; do c=1 for cols.r; _=_ || @.r.c; end; say _; end; return
/*──────────────────────────────────────────────────────────────────────────────────────*/
Ps: rm=r-1; rp=r+1; cm=c-1; cp=c+1 /*calculate some shortcuts.*/
p2=@.rm.c\==white; p3=@.rm.cp\==white; p4=@.r.cp\==white; p5=@.rp.cp\==white
p6=@.rp.c\==white; p7=@.rp.cm\==white; p8=@.r.cm\==white; p9=@.rm.cm\==white; return</lang>
| |||