2 puts "========================"
4 puts "========================"
6 ############################
7 ## Exception during bop
8 ############################
10 restore [locate_data_file OCC618a.brep] a
12 restore [locate_data_file OCC618b.brep] b
15 if [catch {bop a b} catch_result] {
16 puts "Faulty OCC618 : BOP operation was made wrongly"
18 puts "OCC618 OK: BOP operation works OK"