0027126: Create command checktrinfo to verify meshes
[occt.git] / tests / bugs / stlvrml / bug25050
1 puts "================"
2 puts "OCC25050"
3 puts "================"
4 puts ""
5 ######################################################################################
6 # Shape can not be stored to VRML format
7 ######################################################################################
8
9 #1
10 box b 10 10 10
11
12 incmesh b 0.1
13 trinfo b
14
15 set nbshapes_expected_b "
16 Number of shapes in shape
17  VERTEX    : 8
18  EDGE      : 12
19  WIRE      : 6
20  FACE      : 6
21  SHELL     : 1
22  SOLID     : 1
23  COMPSOLID : 0
24  COMPOUND  : 0
25  SHAPE     : 34
26 "
27
28 checknbshapes b -ref ${nbshapes_expected_b} -t -m "Box"
29 checktrinfo b -tri 12 -nod 24
30
31 vinit
32 vsetdispmode 1
33
34 vdisplay b
35 vfit
36 vdump ${imagedir}/${casename}_1.png
37
38 #2
39 set aFile ${imagedir}/bug25050.wrl
40
41 writevrml b ${aFile} 2 2
42
43 loadvrml res ${aFile}
44
45 checktrinfo res -tri 12 -nod 24
46
47 set nbshapes_expected "
48 Number of shapes in shape
49  VERTEX    : 0
50  EDGE      : 24
51  WIRE      : 24
52  FACE      : 6
53  SHELL     : 0
54  SOLID     : 0
55  COMPSOLID : 0
56  COMPOUND  : 1
57  SHAPE     : 55
58 "
59
60 checknbshapes res -ref ${nbshapes_expected} -t -m "Box from VRML file"
61
62 vclear
63 vdisplay res
64 vfit
65 vdump ${imagedir}/${casename}_2.png