tests/bugs/modalg_5/bug25701

   1 puts "==========="
   2 puts "OCC25701"
   3 puts "==========="
   4 puts ""
   5 ######################################################
   6 # Problem with the symmetry of fillet on two perpendicular cylinders
   7 ######################################################
   8
   9 restore [locate_data_file bug25701_rx.brep] rx
  10
  11 explode rx e
  12 smallview
  13 donly rx rx_2 rx_5
  14 compound rx_2 rx_5 q
  15
  16 fillet x rx 2.5 q
  17 explode x e
  18 donly x x_9
  19 fit
  20
  21 mkcurve cx_9 x_9
  22
  23 set log [dump cx_9]
  24
  25 regexp {Degree +([-0-9.+eE]+), +([-0-9.+eE]+) Poles, +([-0-9.+eE]+)} ${log} full Degree Poles KnotsPoles
  26 puts "Degree=${Degree}"
  27 puts "Poles=${Poles}"
  28 puts "KnotsPoles=${KnotsPoles}"
  29 puts ""
  30
  31 set tol_abs 1.e-11
  32 set tol_rel 0.01
  33 set expected_V 0.
  34
  35 for {set i 1} {${i} <= ${Poles}} {incr i} {
  36    set exp_string " +${i} : +(\[-0-9.+eE\]+), +(\[-0-9.+eE\]+)"
  37    regexp ${exp_string} ${log} full U_i V_i
  38    puts "i=${i} U_i=${U_i} V_i=${V_i}"
  39    checkreal "V_$i" ${V_i} ${expected_V} ${tol_abs} ${tol_rel}
  40 }
  41
  42 set only_screen_axo 1