TODO.md

my $texture_resource = texture_resource.name('Camelia.png');
$scene
	.add(csg-box.name('Box'))
	.add(sprite3d.name('Sprite3D').tx(5).texture($texture_resource);

# transform = Transform( -0.943089, -0.33254, 0, 0.33254, -0.943089, 0, 0, 0, 1, 0, 0, 0 )

# [sub_resource type="Animation" id=1]
# resource_name = "Anim #1"
# tracks/0/type = "value"
# tracks/0/path = NodePath("Cube:translation")
# tracks/0/interp = 1
# tracks/0/loop_wrap = true
# tracks/0/imported = false
# tracks/0/enabled = true
# tracks/0/keys = {
# "times": PoolRealArray( 0, 1 ),
# "transitions": PoolRealArray( 1, 1 ),
# "update": 0,
# "values": [ Vector3( 0, 0, 4 ), Vector3( 0, 0, -5 ) ]
# }

# [sub_resource type="Animation" id=2]
# length = 0.001
# tracks/0/type = "value"
# tracks/0/path = NodePath("Cube:translation")
# tracks/0/interp = 1
# tracks/0/loop_wrap = true
# tracks/0/imported = false
# tracks/0/enabled = true
# tracks/0/keys = {
# "times": PoolRealArray( 0 ),
# "transitions": PoolRealArray( 1 ),
# "update": 0,
# "values": [ Vector3( 0, 0, 4 ) ]
# }

sub validate_name($name) {
    die "Invalid name: $name" if $name.contains("%");
}

sub node($name, $type = 'Node') {
    validate_name($name);
    %(name => $name, type => $type, children => []);
}

sub node_render(%node) {
    qq{[name = "%node<name>", type = "%node<type>"]}
}

sub csgbox($name, $type = 'CSGBox') {
    node($name, $type);
}

sub csgbox_render(%box) {
    node_render(%box) ~
    "\n" ~
    "scale = (1,1,1)"
}

sub cylinder($name, $type = 'CSGCylinder') {
    node($name, $type);
}

sub scene($name) {
    %(name => $name, children => []);
}

sub scene_add(%scene, %rec) {
    my $name = %rec<name>;
    for @(%scene<children>) -> %child {
        die "Duplicate name: $name"
            if $name eq %child<name>;
    }
    %scene<children>.push(%rec);
}

sub scene_render(%scene) {
    my $text = qq{[scene name="%scene<name>"]\n};
    for @(%scene<children>) -> %child {
        given %child<type> {
            when 'Node'   { $text ~= node_render(%child) ~ "\n";   }
            when 'CSGBox' { $text ~= csgbox_render(%child) ~ "\n"; }
        }
    }
    $text
}