tests/bugs/moddata_3/bug28196

   1 puts "============"
   2 puts "CR28196"
   3 puts "==========="
   4 puts ""
   5 ###############################################################################
   6 # Algorithm 'Extrema_GenLocateExtPS' failed to find the extremum in a case
   7 ###############################################################################
   8
   9 puts "TODO OCC28196 ALL: Error: projection with starting point is worse"
  10
  11 pload MODELING
  12
  13 restore [locate_data_file bug28196.brep] f
  14
  15 mksurface s f
  16 dset x 5.97447220497284
  17 dset y 0.0187851531995338
  18 dset z 0.433545417254429
  19 dset u 13140.3030987283
  20 dset v 28.5494495724281
  21 set max_error 1e-5
  22
  23 proj s x y z
  24 set dist_proj [lindex [length ext_1] end]
  25 proj s x y z u v
  26 set dist_proj_uv [lindex [length ext_1] end]
  27
  28 puts "Distance of standard projection $dist_proj"
  29 puts "Distance of projection with starting point $dist_proj_uv"
  30
  31 if {[expr $dist_proj_uv - $dist_proj] > $max_error} {
  32   puts "Error: projection with starting point is worse than standard projection"
  33 } else {
  34   puts "OK: well projection with starting point"
  35 }