3 lines
125 B
Text
3 lines
125 B
Text
getImgHist=: ([: /:~ ~. ,. #/.~)@,
|
|
medianHist=: {."1 {~ [: (+/\ I. -:@(+/)) {:"1
|
|
toBW=: 255 * medianHist@getImgHist < toGray
|