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/buc60738
ski 5747059b21 0026833: Create command checkview containing all viewer types
Created command checkview for displaying shapes.
2016-02-05 11:14:37 +03:00

25 lines
526 B
Plaintext
Executable File

puts "========================"
puts "BUC60738"
puts "========================"
puts ""
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="
vinit
BUC60738
vfit
vsetdispmode 1
set x_coord 261
set y_coord 314
checkcolor $x_coord $y_coord 0 1 0
if {$stat != 1} {
puts "Error : The style of edge is NOT dash"
}
checkview -screenshot -3d -path ${imagedir}/${test_image}.png