puts "========" puts "0030691: test glTF reader on standard sample models" puts "========" ReadGltf D [locate_data_file bug30691_DamagedHelmet.gltf] set anAssetInfo [ReadGltf [locate_data_file bug30691_DamagedHelmet.gltf] -assetInfo] if { "$anAssetInfo" != "generator: Khronos Blender glTF 2.0 exporter" } { puts "Error: unexpected asset info" } XGetOneShape s D checknbshapes s -face 1 -compound 0 checktrinfo s -tri 15452 -nod 14556 set THE_REF_DUMP { INSTANCE FACE 0:1:1:1 (refers to 0:1:1:2) "node_damagedHelmet_-6514" PART FACE 0:1:1:2 "mesh_helmet_LP_13930damagedHelmet" Free Shapes: 1 INSTANCE FACE 0:1:1:1 (refers to 0:1:1:2) "node_damagedHelmet_-6514" } checkXDump D $THE_REF_DUMP