puts "========"
puts "OCC197"
puts "(case 2)"
puts "========"
puts ""
puts "====================="
puts "Multiple Selection:  Choosing of viewer MODA for selection of  ELEMENT"
puts "(visual checking for this case is desirable)"
puts "====================="
# Selection Modes Activation:
# 0 - OBJECT, 1 - PRIMITIVE, 2 - ELEMENT, 3 - VERTEX, 4 - NONE

v2dinit
box b_b 10 15 20
v2ddisplay b_b 0 0 0 1 1 1 1 0 0
v2dfit
QAv2dSetHighlightMode 2
set color2d 1

QASelect2d 296 160
QAMoveTo2d 0 0
QAShiftSelect2d 76 290

set x_coord 296
set y_coord 161

checkcolor $x_coord $y_coord 0.8 0.8 0.8

if { ${stat} != 1 } {
    puts "Error : (ELEMENT number 1) Multiple Selection: Choosing of viewer MOD for selection of ELEMENT was NOT MADE properly"
}

set x_coord 76
set y_coord 290

checkcolor $x_coord $y_coord 0.8 0.8 0.8

if { ${stat} != 1 } {
    puts "Error : (ELEMENT number 2) Multiple Selection: Choosing of viewer MOD for selection of ELEMENT was NOT MADE properly"
}

set only_screen2d 1