8aeeca44 |
1 | puts "============" |
2 | puts "CR25229" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Cappings have gray tint if setting color with vclipplane command. |
63c629aa |
7 | ####################################################################### |
8 | box b 100 100 100 |
9 | vinit |
10 | vsetdispmode 1 |
11 | vdisplay b |
12 | vclipplane create pln1 |
13 | vclipplane change pln1 equation 0 0 -1 20 |
14 | vclipplane set pln1 object b |
15 | vclipplane change pln1 capping on |
16 | vclipplane change pln1 capping color 1.0 1.0 1.0 |
8aeeca44 |
17 | vtop |
18 | vfit |
19 | |
20 | set x_coord 100 |
21 | set y_coord 100 |
22 | checkcolor $x_coord $y_coord 1 1 1 |
23 | if { $stat != 1 } { |
24 | puts "Error : Capping color is broken." |
25 | } |
26 | |
5747059b |
27 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |