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