0025737: GCPnts_TangentialDeflection does not produce points to approximate a knee
[occt.git] / tests / bugs / moddata_3 / bug25737_2
CommitLineData
4946f2d8 1puts "============"
2puts "CR25737"
3puts "============"
4puts ""
5###################################################################################
6# GCPnts_TangentialDeflection does not produce points to approximate a knee
7###################################################################################
8
9restore [locate_data_file bug25737_face3535.brep] a
10
11explode a e
12mkcurve c a_1
13
14smallview
15donly a_1
16fit
17
18set deflection 1.
19set angular_deflection 0.349
20set info [crvtpoints r c ${deflection} ${angular_deflection}]
21
22set str1 "Nb points +: +(\[-0-9.+eE\]+)\n"
23set str2 "Max defl: +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+)"
24
25regexp "${str1}${str2}" ${info} full Nb dmax ufmax ulmax i
26
27#-1
28set min_Nb 7
29if { ${Nb} < ${min_Nb} } {
30 puts "Error : bad value of Nb points=${Nb}"
31}
32
33#-2
34if { ${dmax} > ${deflection} } {
35 puts "Error : bad value of deflection=${dmax}"
36}
37
38set only_screen_axo 1