Adding test cases from grid chl
[occt.git] / tests / bugs / vis / bug85_1
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 box b2 20 20 20 5 5 5 
17 box b3 30 30 30
18 box b4 10 20 25 7 7 7 
19 explode b3 f
20
21 NewDocument D
22 SetShape D 0:1:1 b3_2
23 SetShape D 0:1:2 b2
24 SetShape D 0:1:3 b4
25 AISSet   D 0:1:1 NS
26 AISSet   D 0:1:2 NS
27 AISSet   D 0:1:3 NS
28
29 AISInitViewer D
30 AISMaterial D 0:1:1 plastic
31 AISMaterial D 0:1:2 plastic
32 AISMaterial D 0:1:3 plastic
33 AISTransparency D 0:1:1 0.6
34 AISColor D 0:1:1 1
35 AISDisplay D 0:1:1
36 AISDisplay D 0:1:2
37 AISDisplay D 0:1:3
38 vfit
39 vsetdispmode 1
40
41 box b 10 10 10 
42 SetShape D 0:1:4 b
43 AISSet D 0:1:4 NS
44 AISDisplay D 0:1:4
45
46 set rd_ch 78039
47 set gr_ch 55294
48 set bl_ch 9411
49
50 QAUpdateLights
51 set color [QAGetPixelColor 255 105]
52 regexp {RED +: +([-0-9.+eE]+)} $color full rd
53 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
54 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
55
56 set rd_int [expr int($rd * 1.e+05)]
57 set gr_int [expr int($gr * 1.e+05)]
58 set bl_int [expr int($bl * 1.e+05)]
59
60 if { ${rd_int} != ${rd_ch} || ${gr_int} != ${gr_ch} || ${bl_int} != ${bl_ch} } {
61     puts "Error : colors are not equal"
62 }
63
64 set only_screen 1
65
66