tests/bugs/modalg_6/bug26202

   1 puts "============"
   2 puts "OCC26202"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Wrong result of chamfer on cylindrical surface: wrong value of chord
   7 #######################################################################
   8
   9 restore [locate_data_file bug26202_shell.brep] b
  10
  11 explode b
  12 explode b_2 e
  13
  14 smallview
  15 donly b b_2_1
  16 fit
  17 xwd $imagedir/${test_image}_1.png
  18
  19 chamf q b b_2_1 b_2 0.02 0.01
  20 explode q v
  21 explode b v
  22
  23 donly b_2 q_1 q_5
  24 fit
  25 xwd $imagedir/${test_image}_2.png
  26
  27 donly q b b_2 q_1 q_5
  28 xwd $imagedir/${test_image}_3.png
  29
  30 distmini dd b_2 q_5
  31 dump dd_val
  32 #dd_val is 0.013334, but must be 0.02
  33
  34 set info [dump dd_val]
  35 regexp "\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\* Dump of dd_val \\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\n(\[-0-9*\.+eE\]+)" $info full Length
  36
  37 set expected_Length 0.02
  38 set tol_abs_Length 1.0e-4
  39 set tol_rel_Length 0.0001
  40 checkreal "Length" ${Length} ${expected_Length} ${tol_abs_Length} ${tol_rel_Length}