Adding new testing cases for chl grid
[occt.git] / tests / bugs / modalg / bug539_2
1
2 puts "========================"
3 puts " OCC539 "
4 puts "(case 2)"
5 puts "========================"
6 puts ""
7
8   puts "============================================"
9  puts "  BOPTUC      case_4_shell.brep and case_4_wire3.brep"
10  puts "============================================"
11  puts " " 
12  puts [restore [locate_data_file case_4_shell.brep] a] 
13  puts [restore [locate_data_file case_4_wire3.brep] b] 
14  puts [bop a b]
15  puts [boptuc result]
16
17 set nb_info [nbshapes result]
18 set nb_v_good 16
19 set nb_e_good 11
20
21 set length 929.278
22 set 2dviewer 0
23