1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
puts "============"
puts "CR25207"
puts "==========="
puts ""
###############################################################################
# GCPnts_QuasiUniformDeflection achieves incorrect result on some curve.
###############################################################################
restore [locate_data_file bug25207_DumpShape2.brep] cc
mkcurve cc cc
set info [crvpoints r cc 1.e-3]
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
set expected_Nb 76
if { ${Nb} != ${expected_Nb} } {
puts "Error : bad value of Nb points=${Nb}"
}
set tol_abs 1.0e-05
set tol_rel 0.01
set expected_dmax 5.8270132894239685e-10
set expected_ufmax 0.984375
checkreal "dmax" ${dmax} ${expected_dmax} ${tol_abs} ${tol_rel}
checkreal "ufmax" ${ufmax} ${expected_ufmax} ${tol_abs} ${tol_rel}
set expected_ulmax 1
if { ${ulmax} != ${expected_ulmax} } {
puts "Error : bad value of ulmax=${ulmax}"
}
set expected_i 77
if { ${i} != ${expected_i} } {
puts "Error : bad value of i=${i}"
}
|
