352ffd73 |
1 | puts "===========" |
2 | puts "BUC60740" |
3 | puts "===========" |
4 | puts "==================================" |
5 | puts "It takes visual check for this BUG" |
6 | puts "==================================" |
7 | |
8 | vinit |
9 | box b 0 0 0 10 10 10 |
10 | pcylinder c 10 10 |
11 | vdisplay b |
12 | vsetdispmode b 1 |
13 | vdisplay c |
14 | vsetdispmode c 1 |
15 | vfit |
16 | vsettransparency c 0.5 |
17 | |
18 | set x_coord 154 |
19 | set y_coord 257 |
20 | |
352ffd73 |
21 | |
22 | checkcolor $x_coord $y_coord 0.6 0.4 0.07 |
23 | |
24 | if {$stat != 1} { |
25 | puts "Error :function vsettransparency works WRONGLY" |
26 | } |
27 | |
5747059b |
28 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |