mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
fe79003598
Fixed last point handling: now we try to check interval with last point instead of adding it to output set of points. Test case for issue CR25489 Correction of test case for issue CR25489
38 lines
883 B
Plaintext
Executable File
38 lines
883 B
Plaintext
Executable File
puts "============"
|
|
puts "CR25489"
|
|
puts "============"
|
|
puts ""
|
|
###################################################################################
|
|
# GCPnts_TangentialDeflection gives incorrect distribution of points
|
|
###################################################################################
|
|
|
|
restore [locate_data_file bug25469_bad_tria.brep] a
|
|
|
|
subshape a e 8
|
|
mkcurve c a_8
|
|
|
|
set deflection 0.001
|
|
set info [crvtpoints r c ${deflection} pi/6]
|
|
|
|
set str1 "Nb points +: +(\[-0-9.+eE\]+)\n"
|
|
set str2 "Max defl: +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+)"
|
|
|
|
regexp "${str1}${str2}" ${info} full Nb dmax ufmax ulmax i
|
|
|
|
#-1
|
|
set min_Nb 4
|
|
if { ${Nb} < ${min_Nb} } {
|
|
puts "Error : bad value of Nb points=${Nb}"
|
|
}
|
|
|
|
#-2
|
|
if { ${dmax} > ${deflection} } {
|
|
puts "Error : bad value of deflection=${dmax}"
|
|
}
|
|
|
|
smallview
|
|
donly a_8 r_a_8
|
|
fit
|
|
|
|
set only_screen_axo 1
|