0e94a94e |
1 | puts "========================" |
2 | puts " OCC396 " |
3 | puts "========================" |
4 | |
5 | cpulimit 3000 |
6 | |
7 | restore [locate_data_file OCC396.brep] a |
8 | |
9 | regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance a] full MinFace1 |
10 | regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a] full MaxFace1 |
11 | regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance a] full MinEdge1 |
12 | regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a] full MaxEdge1 |
13 | regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance a] full MinVertex1 |
14 | regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance a] full MaxVertex1 |
15 | |
16 | fixshape result a 1.e-7 0.1 |
17 | |
18 | regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance result] full MinFace2 |
19 | regexp { +Face +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full MaxFace2 |
20 | regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance result] full MinEdge2 |
21 | regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full MaxEdge2 |
22 | regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance result] full MinVertex2 |
23 | regexp { +Vertex +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} [maxtolerance result] full MaxVertex2 |
24 | |
25 | if { $MinFace2 > $MinFace1 } { |
26 | puts "Error : MinFace Tolerance is increased" |
27 | } |
28 | |
29 | if { $MaxFace2 > $MaxFace1 } { |
30 | puts "Error : MaxFace Tolerance is increased" |
31 | } |
32 | |
33 | if { $MinEdge2 > $MinEdge1 } { |
34 | puts "Error : MinEdge Tolerance is increased" |
35 | } |
36 | |
37 | if { $MaxEdge2 > $MaxEdge1 } { |
38 | puts "Error : MaxEdge Tolerance is increased" |
39 | } |
40 | |
41 | if { $MinVertex2 > $MinVertex1 } { |
42 | puts "Error : MinVertex Tolerance is increased" |
43 | } |
44 | |
45 | if { $MaxVertex2 > $MaxVertex1 } { |
46 | puts "Error : MaxVertex Tolerance is increased" |
47 | } |
48 | |
49 | set 2dviewer 0 |