1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
puts "==========="
puts "BUC60918"
puts "OCC85"
puts "==========="
puts ""
###############################
## Shape drawn in transparency mode does not always eclipse another shapes
###############################
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="
pload OCAF
box b2 20 20 20 5 5 5
box b3 30 30 30
box b4 10 20 25 7 7 7
explode b3 f
NewDocument D
SetShape D 0:1:1 b3_2
SetShape D 0:1:2 b2
SetShape D 0:1:3 b4
AISSet D 0:1:1 NS
AISSet D 0:1:2 NS
AISSet D 0:1:3 NS
AISInitViewer D
AISMaterial D 0:1:1 plastic
AISMaterial D 0:1:2 plastic
AISMaterial D 0:1:3 plastic
AISTransparency D 0:1:1 0.6
AISColor D 0:1:1 1
AISDisplay D 0:1:1
AISDisplay D 0:1:2
AISDisplay D 0:1:3
vfit
vsetdispmode 1
box b 10 10 10
SetShape D 0:1:4 b
AISSet D 0:1:4 NS
AISDisplay D 0:1:4
set x_coord 273
set y_coord 115
checkcolor $x_coord $y_coord 0.78 0.55 0.9
set only_screen 1
|
