puts "========"
puts "0031703: Data Exchange, RWGltf_CafWriter - add option putting textures inside GLB file as alternative to external references"
puts "Test case exporting glTF model into GLB file."
puts "========"

catch { Close D1 }
ReadGltf D1 [locate_data_file bug30691_DamagedHelmet.gltf]

set aTmpGltfBase "${imagedir}/${casename}_tmp"
set aTmpGltf "${aTmpGltfBase}.glb"
lappend occ_tmp_files $aTmpGltf
lappend occ_tmp_files "${aTmpGltfBase}.bin"
lappend occ_tmp_files "${aTmpGltfBase}_textures"

WriteGltf D1 "$aTmpGltf"

ReadGltf D "$aTmpGltf"
XGetOneShape s D
checknbshapes s -face 1 -compound 0
checktrinfo s -tri 15452 -nod 14556