first full version of time for ges

examples/curlywas/tim_ges.cwa

@@ -1,6 +1,4 @@
-include "../include/microw8-api.cwa"
-
-fn melody(ch: i32, T: i32) {
+fn melody(ch: i32, t: i32, T: i32) {
     let inline riff_pos = abs(((T&31) - 16) as f32) as i32;
     let lazy shift = ((1-((T>>5)&3))%2-1) * 2;
 
@@ -10,197 +8,52 @@ fn melody(ch: i32, T: i32) {
     let inline melody_note = shift + octave - riff_note;
 
     ch?0 = ((T&1) << 1) | 0x4; // note trigger
-    ch?4 = 0xa; // attack, decay
-    ch?5 = 0xa; // sustain, release
     ch?3 = melody_note + 64;
+
+    let inline arp_note = shift + ((0x85>>((t/2)%3*4)) & 15) - 1;
+    80?3 = arp_note + 64;
 }
 
 export fn upd() {
-    let T = 32!32 / 116;
-    melody(92, T);
-    melody(98, T - 3);
-    0x69?0 = 0xaf;
-}
+    let lazy t = 32!32 / (1000/60);
+    let lazy T = t / 8;
+    melody(98, t, T - 3);
+    melody(92, t, T);
 
-export fn snd(t: i32) -> f32 {
-    gesSample(t)
-}
+    80?0 = ((T >= 256) & (T/12+(T-3)/12)) * 2 | 0x4; // arp trigger
 
-const GesChannelState.Trigger = 0;
-const GesChannelState.EnvState = 1;
-const GesChannelState.EnvVol = 2;
-const GesChannelState.Phase = 4;
-const GesChannelState.Size = 6;
-
-const GesState.Filter = GesChannelState.Size * 4;
-const GesState.Size = GesState.Filter + 8*4;
-
-const GesStateOffset = 112;
-const GesBufferOffset = 112 + GesState.Size;
-
-fn gesSample(t: i32) -> f32 {
-    if !(t & 127) {
-        let i: i32;
-        loop clearLoop {
-            i!GesBufferOffset = 0;
-            branch_if (i := i + 4) < 128*8: clearLoop;
-        }
-
-        let ch: i32;
-        loop channelLoop {
-            let channelState = GesStateOffset + ch * GesChannelState.Size;
-            let channelReg = 80 + ch * 6;
-            let envState = channelState?GesChannelState.EnvState;
-            let envVol = i32.load16_u(channelState, GesChannelState.EnvVol);
-
-            let oldTrigger = channelState?GesChannelState.Trigger;
-            let ctrl = channelReg?0;
-            channelState?GesChannelState.Trigger = ctrl;
-            if (oldTrigger ^ ctrl) & (ctrl | 2) & 3 {
-                envState = 1;
-                envVol = 0;
-            }
-
-            if envState {
-                envVol = envVol + (16384 / ((channelReg?4 >> 4) + 1));
-                if envVol >= 65535 {
-                    envVol = 65535;
-                    envState = 0;
-                }
+    if T >= 128 {
+        let inline bass_step = T % 8;
+        86?3 = if bass_step / 2 == 2 {
+            86?0 = 0xc2;
+            90
         } else {
-                if !envState & ctrl {
-                    envVol = envVol - (16 - (channelReg?4 & 15)) * 48;
-                    let sustain = (channelReg?5 >> 4) * 4096;
-                    if envVol < sustain {
-                        envVol = sustain;
+            86?0 = ((197 >> bass_step) & 1) | 0x48;
+            ((T & 4) * ((T & 7) - 1)) / 2 + 28
+        };
     }
-                } else {
-                    envVol = envVol - (16 - (channelReg?5 & 15)) * 48;
-                    if envVol < 0 {
-                        envVol = 0;
-                    }
-                }
-            }
-            channelState?GesChannelState.EnvState = envState;
-
-            i32.store16(envVol, channelState, GesChannelState.EnvVol);
-
-            let inline note = i32.load16_u(channelReg, 2);
-            let inline freq = 440 as f32 * pow(2.0, (note - 69*256) as f32 / (12*256) as f32);
-            let phaseInc = (freq * (65536.0 / 44100.0)) as i32;
-
-            let phase = i32.load16_u(channelState, GesChannelState.Phase) << 8;
-
-            i = 0;
-            let wave = ctrl >> 6;
-            if wave < 2 {
-                if wave {
-                    loop sawLoop {
-                        i!(GesBufferOffset + 128*4) = (phase & 65535) - 32768;
-                        phase = phase + phaseInc;
-                        branch_if (i := i + 4) < 64*4: sawLoop;
-                    }
-                }
-                else
-                {
-                    loop rectLoop {
-                        i!(GesBufferOffset + 128*4) = select(phase & 32768, -32768, 32767);
-                        phase = phase + phaseInc;
-                        branch_if (i := i + 4) < 64*4: rectLoop;
-                    }
-                }
-            } else {
-                if wave == 2 {
-                    loop triLoop {
-                        let s = phase << 16;
-                        s = s ^ (s >> 31);
-                        i!(GesBufferOffset + 128*4) = (s >> 15) - 32768;
-                        phase = phase + phaseInc;
-                        branch_if (i := i + 4) < 64*4: triLoop;
-                    }
-                } else {
-                    loop noiseLoop {
-                        let s = (phase >> 12) & 4095;
-                        s = s * 0x6746ba73;
-                        s = s ^ (s >> 15);
-                        i!(GesBufferOffset + 128*4) = (s * 0x83567a92) >> 16;
-                        phase = phase + phaseInc;
-                        branch_if (i := i + 4) < 64*4: noiseLoop;
-                    }
-                }
-            }
-
-            i32.store16(phase >> 8, channelState, GesChannelState.Phase);
-
-            let channelVol = ((ch >> 1)?0x68 >> ((ch & 1) * 4)) & 15;
-            envVol = envVol * channelVol / 15;
-
-            let leftVol = (0x4c6a >> (ch * 4)) & 15;
-            let rightVol = 16 - leftVol;
-
-            let filter = ((ctrl >> 2) & 3) - 1;
-
-            i = 0;
-            if filter #> 1 {
-                loop mixLoop {
-                    let sample = (i!(GesBufferOffset + 128*4) * envVol) >> 18;
-                    (i * 2)!GesBufferOffset = (i * 2)!GesBufferOffset + ((sample * leftVol) >> 4);
-                    (i * 2)!(GesBufferOffset + 4) = (i * 2)!(GesBufferOffset + 4) + ((sample * rightVol) >> 4);
-                    branch_if (i := i + 4) < 64*4: mixLoop;
-                }
-            } else {
-                let ctrl = filter?0x6a;
-                let note = i32.load16_u(filter * 2, 0x6c);
-                let inline freq = 440 as f32 * pow(2.0, (note - 69*256) as f32 / (12*256) as f32);
-                let F = min(4096 as f32, 8192 as f32 * sin(freq * (3.1415 / 44100.0))) as i32;
-                let Q = 7000 - ctrl * (6000/255);
-                let low_out = ctrl & 1;
-                let high_out = (ctrl >> 1) & 1;
-                let band_out = (ctrl >> 2) & 1;
-                let low = (ch * 8)!(GesStateOffset + GesState.Filter);
-                let band = (ch * 8)!(GesStateOffset + GesState.Filter + 4);
-                loop filterLoop {
-                    let in = (i!(GesBufferOffset + 128*4) * envVol) >> 18;
-
-                    let high = in - low - ((band * Q) >> 12);
-                    band = band + ((F * high) >> 12);
-                    low = low + ((F * band) >> 12);
-
-                    let sample = low * low_out + high * high_out + band * band_out;
-                    (i * 2)!GesBufferOffset = (i * 2)!GesBufferOffset + ((sample * leftVol) >> 4);
-                    (i * 2)!(GesBufferOffset + 4) = (i * 2)!(GesBufferOffset + 4) + ((sample * rightVol) >> 4);
-                    branch_if (i := i + 4) < 64*4: filterLoop;
-                }
-                (ch * 8)!(GesStateOffset + GesState.Filter) = low;
-                (ch * 8)!(GesStateOffset + GesState.Filter + 4) = band;
-            }
-
-            branch_if (ch := ch + 1) < 4: channelLoop;
-        }
-    }
-    (((t & 127) * 4)!GesBufferOffset) as f32 / 32768 as f32
-}
-
-fn memclr(base: i32, size: i32) {
-    loop bytes {
-        (base + (size := size - 1))?0 = 0;
-        branch_if size: bytes;
-    }
-}
-
-start fn start() {
-    memclr(0, 64);
-    memclr(112, 8);
-    memclr(0x14000, 0x2c000);
 }
 
 data 80 {
     i8(
-        0, 128, 0, 69, 0x8, 0xc8,
-        0, 128, 0, 69, 0x8, 0xc8,
-        0, 128, 0, 69, 0x8, 0xc8,
-        0, 128, 0, 69, 0x8, 0xc8,
-        0xff, 0xff,
-        0xc1, 0, 0, 105, 0, 0
+        0, 128, 0, 128, 0x40, 0xe,
+        0, 128, 0, 128, 0x8, 0xc8,
+        0, 128, 0, 128, 0xa, 0xa,
+        0, 128, 0, 128, 0xa, 0xa,
+        0xf8, 0x85,
+        0xc1, 0xf1, 0, 110, 0, 90
     )
 }
+
+/*
+
+include "../../platform/src/ges.cwa"
+
+import "env.pow" fn pow(f32, f32) -> f32;
+import "env.sin" fn sin(f32) -> f32;
+
+export fn snd(t: i32) -> f32 {
+    gesSnd(t)
+}
+
+*/

platform/src/ges.cwa

@@ -0,0 +1,154 @@
+const GesChannelState.Trigger = 0;
+const GesChannelState.EnvState = 1;
+const GesChannelState.EnvVol = 2;
+const GesChannelState.Phase = 4;
+const GesChannelState.Size = 6;
+
+const GesState.Filter = GesChannelState.Size * 4;
+const GesState.Size = GesState.Filter + 8*4;
+
+const GesStateOffset = 112;
+const GesBufferOffset = 112 + GesState.Size;
+
+export fn gesSnd(t: i32) -> f32 {
+    if !(t & 127) {
+        let i: i32;
+        loop clearLoop {
+            i!GesBufferOffset = 0;
+            branch_if (i := i + 4) < 128*8: clearLoop;
+        }
+
+        let ch: i32;
+        loop channelLoop {
+            let lazy channelState = GesStateOffset + ch * GesChannelState.Size;
+            let lazy channelReg = 80 + ch * 6;
+            let envState = channelState?GesChannelState.EnvState;
+            let envVol = i32.load16_u(channelState, GesChannelState.EnvVol);
+
+            let lazy oldTrigger = channelState?GesChannelState.Trigger;
+            let lazy ctrl = channelReg?0;
+            if (oldTrigger ^ ctrl) & (ctrl | 2) & 3 {
+                envState = 1;
+                envVol = 0;
+            }
+            channelState?GesChannelState.Trigger = ctrl;
+
+            if envState {
+                envVol = envVol + (16384 / ((channelReg?4 >> 4) + 1));
+                if envVol >= 65535 {
+                    envVol = 65535;
+                    envState = 0;
+                }
+            } else {
+                if !envState & ctrl {
+                    envVol = envVol - (16 - (channelReg?4 & 15)) * 48;
+                    let sustain = (channelReg?5 >> 4) * 4096;
+                    if envVol < sustain {
+                        envVol = sustain;
+                    }
+                } else {
+                    envVol = envVol - (16 - (channelReg?5 & 15)) * 48;
+                    if envVol < 0 {
+                        envVol = 0;
+                    }
+                }
+            }
+            channelState?GesChannelState.EnvState = envState;
+
+            i32.store16(envVol, channelState, GesChannelState.EnvVol);
+
+            let inline note = i32.load16_u(channelReg, 2);
+            let inline freq = 440 as f32 * pow(2.0, (note - 69*256) as f32 / (12*256) as f32);
+            let phaseInc = (freq * (65536.0 / 44100.0)) as i32;
+
+            let phase = i32.load16_u(channelState, GesChannelState.Phase) << 8;
+
+            i = 0;
+            let wave = ctrl >> 6;
+            if wave < 2 {
+                if wave {
+                    loop sawLoop {
+                        i!(GesBufferOffset + 128*4) = (phase & 65535) - 32768;
+                        phase = phase + phaseInc;
+                        branch_if (i := i + 4) < 64*4: sawLoop;
+                    }
+                }
+                else
+                {
+                    loop rectLoop {
+                        i!(GesBufferOffset + 128*4) = select(phase & 32768, -32768, 32767);
+                        phase = phase + phaseInc;
+                        branch_if (i := i + 4) < 64*4: rectLoop;
+                    }
+                }
+            } else {
+                if wave == 2 {
+                    loop triLoop {
+                        let s = phase << 16;
+                        s = s ^ (s >> 31);
+                        i!(GesBufferOffset + 128*4) = (s >> 15) - 32768;
+                        phase = phase + phaseInc;
+                        branch_if (i := i + 4) < 64*4: triLoop;
+                    }
+                } else {
+                    loop noiseLoop {
+                        let s = (phase >> 12) & 4095;
+                        s = s * 0x6746ba73;
+                        s = s ^ (s >> 15);
+                        i!(GesBufferOffset + 128*4) = (s * 0x83567a92) >> 16;
+                        phase = phase + phaseInc;
+                        branch_if (i := i + 4) < 64*4: noiseLoop;
+                    }
+                }
+            }
+
+            i32.store16(phase >> 8, channelState, GesChannelState.Phase);
+
+            let channelVol = ((ch >> 1)?0x68 >> ((ch & 1) * 4)) & 15;
+            envVol = envVol * channelVol / 15;
+
+            let leftVol = (0x4c6a >> (ch * 4)) & 15;
+            let rightVol = 16 - leftVol;
+
+            let lazy filter = ((ctrl >> 2) & 3) - 1;
+
+            i = 0;
+            if filter #> 1 {
+                loop mixLoop {
+                    let sample = (i!(GesBufferOffset + 128*4) * envVol) >> 18;
+                    (i * 2)!GesBufferOffset = (i * 2)!GesBufferOffset + ((sample * leftVol) >> 4);
+                    (i * 2)!(GesBufferOffset + 4) = (i * 2)!(GesBufferOffset + 4) + ((sample * rightVol) >> 4);
+                    branch_if (i := i + 4) < 64*4: mixLoop;
+                }
+            } else {
+                let ctrl = filter?0x6a;
+                let note = i32.load16_u(filter * 2, 0x6c);
+                let inline freq = 440 as f32 * pow(2.0, (note - 69*256) as f32 / (12*256) as f32);
+                let F = min(4096 as f32, 8192 as f32 * sin(freq * (3.1415 / 44100.0))) as i32;
+                let Q = 7000 - ctrl * (6000/255);
+                let low_out = ctrl & 1;
+                let high_out = (ctrl >> 1) & 1;
+                let band_out = (ctrl >> 2) & 1;
+                let low = (ch * 8)!(GesStateOffset + GesState.Filter);
+                let band = (ch * 8)!(GesStateOffset + GesState.Filter + 4);
+                loop filterLoop {
+                    let in = (i!(GesBufferOffset + 128*4) * envVol) >> 18;
+
+                    let high = in - low - ((band * Q) >> 12);
+                    band = band + ((F * high) >> 12);
+                    low = low + ((F * band) >> 12);
+
+                    let sample = low * low_out + high * high_out + band * band_out;
+                    (i * 2)!GesBufferOffset = (i * 2)!GesBufferOffset + ((sample * leftVol) >> 4);
+                    (i * 2)!(GesBufferOffset + 4) = (i * 2)!(GesBufferOffset + 4) + ((sample * rightVol) >> 4);
+                    branch_if (i := i + 4) < 64*4: filterLoop;
+                }
+                (ch * 8)!(GesStateOffset + GesState.Filter) = low;
+                (ch * 8)!(GesStateOffset + GesState.Filter + 4) = band;
+            }
+
+            branch_if (ch := ch + 1) < 4: channelLoop;
+        }
+    }
+    (((t & 127) * 4)!GesBufferOffset) as f32 / 32768 as f32
+}

platform/src/platform.cwa

@@ -1,6 +1,8 @@
 import "env.memory" memory(4);
 
+import "env.sin" fn sin(f32) -> f32;
 import "env.cos" fn cos(f32) -> f32;
+import "env.pow" fn pow(f32, f32) -> f32;
 
 export fn time() -> f32 {
     (0!64) as f32 / 1000 as f32
@@ -500,6 +502,12 @@ export fn setCursorPosition(x: i32, y: i32) {
     textCursorY = y * scale;
 }
 
+///////////
+// SOUND //
+///////////
+
+include "ges.cwa"
+
 ///////////
 // SETUP //
 ///////////
@@ -508,6 +516,13 @@ export fn endFrame() {
     68!4 = 68!0;
 }
 
+fn memclr(base: i32, size: i32) {
+    loop bytes {
+        (base + (size := size - 1))?0 = 0;
+        branch_if size: bytes;
+    }
+}
+
 start fn setup() {
     let i: i32 = 12*16*3-1;
     let avg: f32;
@@ -540,10 +555,26 @@ start fn setup() {
         branch_if (i := i - 1) >= 0: expand_sweetie;
     }
 
+    memclr(0, 64);
+    memclr(112, 8);
+    memclr(0x14000, 0x2c000);
+
+
     cls(0);
     randomSeed(random());
 }
 
+data 80 {
+    i8(
+        0, 128, 0, 69, 0x8, 0xc8,
+        0, 128, 0, 69, 0x8, 0xc8,
+        0, 128, 0, 69, 0x8, 0xc8,
+        0, 128, 0, 69, 0x8, 0xc8,
+        0xff, 0xff,
+        1, 1, 0, 100, 0, 100
+    )
+}
+
 data 0x13000+192*4 {
     i32(
         0x2c1c1a,

src/run-web.html

@@ -1 +1 @@
-<!doctype html><html><head><meta charset="utf8"><title>uw8-run</title><style>body,canvas,html{background-color:#202024;margin:0;padding:0}body,html{height:100%}body{display:grid;grid-template-rows:1fr}#screen{align-self:center;border:4px solid #303040;image-rendering:pixelated;justify-self:center}#message{background-color:rgba(0,0,0,.4);color:#c64;font:700 12pt sans-serif;padding:8px;position:absolute;width:calc(100% - 16px);z-index:2}@media (min-width:648px) and (min-height:488px){#screen{height:480px;width:640px}}@media (min-width:968px) and (min-height:728px){#screen{height:720px;width:960px}}</style></head><body> <canvas id="screen" width="320" height="240" tabindex="1"> </canvas> <div id="message"></div> </body><script type="module">function e(e){return e&&e.__esModule?e.default:e}class t extends AudioWorkletNode{constructor(e){super(e,"apu",{outputChannelCount:[2]})}}let A=(...e)=>new Uint8Array(...e),a=(...e)=>new Uint32Array(...e);let B=function(B,n={}){n.setMessage||(n.setMessage=(e,t)=>{t&&console.log("error: "+t)});let s,r,o,i,l=B.getContext("2d"),c=l.createImageData(320,240),F=n.devkitMode,g=0,d=null==n.keyboardElement?B:n.keyboardElement;if(d){let e=e=>{let t,A="keydown"==e.type;switch(e.code){case"ArrowUp":t=1;break;case"ArrowDown":t=2;break;case"ArrowLeft":t=4;break;case"ArrowRight":t=8;break;case"KeyZ":t=16;break;case"KeyX":t=32;break;case"KeyA":t=64;break;case"KeyS":t=128;break;case"KeyR":A&&f(r,!0);break;case"F9":A&&B.toBlob((e=>{D(e,".png")})),e.preventDefault();break;case"F10":A&&function(){if(o)return o.stop(),void(o=null);o=new MediaRecorder(B.captureStream(),{mimeType:"video/webm",videoBitsPerSecond:25e6});let e=[];o.ondataavailable=t=>{e.push(t.data)};let t=n.timerElement;t&&(t.hidden=!1,t.innerText="00:00");function A(){if(i){if(t){let e=Math.floor((Date.now()-i)/1e3);t.innerText=Math.floor(e/60).toString().padStart(2,"0")+":"+(e%60).toString().padStart(2,"0")}setTimeout(A,1e3)}}o.onstop=()=>{t&&(t.hidden=!0),D(new Blob(e,{type:"video/webm"}),".webm")},o.start(),i=Date.now(),setTimeout(A,1e3)}(),e.preventDefault()}A?g|=t:g&=~t};d.onkeydown=e,d.onkeyup=e}async function f(o,i){s&&(s(),s=null);let d=new AudioContext({sampleRate:44100}),D=!0;s=()=>{d.close(),D=!1};let C=o.byteLength;if(n.setMessage(C),0==C)return;await d.audioWorklet.addModule(e("data:application/javascript,let%20e%3D%28...e%29%3D%3Enew%20Uint8Array%28...e%29%3Bclass%20s%20extends%20AudioWorkletProcessor%7Bconstructor%28%29%7Bsuper%28%29%2Cthis.sampleIndex%3D0%2Cthis.port.onmessage%3Ds%3D%3E%7Bthis.memory%3Fe%28this.memory.buffer%2C80%2C32%29.set%28e%28s.data%29%29%3Athis.load%28s.data%5B0%5D%2Cs.data%5B1%5D%29%7D%7Dasync%20load%28e%2Cs%29%7Blet%20t%3Dnew%20WebAssembly.Memory%28%7Binitial%3A4%2Cmaximum%3A4%7D%29%2Ca%3D%7Benv%3A%7Bmemory%3At%7D%7D%3Bfor%28let%20e%20of%5B%22acos%22%2C%22asin%22%2C%22atan%22%2C%22atan2%22%2C%22cos%22%2C%22exp%22%2C%22log%22%2C%22sin%22%2C%22tan%22%2C%22pow%22%5D%29a.env%5Be%5D%3DMath%5Be%5D%3Bfor%28let%20e%3D9%3Be%3C64%3B%2B%2Be%29a.env%5B%22reserved%22%2Be%5D%3D%28%29%3D%3E%7B%7D%3Bfor%28let%20e%3D0%3Be%3C16%3B%2B%2Be%29a.env%5B%22g_reserved%22%2Be%5D%3D0%3Blet%20r%3Dasync%20e%3D%3E%28await%20WebAssembly.instantiate%28e%2Ca%29%29.instance%2Cn%3Dawait%20r%28e%29%3Bfor%28let%20e%20in%20n.exports%29a.env%5Be%5D%3Dn.exports%5Be%5D%3Blet%20o%3Dawait%20r%28s%29%3Bthis.memory%3Dt%2Cthis.snd%3Do.exports.snd%2Cthis.port.postMessage%282%29%7Dprocess%28e%2Cs%2Ct%29%7Bif%28this.snd%29%7Blet%20e%3Ds%5B0%5D%2Ct%3Dthis.sampleIndex%2Ca%3De%5B0%5D.length%3Bfor%28let%20s%3D0%3Bs%3Ca%3B%2B%2Bs%29e%5B0%5D%5Bs%5D%3Dthis.snd%28t%2B%2B%29%2Ce%5B1%5D%5Bs%5D%3Dthis.snd%28t%2B%2B%29%3Bthis.sampleIndex%3D4294967295%26t%7Dreturn%210%7D%7DregisterProcessor%28%22apu%22%2Cs%29%3B"));let Q,u=new t(d),E=0,I=new Promise((e=>Q=e)),m=e=>{E|=e,3==E&&Q&&(Q(!0),Q=null)};u.port.onmessage=e=>m(e.data);let p=()=>{"suspended"==d.state?(n.startButton&&(n.startButton.style="",B.style="display:none"),(n.startButton||B).onclick=()=>{d.resume()}):(n.startButton&&(n.startButton.style="display:none",B.style=""),m(1))};d.onstatechange=p,p(),r=o;let w=window.location.pathname;if(C<=1024&&!i){let e="";for(let t of A(o))e+=String.fromCharCode(t);w+="#"+btoa(e),w!=window.location.pathname+window.location.hash&&history.pushState(null,null,w)}B.width=B.width;try{let t={initial:4};F||(t.maximum=4);let B,s=new WebAssembly.Memory(t),i=A(s.buffer),Q={env:{memory:s}},E=e=>{if(B&&(!F||0!=A(e)[0])){i.set(A(e));let t=B.exports.load_uw8(e.byteLength);e=new ArrayBuffer(t),A(e).set(i.slice(0,t))}return e},m=async e=>(await WebAssembly.instantiate(e,Q)).instance,p=async e=>E(await(await fetch(e)).arrayBuffer());B=await m(await p(e("data:application/wasm;base64,AGFzbQEAAAABFQRgAX8Bf2ACf38Bf2ADf39%2FAGAAAAIPAQNlbnYGbWVtb3J5AgAEAwkIAAABAgEAAAMGEAN%2FAUEAC38BQQALfwFBAAsHGQIIbG9hZF91dzgAAAp1bmNvbXByZXNzAAQIAQcKngUIxwEBB39BAC0AAEEBayIBQQBIBEAgAA8LQYDAByAAaiECIAFBAXEEQEEBQYHABxAEIQIFQYDAB0EAIAAQAwtBAEGAhA9BCBADQYiEDyEDQQghBEGBwAchBQNAIAUgAkggAyMATiAFLQAAIAMtAABMLine truncated
+<!doctype html><html><head><meta charset="utf8"><title>uw8-run</title><style>body,canvas,html{background-color:#202024;margin:0;padding:0}body,html{height:100%}body{display:grid;grid-template-rows:1fr}#screen{align-self:center;border:4px solid #303040;image-rendering:pixelated;justify-self:center}#message{background-color:rgba(0,0,0,.4);color:#c64;font:700 12pt sans-serif;padding:8px;position:absolute;width:calc(100% - 16px);z-index:2}@media (min-width:648px) and (min-height:488px){#screen{height:480px;width:640px}}@media (min-width:968px) and (min-height:728px){#screen{height:720px;width:960px}}</style></head><body> <canvas id="screen" width="320" height="240" tabindex="1"> </canvas> <div id="message"></div> </body><script type="module">function e(e){return e&&e.__esModule?e.default:e}class t extends AudioWorkletNode{constructor(e){super(e,"apu",{outputChannelCount:[2]})}}let A=(...e)=>new Uint8Array(...e),B=(...e)=>new Uint32Array(...e);let a=function(a,o={}){o.setMessage||(o.setMessage=(e,t)=>{t&&console.log("error: "+t)});let s,n,r,i,l=a.getContext("2d"),d=l.createImageData(320,240),F=o.devkitMode,c=0,g=null==o.keyboardElement?a:o.keyboardElement;if(g){let e=e=>{let t,A="keydown"==e.type;switch(e.code){case"ArrowUp":t=1;break;case"ArrowDown":t=2;break;case"ArrowLeft":t=4;break;case"ArrowRight":t=8;break;case"KeyZ":t=16;break;case"KeyX":t=32;break;case"KeyA":t=64;break;case"KeyS":t=128;break;case"KeyR":A&&D(n,!0);break;case"F9":A&&a.toBlob((e=>{u(e,".png")})),e.preventDefault();break;case"F10":A&&function(){if(r)return r.stop(),void(r=null);r=new MediaRecorder(a.captureStream(),{mimeType:"video/webm",videoBitsPerSecond:25e6});let e=[];r.ondataavailable=t=>{e.push(t.data)};let t=o.timerElement;t&&(t.hidden=!1,t.innerText="00:00");function A(){if(i){if(t){let e=Math.floor((Date.now()-i)/1e3);t.innerText=Math.floor(e/60).toString().padStart(2,"0")+":"+(e%60).toString().padStart(2,"0")}setTimeout(A,1e3)}}r.onstop=()=>{t&&(t.hidden=!0),u(new Blob(e,{type:"video/webm"}),".webm")},r.start(),i=Date.now(),setTimeout(A,1e3)}(),e.preventDefault()}A?c|=t:c&=~t};g.onkeydown=e,g.onkeyup=e}async function D(r,i){s&&(s(),s=null);let g=new AudioContext({sampleRate:44100}),u=!0;s=()=>{g.close(),u=!1};let f=r.byteLength;if(o.setMessage(f),0==f)return;await g.audioWorklet.addModule(e("data:application/javascript,let%20e%3D%28...e%29%3D%3Enew%20Uint8Array%28...e%29%3Bclass%20s%20extends%20AudioWorkletProcessor%7Bconstructor%28%29%7Bsuper%28%29%2Cthis.sampleIndex%3D0%2Cthis.port.onmessage%3Ds%3D%3E%7Bthis.memory%3Fe%28this.memory.buffer%2C80%2C32%29.set%28e%28s.data%29%29%3Athis.load%28s.data%5B0%5D%2Cs.data%5B1%5D%29%7D%7Dasync%20load%28e%2Cs%29%7Blet%20t%3Dnew%20WebAssembly.Memory%28%7Binitial%3A4%2Cmaximum%3A4%7D%29%2Ca%3D%7Benv%3A%7Bmemory%3At%7D%7D%3Bfor%28let%20e%20of%5B%22acos%22%2C%22asin%22%2C%22atan%22%2C%22atan2%22%2C%22cos%22%2C%22exp%22%2C%22log%22%2C%22sin%22%2C%22tan%22%2C%22pow%22%5D%29a.env%5Be%5D%3DMath%5Be%5D%3Bfor%28let%20e%3D9%3Be%3C64%3B%2B%2Be%29a.env%5B%22reserved%22%2Be%5D%3D%28%29%3D%3E%7B%7D%3Bfor%28let%20e%3D0%3Be%3C16%3B%2B%2Be%29a.env%5B%22g_reserved%22%2Be%5D%3D0%3Blet%20r%3Dasync%20e%3D%3E%28await%20WebAssembly.instantiate%28e%2Ca%29%29.instance%2Cn%3Dawait%20r%28e%29%3Bfor%28let%20e%20in%20n.exports%29a.env%5Be%5D%3Dn.exports%5Be%5D%3Blet%20o%3Dawait%20r%28s%29%3Bthis.memory%3Dt%2Cthis.snd%3Do.exports.snd%7C%7Cn.exports.gesSnd%2Cthis.port.postMessage%282%29%7Dprocess%28e%2Cs%2Ct%29%7Bif%28this.snd%29%7Blet%20e%3Ds%5B0%5D%2Ct%3Dthis.sampleIndex%2Ca%3De%5B0%5D.length%3Bfor%28let%20s%3D0%3Bs%3Ca%3B%2B%2Bs%29e%5B0%5D%5Bs%5D%3Dthis.snd%28t%2B%2B%29%2Ce%5B1%5D%5Bs%5D%3Dthis.snd%28t%2B%2B%29%3Bthis.sampleIndex%3D4294967295%26t%7Dreturn%210%7D%7DregisterProcessor%28%22apu%22%2Cs%29%3B"));let y,C=new t(g),w=0,E=new Promise((e=>y=e)),I=e=>{w|=e,3==w&&y&&(y(!0),y=null)};C.port.onmessage=e=>I(e.data);let Q=()=>{"suspended"==g.state?(o.startButton&&(o.startButton.style="",a.style="display:none"),(o.startButton||a).onclick=()=>{g.resume()}):(o.startButton&&(o.startButton.style="display:none",a.style=""),I(1))};g.onstatechange=Q,Q(),n=r;let p=window.location.pathname;if(f<=1024&&!i){let e="";for(let t of A(r))e+=String.fromCharCode(t);p+="#"+btoa(e),p!=window.location.pathname+window.location.hash&&history.pushState(null,null,p)}a.width=a.width;try{let t={initial:4};F||(t.maximum=4);let a,s=new WebAssembly.Memory(t),i=A(s.buffer),y={env:{memory:s}},w=e=>{if(a&&(!F||0!=A(e)[0])){i.set(A(e));let t=a.exports.load_uw8(e.byteLength);e=new ArrayBuffer(t),A(e).set(i.slice(0,t))}return e},I=async e=>(await WebAssembly.instantiate(e,y)).instance,Q=async e=>w(await(await fetch(e)).arrayBuffer());a=await I(await Q(e("data:application/wasm;base64,AGFzbQEAAAABFQRgAX8Bf2ACf38Bf2ADf39%2FAGAAAAIPAQNlbnYGbWVtb3J5AgAEAwkIAAABAgEAAAMGEAN%2FAUEAC38BQQALfwFBAAsHGQIIbG9hZF91dzgAAAp1bmNvbXByZXNzAAQIAQcKngUIxwEBB39BAC0AAEEBayIBQQBIBEAgAA8LQYDAByAAaiECIAFBAXEEQEEBQYHABxAEIQIFQYDAB0EAIAAQAwtBAEGAhA9BCBADQYiEDyEDQQghBEGBwAchBQNAIAUgAkLine truncated

web/src/audiolet.js

@@ -45,7 +45,7 @@ class APU extends AudioWorkletProcessor {
 
         this.memory = memory;
 
-        this.snd = instance.exports.snd;
+        this.snd = instance.exports.snd || platform_instance.exports.gesSnd;
 
         this.port.postMessage(2);
     }