aboutsummaryrefslogtreecommitdiff
path: root/code
diff options
context:
space:
mode:
Diffstat (limited to 'code')
-rw-r--r--code/lib/io.felan8
-rw-r--r--code/main.felan168
-rw-r--r--code/main2.felan210
3 files changed, 163 insertions, 223 deletions
diff --git a/code/lib/io.felan b/code/lib/io.felan
index d470331..daca38e 100644
--- a/code/lib/io.felan
+++ b/code/lib/io.felan
@@ -18,6 +18,14 @@ print_char :: (value:u8) -> void {
putchar(@cast(value,i32));
};
+print :: (value:[]u8) -> void {
+ i := 0u64;
+ while i < value.length {
+ print_char(value[i]);
+ i += 1u64;
+ }
+};
+
print :: (value:i8) -> void {
_print_signed(@type_of(value),value);
};
diff --git a/code/main.felan b/code/main.felan
index b8b41ec..1cb89ca 100644
--- a/code/main.felan
+++ b/code/main.felan
@@ -1,169 +1,19 @@
@import("basic.felan");
-raylib :: @c_library("/usr/lib/libraylib.so.5.5.0");
-InitWindow :: @c_function(raylib,"InitWindow",(i32,i32,*u8)->void);
-SetTargetFPS :: @c_function(raylib,"SetTargetFPS",(i32)->void);
-WindowShouldClose :: @c_function(raylib,"WindowShouldClose",()->bool);
-CloseWindow :: @c_function(raylib,"CloseWindow",()->void);
-BeginDrawing :: @c_function(raylib,"BeginDrawing",()->void);
-ClearBackground :: @c_function(raylib,"ClearBackground",(Color)->void);
-EndDrawing :: @c_function(raylib,"EndDrawing",()->void);
-IsKeyPressed :: @c_function(raylib,"IsKeyPressed",(i32)->bool);
-IsGestureDetected :: @c_function(raylib,"IsGestureDetected",(u32)->bool);
-DrawText :: @c_function(raylib,"DrawText",(*u8,i32,i32,i32,Color)->void);
-DrawRectangle :: @c_function(raylib,"DrawRectangle",(i32,i32,i32,i32,Color)->void);
-GetFPS :: @c_function(raylib,"GetFPS",()->i32);
-DrawLine :: @c_function(raylib,"DrawLine",(startPosX:i32,startPosY:i32,endPosX:i32,endPosY:i32,color:Color)->void);
+f :: (a:[]u8)->void{
+ i := 0u64;
-Color :: struct {
- r:u8;
- g:u8;
- b:u8;
- a:u8;
-};
-
-KEY_ENTER :: 257i32;
-
-GESTURE_TAP :: 1u32;
-
-LOGO :: 0;
-TITLE :: 1;
-GAMEPLAY :: 2;
-ENDING :: 3;
-
-SCREEN_WIDTH :: 800i32;
-SCREEN_HEIGHT :: 450i32;
-
-RAYWHITE :: color(245u8,245u8,245u8,255u8);
-LIGHTGRAY :: color(200u8,200u8,200u8,255u8);
-GRAY :: color(130u8,130u8,130u8,255u8);
-GREEN :: color(0u8,228u8,48u8,255u8);
-DARKGREEN :: color(0u8,117u8,44u8,255u8);
-BLUE :: color(0u8,121u8,241u8,255u8);
-DARKBLUE :: color(0u8,82u8,172u8,255u8);
-PURPLE :: color(200u8,122u8,255u8,255u8);
-MAROON :: color(100u8,33u8,55u8,255u8);
-
-main :: () -> void {
- title := "Hello\0";
-
- InitWindow(SCREEN_WIDTH,SCREEN_HEIGHT,title.ptr);
+ while i < a.length {
+ c := a[i];
+ if c == '{' {
- currentScreen := LOGO;
-
- framesCounter := 0i32;
-
- TARGET_FPS :: 144i32;
- SetTargetFPS(TARGET_FPS);
-
- while(!WindowShouldClose()){
- if currentScreen == LOGO {
- framesCounter += 1i32;
- if framesCounter > TARGET_FPS * 2i32 {
- currentScreen = TITLE;
- }
- } else if currentScreen == TITLE {
- if IsKeyPressed(KEY_ENTER) || IsGestureDetected(GESTURE_TAP) {
- currentScreen = GAMEPLAY;
- }
- } else if currentScreen == GAMEPLAY {
- if IsKeyPressed(KEY_ENTER) || IsGestureDetected(GESTURE_TAP) {
- currentScreen = ENDING;
- }
- } else if currentScreen == ENDING {
- if IsKeyPressed(KEY_ENTER) || IsGestureDetected(GESTURE_TAP) {
- currentScreen = TITLE;
- }
}
-
- BeginDrawing();
-
- if currentScreen == LOGO {
- drawLogo();
- } else if currentScreen == TITLE {
- ClearBackground(GREEN);
- title := "TITLE SCREEN\0";
- DrawText(title.ptr,20i32,20i32,40i32,DARKGREEN);
- text := "PRESS ENTER or TAP to JUMP to GAMEPLAY SCREEN\0";
- DrawText(text.ptr,120i32,220i32,20i32,DARKGREEN);
- } else if currentScreen == GAMEPLAY {
- drawGamePlay();
- } else if currentScreen == ENDING {
- ClearBackground(BLUE);
- title := "ENDING SCREEN\0";
- DrawText(title.ptr,20i32,20i32,40i32,DARKBLUE);
- text := "PRESS ENTER or TAP to RETURN to TITLE SCREEN\0";
- DrawText(text.ptr,120i32,220i32,20i32,DARKBLUE);
- } else {
- println(-1);
- return;
- }
-
- EndDrawing();
+ print_char(a[i]);
+ i += 1u64;
}
-
- CloseWindow();
};
-drawLogo :: () -> void {
- ClearBackground(RAYWHITE);
- title := "LOGO SCREEN\0";
- DrawText(title.ptr,20i32,20i32,40i32,LIGHTGRAY);
- text := "WAIT for 2 SECONDS...\0";
- DrawText(text.ptr,290i32,220i32,20i32,LIGHTGRAY);
-};
-
-x := 0i32;
-y := 0i32;
-
-dx := 1i32;
-dy := 1i32;
-
-RECT_SIZE :: 40i32;
-
-drawGamePlay :: () -> void {
- ClearBackground(PURPLE);
- title := "GAMEPLAY SCREEN\0";
- DrawText(title.ptr,20i32,20i32,40i32,MAROON);
- text := "PRESS ENTER or TAP to JUMP to ENDING SCREEN\0";
- DrawText(text.ptr,130i32,220i32,20i32,MAROON);
- DrawRectangle(x,y,RECT_SIZE,RECT_SIZE,MAROON);
- DrawLine(SCREEN_WIDTH/2i32,0i32,SCREEN_WIDTH/2i32,SCREEN_HEIGHT,MAROON);
-
- x += dx;
- y += dy;
- if x <= 0i32 {
- dx = 1i32;
- } else if x+RECT_SIZE >= SCREEN_WIDTH {
- dx = -1i32;
- }
-
- if y <= 0i32 {
- dy = 1i32;
- } else if y+RECT_SIZE >= SCREEN_HEIGHT {
- dy = -1i32;
- }
-};
-
-color :: (r:u8,g:u8,b:u8,a:u8)->Color {
- result:Color = undefined;
-
- result.r = r;
- result.g = g;
- result.b = b;
- result.a = a;
-
- return result;
+main :: () -> void {
+ f("Hello {a} How {b}");
};
-
-color :: (value : u32) -> Color {
- result:Color = undefined;
-
- result.r = @cast(value >> @cast(3*8,u32),u8);
- result.g = @cast(value >> @cast(2*8,u32),u8);
- result.b = @cast(value >> @cast(1*8,u32),u8);
- result.a = @cast(value >> @cast(0*8,u32),u8);
-
- return result;
-};
diff --git a/code/main2.felan b/code/main2.felan
index ffa3a5b..b8b41ec 100644
--- a/code/main2.felan
+++ b/code/main2.felan
@@ -1,15 +1,19 @@
@import("basic.felan");
-raylib :: @c_library("/lib/libraylib.so.5.5.0");
+raylib :: @c_library("/usr/lib/libraylib.so.5.5.0");
InitWindow :: @c_function(raylib,"InitWindow",(i32,i32,*u8)->void);
+SetTargetFPS :: @c_function(raylib,"SetTargetFPS",(i32)->void);
WindowShouldClose :: @c_function(raylib,"WindowShouldClose",()->bool);
-BeginDrawing :: @c_function(raylib,"BeginDrawing",()->void);
-EndDrawing :: @c_function(raylib,"EndDrawing",()->void);
CloseWindow :: @c_function(raylib,"CloseWindow",()->void);
+BeginDrawing :: @c_function(raylib,"BeginDrawing",()->void);
ClearBackground :: @c_function(raylib,"ClearBackground",(Color)->void);
+EndDrawing :: @c_function(raylib,"EndDrawing",()->void);
+IsKeyPressed :: @c_function(raylib,"IsKeyPressed",(i32)->bool);
+IsGestureDetected :: @c_function(raylib,"IsGestureDetected",(u32)->bool);
DrawText :: @c_function(raylib,"DrawText",(*u8,i32,i32,i32,Color)->void);
-// void DrawRectangle(int posX, int posY, int width, int height, Color color);
-DrawRectangle :: @c_function(raylib,"DrawRectangle",(posX:i32,posY:i32,width:i32,height:i32,color:Color)->void);
+DrawRectangle :: @c_function(raylib,"DrawRectangle",(i32,i32,i32,i32,Color)->void);
+GetFPS :: @c_function(raylib,"GetFPS",()->i32);
+DrawLine :: @c_function(raylib,"DrawLine",(startPosX:i32,startPosY:i32,endPosX:i32,endPosY:i32,color:Color)->void);
Color :: struct {
r:u8;
@@ -18,70 +22,148 @@ Color :: struct {
a:u8;
};
-main :: ()->void{
- b := "raylib [core] example - basic window\0";
- c := "Congrats! You created your first window!\0";
- str := &b[0];
- str2 := &c[0];
- screenWidth :i32: 800;
- screenHeight :i32: 450;
- a : u8 : 255;
- b : u8 : 0;
- WHITE :: color(a,a,a,a);
- BLACK :: color(@cast(0xff0000ff,u32));
- InitWindow(screenWidth,screenHeight,str);
- rect_posx :i32= 0;
- rect_posy :i32= 0;
- dx : i32 = 1;
- dy : i32 = 1;
- while !WindowShouldClose() {
- BeginDrawing();
- ClearBackground(WHITE);
- DrawRectangle(rect_posx,rect_posy,@cast(200,i32),@cast(40,i32),color(@cast(0x00ffff,u32)));
- DrawText(str2,@cast(190,i32),@cast(200,i32),@cast(20,i32),BLACK);
- EndDrawing();
- rect_posx += dx;
- rect_posy += dy;
- /*
- print(rect_posx);
- print_char(' ');
- print(rect_posy);
- print_char('\n');
- */
- if rect_posx >= screenWidth {
- print("hello");
- print(dx);
- print("\n");
- dx = @cast(-1,i32);
- }else if rect_posx < @cast(0,i32) {
- dx = @cast(1,i32);
+KEY_ENTER :: 257i32;
+
+GESTURE_TAP :: 1u32;
+
+LOGO :: 0;
+TITLE :: 1;
+GAMEPLAY :: 2;
+ENDING :: 3;
+
+SCREEN_WIDTH :: 800i32;
+SCREEN_HEIGHT :: 450i32;
+
+RAYWHITE :: color(245u8,245u8,245u8,255u8);
+LIGHTGRAY :: color(200u8,200u8,200u8,255u8);
+GRAY :: color(130u8,130u8,130u8,255u8);
+GREEN :: color(0u8,228u8,48u8,255u8);
+DARKGREEN :: color(0u8,117u8,44u8,255u8);
+BLUE :: color(0u8,121u8,241u8,255u8);
+DARKBLUE :: color(0u8,82u8,172u8,255u8);
+PURPLE :: color(200u8,122u8,255u8,255u8);
+MAROON :: color(100u8,33u8,55u8,255u8);
+
+main :: () -> void {
+ title := "Hello\0";
+
+ InitWindow(SCREEN_WIDTH,SCREEN_HEIGHT,title.ptr);
+
+ currentScreen := LOGO;
+
+ framesCounter := 0i32;
+
+ TARGET_FPS :: 144i32;
+ SetTargetFPS(TARGET_FPS);
+
+ while(!WindowShouldClose()){
+ if currentScreen == LOGO {
+ framesCounter += 1i32;
+ if framesCounter > TARGET_FPS * 2i32 {
+ currentScreen = TITLE;
+ }
+ } else if currentScreen == TITLE {
+ if IsKeyPressed(KEY_ENTER) || IsGestureDetected(GESTURE_TAP) {
+ currentScreen = GAMEPLAY;
+ }
+ } else if currentScreen == GAMEPLAY {
+ if IsKeyPressed(KEY_ENTER) || IsGestureDetected(GESTURE_TAP) {
+ currentScreen = ENDING;
+ }
+ } else if currentScreen == ENDING {
+ if IsKeyPressed(KEY_ENTER) || IsGestureDetected(GESTURE_TAP) {
+ currentScreen = TITLE;
+ }
}
- if rect_posy >= screenHeight {
- print("hi");
- print(dy);
- print("\n");
- dy = @cast(-@cast(1,i32),i32);
- }else if rect_posy < @cast(0,i32) {
- dy = @cast(1,i32);
+
+ BeginDrawing();
+
+ if currentScreen == LOGO {
+ drawLogo();
+ } else if currentScreen == TITLE {
+ ClearBackground(GREEN);
+ title := "TITLE SCREEN\0";
+ DrawText(title.ptr,20i32,20i32,40i32,DARKGREEN);
+ text := "PRESS ENTER or TAP to JUMP to GAMEPLAY SCREEN\0";
+ DrawText(text.ptr,120i32,220i32,20i32,DARKGREEN);
+ } else if currentScreen == GAMEPLAY {
+ drawGamePlay();
+ } else if currentScreen == ENDING {
+ ClearBackground(BLUE);
+ title := "ENDING SCREEN\0";
+ DrawText(title.ptr,20i32,20i32,40i32,DARKBLUE);
+ text := "PRESS ENTER or TAP to RETURN to TITLE SCREEN\0";
+ DrawText(text.ptr,120i32,220i32,20i32,DARKBLUE);
+ } else {
+ println(-1);
+ return;
}
+
+ EndDrawing();
}
+
CloseWindow();
};
-color :: (a:u8,r:u8,g:u8,b:u8)->Color{
- c : Color = undefined;
- c.r = r;
- c.g = g;
- c.b = b;
- c.a = a;
- return c;
+drawLogo :: () -> void {
+ ClearBackground(RAYWHITE);
+ title := "LOGO SCREEN\0";
+ DrawText(title.ptr,20i32,20i32,40i32,LIGHTGRAY);
+ text := "WAIT for 2 SECONDS...\0";
+ DrawText(text.ptr,290i32,220i32,20i32,LIGHTGRAY);
};
-color :: (value:u32)->Color{
- c : Color = undefined;
- c.r = @cast((value&@cast(0xff000000,u32))>>@cast(6*4,u32),u8);
- c.g = @cast((value&@cast(0x00ff0000,u32))>>@cast(4*4,u32),u8);
- c.b = @cast((value&@cast(0x0000ff00,u32))>>@cast(2*4,u32),u8);
- c.a = @cast((value&@cast(0x000000ff,u32))>>@cast(0*4,u32),u8);
- return c;
-}
+x := 0i32;
+y := 0i32;
+
+dx := 1i32;
+dy := 1i32;
+
+RECT_SIZE :: 40i32;
+
+drawGamePlay :: () -> void {
+ ClearBackground(PURPLE);
+ title := "GAMEPLAY SCREEN\0";
+ DrawText(title.ptr,20i32,20i32,40i32,MAROON);
+ text := "PRESS ENTER or TAP to JUMP to ENDING SCREEN\0";
+ DrawText(text.ptr,130i32,220i32,20i32,MAROON);
+ DrawRectangle(x,y,RECT_SIZE,RECT_SIZE,MAROON);
+ DrawLine(SCREEN_WIDTH/2i32,0i32,SCREEN_WIDTH/2i32,SCREEN_HEIGHT,MAROON);
+
+ x += dx;
+ y += dy;
+ if x <= 0i32 {
+ dx = 1i32;
+ } else if x+RECT_SIZE >= SCREEN_WIDTH {
+ dx = -1i32;
+ }
+
+ if y <= 0i32 {
+ dy = 1i32;
+ } else if y+RECT_SIZE >= SCREEN_HEIGHT {
+ dy = -1i32;
+ }
+};
+
+color :: (r:u8,g:u8,b:u8,a:u8)->Color {
+ result:Color = undefined;
+
+ result.r = r;
+ result.g = g;
+ result.b = b;
+ result.a = a;
+
+ return result;
+};
+
+
+color :: (value : u32) -> Color {
+ result:Color = undefined;
+
+ result.r = @cast(value >> @cast(3*8,u32),u8);
+ result.g = @cast(value >> @cast(2*8,u32),u8);
+ result.b = @cast(value >> @cast(1*8,u32),u8);
+ result.a = @cast(value >> @cast(0*8,u32),u8);
+
+ return result;
+};
generated by cgit v1.2.3 (git 2.39.1) at 2025-09-10 22:46:41 +0000