puts "========"
puts "OCC197"
puts "(case 1)"
puts "========"
puts ""
#############################################################
##puts "Multiple Selection:  Choosing of viewer MODA for selection of  PRIMITIVE"
##puts "(visual checking for this case is desirable)"
#############################################################
# 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
set color2d 1

QAv2dSetHighlightMode 1

QASelect2d 169 148
QAMoveTo2d 0 0
QAShiftSelect2d 184 180

set x_coord 169
set y_coord 148

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

set x_coord 184
set y_coord 180

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

set only_screen2d 1