tests/bugs/modalg_6/bug28054_1

   1 puts "========"
   2 puts "OCC28054"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Regression: Class BRepProj_Projection gives invalid result after projection edge based on the line on the conical surface
   7 #################################################
   8
   9 set Tol 1.0e-7
  10
  11 dsetsignal 1
  12
  13 restore [locate_data_file bug28054_FaceProj.brep] f1
  14 restore [locate_data_file bug28054_EdgeProj.brep] e1
  15
  16 set ProjList [prj r e1 f1 0 0 1]
  17
  18 if { [llength $ProjList] < 1 } {
  19   puts "Error: no projections are found"
  20 }
  21
  22 foreach wir $ProjList {
  23   set EdgeList [explode $wir e]
  24   foreach ed $EdgeList {
  25     set dist 1.0e+100
  26     regexp {Max Distance = +([-0-9.+eE]+)} [xdistef $ed f1] full dist
  27     if { $dist > $Tol } {
  28       puts "Error in projection. 3D and 2D curves of edge $ed are not same-parameter"
  29     } else {
  30       puts "OK: Max Distance is less than $Tol"
  31     }
  32   }
  33 }