; docformat = 'rst'
function mg_function_pointer_demo, im, op
compile_opt strictarr
return, op(im)
end
; main-level example
he = mg_hist_equal(percent=10.0, top=255)
dims = [248, 248]
file = filepath('convec.dat', subdir=['examples', 'data'])
mantle = read_binary(file, data_dims=dims)
equ_mantle = mg_function_pointer_demo(mantle, he)
window, xsize=dims[0] * 2, ysize=dims[1]
tv, mantle, 0
tv, equ_mantle, 1
end