#
# HELP: SYNOPSIS:
# HELP:     planeview/menu/load
# HELP:
# HELP: DESCRIPTION:
# HELP:     Ask for a volume file and load it. Reorganize display for new
# HELP:     geometry.
#
CECHO ${$root.func.var.new("string","tmp")}
CECHO ${$root.func.var.new("string","dir")}
VARFROMPROCESS tmp eccet_openfile load ${$root.application.planeview.datapath}
IF ${$tmp=="."} QUIT
VIEW_SET Main
LOAD ${$tmp}
CECHO ${$dir=$root.func.file.getdir($tmp)}
CECHO ${$root.application.planeview.datapath=$dir}
CECHO ${$root.func.file.chdir($dir)}
CECHO ${$root.func.file.mkdir("pictures")}
VIEW_SET Planes_XY
VIEW_SIZEX ${$root.vol[current].size.x}
VIEW_SIZEY ${$root.vol[current].size.y}
VIEW_SET Planes_XZ
VIEW_SIZEX ${$root.vol[current].size.x}
VIEW_SIZEY ${$root.vol[current].size.z}
VIEW_SET Planes_YZ
VIEW_SIZEX ${$root.vol[current].size.y}
VIEW_SIZEY ${$root.vol[current].size.z}
POS ${$root.vol[current].size.x/2} ${-$root.vol[current].size.y} ${$root.vol[current].size.z/2}
DIR 0 1 0 1 0 0
VIEW_SET XY_Big
VIEW_REORIENT
VIEW_SET Main
GCENTER 250
FINE 6
ZOOM 120
LAYER 0-255 0
PV_MAKEDIST 0
! planeview/default/setscaling
ECHO Load complete
