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

reduce number of type conversoins required for mouse move callback (and fix the other code which uses it too)

Browse Source
This commit is contained in:
Humza Shahid
2024-08-01 21:17:39 +01:00
parent 39b8b45b45
commit 0fc6201231
7 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
ffi/export.h
View File

@@ -157,7 +157,7 @@ typedef Pointer Objptr;
extern "C" {
#endif
MLLIB_PUBLIC(void mltonMouseMoveCallback (Int32 x0, Int32 x1);)
MLLIB_PUBLIC(void mltonMouseMoveCallback (Real32 x0, Real32 x1);)
MLLIB_PUBLIC(void mltonMouseClickCallback (Int32 x0, Int32 x1);)
#undef MLLIB_PRIVATE

2
ffi/glfw-input.c
View File

@@ -7,7 +7,7 @@ int LEFT_MOUSE_BUTTON = GLFW_MOUSE_BUTTON_1;
// Calls function exported from SML
void mouseMoveCallback(GLFWwindow *window, double xpos, double ypos) {
mltonMouseMoveCallback((int)xpos, (int)ypos);
mltonMouseMoveCallback((float)xpos, (float)ypos);
}
void mouseClickCallback(GLFWwindow *window, int button, int action, int mods) {

2
ffi/glfw-input.sml
View File

@@ -4,7 +4,7 @@ struct
(* Export function to C. *)
val exportMouseMoveCallback =
_export "mltonMouseMoveCallback" public : (int * int -> unit) -> unit;
_export "mltonMouseMoveCallback" public : (Real32.real * Real32.real -> unit) -> unit;
(* Import function to set callback for GLFW. *)
val setMouseMoveCallback = _import "setMouseMoveCallback" public reentrant : window -> unit;