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

vertex v1 0 0 0
vertex v2 10 10 10
v2dinit
v2ddisplay v1
v2ddisplay v2
v2dfit

set x_coord 49
set y_coord 361
set color2d 1

QAv2dSetHighlightMode 3
QAMoveTo2d 0 0
QASelect2d $x_coord $y_coord

checkcolor $x_coord $y_coord 0.8 0.8 0.8

if {$stat != 1} {
   puts "Error : Choosing of viewer MOD for selection of VERTEX was NOT MADE properly"
}

set only_screen2d 1