Integration part of tests of grid chl
[occt.git] / tests / bugs / xde / bug314
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
58 set 2dviewer 0
59