tests/bugs/modalg/buc60585_1

   1
   2 puts "========================"
   3 puts "BUC60585"
   4 puts "========================"
   5
   6 restore [locate_data_file buc60585a.brep] s
   7 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 #      }