Feat: add slicing words

2026-02-28 02:37:09 +01:00
parent 511726b65b
commit 7ae3f255b0
6 changed files with 46 additions and 13 deletions
--- a/crates/forth/src/words/sound.rs
+++ b/crates/forth/src/words/sound.rs
@@ -186,6 +186,26 @@ pub(super) const WORDS: &[Word] = &[
        compile: Param,
        varargs: true,
    },
+    Word {
+        name: "slice",
+        aliases: &[],
+        category: "Sample",
+        stack: "(v.. --)",
+        desc: "Divide sample into N equal slices",
+        example: r#""break" s 8 slice 3 pick ."#,
+        compile: Param,
+        varargs: true,
+    },
+    Word {
+        name: "pick",
+        aliases: &[],
+        category: "Sample",
+        stack: "(v.. --)",
+        desc: "Select which slice to play (0-indexed, wraps)",
+        example: r#""break" s 8 slice 3 pick ."#,
+        compile: Param,
+        varargs: true,
+    },
    Word {
        name: "voice",
        aliases: &[],