tests/bugs/modalg_6/bug25820_2

   1 puts "========"
   2 puts "OCC25820"
   3 puts "========"
   4 puts ""
   5 ###################################################################
   6 # No Intersection Curves between surface of revolution and planes
   7 ###################################################################
   8
   9 restore [locate_data_file OCC25820-Revolution_5.brep] b1
  10 explode b1 f
  11 copy b1_4 b1
  12
  13 restore [locate_data_file OCC25820-Translation_2.brep] b2
  14 explode b2 f
  15 copy b2_4 b2
  16
  17 smallview
  18 clear
  19 display b1
  20 display b2
  21 fit
  22
  23 set info [bopcurves b1 b2]
  24 regexp {Tolerance Reached=([-0-9.+eE]+)} $info full bug_info_tol
  25 regexp {([0-9]+) curve\(s\) found.} $info full bug_info_cur
  26
  27 if {$bug_info_tol > 1.0e-7} {
  28   puts "ERROR: OCC25820 is reproduced. Tolerance is to large ($bug_info_tol)."
  29 }
  30
  31 if {$bug_info_cur != 1} {
  32   puts "ERROR: OCC25820 is reproduced. Too many curves were found."
  33 }
  34
  35 checkview -screenshot -2d -path ${imagedir}/${test_image}.png