tests/bugs/modalg_7/bug23927

   1 puts "========"
   2 puts "OCC23927"
   3 puts "========"
   4 puts ""
   5 ######################################################################
   6 # BRepProj_Projection produces Edge with one Vertex outside from curve
   7 ######################################################################
   8
   9 restore [locate_data_file bug23927_line.brep] line
  10 restore [locate_data_file bug23927_surf.brep] surf
  11
  12 breducetolerance surf
  13
  14 prj p line surf 0.57735025882720947 -0.57735025882720947 0.57735025882720947
  15
  16 explode p_1 V
  17
  18 smallview
  19 fit
  20 checkview -screenshot -2d -path ${imagedir}/${test_image}.png
  21
  22 explode line V
  23
  24 set tol_abs 0.001
  25 set tol_rel 0
  26
  27 distmini d p_1_1 line_2
  28 checkreal "Projection, p1" [dval d_val] 0 $tol_abs $tol_rel
  29
  30 distmini d p_1_2 line_1
  31 checkreal "Projection, p2" [dval d_val] 0 $tol_abs $tol_rel