Fixing subtle bugs

crates/forth/src/ops.rs

@@ -88,4 +88,5 @@ pub enum Op {
     DivEnd,
     StackStart,
     EmitN,
+    ClearCmd,
 }

crates/forth/src/types.rs

@@ -135,7 +135,14 @@ impl CmdRegister {
     }
 
     pub(super) fn snapshot(&self) -> Option<(Value, Vec<(String, Value)>)> {
-        self.sound.as_ref().map(|s| (s.clone(), self.params.clone()))
+        self.sound
+            .as_ref()
+            .map(|s| (s.clone(), self.params.clone()))
+    }
+
+    pub(super) fn clear(&mut self) {
+        self.sound = None;
+        self.params.clear();
     }
 }
 

crates/forth/src/vm.rs

@@ -742,6 +742,10 @@ impl Forth {
                     scope_stack.push(new_scope);
                 }
 
+                Op::ClearCmd => {
+                    cmd.clear();
+                }
+
                 Op::EmitN => {
                     let n = stack.pop().ok_or("stack underflow")?.as_int()?;
                     if n < 0 {

crates/forth/src/words.rs

@@ -1534,6 +1534,54 @@ pub const WORDS: &[Word] = &[
         example: "0.02 chorusdelay",
         compile: Param,
     },
+    Word {
+        name: "eqlo",
+        category: "EQ",
+        stack: "(f --)",
+        desc: "Set low shelf gain (dB)",
+        example: "3 eqlo",
+        compile: Param,
+    },
+    Word {
+        name: "eqmid",
+        category: "EQ",
+        stack: "(f --)",
+        desc: "Set mid peak gain (dB)",
+        example: "-2 eqmid",
+        compile: Param,
+    },
+    Word {
+        name: "eqhi",
+        category: "EQ",
+        stack: "(f --)",
+        desc: "Set high shelf gain (dB)",
+        example: "1 eqhi",
+        compile: Param,
+    },
+    Word {
+        name: "tilt",
+        category: "EQ",
+        stack: "(f --)",
+        desc: "Set tilt EQ (-1 dark, 1 bright)",
+        example: "-0.5 tilt",
+        compile: Param,
+    },
+    Word {
+        name: "width",
+        category: "Stereo",
+        stack: "(f --)",
+        desc: "Set stereo width (0 mono, 1 normal, 2 wide)",
+        example: "0 width",
+        compile: Param,
+    },
+    Word {
+        name: "haas",
+        category: "Stereo",
+        stack: "(f --)",
+        desc: "Set Haas delay in ms (spatial placement)",
+        example: "8 haas",
+        compile: Param,
+    },
     Word {
         name: "comb",
         category: "Filter",
@@ -1766,6 +1814,14 @@ pub const WORDS: &[Word] = &[
         example: "1 reset",
         compile: Param,
     },
+    Word {
+        name: "clear",
+        category: "Sound",
+        stack: "(--)",
+        desc: "Clear sound register (sound and all params)",
+        example: "\"kick\" s 0.5 gain . clear \"hat\" s .",
+        compile: Simple,
+    },
     // Quotation execution
     Word {
         name: "apply",
@@ -1871,6 +1927,7 @@ pub(super) fn simple_op(name: &str) -> Option<Op> {
         "stack" => Op::StackStart,
         "~" => Op::DivEnd,
         ".!" => Op::EmitN,
+        "clear" => Op::ClearCmd,
         _ => return None,
     })
 }

crates/project/src/file.rs

@@ -35,11 +35,13 @@ impl From<&Project> for ProjectFile {
 
 impl From<ProjectFile> for Project {
     fn from(file: ProjectFile) -> Self {
-        Self {
+        let mut project = Self {
             banks: file.banks,
             sample_paths: file.sample_paths,
             tempo: file.tempo,
-        }
+        };
+        project.normalize();
+        project
     }
 }
 

crates/project/src/project.rs

@@ -282,4 +282,14 @@ impl Project {
     pub fn pattern_at_mut(&mut self, bank: usize, pattern: usize) -> &mut Pattern {
         &mut self.banks[bank].patterns[pattern]
     }
+
+    pub fn normalize(&mut self) {
+        self.banks.resize_with(MAX_BANKS, Bank::default);
+        for bank in &mut self.banks {
+            bank.patterns.resize_with(MAX_PATTERNS, Pattern::default);
+            for pattern in &mut bank.patterns {
+                pattern.steps.resize_with(MAX_STEPS, Step::default);
+            }
+        }
+    }
 }