Zhang-Suen thinning algorithm: Difference between revisions

Content added Content deleted

Inline

@@ Line 326: / Line 326: @@
 frameImg=: 0 ,. 0 , >:@$ {. ]     NB. adds border of 0's to image
-nbrs=: adverb define              NB. applies verb u to neighbourhoods
+neighbrs=: adverb define          NB. applies verb u to neighbourhoods
   (1 1 ,: 3 3) u;._3 y
 )
@@ Line 347: / Line 347: @@
 whiten=: [ * -.@:*.               NB. make black pixels white
-zhangSuen=: [: toImage [: (whiten [: frameImg step2 nbrs)@(whiten [: frameImg step1 nbrs)^:_ isBlackPx
+zhangSuen=: [: toImage [: (whiten frameImg@(step2 neighbrs))@(whiten frameImg@(step1 neighbrs))^:_ isBlackPx
 zhangSuenX=: verb define          NB. alternative Explicit representation of verb above