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