mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-10 17:40:24 +08:00
27 lines
481 B
Plaintext
27 lines
481 B
Plaintext
puts "============"
|
|
puts "CR25773"
|
|
puts "Check that properties of object can be applied to it (set to its drawer)"
|
|
puts "============"
|
|
puts ""
|
|
|
|
vinit View1
|
|
vclear
|
|
|
|
vaspects -defaults -setfreeboundarycolor 0 0 1
|
|
|
|
pcone c 0 5 10
|
|
explode c F
|
|
vdisplay c_1; vfit
|
|
|
|
set x 80
|
|
set y 103
|
|
checkcolor $x $y 0 0 1
|
|
|
|
vaspects c_1 -freeboundary off
|
|
checkcolor $x $y 0 0 0
|
|
|
|
vaspects c_1 -freeboundary on -setfreeboundarycolor 1 0 0 -setfreeboundarywidth 2
|
|
checkcolor $x $y 1 0 0
|
|
|
|
set only_screen 1
|