1
2puts "========"
3puts "OCC536"
4puts "SAM1504"
5puts "========"
6
7vinit
8
9restore [locate_data_file OCC536.brep] S
10checkshape S
11
12explode S So
13checkshape S_5
14checkshape S_1
15
16if [catch {bfuse result S_5 S_1}] {
17    puts "Faulty OCC536"
18} else {
19    puts "OCC536 : OK"
20    checkshape result
21}
22
23checkprops result -s 2.45349e+06
24checkview -display result -2d -path ${imagedir}/${test_image}.png
25