Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug197_2
1 puts "========"
2 puts "OCC197"
3 puts "(case 2)"
4 puts "========"
5 puts ""
6 puts "====================="
7 puts "Multiple Selection:  Choosing of viewer MODA for selection of  ELEMENT"
8 puts "(visual checking for this case is desirable)"
9 puts "====================="
10 # Selection Modes Activation:
11 # 0 - OBJECT, 1 - PRIMITIVE, 2 - ELEMENT, 3 - VERTEX, 4 - NONE
12
13 v2dinit
14 box b_b 10 15 20
15 v2ddisplay b_b 0 0 0 1 1 1 1 0 0
16 v2dfit
17 QAv2dSetHighlightMode 2
18
19 set Position_X1 296
20 set Position_Y1 160
21 set Position_X2 76
22 set Position_Y2 290
23
24 set rd_ch 80000
25 set gr_ch 80000
26 set bl_ch 80000
27
28 QASelect2d $Position_X1 $Position_Y1
29 QAMoveTo2d 0 0
30 QAShiftSelect2d $Position_X2 $Position_Y2
31 set j 1 
32 repeat 2 {
33        set Position_X [set Position_X$j]
34        set Position_Y [set Position_Y$j]
35        puts " Position_X$j= $Position_X  Position_Y$j= $Position_Y"
36
37        set color [QAAISGetPixelColor2d ${Position_X} ${Position_Y}]
38        regexp {RED +: +([-0-9.+eE]+)} $color full rd
39        regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
40        regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
41
42        set rd_int [expr int($rd * 1.e+05)]
43        set gr_int [expr int($gr * 1.e+05)]
44        set bl_int [expr int($bl * 1.e+05)]
45
46        if { ${rd_int} != ${rd_ch} || ${gr_int} != ${gr_ch} || ${bl_int} != ${bl_ch} } {
47            puts "Error : colors are not equal"
48            puts "Error : (ELEMENT number $j) Multiple Selection: Choosing of viewer MOD for selection of ELEMENT was NOT MADE properly"
49        }
50        incr j
51 }
52
53 set only_screen2d 1
54