From e8972a0c2f344e109a9763a396f3ef54a646dfaa Mon Sep 17 00:00:00 2001
From: Mitya Selivanov <automainint@guattari.tech>
Date: Thu, 16 Jan 2025 23:23:07 +0100
Subject: Add wheel event on Web

---
 index.htm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'index.htm')

diff --git a/index.htm b/index.htm
index 437b932..ada10e2 100644
--- a/index.htm
+++ b/index.htm
@@ -141,6 +141,13 @@
                 this.program.exports.js_keyup(ev.key, ev.mod);
               },
 
+              wheel : (ev) => {
+                if (this.program === undefined)
+                  return;
+
+                this.program.exports.js_wheel(ev.x * -0.01, ev.y * -0.01);
+              },
+
               paste : (ev) => {
                 if (this.program === undefined)
                   return;
@@ -559,6 +566,18 @@
           });
         });
 
+        window.addEventListener("wheel", (ev) => {
+          ev.preventDefault();
+          if (!sound_ready)
+            return;
+
+          sound_node.port.postMessage({
+            id : "wheel",
+            x  : ev.deltaX,
+            y  : ev.deltaY,
+          });
+        });
+
         window.addEventListener("paste", (ev) => {
           ev.preventDefault();
           if (!sound_ready)
-- 
cgit v1.2.3