tests/bugs/modalg_1/bug1255_1

   1 puts "========="
   2 puts " OCC1255 "
   3 puts "========="
   4 puts ""
   5 ###############################################
   6 ## Exception in command 'section'
   7 #  (This script tests new topology)
   8 ###############################################
   9
  10 restore [locate_data_file OCC1255.brep] a
  11 checkshape a
  12
  13 plane p1 0 -36.8067 0 0 1 0
  14 mkface f1 p1
  15
  16 if { [catch {bop a f1 } ] } {
  17     puts "Faulty OCC1255: BOP operation was made wrongly"
  18 } else {
  19     bopsection result
  20 }
  21
  22 set length 5383.42
  23 set 2dviewer 0
  24