#
# HELP: SYNOPSIS:
# HELP:     register/keys/zoom2d_out
# HELP:
# HELP: DESCRIPTION:
# HELP:     Decrease zoom (2D views - scale factor based)
#
DECLARE double $step
CECHO ${$step=(double)$argv[1]}
{ IF ${$root.view[current].zoom>0.99+$step}
	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)}
