feat(app): support hidpi

Author: yuchanns

src/appevent.h

@@ -15,8 +15,22 @@ mouse_message(struct event_message *em, const sapp_event* ev) {
 	switch (ev->type) {
 	case SAPP_EVENTTYPE_MOUSE_MOVE:
 		em->typestr = "mouse_move";
-		em->p1 = ev->mouse_x;
-		em->p2 = ev->mouse_y;
+	{
+		float dpi_scale = sapp_dpi_scale();
+		if (dpi_scale <= 0.0f) {
+			dpi_scale = 1.0f;
+		}
+		float logical_x = ev->mouse_x / dpi_scale;
+		float logical_y = ev->mouse_y / dpi_scale;
+		if (logical_x >= 0.0f)
+			em->p1 = (int)(logical_x + 0.5f);
+		else
+			em->p1 = (int)(logical_x - 0.5f);
+		if (logical_y >= 0.0f)
+			em->p2 = (int)(logical_y + 0.5f);
+		else
+			em->p2 = (int)(logical_y - 0.5f);
+	}
 		break;
 	case SAPP_EVENTTYPE_MOUSE_DOWN:
 	case SAPP_EVENTTYPE_MOUSE_UP:

src/entry.c

@@ -792,9 +792,15 @@ static const char *code = "local embed = require 'soluna.embedsource' ; local f
 static void
 set_app_info(lua_State *L, int index) {
 	lua_newtable(L);
-	lua_pushinteger(L, sapp_width());
+	const float dpi_scale = sapp_dpi_scale();
+	const float safe_scale = dpi_scale > 0.0f ? dpi_scale : 1.0f;
+	const int fb_width = sapp_width();
+	const int fb_height = sapp_height();
+	const int logical_width = (int)((float)fb_width / safe_scale + 0.5f);
+	const int logical_height = (int)((float)fb_height / safe_scale + 0.5f);
+	lua_pushinteger(L, logical_width);
 	lua_setfield(L, -2, "width");
-	lua_pushinteger(L, sapp_height());
+	lua_pushinteger(L, logical_height);
 	lua_setfield(L, -2, "height");
 	lua_setfield(L, index, "app");
 }
@@ -999,7 +1005,8 @@ sokol_main(int argc, char* argv[]) {
 
 	sapp_desc d;
 	memset(&d, 0, sizeof(d));
-		
+
+	d.high_dpi = true;
 	d.width = 1024;
 	d.height = 768;
 	d.init_cb = app_init;