1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
occt/tests/bugs/vis/bug25773
ski 5747059b21 0026833: Create command checkview containing all viewer types
Created command checkview for displaying shapes.
2016-02-05 11:14:37 +03:00

27 lines
525 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
checkview -screenshot -3d -path ${imagedir}/${test_image}.png