61c421bf |
1 | |
2 | puts "========" |
3 | puts "OCC262" |
4 | puts "========" |
5 | |
6 | restore [locate_data_file OCC262.brep] a |
7 | # checkshape a |
8 | |
9 | set tolerance 1e-5 |
10 | |
11 | build3d a ${tolerance} |
12 | |
13 | fsameparameter a |
14 | |
15 | explode a E |
7b5e532f |
16 | # Verify only a_1 and a_2 eges because a_3 had 3d curve before call of build3d command |
61c421bf |
17 | |
18 | set toler1 [maxtolerance a_1] |
19 | regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $toler1 full MaxEdgeTolerance1 |
20 | |
21 | if { [ expr $MaxEdgeTolerance1 > $tolerance ] } { |
22 | puts "OCC262 - FAULTY. Tolerance of a_1 is too big" |
23 | } else { |
24 | puts "TOLERANCE OF A_1 - OK" |
25 | } |
26 | |
27 | set toler2 [maxtolerance a_2] |
28 | regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $toler2 full MaxEdgeTolerance2 |
29 | |
30 | if { [ expr $MaxEdgeTolerance2 > $tolerance ] } { |
31 | puts "OCC262 - FAULTY. Tolerance of a_1 is too big" |
32 | } else { |
33 | puts "TOLERANCE OF A_2 - OK" |
34 | } |
35 | |
36 | |
37 | #set tolerancelist [maxtolerance a] |
38 | |
39 | #set list [split ${tolerancelist} "\n\t"] |
40 | #set listLength [llength ${list}] |
41 | #if { ${listLength} < 9 } then {puts "OCC262 - Error : listLength= ${listLength}"} |
42 | |
43 | #set EdgeList [lindex ${list} 5] |
44 | #set MaxEdgeTolerance [lindex [split ${EdgeList}] [expr [llength [split ${EdgeList}] ] - 2] ] |
45 | |
46 | #set delta [expr abs(${MaxEdgeTolerance} - ${tolerance}) / ${tolerance} * 100] |
47 | |
48 | #set maxdelta 1 |
49 | |
50 | #if { ${delta} > ${maxdelta} } then {puts "OCC262 - Error : delta = ${delta}"} else { |
51 | # puts "OCC262: OK" |
52 | #} |
53 | |
54 | #puts "MaxEdgeTolerance = ${MaxEdgeTolerance}" |
55 | |
56 | renamevar a result |
57 | |
58cf74e0 |
58 | checkprops result -s 449.437 |
5747059b |
59 | checkview -display result -2d -path ${imagedir}/${test_image}.png |