#
# HELP: SYNOPSIS:
# HELP:     register/keys/zoom2d_in
# HELP:
# HELP: DESCRIPTION:
# HELP:     Increase zoom (2D views - scale factor based)
#
DECLARE double $step
CECHO ${$step=(double)$argv[1]}
{ IF ${$root.view[current].zoom>0.99}
	CECHO ${$root.view[current].zoom+=$step}
	GOTO DONE
} IF 0 0
CECHO ${$root.view[current].zoom=1.0/(1.0/$root.view[current].zoom-$step)}

:DONE
CECHO ${$root.view[current].dodisp|=1}
CAPTION Zoom: ${$root.func.math.tostring($root.view[current].zoom,5,2)}
