3bea4c16 |
1 | puts "========================" |
2 | puts "OCC14782" |
3 | puts "========================" |
4 | puts "" |
5 | ####################################################################### |
6 | # Method segment works wrongly for periodical BSpline curve |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC14782 |
10 | |
3bea4c16 |
11 | restore [locate_data_file OCC14782.draw] res |
12 | |
13 | bounds res t1 t2 |
14 | set bounds_list [dump res] |
15 | |
16 | puts "" |
17 | if { [llength ${bounds_list}] < 7 } { |
18 | puts "Bad bounds_list" |
19 | puts "Faulty ${BugNumber}" |
20 | } else { |
21 | set periodic_type [lindex ${bounds_list} 6] |
22 | puts "periodic_type=${periodic_type}" |
23 | if { ${periodic_type} != "periodic" } { |
24 | puts "1. Faulty ${BugNumber}" |
25 | } else { |
26 | puts "1. OK ${BugNumber}" |
27 | } |
28 | } |
29 | |
30 | set ll1 [lindex [length res] end] |
31 | puts "length1=${ll1}" |
32 | |
369a38aa |
33 | segment res t1 t2 |
3bea4c16 |
34 | set segment_list [dump res] |
35 | |
36 | puts "" |
37 | if { [llength ${segment_list}] < 7 } { |
38 | puts "Bad segment_list" |
39 | puts "Faulty ${BugNumber}" |
40 | } else { |
41 | set periodic_type [lindex ${segment_list} 6] |
42 | puts "periodic_type=${periodic_type}" |
43 | if { ${periodic_type} != "periodic" } { |
44 | puts "2. OK ${BugNumber}" |
45 | } else { |
46 | puts "2. Faulty ${BugNumber}" |
47 | } |
48 | } |
49 | |
50 | set ll2 [lindex [length res] end] |
51 | puts "length2=${ll2}" |
52 | |
cd718a73 |
53 | checkreal "length1" ${ll1} ${ll2} 0 0.001 |