1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-04 13:13:25 +03:00
occt/tests/bugs/modalg/buc60789_2
2012-12-07 16:29:17 +04:00

27 lines
575 B
Plaintext
Executable File

puts "========"
puts "BUC60789"
puts "========"
puts ""
#restore buc60789c.brep S1
##by apn
restore [locate_data_file buc60787b.brep] S1
puts [checkshape S1]
restore [locate_data_file buc60789d.brep] S2
puts [checkshape S2]
bcut result S2 S1
set nb_info [nbshapes result]
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
if { $ve != 0 && $ed != 0 } {
puts " BUC60789 OK: CUT operation was made properly"
} else {
puts "Faulty BUC60789: CUT operation was made wrongly"
}
set length 288.856
set 2dviewer 0