
puts "========================"
puts "BUC60585"
puts "========================"

restore [locate_data_file buc60585a.brep] s
checkshape s
plane ps 2036.25  -97.5  -1460.499755859375 0.0  -0.75103523489975432  -0.66026212668838646 1.0 0.0 0.0

psection result s ps

set length 117.81
set 2dviewer 0

##      set num [lindex [checksection res] 4]
#     if { $num != 0 } {
#      puts " Faulty : Result shape is Unclosed !!! "
#      }
