puts "========" puts "0030953: Data Exchange - implement export of mesh data into glTF 2.0 format" puts "Test case exporting glTF model into glTF file." puts "========" catch { Close D1 } ReadGltf D1 [locate_data_file bug30691_DamagedHelmet.gltf] set aTmpGltfBase "${imagedir}/${casename}_tmp" set aTmpGltf "${aTmpGltfBase}.gltf" 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