head


my $ext_id = 1;
my $sub_id = 1;

enum CSGOperation is export <Union Intersection Subtraction>;

role Godot::Fun::Resource {
    has Str $.type;
}

role Godot::Fun::ExtResource does Godot::Fun::Resource {
    has Str $.path is required;
    has Int $.id;

    # TODO remove ugly workaround
    method TWEAK {
        $!id = $ext_id++;
    }

    method render() returns Str {
        my $path = self.path;
        my $type = self.type;
        my $id = self.id;
        my $text = qq{[ext_resource path="$path" type="$type" id=$id]\n\n};
        $text
    }
}

role Godot::Fun::SubResource does Godot::Fun::Resource {
    has Int $.id;

    # TODO remove ugly workaround
    method TWEAK {
        $!id = $sub_id++;
    }

    method render() returns Str {
        my $type = self.type;
        my $id = self.id;
        my $text = qq{[sub_resource type="$type" id=$id]\n};
        $text
    }
}

class Godot::Fun::TextureResource is Godot::Fun::ExtResource {
    has Str $.type = 'Texture';
}

class Godot::Fun::ArrayMeshResource is Godot::Fun::ExtResource {
    has Str $.type = 'ArrayMesh';
}

class Godot::Fun::Color {
    has Real $.red = 0.0;
    has Real $.green = 0.0;
    has Real $.blue = 0.0;
    has Real $.alpha = 1.0;
}

class Godot::Fun::SpatialMaterial is Godot::Fun::SubResource {
    has Str $.type = 'SpatialMaterial';
    has Godot::Fun::Color $.albedo_color;

    method render() returns Str {
        my $r = $.albedo_color.red;
        my $g = $.albedo_color.green;
        my $b = $.albedo_color.blue;
        my $a = $.albedo_color.alpha;
        my $text = self.Godot::Fun::SubResource::render;
        $text ~= qq{albedo_color = Color( $r, $g, $b, $a )\n\n};
        $text
    }
}

class Godot::Fun::CapsuleMeshResource is Godot::Fun::SubResource {
    has Str $.type = 'CapsuleMesh';
}

class Godot::Fun::CubeMeshResource is Godot::Fun::SubResource {
    has Str $.type = 'CubeMesh';
}

class Godot::Fun::CylinderMeshResource is Godot::Fun::SubResource {
    has Str $.type = 'CylinderMesh';
}

class Godot::Fun::PlaneMeshResource is Godot::Fun::SubResource {
    has Str $.type = 'PlaneMesh';
}
class Godot::Fun::PrismMeshResource is Godot::Fun::SubResource {
    has Str $.type = 'PrismMesh';
}

#TODO PointMeshResource

class Godot::Fun::QuadMeshResource is Godot::Fun::SubResource {
    has Str $.type = 'QuadMesh';
}

class Godot::Fun::SphereMeshResource is Godot::Fun::SubResource {
    has Str $.type = 'SphereMesh';
}

class Godot::Fun::TextMeshResource is Godot::Fun::SubResource {
    has Str $.type = 'TextMesh';
}

#TODO handle ShaderMaterial in the future
role Godot::Fun::HasAMaterial {
    has Godot::Fun::SpatialMaterial $.material;
}

role Godot::Fun::Node {
    has Str $.name = 'Node';
    has Str $.type = 'Node';
    has Str $.parent is rw = '.';
    has Bool $.is_root is rw;
    has Real $.tx = 0.0;
    has Real $.ty = 0.0;
    has Real $.tz = 0.0;
    has Real $.rx = 0.0;
    has Real $.ry = 0.0;
    has Real $.rz = 0.0;
    has Godot::Fun::Node @.children;

    method TWEAK {
        # Trim name
        $!name = $!name.trim;

        die "Empty node name is not allowed"
            if $!name eq '';

        #
        # Validate node name
        # node name should not contain the following chars:
        # .  :  @  /  "  %
        #
        my @bad_chars = '.', ':', '@', '/', '"', '%';
        for @bad_chars -> $bad_char {
            if $!name.contains($bad_char) {
                # Invalid node name
                die q{Node name should not contains the following characters:\n} ~ @bad_chars.join(' ');
            }
        }
    }

    method add(Godot::Fun::Node $child) {
        unless $child.is_root {
            #TODO fix parent node and root node
            #$child.parent = $!name;
        }
        @.children.push($child);
    }

    method render() returns Str {
        my $name = self.name;
        my $type = self.type;
        my $parent = self.parent;
        my $tx   = self.tx;
        my $ty   = self.ty;
        my $tz   = self.tz;
        my $text = qq{[node name="$name" type="$type" parent="$parent"]\n};
        unless $tx == 0 && $ty == 0 && $tz == 0 {
            $text ~= qq{transform = Transform( 1, 0, 0, 0, 1, 0, 0, 0, 1, $tx, $ty, $tz )\n};
        }
        if self.does(Godot::Fun::HasAMaterial) && self.material {
            my $material_id = self.material.id;
            $text ~= qq{material = SubResource( $material_id )\n};
        }
        for @.children -> $child {
            $text ~= $child.render;
        }
        $text ~= "\n";
        $text
    }
}


class Godot::Fun::Spatial is Godot::Fun::Node {
    has Str $.name = 'Spatial';
    has Str $.type = 'Spatial';
}

role Godot::Fun::CSGShape {
    has CSGOperation $.operation = Union;

    method render() {
        my $text = '';
        unless $!operation == Union {
            my Int $op = $.operation.Int;
            $text ~= qq{operation = $op\n};
        }
        $text
    }
}

class Godot::Fun::CSGBox is Godot::Fun::Node does Godot::Fun::HasAMaterial does Godot::Fun::CSGShape
{
    has Str $.name = 'CSGBox';
    has Str $.type = 'CSGBox';
    has Real $.width = 2;
    has Real $.height = 2;
    has Real $.depth = 2;

    method render() returns Str {
        my $text = self.Godot::Fun::Node::render;
        $text ~= self.Godot::Fun::CSGShape::render;
        $text ~= qq{width = $!width\n}
            if $!width != 2;
        $text ~= qq{height = $!height\n}
            if $!height != 2;
        $text ~= qq{depth = $!depth\n}
            if $!depth != 2;
        $text
    }
}

class Godot::Fun::CSGCylinder is Godot::Fun::Node does Godot::Fun::HasAMaterial does Godot::Fun::CSGShape
{
    has Str $.name = 'CSGCylinder';
    has Str $.type = 'CSGCylinder';
    has Real $.radius = 1;
    has Real $.height = 1;
    has Int $.sides = 8;
    has Bool $.cone;
    has Bool $.smooth_faces = True;

    method render() returns Str {
        my $text = self.Godot::Fun::Node::render;
        $text ~= self.Godot::Fun::CSGShape::render;
        $text ~= qq{radius = $!radius\n}
            if $!radius != 1;
        $text ~= qq{height = $!height\n}
            if $!height != 1;
        $text ~= qq{sides = $!sides\n}
            if $!sides != 8;
        $text ~= qq{cone = true\n}
            if $!cone;
        $text ~= qq{smooth_faces = False\n}
            unless $!smooth_faces;;
        $text
    }
}

class Godot::Fun::CSGMesh is Godot::Fun::Node does Godot::Fun::CSGShape
 {
    has Str $.name = 'CSGMesh';
    has Str $.type = 'CSGMesh';
}

class Godot::Fun::CSGPolygon is Godot::Fun::Node does Godot::Fun::HasAMaterial does Godot::Fun::CSGShape
 {
    has Str $.name = 'CSGPolygon';
    has Str $.type = 'CSGPolygon';
}

class Godot::Fun::CSGSphere is Godot::Fun::Node does Godot::Fun::HasAMaterial does Godot::Fun::CSGShape
 {

    has Str $.name = 'CSGSphere';
    has Str $.type = 'CSGSphere';
    has Real $.radius = 1.0;
    has Int $.radial_segments = 12;
    has Int $.rings = 6;
    has Bool $.smooth_faces = True;

    method render() returns Str {
        my $text = self.Godot::Fun::Node::render;
        $text ~= self.Godot::Fun::CSGShape::render;
        $text ~= qq{radius = $!radius\n}
            if $!radius != 1.0;
        $text ~= qq{radial_segments = $!radial_segments\n}
            if $!radial_segments != 12;
        $text ~= qq{rings = $!rings\n}
            if $!rings != 6;
        $text ~= qq{smooth_faces = False\n}
            unless $!smooth_faces;
        $text
    }
}

class Godot::Fun::CSGTorus is Godot::Fun::Node does Godot::Fun::HasAMaterial does Godot::Fun::CSGShape
 {
    has Str $.name = 'CSGTorus';
    has Str $.type = 'CSGTorus';
    has Real $.inner_radius = 2.0;
    has Real $.outer_radius = 3.0;
    has Int $.ring_sides = 6;
    has Int $.sides = 8;
    has Bool $.smooth_faces = True;

    method render() returns Str {
        my $text = self.Godot::Fun::Node::render;
        $text ~= self.Godot::Fun::CSGShape::render;
        $text ~= qq{inner_radius = $!inner_radius\n}
            if $!inner_radius != 2.0;
        $text ~= qq{outer_radius = $!outer_radius\n}
            if $!outer_radius != 3.0;
        $text ~= qq{ring_sides = $!ring_sides\n}
            if $!ring_sides != 6;
        $text ~= qq{sides = $!sides\n}
            if $!sides != 8;
        $text ~= qq{smooth_faces = False\n}
            unless $!smooth_faces;
        $text
    }
}

class Godot::Fun::CSGCombiner is Godot::Fun::Node {
    has Str $.name = 'CSGCombiner';
    has Str $.type = 'CSGCombiner';
}

class Godot::Fun::DirectionalLight is Godot::Fun::Node {
    has Str $.name= 'DirectionalLight';
    has Str $.type = 'DirectionalLight';
    has Bool $.shadow_enabled;

    method render() returns Str {
        my $text = self.Godot::Fun::Node::render;
        $text ~= qq{shadow_enabled = true\n} if $!shadow_enabled;
        $text
    }
}

class Godot::Fun::Camera is Godot::Fun::Node {
    has Str $.name = 'Camera';
    has Str $.type = 'Camera';
}

class Godot::Fun::Sprite3D is Godot::Fun::Node {
    has Str $.name = 'Sprite3D';
    has Str $.type = 'Sprite3D';
    has Godot::Fun::TextureResource $.texture;

    method render() returns Str {
        my $id = $!texture.id;
        my $text = self.Godot::Fun::Node::render;
        $text ~= qq{texture = ExtResource( $id )\n};
        $text
    }
}


class Godot::Fun::MeshInstance is Godot::Fun::Node {
    has Str $.name = 'MeshInstance';
    has Str $.type = 'MeshInstance';
    has Godot::Fun::Resource $.mesh;

    method render() returns Str {
        my $id = $!mesh.id;
        my $text = self.Godot::Fun::Node::render;
        if $!mesh ~~ Godot::Fun::ArrayMeshResource {
           $text ~= qq{mesh = ExtResource( $id )\n};
        } elsif $!mesh ~~ Godot::Fun::CapsuleMeshResource {
           $text ~= qq{mesh = SubResource( $id )\n};
        } elsif $!mesh ~~ Godot::Fun::CubeMeshResource {
           $text ~= qq{mesh = SubResource( $id )\n};
        } elsif $!mesh ~~ Godot::Fun::CylinderMeshResource {
           $text ~= qq{mesh = SubResource( $id )\n};
        } elsif $!mesh ~~ Godot::Fun::PlaneMeshResource {
           $text ~= qq{mesh = SubResource( $id )\n};
        } elsif $!mesh ~~ Godot::Fun::PrismMeshResource {
           $text ~= qq{mesh = SubResource( $id )\n};
        } elsif $!mesh ~~ Godot::Fun::QuadMeshResource {
           $text ~= qq{mesh = SubResource( $id )\n};
        } elsif $!mesh ~~ Godot::Fun::SphereMeshResource {
           $text ~= qq{mesh = SubResource( $id )\n};
        } elsif $!mesh ~~ Godot::Fun::TextMeshResource {
           $text ~= qq{mesh = SubResource( $id )\n};
        } else {
            die "Unhandled resource type: $!mesh";
        }
        $text
    }
}

my %colors;
my %materials;

enum ColorName is export <red green blue yellow pink grey orange dark_green>;

sub color(ColorName $name) is export {
    unless %colors{$name}:exists {
        my $color;
        given $name {
            when red    { $color = Godot::Fun::Color.new(red => 1); }
            when green  { $color = Godot::Fun::Color.new(green => 1); }
            when blue   { $color = Godot::Fun::Color.new(blue => 1); }
            when yellow { $color = Godot::Fun::Color.new(red => 1, green => 1); }
            when pink   { $color = Godot::Fun::Color.new(red => 1, blue => 1); }
            when grey   { $color = Godot::Fun::Color.new(red => 0.5, green => 0.5, blue => 0.5); }
            when orange { $color = Godot::Fun::Color.new(red => 1, green => 0.6); }
            when dark_green { $color = Godot::Fun::Color.new(green => 0.5); }
            default { die "Cannot find color '$name';" }
        }
        %colors{$name} = $color;
    }
    return %colors{$name};
}

sub material(ColorName $color_name) is export {
    unless %materials{$color_name}:exists {
        my $color = color($color_name);
        %materials{$color_name} = Godot::Fun::SpatialMaterial.new(albedo_color => $color);
    }
    return %materials{$color_name};
}


root

README

02-mesh

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Name

Description