tests/bugs/modalg_6/bug28094

   1 puts "============"
   2 puts "OCC28094"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Shape obtained after DRAW command "splitshape" has unnecessary high tolerance.
   7 ######################################################
   8
   9 smallview
  10
  11 set expected_MaxTolerance 2.e-07
  12 set tol_abs_MaxTolerance 1.e-06
  13 set tol_rel_MaxTolerance 1.e-06
  14
  15 psphere a 10
  16 plane p2 2 0 0 1 0 0
  17 mkface f2 p2 -100 100 -100 100
  18 bsection s2 a f2
  19 explode a f
  20 explode s2 e
  21 splitshape res a_1 a_1 s2_1 a_1 s2_2
  22
  23 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance res] full MaxTolerance
  24 checkreal "MaxTolerance" ${MaxTolerance} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}
  25
  26 clear
  27 donly res
  28 fit
  29
  30 xwd ${imagedir}/${test_image}.png