Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug85_2
1 puts "==========="
2 puts "BUC60918"
3 puts "OCC85"
4 puts "==========="
5 puts ""
6 ###############################
7 ## Shape drawn in transparency mode does not always eclipse another shapes
8 ###############################
9
10 puts "=================================="
11 puts "It takes visual check for this BUG"
12 puts "=================================="
13
14 pload OCAF
15
16 restore [locate_data_file buc60918-psm1.brep] psm1
17 restore [locate_data_file buc60918-psm2.brep] psm2
18 restore [locate_data_file buc60918-shl.brep] shl
19
20 NewDocument D
21 SetShape D 0:1:1 shl
22 SetShape D 0:1:2 psm1
23 SetShape D 0:1:3 psm2
24 AISSet   D 0:1:1 NS
25 AISSet   D 0:1:2 NS
26 AISSet   D 0:1:3 NS
27
28 AISInitViewer D
29 AISMaterial D 0:1:1 plastic
30 AISMaterial D 0:1:2 plastic
31 AISMaterial D 0:1:3 plastic
32 AISTransparency D 0:1:1 0.6
33 AISColor D 0:1:1 1
34 AISDisplay D 0:1:1
35 AISDisplay D 0:1:2
36 AISDisplay D 0:1:3
37 vsetdispmode 1
38
39 box b 10 10 10 
40 SetShape D 0:1:4 b
41 AISSet D 0:1:4 NS
42 AISDisplay D 0:1:4
43 vfit
44
45 set rd_ch1 76862
46 set gr_ch1 54117
47 set bl_ch1 9019
48
49 set rd_ch2 76078
50 set gr_ch2 53725
51 set bl_ch2 9019
52
53 set color1 [QAGetPixelColor 263 140]
54 regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1
55 regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1
56 regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1
57
58 set rd_int1 [expr int($rd1 * 1.e+05)]
59 set gr_int1 [expr int($gr1 * 1.e+05)]
60 set bl_int1 [expr int($bl1 * 1.e+05)]
61
62 set color2 [QAGetPixelColor 230 123]
63 regexp {RED +: +([-0-9.+eE]+)} $color2 full rd2
64 regexp {GREEN +: +([-0-9.+eE]+)} $color2 full gr2
65 regexp {BLUE +: +([-0-9.+eE]+)} $color2 full bl2
66
67 set rd_int2 [expr int($rd2 * 1.e+05)]
68 set gr_int2 [expr int($gr2 * 1.e+05)]
69 set bl_int2 [expr int($bl2 * 1.e+05)]
70
71 set status 1
72 if { ${rd_int1} != ${rd_ch1} || ${gr_int1} != ${gr_ch1} || ${bl_int1} != ${bl_ch1} } {
73    set status 0   
74 }
75 if { ${rd_int2} != ${rd_ch2} || ${gr_int2} != ${gr_ch2} || ${bl_int2} != ${bl_ch2} } {
76    set status 0   
77 }
78
79 if { ${status} != 1 } {
80    puts "Error : colors are not equal"
81 }
82
83 set only_screen 1
84
85