1 puts "========================"
3 puts "========================"
5 #######################################################################
6 # Method segment works wrongly for periodical BSpline curve
7 #######################################################################
11 proc GetPercent {Value GoodValue} {
13 if {${GoodValue} != 0.} {
14 set Percent [expr abs(${Value} - ${GoodValue}) / abs(double(${GoodValue})) * 100.]
15 } elseif {${Value} != 0.} {
16 set Percent [expr abs(${GoodValue} - ${Value}) / abs(double(${Value})) * 100.]
24 restore [locate_data_file OCC14782.draw] res
27 set bounds_list [dump res]
30 if { [llength ${bounds_list}] < 7 } {
31 puts "Bad bounds_list"
32 puts "Faulty ${BugNumber}"
34 set periodic_type [lindex ${bounds_list} 6]
35 puts "periodic_type=${periodic_type}"
36 if { ${periodic_type} != "periodic" } {
37 puts "1. Faulty ${BugNumber}"
39 puts "1. OK ${BugNumber}"
43 set ll1 [lindex [length res] end]
47 set segment_list [dump res]
50 if { [llength ${segment_list}] < 7 } {
51 puts "Bad segment_list"
52 puts "Faulty ${BugNumber}"
54 set periodic_type [lindex ${segment_list} 6]
55 puts "periodic_type=${periodic_type}"
56 if { ${periodic_type} != "periodic" } {
57 puts "2. OK ${BugNumber}"
59 puts "2. Faulty ${BugNumber}"
63 set ll2 [lindex [length res] end]
67 set length_percent [GetPercent ${ll1} ${ll2}]
68 puts "length_percent = ${length_percent}"
71 if { ${length_percent} > ${percent_max} } {
72 puts "3. Faulty ${BugNumber}"
74 puts "3. OK ${BugNumber}"