tests/bugs/modalg_5/bug23845

   1 puts "================"
   2 puts "OCC23845"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # New auxilary method concatenating a wire into an edge based on C0-continuous curve.
   7 #######################################################################
   8
   9 restore [locate_data_file bug23845_profil_0a.brep] a
  10 restore [locate_data_file bug23845_profil_1a.brep] b
  11
  12 concatC0wire aa a
  13 concatC0wire bb b
  14
  15 set CMP_TOL 1.e-6
  16
  17 # 1
  18 checkshape aa
  19 set tolmaxres [tolmax aa]
  20 regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
  21 if { ${MaxTolerance} > ${CMP_TOL} } {
  22    puts "Error: invalid tolerance of first wire"
  23 }
  24
  25 # 2
  26 checkshape bb
  27 set tolmaxres [tolmax bb]
  28 regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
  29 if { ${MaxTolerance} > ${CMP_TOL} } {
  30    puts "Error: invalid tolerance of second wire"
  31 }