tests/bugs/modalg_6/bug26316

   1 puts "============"
   2 puts "OCC26316"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## Infinite modification of the shapes in General Fuse operation
   7 ###############################
   8
   9 restore [locate_data_file bug26316_shape1.brep] b1
  10 restore [locate_data_file bug26316_shape2.brep] b2
  11
  12 bclearobjects
  13 bcleartools
  14 baddobjects b1
  15 baddtools b2
  16 bfillds
  17 bbuild r
  18
  19 explode r so
  20
  21 bclearobjects
  22 bcleartools
  23 baddobjects r_1
  24 baddtools r_2
  25 bfillds
  26 bbuild r1
  27
  28 explode r1 so
  29
  30 set info1 [compare r_1 r1_1]
  31
  32 set info2 [compare r_2 r1_2]
  33
  34 if { [regexp "same shapes" $info1] == 1  } {
  35     puts "OK: r_1 and r1_1 shapes are equal"
  36 } else {
  37     puts "Error : r_1 and r1_1 shapes are not equal"
  38 }
  39
  40 if { [regexp "same shapes" $info2] == 1  } {
  41     puts "OK: r_2 and r1_2 shapes are equal"
  42 } else {
  43     puts "Error : r_2 and r1_2 shapes are not equal"
  44 }
  45
  46 smallview
  47 fit
  48 xwd ${imagedir}/${test_image}.png