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

puts "================"
puts "OCC71"
puts "BUC61045"
puts "================"
puts ""

# Data
set Triedron_X 29
set Triedron_Y 380

set Shape_X 120
set Shape_Y 250

# Display box
vinit
box b 10 10 10
vdisplay b

# Display triedron
OCC71
vfit

# Check triedron color
checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1

# Shading box
vsetdispmode b 1

# Check box color
checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09

# Check triedron color
checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1

# Select box
vselect ${Shape_X} ${Shape_Y}

# Check box color
checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09

# Check triedron color
checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1

# Select empty view
vselect 1 1

# Check box color
checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09

# Check triedron color
checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1

set only_screen 1
Commit	Line	Data
61c421bf	1	puts "================"
	2	puts "OCC71"
	3	puts "BUC61045"
	4	puts "================"
	5	puts ""
	6
	7	# Data
	8	set Triedron_X 29
	9	set Triedron_Y 380
	10
	11	set Shape_X 120
	12	set Shape_Y 250
	13
	14	# Display box
	15	vinit
	16	box b 10 10 10
	17	vdisplay b
	18
	19	# Display triedron
	20	OCC71
	21	vfit
	22
	23	# Check triedron color
	24	checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
	25
	26	# Shading box
	27	vsetdispmode b 1
	28
	29	# Check box color
	30	checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09
	31
	32	# Check triedron color
	33	checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
	34
	35	# Select box
4754e164	36	vselect ${Shape_X} ${Shape_Y}
61c421bf	37
	38	# Check box color
	39	checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09
	40
	41	# Check triedron color
	42	checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
	43
	44	# Select empty view
4754e164	45	vselect 1 1
61c421bf	46
	47	# Check box color
	48	checkcolor ${Shape_X} ${Shape_Y} 0.78 0.54 0.09
	49
	50	# Check triedron color
	51	checkcolor ${Triedron_X} ${Triedron_Y} 1 1 1
	52
	53	set only_screen 1