61c421bf |
1 | puts "================" |
2 | puts "OCC394" |
3 | puts "SAM1296" |
4 | puts "================" |
5 | puts "" |
6 | ################################################################### |
7 | ## After operation "Merge edges" tolerance shape increased from 5 to 198. |
8 | ################################################################### |
9 | |
10 | pload QAcommands |
11 | |
12 | restore [locate_data_file OCC394.brep] a |
13 | |
14 | OCC394 r a 10000 2 1.57 |
15 | |
16 | regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance a] full face_a_tolerance |
17 | regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance a] full edge_a_tolerance |
18 | regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance a] full vertex_a_tolerance |
19 | |
20 | set max_a_tolerance ${face_a_tolerance} |
21 | if {${edge_a_tolerance} > ${max_a_tolerance}} { |
22 | set max_a_tolerance ${edge_a_tolerance} |
23 | } |
24 | if {${vertex_a_tolerance} > ${max_a_tolerance}} { |
25 | set max_a_tolerance ${vertex_a_tolerance} |
26 | } |
27 | |
28 | regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance r] full face_r_tolerance |
29 | regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance r] full edge_r_tolerance |
30 | regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance r] full vertex_r_tolerance |
31 | |
32 | set max_r_tolerance ${face_r_tolerance} |
33 | if {${edge_r_tolerance} > ${max_r_tolerance}} { |
34 | set max_r_tolerance ${edge_r_tolerance} |
35 | } |
36 | if {${vertex_r_tolerance} > ${max_r_tolerance}} { |
37 | set max_r_tolerance ${vertex_r_tolerance} |
38 | } |
39 | |
40 | puts "\nface_a_tolerance = ${face_a_tolerance}" |
41 | puts "edge_a_tolerance = ${edge_a_tolerance}" |
42 | puts "vertex_a_tolerance = ${vertex_a_tolerance}" |
43 | puts "\nmax_a_tolerance = ${max_a_tolerance}" |
44 | |
45 | puts "\nface_r_tolerance = ${face_r_tolerance}" |
46 | puts "edge_a_tolerance = ${edge_a_tolerance}" |
47 | puts "vertex_a_tolerance = ${vertex_a_tolerance}" |
48 | puts "\nmax_r_tolerance = ${max_r_tolerance}\n" |
49 | |
50 | if { ${max_a_tolerance} < ${max_r_tolerance} } { |
51 | puts "OCC394 - Error" |
52 | } else { |
53 | puts "OCC394 - OK" |
54 | } |
55 | |
56 | renamevar r result |
5747059b |
57 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
61c421bf |
58 | |