mirror/sointu
1
0
Fork 0
mirror of https://github.com/vsariola/sointu.git synced 2025-05-28 03:10:24 -04:00
Code Issues Packages Projects Releases Wiki Activity

hold override

Browse Source
This commit is contained in:
Peter Salomonsen 2023-03-24 06:29:13 +01:00 committed by Peter Salomonsen
parent 57a4ce7d64
commit eb846ba42d
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
templates/wasm/player.wat
View File

@ -97,6 +97,8 @@
{{- .Block 32}} {{- .Block 32}}
{{- end}} {{- end}}
{{- .Align}} {{- .Align}}
{{- .SetBlockLabel "su_hold_override"}}
{{- .Block 32}}
{{- .SetBlockLabel "su_synth"}} {{- .SetBlockLabel "su_synth"}}
{{- .Block 32}} {{- .Block 32}}
{{- .SetBlockLabel "su_globalports"}} {{- .SetBlockLabel "su_globalports"}}
@ -950,7 +952,13 @@
{{- else}} {{- else}}
;; the simple implementation of update_voices: each track has exactly one voice ;; the simple implementation of update_voices: each track has exactly one voice
(func $su_update_voices (local $si i32) (local $di i32) (local $tracksRemaining i32) (local $note i32) (func $su_update_voices
(local $si i32)
(local $di i32)
(local $tracksRemaining i32)
(local $note i32)
(local $channel i32)
(local.set $channel (i32.const 0))
(local.set $tracksRemaining (i32.const {{len .Sequences}})) (local.set $tracksRemaining (i32.const {{len .Sequences}}))
(local.set $si (global.get $pattern)) (local.set $si (global.get $pattern))
(local.set $di (i32.const {{index .Labels "su_voices"}})) (local.set $di (i32.const {{index .Labels "su_voices"}}))
@ -961,14 +969,20 @@
(i32.load8_u offset={{index .Labels "su_patterns"}}) (i32.load8_u offset={{index .Labels "su_patterns"}})
(local.tee $note) (local.tee $note)
(if (i32.ne (i32.const {{.Hold}}))(then (if (i32.ne (i32.const {{.Hold}}))(then
(i32.store offset=4 (local.get $di) (i32.const 1)) ;; release the note (if (i32.eq (i32.const 0)
(if (i32.gt_u (local.get $note) (i32.const {{.Hold}}))(then (i32.load8_u offset={{index .Labels "su_hold_override"}} (local.get $channel))
(memory.fill (local.get $di) (i32.const 0) (i32.const 4096)) )
(i32.store (local.get $di) (local.get $note)) (then
(i32.store offset=4 (local.get $di) (i32.const 1)) ;; release the note
(if (i32.gt_u (local.get $note) (i32.const {{.Hold}}))(then
(memory.fill (local.get $di) (i32.const 0) (i32.const 4096))
(i32.store (local.get $di) (local.get $note))
))
)) ))
)) ))
(local.set $di (i32.add (local.get $di) (i32.const 4096))) (local.set $di (i32.add (local.get $di) (i32.const 4096)))
(local.set $si (i32.add (local.get $si) (i32.const {{.SequenceLength}}))) (local.set $si (i32.add (local.get $si) (i32.const {{.SequenceLength}})))
(local.set $channel (i32.add (local.get $channel) (i32.const 1)))
(br_if $track_loop (local.tee $tracksRemaining (i32.sub (local.get $tracksRemaining) (i32.const 1)))) (br_if $track_loop (local.tee $tracksRemaining (i32.sub (local.get $tracksRemaining) (i32.const 1))))
end end
) )
@ -982,24 +996,10 @@
)) ))
(memory.fill (local.get $di) (i32.const 0) (i32.const 4096)) (memory.fill (local.get $di) (i32.const 0) (i32.const 4096))
(i32.store (local.get $di) (local.get $value)) (i32.store (local.get $di) (local.get $value))
(i32.store (i32.add (i32.const {{index .Labels "su_hold_override"}}) (local.get $voice_no)) (local.get $value))
) )
(export "update_single_voice" (func $update_single_voice)) (export "update_single_voice" (func $update_single_voice))
(func $set_current_pattern_value (param $voice_no i32) (param $value i32)
(local $si i32)
(local.set $si (global.get $pattern))
(local.set $si
(
i32.add (local.get $si)
(i32.mul (local.get $voice_no) (i32.const {{.SequenceLength}}))
)
)
(i32.load8_u offset={{index .Labels "su_tracks"}} (local.get $si))
(i32.mul (i32.const {{.PatternLength}}))
(i32.add (global.get $row))
(local.get $value)
(i32.store8 offset={{index .Labels "su_patterns"}})
)
(export "set_current_pattern_value" (func $set_current_pattern_value))
{{template "patch.wat" .}} {{template "patch.wat" .}}
;; All data is collected into a byte buffer and emitted at once ;; All data is collected into a byte buffer and emitted at once