Feat: new euclidean words and sugar for floating point numbers

2026-02-05 01:30:34 +01:00
parent 53fb3eb759
commit c92a29ab85
9 changed files with 237 additions and 2 deletions
--- a/crates/forth/src/words/compile.rs
+++ b/crates/forth/src/words/compile.rs
@@ -92,6 +92,8 @@ pub(super) fn simple_op(name: &str) -> Option<Op> {
        ".," => Op::StepRange,
        "gen" => Op::Generate,
        "geom.." => Op::GeomRange,
+        "euclid" => Op::Euclid,
+        "euclidrot" => Op::EuclidRot,
        "times" => Op::Times,
        "m." => Op::MidiEmit,
        "ccval" => Op::GetMidiCC,