Adding test cases from chl grid
[occt.git] / tests / bugs / vis / bug22906
1 puts "TODO ?OCC11111 ALL: An exception was caught"
2 puts "TODO ?OCC11111 ALL: Exception"
3 puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
4
5 puts "================"
6 puts "OCC22906"
7 puts "================"
8 puts ""
9 #######################################################################################
10 # Gradient background is clipped by planes
11 ######################################################################################
12
13 set BugNumber OCC22906
14 set x1 73
15 set y1 338
16
17 set x2 144
18 set y2 23
19
20 set x3 377
21 set y3 123
22
23 set x4 87
24 set y4 232
25
26 vinit
27 vsetgradientbg 255 0 0 0 0 255 4
28 set Color1 [QAGetPixelColor ${x1} ${y1}]
29 set Color2 [QAGetPixelColor ${x2} ${y2}]
30 set Color3 [QAGetPixelColor ${x3} ${y3}]
31 set Color4 [QAGetPixelColor ${x4} ${y4}]
32 vclipplane 0.1 0 0 1 0 0
33 box b 100 100 100
34 vdisplay b
35 vsetdispmode 1
36 set ColorRes1 [QAGetPixelColor ${x1} ${y1}]
37 set ColorRes2 [QAGetPixelColor ${x2} ${y2}]
38 set ColorRes3 [QAGetPixelColor ${x3} ${y3}]
39 set ColorRes4 [QAGetPixelColor ${x4} ${y4}]
40
41 set status 0
42 if { ${Color1} == ${ColorRes1} && ${Color2} == ${ColorRes2} && ${Color3} == ${ColorRes3} && ${Color4} == ${ColorRes4}} {
43     set status 0
44 } else {
45     set status 1
46 }
47
48 # Resume
49 puts ""
50 if { ${status} != 0} {
51    puts "Faulty ${BugNumber}"
52 } else {
53    puts "OK ${BugNumber}"
54 }
55 set only_screen 1