OCCT/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
QASelect ${Shape_X} ${Shape_Y}
QASelect ${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
QASelect 1 1
QASelect 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