mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-10 17:40:24 +08:00
26 lines
326 B
Plaintext
26 lines
326 B
Plaintext
|
|
puts "========"
|
|
puts "OCC536"
|
|
puts "SAM1504"
|
|
puts "========"
|
|
|
|
vinit
|
|
|
|
restore [locate_data_file OCC536.brep] S
|
|
checkshape S
|
|
|
|
explode S So
|
|
checkshape S_1
|
|
checkshape S_4
|
|
|
|
if [catch {bfuse result S_1 S_4}] {
|
|
puts "Faulty OCC536"
|
|
} else {
|
|
puts "OCC536 : OK"
|
|
checkshape result
|
|
}
|
|
|
|
set square 2.5405e+06
|
|
set 2dviewer 0
|
|
|