5bbe00d0296ce02edf52adbd8db9a2316d9f0862
[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
30 set tri_info_b [trinfo b]
31 regexp { +([-0-9.+eE]+) +triangles} $tri_info_b full tri_b
32 regexp { +([-0-9.+eE]+) +nodes} $tri_info_b full nod_b
33 if { $tri_b != 12} {
34   puts "Error: bad triangle numbers in box"
35 }
36 if { $nod_b != 24} {
37   puts "Error: bad node numbers in box"
38 }
39
40 vinit
41 vsetdispmode 1
42
43 vdisplay b
44 vfit
45 vdump ${imagedir}/${casename}_1.png
46
47 #2
48 set aFile ${imagedir}/bug25050.wrl
49
50 writevrml b ${aFile} 2 2
51
52 loadvrml res ${aFile}
53
54 set tri_info [trinfo res]
55 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
56 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
57 if { $tri != 12} {
58   puts "Error: bad triangle numbers in box from VRML file"
59 }
60 if { $nod != 24} {
61   puts "Error: bad node numbers in box from VRML file"
62 }
63
64 set nbshapes_expected "
65 Number of shapes in shape
66  VERTEX    : 0
67  EDGE      : 24
68  WIRE      : 24
69  FACE      : 6
70  SHELL     : 0
71  SOLID     : 0
72  COMPSOLID : 0
73  COMPOUND  : 1
74  SHAPE     : 55
75 "
76
77 checknbshapes res -ref ${nbshapes_expected} -t -m "Box from VRML file"
78
79 vclear
80 vdisplay res
81 vfit
82 vdump ${imagedir}/${casename}_2.png