0e94a94e |
1 | puts "========" |
2 | puts "OCC314" |
3 | puts "========" |
4 | puts "" |
5 | |
6 | param write.iges.brep.mode BRep |
7 | |
8 | restore [locate_data_file OCC314.brep] a1 |
9 | regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance a1] full MinFace1 |
10 | regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a1] full MaxFace1 |
11 | regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance a1] full MinEdge1 |
12 | regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a1] full MaxEdge1 |
13 | regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance a1] full MinVertex1 |
14 | regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a1] full MaxVertex1 |
15 | |
16 | ###################################################################### |
17 | catch {exec rm ${imagedir}/OCC314.igs} |
18 | brepiges a1 ${imagedir}/OCC314.igs |
19 | |
20 | igesbrep ${imagedir}/OCC314.igs a2 * |
21 | |
22 | tpcompound a2 |
23 | |
24 | regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance a2] full MinFace2 |
25 | regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a2] full MaxFace2 |
26 | regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance a2] full MinEdge2 |
27 | regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a2] full MaxEdge2 |
28 | regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance a2] full MinVertex2 |
29 | regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a2] full MaxVertex2 |
30 | |
31 | |
32 | if { $MinFace2 > $MinFace1 } { |
33 | puts "Error : MinFace Tolerance is increased" |
34 | } |
35 | |
36 | if { $MaxFace2 > $MaxFace1 } { |
37 | puts "Error : MaxFace Tolerance is increased" |
38 | } |
39 | |
40 | if { $MinEdge2 > $MinEdge1 } { |
41 | puts "Error : MinEdge Tolerance is increased" |
42 | } |
43 | |
44 | if { $MaxEdge2 > $MaxEdge1 } { |
45 | puts "Error : MaxEdge Tolerance is increased" |
46 | } |
47 | |
48 | if { $MinVertex2 > $MinVertex1 } { |
49 | puts "Error : MinVertex Tolerance is increased" |
50 | } |
51 | |
52 | if { $MaxVertex2 > $MaxVertex1 } { |
53 | puts "Error : MaxVertex Tolerance is increased" |
54 | } |
55 | |
56 | renamevar a2 result |
57 | |
5747059b |
58 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
0e94a94e |
59 | |