1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-10 18:51:21 +03:00

22 lines
471 B
Plaintext
Executable File

puts "========================"
puts " OCC366 "
puts "========================"
puts ""
##################################################
## Checkshape says that face is valid but it inludes selfintersecting wire
##################################################
restore [locate_data_file buc61006.brep] result
decho off
set che [checkshape result]
decho on
if { [regexp "Faulty" $che] != 1 } {
puts "Error : Checkshape command works wrongly"
}
set 2dviewer 0