puts "============"
puts "OCC23670"
puts "============"
puts ""
############################################################################
# Support for multiple 3D views
############################################################################

#test case for vinit and vactivate commands
#create view with default name Driver1/Viewer1/View1
vinit
vinit MyDriver/MyViewer/View1
vinit MyDriver/MyViewer/MyView
vactivate Driver1/Viewer1/View1
box a 10 10 10
vdisplay a
vfit
vactivate MyDriver/MyViewer/MyView
#activate MyDriver/MyViewer/View1
vactivate View1
box b 5 5 5 10 10 10
vdisplay a b
vfit
#disactivate active view
vactivate none
vactivate Driver1/Viewer1/View1
vsetdispmode 1
set x_coord 205
set y_coord 180
checkcolor $x_coord $y_coord 1 0.87 0.15

vactivate MyDriver/MyViewer/MyView
vsetdispmode 1
checkcolor $x_coord $y_coord 0 0 0

set only_screen 1

