mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-11 10:44:53 +03: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
|