#
# HELP: SYNOPSIS:
# HELP:     generic/slaveviews/cube
# HELP:
# HELP: DESCRIPTION:
# HELP:     Set up a cube of slave views.
#

DECLARE string $curview
CECHO ${$curview=$root.view[current].name}

view_add right
VIEW_CAMERA_JOIN . right
view_set right
view_orient right ${$curview}
view_turn 90 0 0
zoom 90

view_add left
VIEW_CAMERA_JOIN . left
view_set left
view_orient left ${$curview}
view_turn -90 0 0
zoom 90

view_add back
VIEW_CAMERA_JOIN . back
view_set back
view_orient right right
view_turn 180 0 0
zoom 90

view_add up
VIEW_CAMERA_JOIN . up
view_set up
view_orient above ${$curview}
view_turn 0 90 0
zoom 90

view_add down
VIEW_CAMERA_JOIN . up
view_set down
view_orient below ${$curview}
view_turn 0 -90 0
zoom 90

view_set ${$curview}
view_reorient
zoom 90
