Adding test cases from chl grid
[occt.git] / tests / bugs / vis / bug23012
1 puts "================"
2 puts "OCC23012"
3 puts "================"
4 puts ""
5 #######################################################################################
6 # Detection gives incorrect results
7 ######################################################################################
8
9 set BugNumber OCC23012
10
11 catch {pload XDE}
12
13 set x1 210
14 set y1 184
15
16 set x2 205
17 set y2 180
18
19 stepread [locate_data_file OCC23012-Sample_3.stp] a *
20 stepread [locate_data_file OCC23012-Sample_9.stp] b *
21 vdisplay a_1 b_1
22 vsetdispmode a_1 1
23 vsetdispmode b_1 1
24 vselprecision
25 vselprecision 1 0.1
26
27 set ColorBefore [QAGetPixelColor ${x1} ${y1}]
28 set R1 [lindex ${ColorBefore} 2]
29 set G1 [lindex ${ColorBefore} 5]
30 set B1 [lindex ${ColorBefore} 8]
31
32 vmoveto ${x2} ${y2}
33
34 set ColorAfter [QAGetPixelColor ${x1} ${y1}]
35 set R2 [lindex ${ColorAfter} 2]
36 set G2 [lindex ${ColorAfter} 5]
37 set B2 [lindex ${ColorAfter} 8]
38
39 set check_color 0
40 if { ${R1} == ${R2} && ${G1} == ${G2} && ${B1} == ${B2} } {
41     set check_color 0
42 } else {
43     set check_color 1
44 }
45
46 # Resume
47 puts ""
48 if { ${check_color} != 0} {
49    puts "Faulty ${BugNumber}"
50 } else {
51    puts "OK ${BugNumber}"
52 }
53 vfit
54 set only_screen 1