Image convolution: Difference between revisions

Image convolution (view source)

25 bytes added , 8 years ago

m

→‎{{header|J}}: use lang block for syntax highlighting and add whitespace to help with reading

892

edits

Revision as of 02:48, 19 July 2015 (view source) Rdm (talk \| contribs) m (→‎{{header\|J}}) ← Older edit		Revision as of 10:55, 24 July 2015 (view source) Tikkanz (talk \| contribs) m (→‎{{header\|J}}: use lang block for syntax highlighting and add whitespace to help with reading) Newer edit →
Line 612: <lang J>NB. pad the edges of an array with border pixels NB. (increasing the first two dimensions by 1 less than the kernel size) pad=: adverb define 'a b'=. (<. ,. >.) 0.5 0.5 p. $m a"_`(0 , ] - 1:)`(# 1:)}~&# # b"_`(0 , ] - 1:)`(# 1:)}~&(1 { $) #"1 ] ) kernel_filter=: adverb define ($m)+/ .&(,m)&(,/);._3 m pad )</lang> Line 626: Example use: <lang J> NB. kernels borrowed from C and TCL implementations sharpen_kernel=: _1+104=i.3 3 blur_kernel=: 3 3$%9 emboss_kernel=: _2 _1 0,_1 1 1,:0 1 2 sobel_emboss_kernel=: _1 _2 _1,0,:1 2 1 'blurred.ppm' writeppm~ blur_kernel kernel_filter readppm 'original.ppm'</lang> =={{header\|Java}}==