tests/bugs/modalg_6/bug26197

   1 puts "=========="
   2 puts "OCC26197"
   3 puts "=========="
   4 puts ""
   5 ############################################################
   6 # Incomplete intersection curve
   7 ############################################################
   8
   9 restore [locate_data_file bug26197_profile_1093.brep] b1
  10 restore [locate_data_file bug26197_endcut1_1093.brep] b2
  11
  12 explode b1 f
  13 copy b1_107 f1
  14
  15 explode b2 f
  16 copy b2_2 f2
  17
  18 bsection result f1 f2
  19
  20 explode result e
  21 mk2dcurve c2d2 result_1 f2
  22
  23 bounds c2d2 u1 u2
  24 puts [dval u1]
  25 puts [dval u2]
  26
  27 2dcvalue c2d2 u1 x y1
  28 2dcvalue c2d2 u2 x y2
  29
  30 set y1_ [dval y1]
  31 set y2_ [dval y2]
  32
  33 set tol_abs 1.e-7
  34 set tol_rel 1.e-7
  35
  36 #V-last of the surface of f2 face
  37 set expected_y 1.1883793591414735
  38
  39 checkreal "extension the section line to the surface boundary?" ${y2_} ${expected_y} ${tol_abs} ${tol_rel}
  40
  41 smallview
  42 donly result f1 f2
  43 fit
  44 checkview -screenshot -2d -path ${imagedir}/${test_image}.png