3bea4c16 |
1 | puts "TODO ?OCC12345 ALL: OCC12522: Faulty" |
2 | |
3 | puts "========" |
4 | puts "OCC12522" |
5 | puts "========" |
6 | puts "" |
7 | ########################################################### |
8 | # Extrema problems. Case: one of the Extrema arguments is an infinite face or an infinite edge. |
9 | ########################################################### |
10 | |
11 | proc GetPercent {Value GoodValue} { |
12 | set Percent 0. |
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.] |
17 | } else { |
18 | set Percent 0. |
19 | } |
20 | return ${Percent} |
21 | } |
22 | |
23 | set BugNumber OCC12522 |
24 | |
25 | restore [locate_data_file OCC12522.brep] arc1 |
26 | explode arc1 e |
27 | mkcurve curve1 arc1_1 |
28 | |
29 | plane plane1 6400 -4000 -160 0 0 1 1 0 0 |
30 | |
31 | extrema curve1 plane1 |
32 | |
33 | set percent_max 0.1 |
34 | set good_length 8.3705138910905177 |
35 | |
36 | set ext_1_length [lindex [length ext_1] 4] |
37 | |
38 | set length_percent [GetPercent ${ext_1_length} ${good_length}] |
39 | puts "length_percent = ${length_percent}" |
40 | |
41 | if {${length_percent} > ${percent_max}} { |
42 | puts "${BugNumber}: Faulty" |
43 | } else { |
44 | puts "${BugNumber}: OK" |
45 | } |