6262338c |
1 | puts "============" |
2 | puts "CR25773" |
3 | puts "Check that properties of object can be applied to it (set to its drawer)" |
4 | puts "============" |
5 | puts "" |
6 | |
7 | vinit View1 |
8 | vclear |
9 | |
10 | vaspects -defaults -setfreeboundarycolor 0 0 1 |
11 | |
12 | pcone c 0 5 10 |
13 | explode c F |
14 | vdisplay c_1; vfit |
15 | |
16 | set x 80 |
17 | set y 103 |
18 | checkcolor $x $y 0 0 1 |
19 | |
20 | vaspects c_1 -freeboundary off |
21 | checkcolor $x $y 0 0 0 |
22 | |
23 | vaspects c_1 -freeboundary on -setfreeboundarycolor 1 0 0 -setfreeboundarywidth 2 |
24 | checkcolor $x $y 1 0 0 |
25 | |
5747059b |
26 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |