mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
50 lines
1.4 KiB
Plaintext
50 lines
1.4 KiB
Plaintext
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}"
|
|
}
|
|
}
|
|
}
|