tests/bugs/modalg_6/bug26352

   1 puts "========"
   2 puts "OCC26352"
   3 puts "========"
   4 puts ""
   5 #############################################################################
   6 # Wrong intersection points found
   7 #############################################################################
   8
   9 restore [locate_data_file bug26316_shape1.brep] b1
  10 restore [locate_data_file bug26316_shape2.brep] b2
  11
  12 explode b1 f
  13 explode b2 f
  14
  15 set log1 [bopcurves b1_10 b2_3]
  16 set log2 [bopcurves b1_10 b2_10]
  17 set log3 [bopcurves b1_11 b2_1]
  18 set log4 [bopcurves b1_11 b2_7]
  19
  20 set search_str "has no 3d points"
  21
  22 if { [regexp ${search_str} ${log1}] != 1 } {
  23    puts "Error : Wrong intersection point found (1)"
  24 } else {
  25    puts "OK : Good result obtained by intersection algorithm (1)"
  26 }
  27
  28 if { [regexp ${search_str} ${log2}] != 1 } {
  29    puts "Error : Wrong intersection point found (2)"
  30 } else {
  31    puts "OK : Good result obtained by intersection algorithm (2)"
  32 }
  33
  34 if { [regexp ${search_str} ${log3}] != 1 } {
  35    puts "Error : Wrong intersection point found (3)"
  36 } else {
  37    puts "OK : Good result obtained by intersection algorithm (3)"
  38 }
  39
  40 if { [regexp ${search_str} ${log4}] != 1 } {
  41    puts "Error : Wrong intersection point found (4)"
  42 } else {
  43    puts "OK : Good result obtained by intersection algorithm (4)"
  44 }