samer@4: function optpause(opt)
samer@4: % optpause - Optionally pause and/or update graphics
samer@4: %
samer@4: % optpause :: struct {
samer@13: %    pause   :: nonneg/0 ~'0-nopause, 1-pause, N-timed pause in ms';
samer@13: %    drawnow :: bool/0  ~'flush graphics if not pausing'
samer@4: % } => void.
samer@4: 
samer@4: ps=getparam(opt,'pause',0);
samer@4: dn=getparam(opt,'drawnow',1);
samer@4: if ps, 
samer@4: 	if ps>=10, pause(ps/1000); else pause; end 
samer@4: elseif dn, drawnow;
samer@4: end