pro mggrimagesequenceanimation::renderFrame, view, frame=frame, nframes=nframes
compile_opt strictarr
self.obuffer->draw, view
oimage = self.obuffer->read()
oimage->getProperty, data=im
obj_destroy, oimage
strDigits = strtrim(ceil(alog10(nframes)), 2)
format = '(I' + strDigits + '.' + strDigits + ')'
write_png, self.baseFilename + string(frame, format=format) + '.png', im
end
pro mggrimagesequenceanimation::cleanup
compile_opt strictarr
obj_destroy, self.obuffer
self->mggranimation::cleanup
end
function mggrimagesequenceanimation::init, base_filename=base_filename, _extra=e
compile_opt strictarr
if (~self->mggranimation::init()) then return, 0
if (n_elements(base_filename) eq 0) then begin
message, 'BASE_FILENAME property required.'
return, 0
endif
self.baseFilename = base_filename
self.obuffer = obj_new('IDLgrBuffer', _extra=e)
return, 1
end
pro mggrimagesequenceanimation__define
compile_opt strictarr
define = { MGgrImageSequenceAnimation, $
inherits MGgrAnimation, $
obuffer : obj_new(), $
baseFilename : '' $
}
end