Adding test cases from grid chl

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

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 Position_X1 296
set Position_Y1 160
set Position_X2 76
set Position_Y2 290

set rd_ch 80000
set gr_ch 80000
set bl_ch 80000

QASelect2d $Position_X1 $Position_Y1
QAMoveTo2d 0 0
QAShiftSelect2d $Position_X2 $Position_Y2
set j 1 
repeat 2 {
       set Position_X [set Position_X$j]
       set Position_Y [set Position_Y$j]
       puts " Position_X$j= $Position_X  Position_Y$j= $Position_Y"

       set color [QAAISGetPixelColor2d ${Position_X} ${Position_Y}]
       regexp {RED +: +([-0-9.+eE]+)} $color full rd
       regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
       regexp {BLUE +: +([-0-9.+eE]+)} $color full bl

       set rd_int [expr int($rd * 1.e+05)]
       set gr_int [expr int($gr * 1.e+05)]
       set bl_int [expr int($bl * 1.e+05)]

       if { ${rd_int} != ${rd_ch} || ${gr_int} != ${gr_ch} || ${bl_int} != ${bl_ch} } {
           puts "Error : colors are not equal"
	   puts "Error : (ELEMENT number $j) Multiple Selection: Choosing of viewer MOD for selection of ELEMENT was NOT MADE properly"
       }
       incr j
}

set only_screen2d 1