1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-09 18:50:54 +03:00
apn 352ffd7358 Adding test cases for chl grid
Test case tests/bugs/modalg/dxf906 was renamed to bug889
Adding test cases to tests/bugs/moddata
Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx
Modified test case bugs vis buc60738
Added test cases to modalg and moddata
Added test cases to caf and fclasses
Added test cases to group heal
2012-12-21 16:39:38 +04:00

35 lines
476 B
Plaintext
Executable File

puts "========================"
puts " OCC397 "
puts "========================"
pload QAcommands
restore [locate_data_file OCC397.brep] a
checkshape a
tclean a
explode a f
renamevar a_55 result
vinit
vdisplay result
vfit
vsetdispmode result 1
set x_coord 235
set y_coord 180
checkcolor $x_coord $y_coord 0.5 0.35 0.05
if { ${stat} != 1 } {
puts "Error : Shading is missing in 3D Viewer"
}
QASelect 220 170
QASelect 220 170
set square 92.9029
set only_screen 1