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

progress adding ability to change colour of triangle

Browse Source
This commit is contained in:
Humza Shahid
2024-12-30 03:41:11 +00:00
parent b41cb87b41
commit 5dde0517cc
6 changed files with 30 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ffi/glfw-input.c
View File

@@ -6,7 +6,11 @@ int PRESS = GLFW_PRESS;
int RELEASE = GLFW_RELEASE;
int LEFT_MOUSE_BUTTON = GLFW_MOUSE_BUTTON_1;
int KEY_R = GLFW_KEY_R;
int KEY_G = GLFW_KEY_G;
int KEY_B = GLFW_KEY_B;
int KEY_T = GLFW_KEY_T;
int KEY_Y = GLFW_KEY_Y;
int KEY_Z = GLFW_KEY_Z;

7
ffi/glfw-input.sml
View File

@@ -31,8 +31,15 @@ struct
_export "mltonKeyCallback" public : (int * int * int * int -> unit) -> unit;
val setKeyCallback = _import "setKeyCallback" public reentrant : window -> unit;
val (KEY_R, _) =
_symbol "KEY_R" public : ( unit -> int ) * ( int -> unit );
val (KEY_G, _) =
_symbol "KEY_G" public : ( unit -> int ) * ( int -> unit );
val (KEY_B, _) =
_symbol "KEY_B" public : ( unit -> int ) * ( int -> unit );
val (KEY_T, _) =
_symbol "KEY_T" public : ( unit -> int ) * ( int -> unit );
val (KEY_Y, _) =
_symbol "KEY_Y" public : ( unit -> int ) * ( int -> unit );
val (KEY_Z, _) =