mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 01:58:22 +08:00
25 lines
325 B
Plaintext
25 lines
325 B
Plaintext
|
|
puts "========"
|
|
puts "OCC536"
|
|
puts "SAM1504"
|
|
puts "========"
|
|
|
|
vinit
|
|
|
|
restore [locate_data_file OCC536.brep] S
|
|
checkshape S
|
|
|
|
explode S So
|
|
checkshape S_2
|
|
checkshape S_1
|
|
|
|
if [catch {bfuse result S_2 S_1}] {
|
|
puts "Faulty OCC536"
|
|
} else {
|
|
puts "OCC536 : OK"
|
|
checkshape result
|
|
}
|
|
|
|
set square 2.5068e+06
|
|
set 2dviewer 0
|