tests/bugs/modalg_6/bug28346

   1 puts "========"
   2 puts "OCC28346"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Function ProjectOnSegments of ShapeAnalysis_Curve
   7 # returns only single solution leading to projection
   8 # result far from optimal
   9 #################################################
  10
  11 restore [locate_data_file bug28346.brep] f
  12 explode f e
  13
  14 regexp {Dist: ([-0-9.+eE]+)} [projpcurve f_4 f 0.5 169.29762271743246 -75.660813304433930 1040.0634215916459] full dd
  15 if { abs($dd - 0.1685) > 0.0001 } { puts "Error : Projection is incorrect" }
  16