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 => {
let name = pop(stack)?;
outputs.push(format!("/doux/rec/sound/{}", name.as_str()?));
outputs.push(format!("/doux/rec/{}", name.as_str()?));
}
Op::Overdub => {
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 => {
let orbit = pop(stack)?.as_int()?;
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 => {
let orbit = pop(stack)?.as_int()?;
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 => {
let name = pop(stack)?;

6
tests/forth/sound.rs
View File

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