tests/bugs/modalg_6/bug24803

   1 puts "========"
   2 puts "OCC24803"
   3 puts "========"
   4 puts ""
   5 ###########################################################
   6 # improve the result of v/v interference for two vertices case
   7 ###########################################################
   8
   9 set x1 0
  10 set y1 0
  11 set z1 0
  12 set tolerance1 1.0
  13 vertex v1 $x1 $y1 $z1
  14 settolerance v1 $tolerance1
  15
  16 set x2 4
  17 set y2 0
  18 set z2 0
  19 vertex v2 $x2 $y2 $z2
  20 set tolerance2 3.5
  21 settolerance v2 $tolerance2
  22
  23 bop v1 v2
  24 bopcommon res
  25
  26 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance res] full MaxTolerance
  27 puts "MaxTolerance=$MaxTolerance"
  28
  29 set expected_MaxTolerance 4.25
  30 set tol_abs_MaxTolerance 0.1
  31 set tol_rel_MaxTolerance 0.1
  32 checkreal "MaxTolerance" ${MaxTolerance} ${expected_MaxTolerance} ${tol_abs_MaxTolerance} ${tol_rel_MaxTolerance}
  33
  34 set info [dump res]
  35 regexp "Tolerance : +(\[-0-9*\.+eE\]+)" $info full tolerance_res
  36 regexp "Point 3D : +(\[-0-9*\.+eE\]+), +(\[-0-9*\.+eE\]+), +(\[-0-9*\.+eE\]+)" $info full x_res y_res z_res
  37 puts "tolerance_res=$tolerance_res"
  38 puts "x_res=$x_res y_res=$y_res z_res=$z_res"
  39
  40 set expected_tolerance 4.25
  41 set tol_abs_tolerance  0.1
  42 set tol_rel_tolerance 0.1
  43 checkreal "tolerance" ${tolerance_res} ${expected_tolerance} ${tol_abs_tolerance} ${tol_rel_tolerance}
  44
  45 set expected_x_res 3.25
  46 set tol_abs_x_res  0.1
  47 set tol_rel_x_res 0.1
  48 checkreal "x_res" ${x_res} ${expected_x_res} ${tol_abs_x_res} ${tol_rel_x_res}
  49
  50 set expected_y_res 0
  51 set tol_abs_y_res  0.1
  52 set tol_rel_y_res 0.1
  53 checkreal "y_res" ${y_res} ${expected_y_res} ${tol_abs_y_res} ${tol_rel_y_res}
  54
  55 set expected_z_res 0
  56 set tol_abs_z_res  0.1
  57 set tol_rel_z_res 0.1
  58 checkreal "z_res" ${z_res} ${expected_z_res} ${tol_abs_z_res} ${tol_rel_z_res}
  59
  60 circle c1 $x1 $y1 $z1 $tolerance1
  61 circle c2 $x2 $y2 $z2 $tolerance2
  62 circle c_res $x_res $y_res $z_res $tolerance_res
  63
  64 view 1 +X+Y 465 20 400 400
  65 fit
  66
  67 xwd $imagedir/${test_image}.png