Integration part of tests of grid chl
[occt.git] / tests / bugs / xde / bug184
1 puts "========"
2 puts "OCC184"
3 puts "========"
4 #
5 ## Bad IGES/BREP translation
6 #
7 puts "FaceBrep must be identical FaceIGES!!!"
8 puts "========"
9
10 restore [locate_data_file OCC184.brep] FaceBrep 
11 puts [checkshape FaceBrep]
12
13 set dum1 [nbshapes FaceBrep]
14 regexp {VERTEX +: +([-0-9.+eE]+)} $dum1 full nb_v1
15 regexp {EDGE +: +([-0-9.+eE]+)} $dum1 full nb_e1
16 regexp {WIRE +: +([-0-9.+eE]+)} $dum1 full nb_w1
17 regexp {FACE +: +([-0-9.+eE]+)} $dum1 full nb_f1
18 regexp {SHELL +: +([-0-9.+eE]+)} $dum1 full nb_sh1
19 regexp {SOLID +: +([-0-9.+eE]+)} $dum1 full nb_sol1
20 regexp {COMPSOLID +: +([-0-9.+eE]+)} $dum1 full nb_compsol1
21 regexp {COMPOUND +: +([-0-9.+eE]+)} $dum1 full nb_compound1
22 regexp {SHAPE +: +([-0-9.+eE]+)} $dum1 full nb_shape1
23
24 regexp {Mass +: +([-0-9.+eE]+)} [sprops FaceBrep] full square1
25
26 catch {exec rm ${imagedir}/OCC184.igs}
27 brepiges FaceBrep ${imagedir}/OCC184.igs
28 catch {exec chmod 777 ${imagedir}/OCC184.igs}
29
30 igesbrep ${imagedir}/OCC184.igs FaceIGES *
31
32 sewing result FaceIGES
33 puts [checkshape result]
34
35 set dum2 [nbshapes result]
36 regexp {VERTEX +: +([-0-9.+eE]+)} $dum2 full nb_v2
37 regexp {EDGE +: +([-0-9.+eE]+)} $dum2 full nb_e2
38 regexp {WIRE +: +([-0-9.+eE]+)} $dum2 full nb_w2
39 regexp {FACE +: +([-0-9.+eE]+)} $dum2 full nb_f2
40 regexp {SHELL +: +([-0-9.+eE]+)} $dum2 full nb_sh2
41 regexp {SOLID +: +([-0-9.+eE]+)} $dum2 full nb_sol2
42 regexp {COMPSOLID +: +([-0-9.+eE]+)} $dum2 full nb_compsol2
43 regexp {COMPOUND +: +([-0-9.+eE]+)} $dum2 full nb_compound2
44 regexp {SHAPE +: +([-0-9.+eE]+)} $dum2 full nb_shape2
45
46 regexp {Mass +: +([-0-9.+eE]+)} [sprops result] full square2
47
48
49 if { ${nb_v2} != ${nb_v1} 
50     || ${nb_e2} != ${nb_e1} 
51     || ${nb_w2} != ${nb_w1} 
52     || ${nb_f2} != ${nb_f1} 
53     || ${nb_sh2} != ${nb_sh1} 
54     || ${nb_sol2} != ${nb_sol1} 
55     || ${nb_compsol2} != ${nb_compsol2} 
56     || ${nb_compound2} != ${nb_compound1} 
57     || ${nb_shape2} != ${nb_shape2} } {
58     puts "Error : Number of shapes is faulty"
59 }
60
61 if { ${square2} != ${square1} } {
62    puts "Error : "Square is not valid"
63 }
64
65 set 2dviewer 0
66