#
# NEED_PARMS Zoomfact
#
# HELP: SYNOPSIS:
# HELP:     threeplane/stretchz_byreality zoomfact
# HELP:
# HELP: DESCRIPTION:
# HELP:     Scale Z by reality (). Zoom to zoomfact.
#

{ checkzero ${$root.vol[current].meta.physicalsize.x==0.0}
	! threeplane/stretchz 1.0 ${(double)$argv[1]}
	QUIT
} checkzero 0 0

! threeplane/stretchz ${$root.vol[current].meta.physicalsize.z/$root.vol[current].meta.physicalsize.x} ${(double)$argv[1]}
