void InitWindow(int width, int height, const char *title);
void SetTargetFPS(int fps);
bool WindowShouldClose(void);
void BeginDrawing(void);
void EndDrawing(void); 
void CloseWindow(void);
void ClearBackground(Color color);
void DrawText(const char *text, int posX, int posY, int fontSize, Color color); 

typedef struct Color {
    unsigned char r;
    unsigned char g;
    unsigned char b;
    unsigned char a;
} Color;

##</code><code>##

use NativeCall;

class Color is repr('CStruct') {
	has uint8 $.r;
	has uint8 $.g;
	has uint8 $.b;
	has uint8 $.a;
}

sub InitWindow(int32, int32, Str) is native('raylib.dll') { * }
sub SetTargetFPS(int32) is native('raylib.dll') { * }
sub WindowShouldClose() returns int32 is native('raylib.dll') { * }
sub BeginDrawing() is native('raylib.dll') { * }
sub EndDrawing() is native('raylib.dll') { * }
sub CloseWindow() is native('raylib.dll') { * }
sub ClearBackground(Color) is native('raylib.dll') { * }
sub DrawText(Str, int32, int32, int32, Color) is native('raylib.dll') { * }

InitWindow(800, 450, "Hello world!");
SetTargetFPS(60);

my $color = Color.new(r => 255, g => 0, b => 0, a => 255);
my $textColor = Color.new(r => 0, g => 0, b => 255, a => 255);

while (!WindowShouldClose()) {
	BeginDrawing();

	ClearBackground($color);
	DrawText("Congrats! You created your first window!", 190, 200, 20, $textColor);

	EndDrawing();
}

CloseWindow();