1
2puts "========================"
3puts "BUC60585"
4puts "========================"
5
6restore [locate_data_file buc60585a.brep] s
7checkshape s
8plane ps 2036.25  -97.5  -1460.499755859375 0.0  -0.75103523489975432  -0.66026212668838646 1.0 0.0 0.0
9mkface fs ps
10
11bsection result s fs
12
13checkprops result -l 117.81
14checkshape result
15checksection result
16checkview -display result -2d -path ${imagedir}/${test_image}.png
17
18##      set num [lindex [checksection res] 4]
19#     if { $num != 0 } {
20#      puts " Faulty : Result shape is Unclosed !!! "
21#      }
22