animsmith-gltf 0.1.0

//! Minimal glTF 2.0 writer for `convert`/`transform`: emits the
//! skeleton (node hierarchy + rest TRS), each clip's writable animation tracks,
//! and whatever scene assets the [`Document`] carries ([`Document::assets`]
//! — triangulated meshes, skins, factor-only materials, and embedded
//! base-color textures). A document with default-empty assets writes
//! animation + skeleton only, so
//! animation data can still enter glTF-based tooling (including animsmith
//! itself) straight from a DCC export.
//!
//! Values are written exactly as held in the core model — lint first;
//! conversion does not repair.

use crate::WriteError;
use animsmith_core::model::{Document, Interpolation, Property, TrackValues};
use base64::Engine as _;
use serde_json::{Value, json};
use std::path::Path;

/// Counts of the scene data emitted by [`write()`].
///
/// The first five fields describe the generated glTF, which can differ from the
/// input [`Document`] when an animation clip has no writable channels, a
/// skinned mesh requires an additional holder node, or materials are omitted
/// because the document has no meshes. [`Self::clips_without_writable_tracks`]
/// is intentionally an input-to-output delta rather than an artifact count so
/// callers can explain omitted source clips.
#[derive(Debug, Clone, Copy, PartialEq, Eq)]
#[non_exhaustive]
pub struct WriteSummary {
    /// Number of nodes emitted in the glTF skeleton/scene graph.
    pub nodes: usize,
    /// Number of animations emitted.
    pub animations: usize,
    /// Number of meshes emitted.
    pub meshes: usize,
    /// Number of primitive positions emitted.
    pub primitive_positions: usize,
    /// Number of materials emitted.
    pub materials: usize,
    /// Number of input clips omitted because none of their tracks were writable.
    pub clips_without_writable_tracks: usize,
}

struct BufferBuilder {
    bytes: Vec<u8>,
    views: Vec<Value>,
    accessors: Vec<Value>,
}

impl BufferBuilder {
    fn new() -> Self {
        Self {
            bytes: Vec::new(),
            views: Vec::new(),
            accessors: Vec::new(),
        }
    }

    /// Append `data` as a buffer view + accessor; returns the accessor
    /// index. `kind` is "SCALAR" | "VEC3" | "VEC4"; floats only.
    fn push(&mut self, data: &[f32], kind: &str, with_min_max: bool) -> usize {
        let components = match kind {
            "SCALAR" => 1,
            "VEC2" => 2,
            "VEC3" => 3,
            "MAT4" => 16,
            _ => 4,
        };
        let offset = self.bytes.len();
        for v in data {
            self.bytes.extend_from_slice(&v.to_le_bytes());
        }
        let view = self.views.len();
        self.views.push(json!({
            "buffer": 0,
            "byteOffset": offset,
            "byteLength": data.len() * 4,
        }));
        let mut accessor = json!({
            "bufferView": view,
            "componentType": 5126,
            "count": data.len() / components,
            "type": kind,
        });
        if with_min_max && !data.is_empty() {
            // Required on animation inputs; componentwise for vectors.
            let mut min = vec![f32::MAX; components];
            let mut max = vec![f32::MIN; components];
            for (i, v) in data.iter().enumerate() {
                let c = i % components;
                min[c] = min[c].min(*v);
                max[c] = max[c].max(*v);
            }
            accessor["min"] = json!(min);
            accessor["max"] = json!(max);
        }
        let index = self.accessors.len();
        self.accessors.push(accessor);
        index
    }
}

impl BufferBuilder {
    /// Append u32 triangle indices as a buffer view + accessor.
    fn push_indices(&mut self, data: &[u32]) -> usize {
        let offset = self.bytes.len();
        for v in data {
            self.bytes.extend_from_slice(&v.to_le_bytes());
        }
        let view = self.views.len();
        self.views.push(json!({
            "buffer": 0,
            "byteOffset": offset,
            "byteLength": data.len() * 4,
        }));
        let index = self.accessors.len();
        self.accessors.push(json!({
            "bufferView": view,
            "componentType": 5125,
            "count": data.len(),
            "type": "SCALAR",
        }));
        index
    }

    /// Append raw bytes (an encoded image) as a bare buffer view.
    fn push_view(&mut self, data: &[u8]) -> usize {
        while !self.bytes.len().is_multiple_of(4) {
            self.bytes.push(0);
        }
        let offset = self.bytes.len();
        self.bytes.extend_from_slice(data);
        let view = self.views.len();
        self.views.push(json!({
            "buffer": 0,
            "byteOffset": offset,
            "byteLength": data.len(),
        }));
        view
    }

    /// Append u16 data (JOINTS_0) as a buffer view + accessor.
    fn push_u16(&mut self, data: &[u16], kind: &str) -> usize {
        let components = if kind == "VEC4" { 4 } else { 1 };
        let offset = self.bytes.len();
        for v in data {
            self.bytes.extend_from_slice(&v.to_le_bytes());
        }
        while !self.bytes.len().is_multiple_of(4) {
            self.bytes.push(0);
        }
        let view = self.views.len();
        self.views.push(json!({
            "buffer": 0,
            "byteOffset": offset,
            "byteLength": data.len() * 2,
        }));
        let index = self.accessors.len();
        self.accessors.push(json!({
            "bufferView": view,
            "componentType": 5123,
            "count": data.len() / components,
            "type": kind,
        }));
        index
    }
}

fn document_to_json(doc: &Document, buffer_uri: Option<String>, buffer_len: usize) -> Value {
    let mut nodes: Vec<Value> = Vec::with_capacity(doc.skeleton.bones.len());
    for (id, bone) in doc.skeleton.bones.iter().enumerate() {
        let children: Vec<usize> = doc
            .skeleton
            .bones
            .iter()
            .enumerate()
            .filter(|(_, b)| b.parent == Some(id))
            .map(|(i, _)| i)
            .collect();
        let mut node = json!({
            "name": bone.name,
            "translation": bone.rest.translation.to_array(),
            "rotation": bone.rest.rotation.to_array(),
            "scale": bone.rest.scale.to_array(),
        });
        if !children.is_empty() {
            node["children"] = json!(children);
        }
        nodes.push(node);
    }
    let roots: Vec<usize> = doc
        .skeleton
        .bones
        .iter()
        .enumerate()
        .filter(|(_, b)| b.parent.is_none())
        .map(|(i, _)| i)
        .collect();

    let mut root = json!({
        "asset": {
            "version": "2.0",
            "generator": format!("animsmith {}", env!("CARGO_PKG_VERSION")),
        },
        "scene": 0,
        "scenes": [{ "nodes": roots }],
        "nodes": nodes,
    });
    // A glTF buffer must have byteLength ≥ 1. An empty document (no
    // animation, no mesh bytes) has nothing to reference it — and no
    // bufferViews or accessors either — so omit the buffer rather than
    // emit a zero-length one, which in GLB would force an empty BIN chunk
    // the Khronos validator rejects (GLB_EMPTY_CHUNK). The caller
    // likewise omits the (empty) bufferViews/accessors arrays.
    if buffer_len > 0 {
        let mut buffer = json!({ "byteLength": buffer_len });
        if let Some(uri) = buffer_uri {
            buffer["uri"] = json!(uri);
        }
        root["buffers"] = json!([buffer]);
    }
    root
}

/// Narrow a GLB byte length to the `u32` its header/chunk field requires,
/// failing closed above the 4 GiB GLB limit rather than truncating (which
/// would emit a length field disagreeing with the bytes on disk).
fn glb_len_u32(field: &'static str, len: usize) -> Result<u32, WriteError> {
    u32::try_from(len).map_err(|_| WriteError::TooLarge { field, bytes: len })
}

/// The `u32` length fields of a GLB container.
#[derive(Debug)]
struct GlbLengths {
    /// Total file length (12-byte header + JSON chunk + optional BIN chunk).
    total: u32,
    /// JSON chunk payload length.
    json: u32,
    /// BIN chunk payload length, or `None` when the payload is empty (the
    /// BIN chunk is then omitted — an empty chunk is GLB_EMPTY_CHUNK).
    bin: Option<u32>,
}

/// Plan a GLB's chunk framing from its (already 4-byte-padded) JSON and
/// BIN payload lengths, narrowing every `u32` length field and failing
/// closed above the 4 GiB GLB limit. The parts are checked *before* the
/// total so an oversized JSON or BIN chunk is attributed to itself rather
/// than masked as a total overflow (each part is `<= total`, so a
/// total-first check could only ever report `total`).
fn plan_glb_lengths(json_len: usize, bin_len: usize) -> Result<GlbLengths, WriteError> {
    let json = glb_len_u32("JSON chunk", json_len)?;
    let (bin, bin_bytes) = if bin_len > 0 {
        (Some(glb_len_u32("BIN chunk", bin_len)?), 8 + bin_len)
    } else {
        (None, 0)
    };
    let total = glb_len_u32("total GLB length", 12 + 8 + json_len + bin_bytes)?;
    Ok(GlbLengths { total, json, bin })
}

/// Serialize `doc` to `path` (`.glb` for binary, anything else as
/// `.gltf` JSON with an embedded data-URI buffer): skeleton, animation,
/// and any scene assets it carries ([`Document::assets`] — triangulated
/// meshes, skins, factor-only materials, and embedded PNG/JPEG base-color
/// textures). A `Document` with default-empty assets writes animation and
/// skeleton only.
///
/// # Errors
///
/// Returns [`WriteError::Serialize`] if the generated glTF JSON cannot be
/// serialized, [`WriteError::TooLarge`] if a GLB length field would exceed
/// the format's 4 GiB `u32` limit, and [`WriteError::Io`] when the output
/// file cannot be written.
pub fn write(doc: &Document, path: &Path) -> Result<WriteSummary, WriteError> {
    let assets = &doc.assets;
    let mut buffers = BufferBuilder::new();
    let mut animations: Vec<Value> = Vec::new();
    let mut clips_without_writable_tracks = 0usize;

    for clip in &doc.clips {
        let mut samplers: Vec<Value> = Vec::new();
        let mut channels: Vec<Value> = Vec::new();
        for track in &clip.tracks {
            if track.times.is_empty() || track.bone >= doc.skeleton.bones.len() {
                continue;
            }
            let input = buffers.push(&track.times, "SCALAR", true);
            let output = match &track.values {
                TrackValues::Vec3s(v) => {
                    let flat: Vec<f32> = v.iter().flat_map(|x| x.to_array()).collect();
                    buffers.push(&flat, "VEC3", false)
                }
                TrackValues::Quats(v) => {
                    let flat: Vec<f32> = v.iter().flat_map(|q| q.to_array()).collect();
                    buffers.push(&flat, "VEC4", false)
                }
            };
            let interpolation = match track.interpolation {
                Interpolation::Linear => "LINEAR",
                Interpolation::Step => "STEP",
                Interpolation::CubicSpline => "CUBICSPLINE",
            };
            let target_path = match track.property {
                Property::Translation => "translation",
                Property::Rotation => "rotation",
                Property::Scale => "scale",
            };
            let sampler = samplers.len();
            samplers.push(json!({
                "input": input,
                "output": output,
                "interpolation": interpolation,
            }));
            channels.push(json!({
                "sampler": sampler,
                "target": {
                    "node": track.bone,
                    "path": target_path,
                },
            }));
        }
        if channels.is_empty() {
            clips_without_writable_tracks += 1;
        } else {
            animations.push(json!({
                "name": clip.name,
                "samplers": samplers,
                "channels": channels,
            }));
        }
    }

    let mut meshes_json: Vec<Value> = Vec::new();
    let mut skins_json: Vec<Value> = Vec::new();
    // node index -> (mesh index, Option<skin index>)
    let mut node_attach: Vec<(usize, usize, Option<usize>)> = Vec::new();
    for mesh in &assets.meshes {
        let mut prims: Vec<Value> = Vec::new();
        for prim in &mesh.primitives {
            let flat: Vec<f32> = prim.positions.iter().flat_map(|v| v.to_array()).collect();
            let mut attributes = json!({
                // POSITION min/max is required by the spec.
                "POSITION": buffers.push(&flat, "VEC3", true),
            });
            if !prim.normals.is_empty() {
                let flat: Vec<f32> = prim.normals.iter().flat_map(|v| v.to_array()).collect();
                attributes["NORMAL"] = json!(buffers.push(&flat, "VEC3", false));
            }
            if !prim.uvs.is_empty() {
                let flat: Vec<f32> = prim.uvs.iter().flatten().copied().collect();
                attributes["TEXCOORD_0"] = json!(buffers.push(&flat, "VEC2", false));
            }
            if !prim.joints.is_empty() {
                let flat_j: Vec<u16> = prim.joints.iter().flatten().copied().collect();
                attributes["JOINTS_0"] = json!(buffers.push_u16(&flat_j, "VEC4"));
                let flat_w: Vec<f32> = prim.weights.iter().flatten().copied().collect();
                attributes["WEIGHTS_0"] = json!(buffers.push(&flat_w, "VEC4", false));
            }
            let mut value = json!({ "attributes": attributes });
            if !prim.indices.is_empty() {
                value["indices"] = json!(buffers.push_indices(&prim.indices));
            }
            if let Some(material) = prim.material {
                value["material"] = json!(material);
            }
            prims.push(value);
        }
        let mesh_index = meshes_json.len();
        meshes_json.push(json!({ "name": mesh.name, "primitives": prims }));

        let skin_index = if mesh.skin_joints.is_empty() {
            None
        } else {
            let mut ibms: Vec<f32> = Vec::with_capacity(mesh.skin_joints.len() * 16);
            for (slot, &joint) in mesh.skin_joints.iter().enumerate() {
                let m = mesh
                    .skin_ibms
                    .get(slot)
                    .copied()
                    .or_else(|| doc.skeleton.bones.get(joint).and_then(|b| b.inverse_bind))
                    .unwrap_or(glam::Mat4::IDENTITY);
                ibms.extend_from_slice(&m.to_cols_array());
            }
            let accessor = buffers.push(&ibms, "MAT4", false);
            let index = skins_json.len();
            skins_json.push(json!({
                "joints": mesh.skin_joints,
                "inverseBindMatrices": accessor,
            }));
            Some(index)
        };
        // Skinned meshes hang off a fresh identity node at scene root:
        // the spec ignores a skinned mesh's node transform, but several
        // loaders (notably three.js) fold it into the bind matrix, so a
        // transform-carrying node yields inconsistent rendering. The
        // joints + IBMs fully place the vertices. Unskinned meshes keep
        // their original node, whose transform is meaningful.
        node_attach.push((mesh.node, mesh_index, skin_index));
    }

    // Embedded base-color textures: raw encoded bytes as buffer views
    // (glTF never decodes; PNG/JPEG pass through untouched).
    let mut images_json: Vec<Value> = Vec::new();
    let mut textures_json: Vec<Value> = Vec::new();
    let mut material_texture_index: Vec<Option<usize>> = vec![None; assets.materials.len()];
    for (mi, material) in assets.materials.iter().enumerate() {
        if let Some(texture) = &material.base_color_texture {
            let view = buffers.push_view(&texture.bytes);
            let image = images_json.len();
            images_json.push(json!({ "bufferView": view, "mimeType": texture.mime }));
            material_texture_index[mi] = Some(textures_json.len());
            textures_json.push(json!({ "source": image }));
        }
    }

    let binary = path
        .extension()
        .and_then(|e| e.to_str())
        .is_some_and(|e| e.eq_ignore_ascii_case("glb"));

    let uri = if binary {
        None
    } else {
        Some(format!(
            "data:application/octet-stream;base64,{}",
            base64::engine::general_purpose::STANDARD.encode(&buffers.bytes)
        ))
    };
    let mut root = document_to_json(doc, uri, buffers.bytes.len());
    // Present-but-empty accessor arrays are invalid glTF (minItems 1); an
    // empty document has none, so emit them only when populated.
    if !buffers.views.is_empty() {
        root["bufferViews"] = Value::Array(buffers.views);
    }
    if !buffers.accessors.is_empty() {
        root["accessors"] = Value::Array(buffers.accessors);
    }
    if !animations.is_empty() {
        root["animations"] = Value::Array(animations);
    }
    if !meshes_json.is_empty() {
        for (node, mesh_index, skin_index) in &node_attach {
            match skin_index {
                Some(skin) => {
                    let nodes = root["nodes"].as_array_mut().expect("nodes array");
                    let holder = nodes.len();
                    nodes.push(json!({
                        "name": format!("{}_skinned", assets.meshes[*mesh_index].name),
                        "mesh": mesh_index,
                        "skin": skin,
                    }));
                    root["scenes"][0]["nodes"]
                        .as_array_mut()
                        .expect("scene roots")
                        .push(json!(holder));
                }
                None => {
                    let node_value = &mut root["nodes"][*node];
                    node_value["mesh"] = json!(mesh_index);
                }
            }
        }
        root["meshes"] = Value::Array(meshes_json);
        if !skins_json.is_empty() {
            root["skins"] = Value::Array(skins_json);
        }
        if !assets.materials.is_empty() {
            root["materials"] = Value::Array(
                assets
                    .materials
                    .iter()
                    .enumerate()
                    .map(|(mi, m)| {
                        let mut pbr = json!({
                            "baseColorFactor": m.base_color,
                            "metallicFactor": m.metallic,
                            "roughnessFactor": m.roughness,
                        });
                        if let Some(slot) = material_texture_index[mi] {
                            pbr["baseColorTexture"] = json!({ "index": slot });
                        }
                        json!({ "name": m.name, "pbrMetallicRoughness": pbr })
                    })
                    .collect(),
            );
            if !images_json.is_empty() {
                root["images"] = Value::Array(images_json);
                root["textures"] = Value::Array(textures_json);
            }
        }
    }

    let array_len = |key: &str| root.get(key).and_then(Value::as_array).map_or(0, Vec::len);
    let primitive_positions = root
        .get("meshes")
        .and_then(Value::as_array)
        .into_iter()
        .flatten()
        .filter_map(|mesh| mesh.get("primitives").and_then(Value::as_array))
        .flatten()
        .filter_map(|primitive| {
            primitive
                .pointer("/attributes/POSITION")
                .and_then(Value::as_u64)
                .and_then(|index| usize::try_from(index).ok())
        })
        .filter_map(|index| {
            root.get("accessors")
                .and_then(Value::as_array)
                .and_then(|accessors| accessors.get(index))
                .and_then(|accessor| accessor.get("count"))
                .and_then(Value::as_u64)
                .and_then(|count| usize::try_from(count).ok())
        })
        .sum();
    let animations = array_len("animations");
    let summary = WriteSummary {
        nodes: array_len("nodes"),
        animations,
        meshes: array_len("meshes"),
        primitive_positions,
        materials: array_len("materials"),
        clips_without_writable_tracks,
    };

    let io_err = |e: std::io::Error| WriteError::Io {
        path: path.display().to_string(),
        source: e,
    };
    if binary {
        let mut json_bytes = serde_json::to_vec(&root)?;
        while !json_bytes.len().is_multiple_of(4) {
            json_bytes.push(b' ');
        }
        let mut bin = buffers.bytes;
        while !bin.len().is_multiple_of(4) {
            bin.push(0);
        }
        // Plan and length-check the chunk framing once, so the bytes
        // emitted below can't diverge from what was checked.
        let lengths = plan_glb_lengths(json_bytes.len(), bin.len())?;
        let mut out = Vec::with_capacity(lengths.total as usize);
        out.extend_from_slice(b"glTF");
        out.extend_from_slice(&2u32.to_le_bytes());
        out.extend_from_slice(&lengths.total.to_le_bytes());
        out.extend_from_slice(&lengths.json.to_le_bytes());
        out.extend_from_slice(b"JSON");
        out.extend_from_slice(&json_bytes);
        // `bin` is `Some` exactly when a non-empty BIN chunk is emitted;
        // an empty payload omits the chunk (GLB_EMPTY_CHUNK).
        if let Some(bin_len) = lengths.bin {
            out.extend_from_slice(&bin_len.to_le_bytes());
            out.extend_from_slice(b"BIN\0");
            out.extend_from_slice(&bin);
        }
        std::fs::write(path, out).map_err(io_err)?;
    } else {
        let text = serde_json::to_string_pretty(&root)?;
        std::fs::write(path, text).map_err(io_err)?;
    }
    Ok(summary)
}

#[cfg(test)]
mod tests {
    use super::{GlbLengths, glb_len_u32, plan_glb_lengths};
    use crate::WriteError;

    #[test]
    fn glb_len_u32_accepts_up_to_the_u32_limit() {
        assert_eq!(glb_len_u32("x", 0).unwrap(), 0);
        assert_eq!(glb_len_u32("x", 1234).unwrap(), 1234);
        assert_eq!(glb_len_u32("x", u32::MAX as usize).unwrap(), u32::MAX);
    }

    // A length past the u32 limit is only representable where usize is
    // wider than u32; on a 32-bit target the value can't be constructed.
    #[test]
    #[cfg(target_pointer_width = "64")]
    fn glb_len_u32_rejects_over_4gib() {
        let too_big = u32::MAX as usize + 1;
        let err = glb_len_u32("total GLB length", too_big).unwrap_err();
        let msg = err.to_string();
        assert!(
            matches!(err, WriteError::TooLarge { field: "total GLB length", bytes } if bytes == too_big),
            "expected TooLarge naming the field and size"
        );
        assert!(
            msg.contains("4 GiB") && msg.contains("total GLB length"),
            "message must name the limit and field: {msg}"
        );
    }

    // The seam `write()` actually uses: from JSON/BIN payload lengths it
    // derives the three u32 fields. An 8-byte JSON + 16-byte BIN gives a
    // total of 12 (header) + 8+8 (JSON chunk) + 8+16 (BIN chunk) = 52.
    #[test]
    fn plan_glb_lengths_derives_the_three_fields() {
        let GlbLengths { total, json, bin } = plan_glb_lengths(8, 16).unwrap();
        assert_eq!((total, json, bin), (12 + 8 + 8 + 8 + 16, 8, Some(16)));
        // Empty BIN payload → no BIN chunk, total drops the 8+bin bytes.
        let GlbLengths { total, json, bin } = plan_glb_lengths(8, 0).unwrap();
        assert_eq!((total, json, bin), (12 + 8 + 8, 8, None));
    }

    // Pins the writer's length-field wiring without allocating a >4 GiB
    // document: each oversized field is attributed to *itself*, not
    // masked as a total overflow. (Regression guard for the wiring — a
    // `write()` that skipped `plan_glb_lengths` would drop this coverage.)
    #[test]
    #[cfg(target_pointer_width = "64")]
    fn plan_glb_lengths_attributes_each_overflowing_field() {
        let over = u32::MAX as usize + 1;
        let ok = 8usize;
        let field = |r: Result<GlbLengths, WriteError>| match r.unwrap_err() {
            WriteError::TooLarge { field, .. } => field,
            other => panic!("expected TooLarge, got {other:?}"),
        };
        assert_eq!(field(plan_glb_lengths(over, ok)), "JSON chunk");
        assert_eq!(field(plan_glb_lengths(ok, over)), "BIN chunk");
        // Both parts fit in u32 but their sum overflows the total.
        let half = u32::MAX as usize / 2 + 1;
        assert_eq!(field(plan_glb_lengths(half, half)), "total GLB length");
    }
}