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
|
puts "============"
puts "CR25229"
puts "============"
puts ""
#######################################################################
# Cappings have gray tint if setting color with vclipplane command.
#######################################################################
box b 100 100 100
vinit
vsetdispmode 1
vdisplay b
vclipplane create pln1
vclipplane change pln1 equation 0 0 -1 20
vclipplane set pln1 object b
vclipplane change pln1 capping on
vclipplane change pln1 capping color 1.0 1.0 1.0
vtop
vfit
set x_coord 100
set y_coord 100
checkcolor $x_coord $y_coord 1 1 1
if { $stat != 1 } {
puts "Error : Capping color is broken."
}
set only_screen 1
|
