#
# NEED_PARMS Stretch Zoomfact
#
# HELP: SYNOPSIS:
# HELP:     threeplane/stretchz factor zoomfact
# HELP:
# HELP: DESCRIPTION:
# HELP:     Factor to stretch the Z-planes by.
#
VIEW_SET Planes_XZ
VIEW_SIZEY ${(int) ((double)$argv[2]*$root.vol[current].size.z*(double)$argv[1]+0.999999) }
ZOOM ${(double)$argv[2]}
ASPECT 1.0 ${1.0/(double)$argv[1]}

VIEW_SET Planes_YZ
VIEW_SIZEY ${(int) ((double)$argv[2]*$root.vol[current].size.z*(double)$argv[1]+0.999999) }
ZOOM ${(double)$argv[2]}
ASPECT 1.0 ${1.0/(double)$argv[1]}

VIEW_RENDER
USLEEP 500000
VIEW_REORIENT
VIEW_RENDER  

VIEW_SET Main
