tests/bugs/modalg_1/buc60703_4

   1
   2 puts "========================"
   3 puts "BUC60703"
   4 puts "========================"
   5 puts ""
   6 ####################################
   7 ## Crash during a fuse whilst two plans are tangent.
   8 ####################################
   9
  10 restore [locate_data_file buc60703d.brep] a
  11 #maxtolerance a
  12 checkshape a
  13 restore [locate_data_file buc60703f.brep] b
  14 #maxtolerance b
  15 checkshape b
  16
  17 if [catch {bfuse result a b } catch_result] {
  18     puts "Faulty  BUC60703: here is problem with FUSE operation"
  19 } else {
  20     puts "OK OCC348: function FUSE works ok"
  21     if [catch {checkshape result} catch_result] {
  22         set mistake 1
  23     } else {
  24         set mistake 0
  25     }
  26
  27     if { $mistake != 0} {
  28         puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4"
  29     } else {
  30         puts "BUC60703   : here is NOT checking problem"
  31     }
  32 }
  33 set square 505.797
  34 set 2dviewer 0
  35