puts "================"
puts "OCC25050"
puts "================"
puts ""
######################################################################################
# Shape can not be stored to VRML format
######################################################################################

#1
box b 10 10 10

incmesh b 0.1
trinfo b

set nbshapes_expected_b "
Number of shapes in shape
 VERTEX    : 8
 EDGE      : 12
 WIRE      : 6
 FACE      : 6
 SHELL     : 1
 SOLID     : 1
 COMPSOLID : 0
 COMPOUND  : 0
 SHAPE     : 34
"

checknbshapes b -ref ${nbshapes_expected_b} -t -m "Box"

set tri_info_b [trinfo b]
regexp { +([-0-9.+eE]+) +triangles} $tri_info_b full tri_b
regexp { +([-0-9.+eE]+) +nodes} $tri_info_b full nod_b
if { $tri_b != 12} {
  puts "Error: bad triangle numbers in box"
}
if { $nod_b != 24} {
  puts "Error: bad node numbers in box"
}

vinit
vsetdispmode 1

vdisplay b
vfit
vdump ${imagedir}/${casename}_1.png

#2
set aFile ${imagedir}/bug25050.wrl

writevrml b ${aFile} 2 2

loadvrml res ${aFile}

set tri_info [trinfo res]
regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
if { $tri != 12} {
  puts "Error: bad triangle numbers in box from VRML file"
}
if { $nod != 24} {
  puts "Error: bad node numbers in box from VRML file"
}

set nbshapes_expected "
Number of shapes in shape
 VERTEX    : 0
 EDGE      : 24
 WIRE      : 24
 FACE      : 6
 SHELL     : 0
 SOLID     : 0
 COMPSOLID : 0
 COMPOUND  : 1
 SHAPE     : 55
"

checknbshapes res -ref ${nbshapes_expected} -t -m "Box from VRML file"

vclear
vdisplay res
vfit
vdump ${imagedir}/${casename}_2.png