tests/bugs/modalg_2/bug2172_4

   1 puts "============"
   2 puts "OCC2172"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Fuse operation produces invalid shape
   7 ######################################################
   8 ## (old topology)
   9 ## (fuse)
  10 ######################################################
  11
  12 restore [locate_data_file OCC2172-torus.brep] torus
  13 restore [locate_data_file OCC2172-cylinder.brep] cylinder
  14
  15 checkshape torus
  16 checkshape cylinder
  17
  18 if { [catch {bfuse result cylinder torus} catch_result] } {
  19     puts "Faulty OCC2172"
  20 }
  21
  22 set square 28603.8
  23 set 3dviewer 1
  24