tests/bugs/modalg_6/bug26151_1

   1 puts "============"
   2 puts "OCC26151"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## Wrong result obtained by intersection algorithm.
   7 ###############################
   8
   9 restore [locate_data_file bug26132_shape.brep] q
  10
  11 explode q
  12 copy q_1 b1
  13 copy q_2 b2
  14
  15 explode b1 f
  16 explode b2
  17 explode b2_10 f
  18
  19 set log [bopcurves b1_1 b2_10_4 -2d]
  20
  21 #Faces almost coincide. Therefore, there is no point in
  22 #returning some intersection line.
  23 #Theoretically, the intersection result is some region (tangent zone).
  24
  25 if { [regexp "has no 3d curve" ${log}] != 1 } {
  26    puts "Error : Wrong result obtained by intersection algorithm"
  27 } else {
  28    puts "OK : Good result obtained by intersection algorithm"
  29 }
  30
  31 smallview
  32 fit
  33 xwd $imagedir/${test_image}.png