OCCT

puts "================"
puts "OCC25660"
puts "================"
puts ""
#######################################################################
# Project command produce wrong 2dcurve
#######################################################################

restore [locate_data_file bug25660_c3d.draw] c3d
restore [locate_data_file bug25660_surf.draw] surf

project c2d c3d surf

set log [dump c2d]

regexp {Degree +([-0-9.+eE]+), +([-0-9.+eE]+) Poles, +([-0-9.+eE]+)} ${log} full Degree Poles KnotsPoles
puts "Degree=${Degree}"
puts "Poles=${Poles}"
puts "KnotsPoles=${KnotsPoles}"
puts ""

set tol_abs 1.e-7
set tol_rel 0.01
set V_i 0

for {set i 1} {${i} <= ${Poles}} {incr i} {
   set V_i_1 ${V_i}
   set exp_string " +${i} : +(\[-0-9.+eE\]+), +(\[-0-9.+eE\]+)"
   regexp ${exp_string} ${log} full U_i V_i
   #puts "i=${i} U_i=${U_i} V_i=${V_i}"
   if { ${i} == 1 } {
      # First pole
      puts "V_first=${V_i}"
      set expected_V_first 0.0
      checkreal "V_first" ${V_i} ${expected_V_first} ${tol_abs} ${tol_rel}
   }
   if { ${i} == ${Poles} } {
      # Last pole
      puts "V_last=${V_i}"
      set expected_V_last 6.96771797765
      checkreal "V_last" ${V_i} ${expected_V_last} ${tol_abs} ${tol_rel}
   }
   if { ${i} > 1 } {
      #puts "i=${i} U_i=${U_i} V_i=${V_i} V_i_1=${V_i_1}"
      if { ${V_i_1} >= ${V_i} } {
         puts "Error: Bad value of V in string: ${i} :${U_i}, ${V_i}"
      }
   }
}