tests/bugs/modalg_7/bug29323

   1 puts "========"
   2 puts "OCC29323"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Intersection algorithm produces the curve with oscillation
   7 #################################################
   8
   9 set MaxTolReached 0.15
  10 set GoodNbCurv 1
  11 set ExpLength 96.268040111795571
  12
  13 restore [locate_data_file bug29323_hb.brep] h
  14 plane p 0 0 4 0 0 1
  15 mkface f p -200 200 -200 200
  16 explode h f
  17
  18 set log [bopcurves h_4 f -2d]
  19
  20 smallview
  21 donly c_1
  22 fit
  23
  24 checkview -screenshot -2d -path ${imagedir}/${test_image}_1.png
  25 checklength c_1 -l $ExpLength
  26
  27 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
  28
  29 if {$Toler > $MaxTolReached} {
  30   puts "Error: Big tolerance is returned by intersector"
  31 }
  32
  33 if {$NbCurv != $GoodNbCurv} {
  34   puts "Error: Please check NbCurves for intersector"
  35 }