humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

done adding ability to change different colours in both functional core and imperative shell

Browse Source
This commit is contained in:
Humza Shahid
2024-12-30 04:32:15 +00:00
parent fc69a0e4c3
commit 40c5222621
5 changed files with 89 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
ffi/glfw-input.c
View File

@@ -27,6 +27,17 @@ int KEY_LEFT = GLFW_KEY_LEFT;
int KEY_RIGHT = GLFW_KEY_RIGHT;
int KEY_DOWN = GLFW_KEY_DOWN;
int KEY_0 = GLFW_KEY_0;
int KEY_1 = GLFW_KEY_1;
int KEY_2 = GLFW_KEY_2;
int KEY_3 = GLFW_KEY_3;
int KEY_4 = GLFW_KEY_4;
int KEY_5 = GLFW_KEY_5;
int KEY_6 = GLFW_KEY_6;
int KEY_7 = GLFW_KEY_7;
int KEY_8 = GLFW_KEY_8;
int KEY_9 = GLFW_KEY_9;
// Calls function exported from SML
void mouseMoveCallback(GLFWwindow *window, double xpos, double ypos) {
mltonMouseMoveCallback((float)xpos, (float)ypos);

21
ffi/glfw-input.sml
View File

@@ -68,4 +68,25 @@ struct
_symbol "KEY_RIGHT" public : ( unit -> int ) * ( int -> unit );
val (KEY_DOWN, _) =
_symbol "KEY_DOWN" public : ( unit -> int ) * ( int -> unit );
val (KEY_0, _) =
_symbol "KEY_0" public : ( unit -> int ) * ( int -> unit );
val (KEY_1, _) =
_symbol "KEY_1" public : ( unit -> int ) * ( int -> unit );
val (KEY_2, _) =
_symbol "KEY_2" public : ( unit -> int ) * ( int -> unit );
val (KEY_3, _) =
_symbol "KEY_3" public : ( unit -> int ) * ( int -> unit );
val (KEY_4, _) =
_symbol "KEY_4" public : ( unit -> int ) * ( int -> unit );
val (KEY_5, _) =
_symbol "KEY_5" public : ( unit -> int ) * ( int -> unit );
val (KEY_6, _) =
_symbol "KEY_6" public : ( unit -> int ) * ( int -> unit );
val (KEY_7, _) =
_symbol "KEY_7" public : ( unit -> int ) * ( int -> unit );
val (KEY_8, _) =
_symbol "KEY_8" public : ( unit -> int ) * ( int -> unit );
val (KEY_9, _) =
_symbol "KEY_9" public : ( unit -> int ) * ( int -> unit );
end