Feat: internal recording / overdubbing

crates/forth/src/ops.rs

@@ -140,6 +140,11 @@ pub enum Op {
     MidiStart,
     MidiStop,
     MidiContinue,
+    // Recording
+    Rec,
+    Overdub,
+    Orec,
+    Odub,
     // Bracket syntax (mark/count for auto-counting)
     Mark,
     Count(Option<SourceSpan>),

crates/forth/src/vm.rs

@@ -1610,6 +1610,24 @@ impl Forth {
                     }
                     drain_select_run(count, resolved_idx, stack, outputs, cmd)?;
                 }
+                Op::Rec => {
+                    let name = pop(stack)?;
+                    outputs.push(format!("/doux/rec/sound/{}", name.as_str()?));
+                }
+                Op::Overdub => {
+                    let name = pop(stack)?;
+                    outputs.push(format!("/doux/rec/sound/{}/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));
+                }
+                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));
+                }
                 Op::Forget => {
                     let name = pop(stack)?;
                     self.dict.lock().remove(name.as_str()?);

crates/forth/src/words/compile.rs

@@ -113,6 +113,10 @@ pub(super) fn simple_op(name: &str) -> Option<Op> {
         "mstart" => Op::MidiStart,
         "mstop" => Op::MidiStop,
         "mcont" => Op::MidiContinue,
+        "rec" => Op::Rec,
+        "overdub" | "dub" => Op::Overdub,
+        "orec" => Op::Orec,
+        "odub" => Op::Odub,
         "forget" => Op::Forget,
         "index" => Op::Index(None),
         "key!" => Op::SetKey,

crates/forth/src/words/sound.rs

@@ -63,6 +63,47 @@ pub(super) const WORDS: &[Word] = &[
         compile: Simple,
         varargs: false,
     },
+    // Recording
+    Word {
+        name: "rec",
+        aliases: &[],
+        category: "Sound",
+        stack: "(name --)",
+        desc: "Toggle recording audio output to named sample",
+        example: "\"loop1\" rec",
+        compile: Simple,
+        varargs: false,
+    },
+    Word {
+        name: "overdub",
+        aliases: &["dub"],
+        category: "Sound",
+        stack: "(name --)",
+        desc: "Toggle overdub recording onto existing named sample",
+        example: "\"loop1\" overdub",
+        compile: Simple,
+        varargs: false,
+    },
+    Word {
+        name: "orec",
+        aliases: &[],
+        category: "Sound",
+        stack: "(name orbit --)",
+        desc: "Toggle recording a single orbit into named sample",
+        example: "\"drums\" 0 orec",
+        compile: Simple,
+        varargs: false,
+    },
+    Word {
+        name: "odub",
+        aliases: &[],
+        category: "Sound",
+        stack: "(name orbit --)",
+        desc: "Toggle overdub recording a single orbit onto named sample",
+        example: "\"drums\" 0 odub",
+        compile: Simple,
+        varargs: false,
+    },
     // Sample
     Word {
         name: "bank",