tests/bugs/modalg_6/bug28009_2

   1 puts "================"
   2 puts "OCC28009"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # [Regression vs OCCT7.0.0] Cut produces not valid shape
   7 #######################################################################
   8
   9 set NbCurvGood 1
  10 set ExpToler 7.1928004468800293e-008
  11
  12 restore [locate_data_file bug28009_shape.brep] a
  13
  14 explode a
  15
  16 explode a_1 f
  17 explode a_2 f
  18
  19 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves a_1_6 a_2_1 -2d] full Toler NbCurv
  20 if {${NbCurv} != 1} {
  21   puts "Error: Number of curves is bad!"
  22 }
  23
  24 checkreal TolReached $Toler $ExpToler 0.0 0.1
  25
  26 smallview
  27 don c_*
  28 fit
  29 display a_1_6 a_2_1
  30
  31 checkview -screenshot -2d -path ${imagedir}/${test_image}.png