From d395999d30f90756a252c7e4c1d5e912eb6114ca Mon Sep 17 00:00:00 2001
From: Nicola Pisanti <pisanti.nicola@gmail.com>
Date: Thu, 24 Jan 2019 01:11:26 +0100
Subject: [PATCH] Update `D` to match orca-js (#10)

---
 sim.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/sim.c b/sim.c
index 4bbd4bc..088ec43 100644
--- a/sim.c
+++ b/sim.c
@@ -464,10 +464,12 @@ BEGIN_OPERATOR(delay)
   PORT(0, 1, IN);
   PORT(1, 0, OUT);
   Usz rate = index_of(PEEK(0, -1));
-  Usz offset = index_of(PEEK(0, 1));
+  Usz mod_num = index_of(PEEK(0, 1));
   if (rate == 0)
     rate = 1;
-  Glyph g = (Tick_number + offset) % rate == 0 ? '*' : '.';
+  if (mod_num == 0)
+    mod_num = 10;
+  Glyph g = Tick_number % (rate * mod_num) == 0 ? '*' : '.';
   POKE(1, 0, g);
 END_OPERATOR