[occt.git] / tests / bugs / vis / bug23670_1

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
Commit	Line	Data
18d715bd	1	puts "============"
	2	puts "OCC23670"
	3	puts "============"
	4	puts ""
	5	############################################################################
	6	# Support for multiple 3D views
	7	############################################################################
	8
	9	#test case for vinit and vactivate commands
	10	#create view with default name Driver1/Viewer1/View1
	11	vinit
	12	vinit MyDriver/MyViewer/View1
	13	vinit MyDriver/MyViewer/MyView
	14	vactivate Driver1/Viewer1/View1
	15	box a 10 10 10
	16	vdisplay a
	17	vfit
	18	vactivate MyDriver/MyViewer/MyView
	19	#activate MyDriver/MyViewer/View1
	20	vactivate View1
	21	box b 5 5 5 10 10 10
	22	vdisplay a b
	23	vfit
	24	#disactivate active view
	25	vactivate none
	26	vactivate Driver1/Viewer1/View1
	27	vsetdispmode 1
	28	set x_coord 205
	29	set y_coord 180
	30	checkcolor $x_coord $y_coord 1 0.87 0.15
	31
	32	vactivate MyDriver/MyViewer/MyView
	33	vsetdispmode 1
	34	checkcolor $x_coord $y_coord 0 0 0
	35
	36	set only_screen 1
	37