696a905f1a080055a57190022a8e26500a93be9a
[occt.git] / tests / bugs / modalg_7 / bug31043
1 puts "============="
2 puts "0031043: GCPnts_TangentialDeflection generates points which number is inconsistent with MinimumOfPoints parameter"
3 puts "============="
4
5 restore [locate_data_file bug28500_shape_mesh_artifact.brep] result
6
7 tclean result
8 explode result f
9 explode result_7 e
10
11 mkcurve c result_7_1
12
13 set log [crvtpoints r c 0.01 1.57 1]
14 regexp {Nb points : ([0-9]+)} $log full pnts
15
16 if { $pnts < 2 } {
17   puts "Error : Incorrect number of points $pnts"
18 }
19
20
21 set log [crvtpoints r c 0.01 1.57 2]
22 regexp {Nb points : ([0-9]+)} $log full pnts
23
24 if { $pnts < 2 } {
25   puts "Error : Incorrect number of points $pnts"
26 }
27
28 set log [crvtpoints r c 0.01 1.57 3]
29 regexp {Nb points : ([0-9]+)} $log full pnts
30
31 if { $pnts < 3 } {
32   puts "Error : Incorrect number of points $pnts"
33 }
34
35 set log [crvtpoints r c 0.01 1.57 4]
36 regexp {Nb points : ([0-9]+)} $log full pnts
37
38 if { $pnts < 4 } {
39   puts "Error : Incorrect number of points $pnts"
40 }
41
42 set log [crvtpoints r c 0.01 1.57 5]
43 regexp {Nb points : ([0-9]+)} $log full pnts
44
45 if { $pnts < 5 } {
46   puts "Error : Incorrect number of points $pnts"
47 }
48
49 set log [crvtpoints r c 0.01 1.57 6]
50 regexp {Nb points : ([0-9]+)} $log full pnts
51
52 if { $pnts < 6 } {
53   puts "Error : Incorrect number of points $pnts"
54 }