BuboBubo/Cagire
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Feat: rework recording

Browse Source
This commit is contained in:
Raphaël Forment
2026-03-10 18:20:36 +01:00
parent 25866f66d4
commit 35aa97a93d
2 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
crates/forth/src/vm.rs
View File

@@ -1642,21 +1642,21 @@ impl Forth {
} }
Op::Rec => { Op::Rec => {
let name = pop(stack)?; let name = pop(stack)?;
outputs.push(format!("/doux/rec/sound/{}", name.as_str()?)); outputs.push(format!("/doux/rec/{}", name.as_str()?));
} }
Op::Overdub => { Op::Overdub => {
let name = pop(stack)?; let name = pop(stack)?;
outputs.push(format!("/doux/rec/sound/{}/overdub/1", name.as_str()?)); outputs.push(format!("/doux/rec/{}/overdub/1", name.as_str()?));
} }
Op::Orec => { Op::Orec => {
let orbit = pop(stack)?.as_int()?; let orbit = pop(stack)?.as_int()?;
let name = pop(stack)?; let name = pop(stack)?;
outputs.push(format!("/doux/rec/sound/{}/orbit/{}", name.as_str()?, orbit)); outputs.push(format!("/doux/rec/{}/orbit/{}", name.as_str()?, orbit));
} }
Op::Odub => { Op::Odub => {
let orbit = pop(stack)?.as_int()?; let orbit = pop(stack)?.as_int()?;
let name = pop(stack)?; let name = pop(stack)?;
outputs.push(format!("/doux/rec/sound/{}/overdub/1/orbit/{}", name.as_str()?, orbit)); outputs.push(format!("/doux/rec/{}/overdub/1/orbit/{}", name.as_str()?, orbit));
} }
Op::Forget => { Op::Forget => {
let name = pop(stack)?; let name = pop(stack)?;

6
tests/forth/sound.rs
View File

@@ -230,19 +230,19 @@ fn noall_clears_across_evaluations() {
#[test] #[test]
fn rec() { fn rec() {
let outputs = expect_outputs(r#""loop1" rec"#, 1); let outputs = expect_outputs(r#""loop1" rec"#, 1);
assert_eq!(outputs[0], "/doux/rec/sound/loop1"); assert_eq!(outputs[0], "/doux/rec/loop1");
} }
#[test] #[test]
fn overdub() { fn overdub() {
let outputs = expect_outputs(r#""loop1" overdub"#, 1); let outputs = expect_outputs(r#""loop1" overdub"#, 1);
assert_eq!(outputs[0], "/doux/rec/sound/loop1/overdub/1"); assert_eq!(outputs[0], "/doux/rec/loop1/overdub/1");
} }
#[test] #[test]
fn overdub_alias_dub() { fn overdub_alias_dub() {
let outputs = expect_outputs(r#""loop1" dub"#, 1); let outputs = expect_outputs(r#""loop1" dub"#, 1);
assert_eq!(outputs[0], "/doux/rec/sound/loop1/overdub/1"); assert_eq!(outputs[0], "/doux/rec/loop1/overdub/1");
} }
#[test] #[test]