tests/bugs/modalg_2/bug472_3

   1 puts "TODO OCC25917 ALL: Faulty shapes in variables faulty_1 to faulty_"
   2 puts "TODO OCC25917 ALL: Error : The square of result shape is"
   3 puts "TODO OCC25917 ALL: Error :  is WRONG because number of "
   4 if { [regexp {Debug mode} [dversion]] } {
   5   puts "TODO OCC25917 ALL: TEST INCOMPLETE"
   6   puts "TODO OCC25917 ALL: Tcl Exception"
   7 }
   8
   9 puts "========================"
  10 puts " OCC472 "
  11 puts "(case 3)"
  12 puts "========================"
  13 puts ""
  14 #####################################################
  15 ## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634)
  16 #####################################################
  17
  18 restore [locate_data_file OCC472a.brep] b1
  19 checkshape b1
  20
  21 restore [locate_data_file OCC472b.brep] b2
  22 checkshape b2
  23
  24 bfuse result b1 b2
  25
  26 checknbshapes result -vertex 66 -edge 107
  27
  28 set square 31657.5
  29 set 2dviewer 0
  30