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