Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / buc60585_1
1
2 puts "========================"
3 puts "BUC60585"
4 puts "========================"
5
6 restore [locate_data_file buc60585a.brep] s
7 puts [checkshape s]
8 plane ps 2036.25  -97.5  -1460.499755859375 0.0  -0.75103523489975432  -0.66026212668838646 1.0 0.0 0.0
9
10 psection result s ps
11
12 set length 117.81
13 set 2dviewer 0
14
15 ##      set num [lindex [checksection res] 4]
16 #     if { $num != 0 } {
17 #      puts " Faulty : Result shape is Unclosed !!! "
18 #      }