mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03:00
26 lines
327 B
Plaintext
26 lines
327 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_3
|
|
|
|
if [catch {bfuse result S_1 S_3}] {
|
|
puts "Faulty OCC536"
|
|
} else {
|
|
puts "OCC536 : OK"
|
|
checkshape result
|
|
}
|
|
|
|
set square 2.56034e+06
|
|
set 2dviewer 0
|
|
|