- tools/musicator:\n - markov model generator and pattern generator operational\n- DDR sound generation in-progress

Reviewed-on: http://git.teletype.hu/games/impostor/pulls/42

.luacheckrc

@@ -18,6 +18,7 @@ globals = {
   "Input",
   "Audio",
   "AsciiArt",
+  "Ascension",
   "Config",
   "Context",
   "Meter",

.vscode/settings.json

@@ -30,5 +30,5 @@
   "files.associations": {
     "*.conf": "bitbake",
     "*.inc": "bitbake"
-  }
+  },
 }

.vscode/tasks.json

@@ -6,12 +6,17 @@
         {
             "label": "Run TIC80",
             "type": "shell",
-            "command": "tic80 --fs=. impostor.lua"
+            "command": "tic80 --fs=. impostor.lua",
+            "problemMatcher": [],
+            "group": {
+                "kind": "build",
+                "isDefault": true
+            }
         },
         {
             "label": "Build & Run TIC80",
             "type": "shell",
-            "command": "make build && tic80 --fs=. impostor.lua",
+            "command": "make clean && make build && tic80 --fs=. impostor.lua",
             "problemMatcher": []
         },
         {

impostor.inc

@@ -1,6 +1,7 @@
 meta/meta.header.lua
 init/init.module.lua
 init/init.config.lua
+init/init.ascension.lua
 init/init.context.lua
 system/system.util.lua
 system/system.print.lua

inc/audio/audio.generator_model.lua

@@ -0,0 +1,642 @@
+{
+  model = {
+    ["...|..."] = {
+      next = {
+        ["..."] = 0.71111111111111,
+        ["A-4"] = 0.0074074074074074,
+        ["B-4"] = 0.0037037037037037,
+        ["C-3"] = 0.011111111111111,
+        ["C-4"] = 0.037037037037037,
+        ["C-5"] = 0.11111111111111,
+        ["C-6"] = 0.0037037037037037,
+        ["D-4"] = 0.011111111111111,
+        ["D-5"] = 0.018518518518519,
+        ["E-4"] = 0.0074074074074074,
+        ["E-5"] = 0.025925925925926,
+        ["F-5"] = 0.0074074074074074,
+        ["G-3"] = 0.0037037037037037,
+        ["G-4"] = 0.022222222222222,
+        ["G-5"] = 0.018518518518519
+      },
+      total = 270
+    },
+    ["...|A-4"] = {
+      next = {
+        ["..."] = 0.9,
+        ["C-5"] = 0.1
+      },
+      total = 10
+    },
+    ["...|A-5"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 8
+    },
+    ["...|B-4"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 1
+    },
+    ["...|B-5"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 5
+    },
+    ["...|C-3"] = {
+      next = {
+        ["..."] = 0.66666666666667,
+        ["C-5"] = 0.33333333333333
+      },
+      total = 3
+    },
+    ["...|C-4"] = {
+      next = {
+        ["..."] = 0.875,
+        ["D-4"] = 0.083333333333333,
+        ["E-4"] = 0.041666666666667
+      },
+      total = 24
+    },
+    ["...|C-5"] = {
+      next = {
+        ["..."] = 0.73333333333333,
+        ["B-4"] = 0.033333333333333,
+        ["C-5"] = 0.066666666666667,
+        ["D-5"] = 0.13333333333333,
+        ["E-5"] = 0.033333333333333
+      },
+      total = 60
+    },
+    ["...|C-6"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 1
+    },
+    ["...|D-4"] = {
+      next = {
+        ["..."] = 0.92857142857143,
+        ["D-4"] = 0.071428571428571
+      },
+      total = 14
+    },
+    ["...|D-5"] = {
+      next = {
+        ["..."] = 0.80645161290323,
+        ["C-5"] = 0.032258064516129,
+        ["D-5"] = 0.032258064516129,
+        ["E-5"] = 0.12903225806452
+      },
+      total = 31
+    },
+    ["...|D-6"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 3
+    },
+    ["...|E-4"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 19
+    },
+    ["...|E-5"] = {
+      next = {
+        ["..."] = 0.77777777777778,
+        ["C-5"] = 0.022222222222222,
+        ["D-5"] = 0.13333333333333,
+        ["F-5"] = 0.066666666666667
+      },
+      total = 45
+    },
+    ["...|F-3"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 3
+    },
+    ["...|F-4"] = {
+      next = {
+        ["..."] = 0.8,
+        ["D-4"] = 0.1,
+        ["F-4"] = 0.1
+      },
+      total = 10
+    },
+    ["...|F-5"] = {
+      next = {
+        ["..."] = 0.66666666666667,
+        ["D-5"] = 0.066666666666667,
+        ["E-5"] = 0.066666666666667,
+        ["G-5"] = 0.2
+      },
+      total = 15
+    },
+    ["...|G-3"] = {
+      next = {
+        ["..."] = 0.8,
+        ["G-5"] = 0.2
+      },
+      total = 5
+    },
+    ["...|G-4"] = {
+      next = {
+        ["..."] = 0.95652173913043,
+        ["E-4"] = 0.043478260869565
+      },
+      total = 23
+    },
+    ["...|G-5"] = {
+      next = {
+        ["..."] = 0.875,
+        ["A-5"] = 0.0625,
+        ["E-5"] = 0.0625
+      },
+      total = 16
+    },
+    ["...|G-6"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 1
+    },
+    ["A-4|..."] = {
+      next = {
+        ["..."] = 0.55555555555556,
+        ["C-5"] = 0.33333333333333,
+        ["D-5"] = 0.11111111111111
+      },
+      total = 9
+    },
+    ["A-4|B-4"] = {
+      next = {
+        ["C-5"] = 1
+      },
+      total = 2
+    },
+    ["A-4|C-5"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 1
+    },
+    ["A-4|G-4"] = {
+      next = {
+        ["F-4"] = 1
+      },
+      total = 2
+    },
+    ["A-5|..."] = {
+      next = {
+        ["..."] = 0.2,
+        ["B-5"] = 0.1,
+        ["E-4"] = 0.1,
+        ["E-5"] = 0.4,
+        ["F-5"] = 0.1,
+        ["G-5"] = 0.1
+      },
+      total = 10
+    },
+    ["A-5|G-5"] = {
+      next = {
+        ["..."] = 0.33333333333333,
+        ["A-5"] = 0.66666666666667
+      },
+      total = 3
+    },
+    ["B-4|..."] = {
+      next = {
+        ["A-4"] = 1
+      },
+      total = 1
+    },
+    ["B-4|A-4"] = {
+      next = {
+        ["G-4"] = 1
+      },
+      total = 2
+    },
+    ["B-4|C-5"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 2
+    },
+    ["B-5|..."] = {
+      next = {
+        ["..."] = 0.2,
+        ["A-5"] = 0.2,
+        ["D-6"] = 0.4,
+        ["G-5"] = 0.2
+      },
+      total = 5
+    },
+    ["C-3|..."] = {
+      next = {
+        ["C-4"] = 1
+      },
+      total = 2
+    },
+    ["C-3|C-5"] = {
+      next = {
+        ["..."] = 0.33333333333333,
+        ["C-3"] = 0.66666666666667
+      },
+      total = 3
+    },
+    ["C-4|..."] = {
+      next = {
+        ["..."] = 0.5,
+        ["D-4"] = 0.125,
+        ["E-4"] = 0.041666666666667,
+        ["F-3"] = 0.041666666666667,
+        ["G-3"] = 0.16666666666667,
+        ["G-4"] = 0.083333333333333,
+        ["G-5"] = 0.041666666666667
+      },
+      total = 24
+    },
+    ["C-4|D-4"] = {
+      next = {
+        ["E-4"] = 1
+      },
+      total = 2
+    },
+    ["C-4|E-4"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 1
+    },
+    ["C-5|..."] = {
+      next = {
+        ["..."] = 0.40677966101695,
+        ["A-4"] = 0.067796610169492,
+        ["C-5"] = 0.050847457627119,
+        ["D-5"] = 0.20338983050847,
+        ["E-5"] = 0.15254237288136,
+        ["F-5"] = 0.016949152542373,
+        ["G-4"] = 0.10169491525424
+      },
+      total = 59
+    },
+    ["C-5|B-4"] = {
+      next = {
+        ["A-4"] = 1
+      },
+      total = 2
+    },
+    ["C-5|C-3"] = {
+      next = {
+        ["C-5"] = 1
+      },
+      total = 2
+    },
+    ["C-5|C-5"] = {
+      next = {
+        ["..."] = 0.8,
+        ["C-5"] = 0.2
+      },
+      total = 5
+    },
+    ["C-5|D-5"] = {
+      next = {
+        ["..."] = 0.3,
+        ["C-5"] = 0.2,
+        ["D-5"] = 0.1,
+        ["E-5"] = 0.4
+      },
+      total = 10
+    },
+    ["C-5|E-5"] = {
+      next = {
+        ["..."] = 0.33333333333333,
+        ["D-5"] = 0.33333333333333,
+        ["G-5"] = 0.33333333333333
+      },
+      total = 3
+    },
+    ["C-6|..."] = {
+      next = {
+        ["A-5"] = 1
+      },
+      total = 1
+    },
+    ["D-4|..."] = {
+      next = {
+        ["..."] = 0.26666666666667,
+        ["A-5"] = 0.066666666666667,
+        ["C-4"] = 0.2,
+        ["E-4"] = 0.4,
+        ["F-3"] = 0.066666666666667
+      },
+      total = 15
+    },
+    ["D-4|C-4"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 2
+    },
+    ["D-4|D-4"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 1
+    },
+    ["D-4|E-4"] = {
+      next = {
+        ["F-4"] = 1
+      },
+      total = 2
+    },
+    ["D-5|..."] = {
+      next = {
+        ["..."] = 0.2258064516129,
+        ["A-4"] = 0.032258064516129,
+        ["A-5"] = 0.032258064516129,
+        ["C-5"] = 0.2258064516129,
+        ["E-5"] = 0.29032258064516,
+        ["F-5"] = 0.096774193548387,
+        ["G-5"] = 0.096774193548387
+      },
+      total = 31
+    },
+    ["D-5|C-5"] = {
+      next = {
+        ["..."] = 0.77777777777778,
+        ["D-5"] = 0.22222222222222
+      },
+      total = 9
+    },
+    ["D-5|D-5"] = {
+      next = {
+        ["..."] = 0.5,
+        ["E-5"] = 0.5
+      },
+      total = 2
+    },
+    ["D-5|E-5"] = {
+      next = {
+        ["..."] = 0.33333333333333,
+        ["E-5"] = 0.11111111111111,
+        ["F-5"] = 0.55555555555556
+      },
+      total = 9
+    },
+    ["D-5|F-5"] = {
+      next = {
+        ["E-5"] = 1
+      },
+      total = 1
+    },
+    ["D-6|..."] = {
+      next = {
+        ["B-5"] = 0.66666666666667,
+        ["G-6"] = 0.33333333333333
+      },
+      total = 3
+    },
+    ["E-4|..."] = {
+      next = {
+        ["..."] = 0.19047619047619,
+        ["B-5"] = 0.047619047619048,
+        ["C-4"] = 0.14285714285714,
+        ["D-4"] = 0.23809523809524,
+        ["F-4"] = 0.19047619047619,
+        ["G-4"] = 0.19047619047619
+      },
+      total = 21
+    },
+    ["E-4|D-4"] = {
+      next = {
+        ["C-4"] = 1
+      },
+      total = 2
+    },
+    ["E-4|F-4"] = {
+      next = {
+        ["G-4"] = 1
+      },
+      total = 2
+    },
+    ["E-5|..."] = {
+      next = {
+        ["..."] = 0.18604651162791,
+        ["A-5"] = 0.046511627906977,
+        ["C-5"] = 0.27906976744186,
+        ["D-5"] = 0.2093023255814,
+        ["E-5"] = 0.069767441860465,
+        ["F-5"] = 0.093023255813953,
+        ["G-4"] = 0.023255813953488,
+        ["G-5"] = 0.093023255813953
+      },
+      total = 43
+    },
+    ["E-5|C-5"] = {
+      next = {
+        ["E-5"] = 1
+      },
+      total = 1
+    },
+    ["E-5|D-5"] = {
+      next = {
+        ["..."] = 0.125,
+        ["C-5"] = 0.75,
+        ["F-5"] = 0.125
+      },
+      total = 8
+    },
+    ["E-5|E-5"] = {
+      next = {
+        ["F-5"] = 1
+      },
+      total = 1
+    },
+    ["E-5|F-5"] = {
+      next = {
+        ["..."] = 0.5,
+        ["E-5"] = 0.4,
+        ["G-5"] = 0.1
+      },
+      total = 10
+    },
+    ["E-5|G-5"] = {
+      next = {
+        ["..."] = 0.5,
+        ["F-5"] = 0.5
+      },
+      total = 2
+    },
+    ["F-3|..."] = {
+      next = {
+        ["C-4"] = 1
+      },
+      total = 3
+    },
+    ["F-4|..."] = {
+      next = {
+        ["D-4"] = 0.11111111111111,
+        ["E-4"] = 0.44444444444444,
+        ["G-4"] = 0.44444444444444
+      },
+      total = 9
+    },
+    ["F-4|D-4"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 1
+    },
+    ["F-4|E-4"] = {
+      next = {
+        ["D-4"] = 1
+      },
+      total = 2
+    },
+    ["F-4|F-4"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 1
+    },
+    ["F-4|G-4"] = {
+      next = {
+        ["A-4"] = 1
+      },
+      total = 2
+    },
+    ["F-5|..."] = {
+      next = {
+        ["..."] = 0.2,
+        ["A-5"] = 0.066666666666667,
+        ["D-5"] = 0.2,
+        ["E-5"] = 0.46666666666667,
+        ["G-5"] = 0.066666666666667
+      },
+      total = 15
+    },
+    ["F-5|A-5"] = {
+      next = {
+        ["G-5"] = 1
+      },
+      total = 1
+    },
+    ["F-5|D-5"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 1
+    },
+    ["F-5|E-5"] = {
+      next = {
+        ["..."] = 0.5,
+        ["D-5"] = 0.16666666666667,
+        ["F-5"] = 0.16666666666667,
+        ["G-5"] = 0.16666666666667
+      },
+      total = 6
+    },
+    ["F-5|G-5"] = {
+      next = {
+        ["..."] = 0.75,
+        ["A-5"] = 0.25
+      },
+      total = 4
+    },
+    ["G-3|..."] = {
+      next = {
+        ["C-4"] = 0.5,
+        ["D-4"] = 0.25,
+        ["F-3"] = 0.25
+      },
+      total = 4
+    },
+    ["G-3|G-5"] = {
+      next = {
+        ["..."] = 0.5,
+        ["G-3"] = 0.5
+      },
+      total = 2
+    },
+    ["G-4|..."] = {
+      next = {
+        ["..."] = 0.090909090909091,
+        ["A-4"] = 0.090909090909091,
+        ["C-4"] = 0.045454545454545,
+        ["C-5"] = 0.18181818181818,
+        ["D-5"] = 0.045454545454545,
+        ["E-4"] = 0.22727272727273,
+        ["E-5"] = 0.045454545454545,
+        ["F-4"] = 0.27272727272727
+      },
+      total = 22
+    },
+    ["G-4|A-4"] = {
+      next = {
+        ["B-4"] = 1
+      },
+      total = 2
+    },
+    ["G-4|E-4"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 1
+    },
+    ["G-4|F-4"] = {
+      next = {
+        ["E-4"] = 1
+      },
+      total = 2
+    },
+    ["G-5|..."] = {
+      next = {
+        ["..."] = 0.35,
+        ["A-5"] = 0.05,
+        ["B-5"] = 0.05,
+        ["C-5"] = 0.05,
+        ["D-4"] = 0.05,
+        ["E-5"] = 0.25,
+        ["F-5"] = 0.2
+      },
+      total = 20
+    },
+    ["G-5|A-5"] = {
+      next = {
+        ["..."] = 0.5,
+        ["G-5"] = 0.5
+      },
+      total = 4
+    },
+    ["G-5|E-5"] = {
+      next = {
+        ["..."] = 1
+      },
+      total = 1
+    },
+    ["G-5|F-5"] = {
+      next = {
+        ["A-5"] = 1
+      },
+      total = 1
+    },
+    ["G-5|G-3"] = {
+      next = {
+        ["G-5"] = 1
+      },
+      total = 1
+    },
+    ["G-6|..."] = {
+      next = {
+        ["D-6"] = 1
+      },
+      total = 1
+    }
+  },
+  order = 2
+}

inc/audio/audio.songs.lua

@@ -162,3 +162,43 @@ Songs.custom_song = {
   }, 130)
 }
 ]]
+
+function generate_sequence(model_data, length)
+  local order = model.order
+  local model_data = model_data.model
+
+  -- random start key
+  local model_keys = {}
+  for k,_ in pairs(model) do
+    model_keys[#model_keys + 1] = k
+  end
+  local start_key = model_keys[math.ceil(math.random() * #model_keys)]
+
+  -- sequence starts with the start key
+  local seq = unmake_key(start_key)
+
+  -- generation loop
+  while #seq < length do
+    local current_key = table.concat({unpack(seq, #seq - order + 1, #seq)}, "|")
+
+    local chosen = "..."
+
+    local key_data = model[current_key]
+    if key_data then
+      local r = math.random()
+      local prob_sum = 0.0
+      for new_note, new_prob in pairs(key_data.next) do
+        prob_sum = prob_sum + new_prob
+        if prob_sum < r then
+          chosen = new_note
+        end
+      end
+    end
+
+--    print(current_key .. " --> " .. chosen)
+
+    seq[#seq+1] = chosen
+  end
+
+  return seq
+end

inc/decision/decision.go_to_end.lua

@@ -1,6 +1,9 @@
 Decision.register({
   id = "go_to_end",
   label = "Break the cycle",
+  condition = function()
+    return Ascension.is_complete()
+  end,
   handle = function()
     Window.set_current("end")
   end,

inc/decision/decision.go_to_sleep.lua

@@ -9,7 +9,8 @@ Decision.register({
       focus_center_y = (Config.screen.height / 2) - 18,
       focus_initial_radius = 0,
       on_win = function()
-        MysteriousManWindow.start()
+        local ascended = Ascension.consume_increase()
+        MysteriousManWindow.start({ skip_text = not ascended })
       end,
     })
   end,

inc/decision/decision.start_discussion.lua

@@ -1,18 +1,18 @@
 Decision.register({
   id = "start_discussion",
   label = function()
-    if Context.day_count >= 3 then
+    if Context.have_met_sumphore then
       return "Talk to Sumphore"
     end
     return "Talk to the homeless guy"
   end,
   handle = function()
-    if Context.day_count < 3 then
+    if not Context.have_met_sumphore then
       Discussion.start("homeless_guy", "game")
-    end
+    elseif Ascension.get_level() == 0 then
-    if Context.day_count >= 3 then
+      Discussion.start("homeless_guy", "game", 4)
+    else
       Discussion.start("sumphore_day_3", "game")
-      return
     end
   end,
 })

inc/discussion/discussion.sumphore.lua

@@ -46,7 +46,9 @@ Discussion.register({
     {
       question = "My name is Sumphore, nice to meet you.",
       answers = {
-        { label = "Nice to meet you, Sumphore.", next_step = 5 },
+        { label = "Nice to meet you, Sumphore.", next_step = 5, on_select = function()
+          Context.have_met_sumphore = true
+        end },
       },
     },
     {

inc/init/init.ascension.lua

@@ -0,0 +1,169 @@
+--- @section Ascension
+local ASCENSION_MAX_LEVEL = 9
+local ASCENSION_WORD = "ASCENSION"
+local _increased_this_cycle = false
+
+local _flash_active = false
+local _flash_timer = 0
+local _flash_total = 0
+local FLASH_DURATION = 120
+
+local _fade_active = false
+local _fade_timer = 0
+local FADE_DURATION = 120
+local FADE_COLORS = nil
+
+--- Gets initial ascension state.
+--- @within Ascension
+--- @return result table Initial ascension state. </br>
+--- Fields: </br>
+--- * level (number) Current ascension level (0-9).
+function Ascension.get_initial()
+  _increased_this_cycle = false
+  return {
+    level = 0,
+  }
+end
+
+--- Gets the current ascension level.
+--- @within Ascension
+--- @return number The current ascension level (0-9).
+function Ascension.get_level()
+  if not Context or not Context.ascension then return 0 end
+  return Context.ascension.level
+end
+
+--- Gets the maximum ascension level.
+--- @within Ascension
+--- @return number The maximum ascension level.
+function Ascension.get_max_level()
+  return ASCENSION_MAX_LEVEL
+end
+
+--- Increases the ascension level by 1, clamped to the max.
+--- @within Ascension
+function Ascension.increase()
+  if not Context or not Context.ascension then return end
+  Context.ascension.level = math.min(ASCENSION_MAX_LEVEL, Context.ascension.level + 1)
+  _increased_this_cycle = true
+end
+
+--- Returns true if ascension was incremented since the last consume call.
+--- @within Ascension
+--- @return boolean Whether ascension increased this cycle.
+function Ascension.did_increase()
+  return _increased_this_cycle
+end
+
+--- Consumes the increase flag, returning its value and resetting it.
+--- @within Ascension
+--- @return boolean Whether ascension had increased this cycle.
+function Ascension.consume_increase()
+  local result = _increased_this_cycle
+  _increased_this_cycle = false
+  return result
+end
+
+--- Returns true when the ascension meter is fully complete (level 10).
+--- @within Ascension
+--- @return boolean Whether the cycle can be broken.
+function Ascension.is_complete()
+  return Ascension.get_level() >= ASCENSION_MAX_LEVEL
+end
+
+--- Draws the ascension meter as individual letters of "ASCENSION".
+--- Each letter lights up per level. Drawn beneath existing meter bars.
+--- @within Ascension
+--- @param x number Left x position.
+--- @param y number Top y position.
+--- @param options table Optional overrides: lit_color, dim_color, spacing.
+function Ascension.draw(x, y, options)
+  if not Context or not Context.ascension then return end
+  options = options or {}
+  local level = Context.ascension.level
+  if level < 1 then return end
+  local lit_color = options.lit_color or Config.colors.white
+  local spacing = options.spacing or 5
+
+  for i = 1, level do
+    local ch = ASCENSION_WORD:sub(i, i)
+    local color
+    if i == level and _fade_active then
+      color = Ascension.get_fade_color()
+    else
+      color = lit_color
+    end
+    print(ch, x + (i - 1) * spacing, y, color, false, 1, true)
+  end
+end
+
+--- Returns the current fade-in color based on progress through the palette.
+--- @within Ascension
+--- @return number The palette color index for the current fade step.
+function Ascension.get_fade_color()
+  if not FADE_COLORS then
+    FADE_COLORS = {
+      Config.colors.black,
+      Config.colors.dark_grey,
+      Config.colors.light_grey,
+      Config.colors.white,
+    }
+  end
+  if not _fade_active then return Config.colors.white end
+  local progress = math.min(_fade_timer / FADE_DURATION, 1)
+  local idx = math.floor(progress * (#FADE_COLORS - 1)) + 1
+  return FADE_COLORS[idx]
+end
+
+--- Starts the fade-in effect for the most recently gained letter.
+--- @within Ascension
+function Ascension.start_fade()
+  _fade_active = true
+  _fade_timer = 0
+end
+
+--- Starts the ascension flash effect.
+--- @within Ascension
+function Ascension.start_flash()
+  _flash_active = true
+  _flash_timer = 0
+  _flash_total = FLASH_DURATION
+end
+
+--- Updates and draws the ascension flash overlay.
+--- Call once per frame from the main loop.
+--- @within Ascension
+function Ascension.draw_flash()
+  if not _flash_active then return end
+  _flash_timer = _flash_timer + 1
+
+  local sw = Config.screen.width
+  local sh = Config.screen.height
+
+  local progress = _flash_timer / FLASH_DURATION
+  local pulse = math.abs(math.sin(progress * math.pi * 6))
+  local flash_color = (pulse > 0.5) and Config.colors.white or Config.colors.light_grey
+  rect(0, 0, sw, sh, flash_color)
+
+  if _flash_timer >= _flash_total then
+    _flash_active = false
+    Ascension.start_fade()
+  end
+end
+
+--- Updates the fade-in timer. Call once per frame from the main loop.
+--- @within Ascension
+function Ascension.update_fade()
+  if not _fade_active then return end
+  _fade_timer = _fade_timer + 1
+  if _fade_timer >= FADE_DURATION then
+    _fade_active = false
+  end
+end
+
+--- Returns whether a flash effect is currently active.
+--- @within Ascension
+--- @return boolean Whether the flash is playing.
+function Ascension.is_flashing()
+  return _flash_active
+end

inc/init/init.context.lua

@@ -17,12 +17,15 @@ Context = {}
 --- * minigame_button_mash (table) Button mash minigame state (see Minigame.get_default_button_mash).<br/>
 --- * minigame_rhythm (table) Rhythm minigame state (see Minigame.get_default_rhythm).<br/>
 --- * meters (table) Meter values (see Meter.get_initial).<br/>
+--- * ascension (table) Ascension meter state (see Ascension.get_initial).<br/>
 --- * triggers (table) Active trigger runtime state, keyed by trigger ID.<br/>
 --- * stat_screen_active (boolean) Whether the stat screen overlay is currently shown.<br/>
+--- * have_met_sumphore (boolean) Whether the player has talked to the homeless guy.<br/>
 --- * game (table) Current game progress state. Contains: `current_screen` (string) active screen ID, `current_situation` (string|nil) active situation ID.<br/>
 function Context.initial_data()
   return {
     current_menu_item = 1,
+    test_mode = false,
     popup = {
       show = false,
       content = {}
@@ -33,9 +36,11 @@ function Context.initial_data()
     minigame_button_mash = {},
     minigame_rhythm = {},
     meters = Meter.get_initial(),
+    ascension = Ascension.get_initial(),
     timer = Timer.get_initial(),
     triggers = {},
     home_norman_visible = false,
+    have_met_sumphore = false,
     game = {
       current_screen = "home",
       current_situation = nil,

inc/init/init.module.lua

@@ -17,3 +17,4 @@ Timer = {}
 Trigger = {}
 Discussion = {}
 AsciiArt = {}
+Ascension = {}

inc/logic/logic.day.lua

@@ -23,3 +23,9 @@ Day.register_handler(function()
     m.wpm = math.max(0, m.wpm - METER_DECAY_PER_DAY)
     m.bm = math.max(0, m.bm - METER_DECAY_PER_DAY)
 end)
+
+Day.register_handler(function()
+    if Context.day_count == 3 then
+        Ascension.increase()
+    end
+end)

inc/logic/logic.discussion.lua

@@ -37,15 +37,18 @@ end
 --- @within Discussion
 --- @param id string The discussion ID to start.
 --- @param return_window string The window ID to return to after the discussion.
-function Discussion.start(id, return_window)
+--- @param[opt] start_step number The step index to start from (defaults to 1).
+function Discussion.start(id, return_window, start_step)
   local discussion = _discussions[id]
   if not discussion then
     trace("Error: Discussion not found: " .. tostring(id))
     return
   end
+  local step = start_step or 1
+  if not discussion.steps[step] then step = 1 end
   Context.discussion.active = true
   Context.discussion.id = id
-  Context.discussion.step = 1
+  Context.discussion.step = step
   Context.discussion.selected_answer = 1
   Context.discussion.scroll_y = 0
   Context.discussion.scroll_timer = 0

inc/logic/logic.meter.lua

@@ -152,4 +152,7 @@ function Meter.draw()
     end
     print(meter.label, label_x, label_y, meter.color, false, 1, true)
   end
+
+  local ascension_y = start_y + 3 * line_h + 1
+  Ascension.draw(bar_x, ascension_y, { spacing = 5 })
 end

inc/logic/logic.minigame.lua

@@ -5,7 +5,7 @@
 --- @within Minigame
 function Minigame.draw_win_overlay()
   local text = "SUCCESS"
-  local tw = #text * 4
+  local tw = #text * 6
   local th = 6
   local padding = 4
   local box_w = tw + padding * 2

inc/logic/logic.timer.lua

@@ -30,7 +30,6 @@ function Timer.update()
   if not in_minigame then
     t.progress = t.progress + (1 / timer_duration)
     if t.progress >= 1 then
-      Day.increase()
       t.progress = t.progress - 1
     end
   end

inc/meta/meta.assets.lua

@@ -397,13 +397,13 @@
 -- </MAP>
 -- <SFX>
 -- 000:060006400600064006000640060006400600060006000600060006000600060006000600060006000600060006000600060006000600060006000600300000000900
--- 016:05000500050005400540054005700570057005400540054005700570057005c005c005c005c005c005c005c005c005c005c005c005c005c005c005c0470000000000
+-- 016:00000000000000400040004000700070007000400040004000700070007000c000c000c000c000c000c000c000c000c000c000c000c000c000c000c0470000000000
--- 017:040004000400040004000400046004600460046004600460146024c034c054c064c084c0a4c0b4c0c4c0c4c0d4c0d4c0e4c0f4c0f4c0f4c0f4c0f4c0400000000000
+-- 017:000000000000000000000000006000600060006000600060106020c030c050c060c080c0a0c0b0c0c0c0c0c0d0c0d0c0e0c0f0c0f0c0f0c0f0c0f0c0400000000000
--- 018:04c004c004c004c004c004c0046004600460046004600460240034005400640084009400a400b400c400d400d400e400e400e400f400f400f400f400300000000000
+-- 018:00c000c000c000c000c000c0006000600060006000600060200030005000600080009000a000b000c000d000d000e000e000e000f000f000f000f000500000000000
--- 019:0400040004000400040004d014d014d024d034d054d074d094d0b4d0c4d0e4d0f4d0f4d0f4d0f4d0f4d0f4d0f4d0f4d0f4d0f4d0f4d0f4d0f4d0f4d0400000000000
+-- 019:0000000000000000000000d010d010d020d030d050d070d090d0b0d0c0d0e0d0f0d0f0d0f0d0f0d0f0d0f0d0f0d0f0d0f0d0f0d0f0d0f0d0f0d0f0d0500000000000
 -- 020:090009000900090009000900090009000900090009000900090009000900090009000900090009000900090009000900090009000900090009000900500000000000
--- 021:01000100010001000100f10001100110011001100110f11001200120012001200120f1201130113011302130213021302130313041308130a130d130380000000000
+-- 021:01000100010001000100f10001100110011001100110f11001200120012001200120f1201130113011302130213021302130313041308130a130d130580000000000
--- 032:010001100100011001000110010001100100010001000100010001000100010001000100010001000100010001000100010001000100010001000100301000000800
+-- 032:010001100100011001000110010001100100010001000100010001000100010001000100010001000100010001000100010001000100010001000100400000000800
 -- 033:000000010002000300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000d40000000004
 -- 044:0600f6000620f6000600f6000610f600f600f6000600f600f600f600f6000600060006000600060006000600060006000600060006000600060006004600000f0f00
 -- 045:0000f0000020f0000000f0000010f000f000f0000000f000f000f000f0000000000000000000000000000000000000000000000000000000000000004600000f0f00
@@ -433,10 +433,10 @@
 -- 000:4008b50000000000000000001008c10000004008b50000001008c1000000000000000000e008b30000004008b50000001008c10000000008c10000000008c10000000000000000000000000000000000000000000000000000000000000000004008b50000000000000000001008c10000004008b50000001008c10000000008c1000000e008b30000004008b50000001008c10000000008c10000000008c10000000008c10000000008c10000000008c1000000000000000000000000000000
 -- 001:4008b50000000000000000001008c10000004008b50000001008c1000000000000000000e008b30000004008b50000001008c10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000007008b50000007008b50000001008c10000007008b50000001008c10000000008c10000007008b50000009008b50000001008c10000009008b50000001008c10000009008b50000009008b50000001008c10000009008b50000001008c1000000
 -- 003:4008d30000000000000000000000000000000000000000004008d90000000000000000000000000000000000000000004008d30000000000000000000000000000004008d30000004008d90000000000000000000000000000000000000000004008d30000000000000000000000000000000000000000004008d90000000000000000000000000000000000000000004008d30000000000000000000000000000004008d30000004008d9000000000000000000000000000000000000000000
--- 004:40088d000000e0088b000000b0088b000881e0088b00000040088d000000e0088b000881b0088b000000e0088b00000040088d000000e0088b000000b0088b000000e0088b00000040088d000000e0088b000000b0088b000000e0088b00000040088b000000e00889000000b00889000000e0088900000040088b000000e00889000000b00889000000e0088900000040088b000000e00889000000b00889000000e0088900000040088b000000e00889000000b00889000000e00889000000
+-- 004:49998d000000e0088b000000b0088b000881e0088b00000040088d000000e0088b000881b0088b000000e0088b00000040088d000000e0088b000000b0088b000000e0088b00000040088d000000e0088b000000b0088b000000e0088b00000040088b000000e00889000000b00889000000e0088900000040088b000000e00889000000b00889000000e0088900000040088b000000e00889000000b00889000000e0088900000040088b000000e00889000000b00889000000e00889000000
 -- 005:400881000000000881000000000881000000000000000000400883000000000000000000000000000000000000000000400881000000000000000000000000000000000000000000400883000000000000000000000000000000000000000000400881000000000000000000000000000000000000000000400883000000000000000000000000000000000000000000400881000000000000000000000000000000000000000000400883000000000000000000000000000000000000000000
 -- </PATTERNS>
 -- <TRACKS>
--- 000:100001200001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
+-- 000:1000012000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ff
 -- 001:581000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
 -- </TRACKS>

inc/meta/meta.header.lua

@@ -4,5 +4,5 @@
 -- desc:    Life of a programmer
 -- site:    https://git.teletype.hu/games/impostor
 -- license: MIT License
--- version: 0.8
+-- version: 1.0-beta1
 -- script:  lua

inc/screen/screen.home.lua

@@ -5,6 +5,7 @@ Screen.register({
     "go_to_toilet",
     "go_to_walking_to_office",
     "go_to_sleep",
+    "go_to_end",
   },
   background = "bedroom",
   draw = function()

inc/screen/screen.toilet.lua

@@ -75,5 +75,14 @@ Screen.register({
       Print.text(decay_text, bar_x - decay_w - 4, bar_y, Config.colors.light_blue)
       Print.text(mult_text, bar_x + bar_w + 4, bar_y, Config.colors.light_blue)
     end
+
+    if Ascension.get_level() > 0 then
+      local asc_y = meter_start_y + #meter_list * 20
+      local asc_letter_y = asc_y + 10
+      local asc_spacing = 8
+      local asc_total_w = Ascension.get_level() * asc_spacing
+      local asc_x = math.floor((sw - asc_total_w) / 2)
+      Ascension.draw(asc_x, asc_letter_y, { spacing = asc_spacing })
+    end
   end,
 })

inc/system/system.input.lua

@@ -22,6 +22,10 @@ function Input.left() return btnp(INPUT_KEY_LEFT) end
 --- Checks if Right is pressed.
 --- @within Input
 function Input.right() return btnp(INPUT_KEY_RIGHT) end
+--- Checks if Space is pressed.
+--- @within Input
+function Input.space() return keyp(INPUT_KEY_SPACE) end
+
 --- Checks if Select is pressed.
 --- @within Input
 function Input.select() return btnp(INPUT_KEY_A) or keyp(INPUT_KEY_SPACE) end

inc/system/system.main.lua

@@ -26,8 +26,10 @@ function TIC()
   Timer.update()
   Trigger.update()
   Glitch.draw()
+  Ascension.update_fade()
   if Context.game_in_progress then
     Meter.draw()
     Timer.draw()
   end
+  Ascension.draw_flash()
 end

inc/window/window.intro.ttg.lua

@@ -1,6 +1,8 @@
 --- @section TTGIntroWindow
 TTGIntroWindow.timer = 180
 TTGIntroWindow.glitch_started = false
+TTGIntroWindow.space_count = 0
+TTGIntroWindow.space_timer = 0
 TTGIntroWindow.text = [[
 ###### ###### ######
   ##     ##   #
@@ -25,8 +27,19 @@ function TTGIntroWindow.update()
     TTGIntroWindow.glitch_started = true
   end
 
+  -- Count menu_back presses during the intro
+  if Input.menu_back() then
+    TTGIntroWindow.space_count = TTGIntroWindow.space_count + 1
+  end
+
   TTGIntroWindow.timer = TTGIntroWindow.timer - 1
-  if TTGIntroWindow.timer <= 0 or Input.select() or Input.menu_confirm() then
+  if TTGIntroWindow.timer <= 0 or Input.menu_confirm() then
+    -- Evaluate exactly 3 presses at the end of the intro
+    if TTGIntroWindow.space_count == 3 then
+      Context.test_mode = true
+      MenuWindow.refresh_menu_items()
+      Audio.sfx_success()
+    end
     Glitch.hide()
     Window.set_current("intro_brief")
   end

inc/window/window.menu.lua

@@ -4,7 +4,11 @@ local _menu_items = {}
 --- Draws the menu window.
 --- @within MenuWindow
 function MenuWindow.draw()
-  UI.draw_top_bar("Definitely not an Impostor")
+  local title = "Definitely not an Impostor"
+  if Context.test_mode then
+    title = title .. " (TEST MODE)"
+  end
+  UI.draw_top_bar(title)
 
   local menu_h = #_menu_items * 10
   local y = 10 + (Config.screen.height - 10 - 10 - menu_h) / 2
@@ -81,6 +85,14 @@ function MenuWindow.continued()
   GameWindow.set_state("continued")
 end
 
+--- Opens the minigame ddr test menu.
+--- @within MenuWindow
+function MenuWindow.ddr_test()
+  AudioTestWindow.init()
+  GameWindow.set_state("minigame_ddr")
+  MinigameDDRWindow.start("menu", nil)
+end
+
 --- Refreshes menu items.
 --- @within MenuWindow
 function MenuWindow.refresh_menu_items()
@@ -93,8 +105,13 @@ function MenuWindow.refresh_menu_items()
   table.insert(_menu_items, {label = "New Game", decision = MenuWindow.new_game})
   table.insert(_menu_items, {label = "Load Game", decision = MenuWindow.load_game})
   table.insert(_menu_items, {label = "Configuration", decision = MenuWindow.configuration})
+
+  if Context.test_mode then
     table.insert(_menu_items, {label = "Audio Test", decision = MenuWindow.audio_test})
     table.insert(_menu_items, {label = "To Be Continued...", decision = MenuWindow.continued})
+    table.insert(_menu_items, {label = "DDR Test", decision = MenuWindow.ddr_test})
+  end
+
   table.insert(_menu_items, {label = "Exit", decision = MenuWindow.exit})
 
   Context.current_menu_item = 1

inc/window/window.minigame.ddr.lua

@@ -141,16 +141,16 @@ local function draw_arrow(x, y, direction, color)
   local half = size / 2
   if direction == "left" then
     tri(x + half, y, x, y + half, x + half, y + size, color)
-    rect(x + half, y + half - 2, half, 4, color)
+    rectb(x + half, y + half - 2, half, 4, color)
   elseif direction == "right" then
     tri(x + half, y, x + size, y + half, x + half, y + size, color)
-    rect(x, y + half - 2, half, 4, color)
+    rectb(x, y + half - 2, half, 4, color)
   elseif direction == "up" then
     tri(x, y + half, x + half, y, x + size, y + half, color)
-    rect(x + half - 2, y + half, 4, half, color)
+    rectb(x + half - 2, y + half, 4, half, color)
   elseif direction == "down" then
     tri(x, y + half, x + half, y + size, x + size, y + half, color)
-    rect(x + half - 2, y, 4, half, color)
+    rectb(x + half - 2, y, 4, half, color)
   end
 end
 

inc/window/window.mysterious_man.lua

@@ -16,13 +16,18 @@ He says nothing.
 
 local state = STATE_TEXT
 local text_y = Config.screen.height
-local text_speed = 0.4
+local text_speed = 0.2
 local day_timer = 0
 local day_display_frames = 120
+local text_done = false
+local text_done_timer = 0
+local TEXT_DONE_HOLD_FRAMES = 120
 local selected_choice = 1
 local text = DEFAULT_TEXT
 local day_text_override = nil
 local on_text_complete = nil
+local show_mysterious_screen = true
+local trigger_flash_on_wake = false
 
 local choices = {
   {
@@ -47,16 +52,30 @@ end
 --- * text (string) Override for the scrolling text.<br/>
 --- * day_text (string) Override for the centered day label.<br/>
 --- * on_text_complete (function) Callback fired once when the text phase ends.<br/>
+--- * skip_text (boolean) If true, skip the text phase and go straight to day display.<br/>
 function MysteriousManWindow.start(options)
   options = options or {}
-  state = STATE_TEXT
-  text_y = Config.screen.height
   day_timer = 0
+  text_done = false
+  text_done_timer = 0
   selected_choice = 1
   text = options.text or DEFAULT_TEXT
+  local line_count = 1
+  for _ in string.gmatch(text, "\n") do line_count = line_count + 1 end
+  local text_block_h = line_count * 8
+  text_y = math.floor((Config.screen.height - text_block_h) / 2)
   day_text_override = options.day_text
   on_text_complete = options.on_text_complete
   Meter.hide()
+  trigger_flash_on_wake = not options.skip_text
+  if options.skip_text then
+    show_mysterious_screen = false
+    state = STATE_DAY
+    day_timer = day_display_frames
+  else
+    show_mysterious_screen = true
+    state = STATE_TEXT
+  end
   Window.set_current("mysterious_man")
 end
 
@@ -86,6 +105,10 @@ local function wake_up()
       Audio.music_play_wakingup()
       Context.home_norman_visible = true
       Meter.show()
+      if trigger_flash_on_wake then
+        trigger_flash_on_wake = false
+        Ascension.start_flash()
+      end
       Window.set_current("game")
     end,
   })
@@ -101,6 +124,7 @@ end
 --- @within MysteriousManWindow
 function MysteriousManWindow.update()
   if state == STATE_TEXT then
+    if not text_done then
       text_y = text_y - text_speed
 
       local lines = 1
@@ -109,19 +133,26 @@ function MysteriousManWindow.update()
       end
 
       if text_y < -lines * 8 then
+        text_done = true
+        text_done_timer = TEXT_DONE_HOLD_FRAMES
+      end
+    else
+      text_done_timer = text_done_timer - 1
+      if text_done_timer <= 0 then
         go_to_day_state()
       end
-
-    if Input.select() then
-      go_to_day_state()
     end
   elseif state == STATE_DAY then
     day_timer = day_timer - 1
 
     if day_timer <= 0 or Input.select() then
+      if trigger_flash_on_wake or Ascension.get_level() < 1 then
+        wake_up()
+      else
         state = STATE_CHOICE
         selected_choice = 1
       end
+    end
   elseif state == STATE_CHOICE then
     selected_choice = UI.update_menu(choices, selected_choice)
 
@@ -140,11 +171,17 @@ end
 --- @within MysteriousManWindow
 function MysteriousManWindow.draw()
   rect(0, 0, Config.screen.width, Config.screen.height, Config.colors.black)
+  if show_mysterious_screen then
     Screen.draw_the_mysterious_screen()
+  end
 
   if state == STATE_TEXT then
-    local x = (Config.screen.width - 132) / 2
+    local cx = Config.screen.width / 2
-    Print.text(text, x, text_y, Config.colors.light_grey)
+    local line_y = text_y
+    for line in (text .. "\n"):gmatch("(.-)\n") do
+      Print.text_center(line, cx, line_y, Config.colors.light_grey)
+      line_y = line_y + 8
+    end
   elseif state == STATE_DAY then
     local day_text = day_text_override or ("Day " .. Context.day_count)
     Print.text_center(

tools/musicator/midi_converter.py

@@ -0,0 +1,46 @@
+from mido import MidiFile
+
+MIDI_FILE = "/tmp/teletype_impostor_musicator/maestro-v3.0.0/2018/MIDI-Unprocessed_Schubert7-9_MID--AUDIO_16_R2_2018_wav.midi"
+
+# resolution: rows per beat (e.g. 4 = 16th notes)
+ROWS_PER_BEAT = 4
+
+names = ["C","C#","D","D#","E","F","F#","G","G#","A","A#","B"]
+
+def note_name(n):
+    octave = n // 12 - 1
+    return f"{names[n % 12]}-{octave}"
+
+mid = MidiFile(MIDI_FILE)
+tpb = mid.ticks_per_beat
+
+row_ticks = tpb // ROWS_PER_BEAT
+
+time = 0
+rows = {}
+
+for msg in mid:
+    time += msg.time
+    if msg.type == "note_on" and msg.velocity > 0:
+        row = int(time // row_ticks)
+        rows.setdefault(row, []).append(msg.note)
+
+# build monophonic sequence (highest note wins)
+max_row = max(rows.keys())
+sequence = []
+
+for r in range(max_row + 1):
+    if r in rows:
+        n = max(rows[r])
+        sequence.append(note_name(n))
+    else:
+        sequence.append("...")
+
+# trim (optional)
+sequence = sequence[:512]
+
+# output as Lua
+print("sequence = {")
+for n in sequence:
+    print(f'  "{n}",')
+print("}")

tools/musicator/musicator.lua

@@ -0,0 +1,127 @@
+-- key separator: |
+-- empty note: "..."
+
+math.randomseed(os.time())
+
+local unpack = unpack or table.unpack
+
+local function make_key(tbl)
+  return table.concat(tbl, "|")
+end
+
+local function unmake_key(k)
+  local result = {}
+  for t in string.gmatch(k, "[^|]+") do
+    result[#result + 1] = t
+  end
+
+  return result
+end
+
+local function add_key(str, value)
+  return str .. "|" .. value
+end
+
+local function split_last(full)
+  local i = full:match(".*()|")
+  return full:sub(1, i-1), full:sub(i+1)
+end
+
+local function has_value (tab, val)
+    for index, value in ipairs(tab) do
+        if value == val then
+            return true
+        end
+    end
+
+    return false
+end
+
+-- helper: split key into parts
+local function split(k)
+  local t = {}
+  for part in string.gmatch(k, "[^|]+") do
+    t[#t+1] = part
+  end
+  return t
+end
+
+function build_markov_model(sequence, order)
+  -- TODO: add {"..." x order} to beginning?
+
+  local model = { }
+
+  -- count
+  for i = 1, #sequence - order do
+    local key = make_key({unpack(sequence, i, i + order - 1)})
+    local next_note = sequence[i + order]
+
+    local data = model[key] or { next={}, total=0 }
+
+    data.next[next_note] = (data.next[next_note] or 0) + 1
+    data.total = data.total + 1
+
+    model[key] = data
+  end
+
+  -- normalize
+  for temp_key,temp_data in pairs(model) do
+    for temp_note, temp_count in pairs(temp_data.next) do
+      model[temp_key].next[temp_note] = temp_count / temp_data.total
+    end
+  end
+
+--[[
+  for k,v in pairs(model) do
+    print("-----" .. k)
+    for k2,v2 in pairs(v.next) do
+      print(k2, v2)
+    end
+  end
+--]]
+
+  return {
+    order = order,
+    model = model
+  }
+end
+
+function generate_sequence(model_data, length)
+  local order = model.order
+  local model_data = model_data.model
+
+  -- random start key
+  local model_keys = {}
+  for k,_ in pairs(model) do
+    model_keys[#model_keys + 1] = k
+  end
+  local start_key = model_keys[math.ceil(math.random() * #model_keys)]
+
+  -- sequence starts with the start key
+  local seq = unmake_key(start_key)
+
+  -- generation loop
+  while #seq < length do
+    local current_key = table.concat({unpack(seq, #seq - order + 1, #seq)}, "|")
+
+    local chosen = "..."
+
+    local key_data = model[current_key]
+    if key_data then
+      local r = math.random()
+      local prob_sum = 0.0
+      for new_note, new_prob in pairs(key_data.next) do
+        prob_sum = prob_sum + new_prob
+        if prob_sum < r then
+          chosen = new_note
+        end
+      end
+    end
+
+--    print(current_key .. " --> " .. chosen)
+
+    seq[#seq+1] = chosen
+  end
+
+  return seq
+end

tools/musicator/sequence_to_strudel.py

@@ -0,0 +1,42 @@
+import sys
+import re
+
+ROWS_PER_BEAT = 4   # keep consistent with your MIDI extraction
+SOUND = "piano"
+
+def parse_sequence(text):
+    return re.findall(r'"([^"]+)"', text)
+
+def to_strudel_notes(seq):
+    out = []
+    for n in seq:
+        if n == "..." or n == "---":
+            out.append("~")
+        else:
+            # C-5 → c5, C#5 → c#5
+            note = n.replace("-", "")
+            out.append(note.lower())
+    return out
+
+def chunk(seq, size):
+    for i in range(0, len(seq), size):
+        yield seq[i:i+size]
+
+# read from stdin
+text = sys.stdin.read()
+
+sequence = parse_sequence(text)
+notes = to_strudel_notes(sequence)
+
+# group into musical lines (4 beats)
+lines = []
+for group in chunk(notes, ROWS_PER_BEAT * 4):
+    lines.append(" ".join(group))
+
+pattern = "\n".join(lines)
+
+print("note(`")
+print(pattern)
+print(f"`).sound(\"{SOUND}\")")
+
+# npm install -g strudel-cli

tools/musicator/teach.lua

@@ -0,0 +1,414 @@
+-- teach the musicator
+-- uses samples from: https://magenta.tensorflow.org/datasets/maestro#v300
+
+--require("luarocks.loader")
+--require("luamidi")
+
+require("./musicator")
+local inspect = require("inspect")
+
+math.randomseed(os.time())
+
+function flatten(v)
+    local res = {}
+    local function flatten(v)
+        if type(v) ~= "table" then
+            table.insert(res, v)
+            return
+        end
+        for _, v in ipairs(v) do
+            flatten(v)
+        end
+    end
+    flatten(v)
+    return res
+end
+
+
+local training_data = {
+
+-- simple ascending phrase
+{
+  "C-4","...","D-4","...","E-4","...","G-4","...",
+  "E-4","...","D-4","...","C-4","...","...","..."
+},
+
+-- descending answer
+{
+  "G-4","...","F-4","...","E-4","...","D-4","...",
+  "C-4","...","D-4","...","E-4","...","...","..."
+},
+
+-- arpeggio major
+{
+  "C-4","...","E-4","...","G-4","...","C-5","...",
+  "G-4","...","E-4","...","C-4","...","...","..."
+},
+
+-- arpeggio minor
+{
+  "A-4","...","C-5","...","E-5","...","A-5","...",
+  "E-5","...","C-5","...","A-4","...","...","..."
+},
+
+-- stepwise melody (folk-like)
+{
+  "D-4","...","E-4","...","F-4","...","G-4","...",
+  "F-4","...","E-4","...","D-4","...","...","..."
+},
+
+-- repeated note rhythm
+{
+  "C-5","C-5","...","C-5","...","C-5","C-5","...",
+  "D-5","...","E-5","...","...","...","...","..."
+},
+
+-- bounce pattern
+{
+  "C-5","...","G-4","...","C-5","...","G-4","...",
+  "D-5","...","A-4","...","D-5","...","...","..."
+},
+
+-- scale run up
+{
+  "C-4","D-4","E-4","F-4","G-4","A-4","B-4","C-5",
+  "...","...","...","...","...","...","...","..."
+},
+
+-- scale run down
+{
+  "C-5","B-4","A-4","G-4","F-4","E-4","D-4","C-4",
+  "...","...","...","...","...","...","...","..."
+},
+
+-- syncopated feel
+{
+  "C-5","...","...","D-5","...","...","E-5","...",
+  "C-5","...","...","G-4","...","...","...","..."
+},
+
+-- triplet-ish feel (simulated)
+{
+  "E-5","D-5","C-5","...","E-5","D-5","C-5","...",
+  "G-4","...","...","...","...","...","...","..."
+},
+
+-- small jumps
+{
+  "C-5","...","E-5","...","D-5","...","F-5","...",
+  "E-5","...","C-5","...","...","...","...","..."
+},
+
+-- call
+{
+  "G-4","...","A-4","...","C-5","...","A-4","...",
+  "...","...","...","...","...","...","...","..."
+},
+
+-- response
+{
+  "E-4","...","F-4","...","G-4","...","F-4","...",
+  "D-4","...","...","...","...","...","...","..."
+},
+
+-- denser pattern (DDR-like)
+{
+  "C-5","D-5","E-5","...","D-5","E-5","F-5","...",
+  "E-5","D-5","C-5","...","...","...","...","..."
+},
+
+-- alternating pattern (good for gameplay)
+{
+  "C-5","...","E-5","...","C-5","...","E-5","...",
+  "D-5","...","F-5","...","D-5","...","...","..."
+},
+
+-- higher register variant
+{
+  "G-5","...","A-5","...","B-5","...","D-6","...",
+  "B-5","...","A-5","...","G-5","...","...","..."
+},
+
+-- low register grounding
+{
+  "C-4","...","G-3","...","C-4","...","G-3","...",
+  "F-3","...","C-4","...","...","...","...","..."
+},
+
+-- variant of ascending with offset
+{
+  "...","C-4","...","D-4","...","E-4","...","G-4",
+  "...","E-4","...","D-4","...","C-4","...","..."
+},
+
+-- staggered rhythm
+{
+  "C-4","...","...","D-4","...","E-4","...","...",
+  "G-4","...","E-4","...","D-4","...","...","..."
+},
+
+-- broken arpeggio (different spacing)
+{
+  "C-4","E-4","...","G-4","...","C-5","...",
+  "G-4","E-4","...","C-4","...","...","...","..."
+},
+
+-- minor variation (shifted)
+{
+  "...","A-4","C-5","...","E-5","...","A-5","...",
+  "E-5","...","C-5","...","A-4","...","...","..."
+},
+
+-- repeated + variation
+{
+  "D-4","D-4","...","E-4","...","F-4","F-4","...",
+  "G-4","...","F-4","...","E-4","...","...","..."
+},
+
+-- zig-zag motion
+{
+  "C-5","...","E-5","...","D-5","...","F-5","...",
+  "E-5","...","G-5","...","F-5","...","...","..."
+},
+
+-- alternating step/jump
+{
+  "C-5","...","D-5","...","G-5","...","F-5","...",
+  "E-5","...","C-5","...","D-5","...","...","..."
+},
+
+-- denser burst pattern
+{
+  "C-5","D-5","E-5","F-5","...","E-5","D-5","C-5",
+  "...","...","...","...","...","...","...","..."
+},
+
+-- rolling pattern
+{
+  "E-5","...","D-5","...","C-5","...","D-5","...",
+  "E-5","...","G-5","...","E-5","...","...","..."
+},
+
+-- syncopation variant
+{
+  "...","C-5","...","...","E-5","...","...","G-5",
+  "...","E-5","...","C-5","...","...","...","..."
+},
+
+-- low-high interplay
+{
+  "C-4","...","G-4","...","C-5","...","G-4","...",
+  "E-4","...","C-4","...","...","...","...","..."
+},
+
+-- descending but staggered
+{
+  "C-5","...","...","B-4","...","A-4","...","...",
+  "G-4","...","F-4","...","E-4","...","...","..."
+},
+
+-- small trill-like feel
+{
+  "E-5","F-5","E-5","...","E-5","F-5","E-5","...",
+  "D-5","...","C-5","...","...","...","...","..."
+},
+
+-- call variant (shifted timing)
+{
+  "...","G-4","...","A-4","...","C-5","...","A-4",
+  "...","...","...","...","...","...","...","..."
+},
+
+-- response variant
+{
+  "...","E-4","...","F-4","...","G-4","...","F-4",
+  "D-4","...","...","...","...","...","...","..."
+},
+
+-- dense DDR-ish alternating
+{
+  "C-5","...","D-5","...","C-5","...","D-5","...",
+  "E-5","...","F-5","...","E-5","...","...","..."
+},
+
+-- higher variation arpeggio
+{
+  "G-5","...","B-5","...","D-6","...","G-6","...",
+  "D-6","...","B-5","...","G-5","...","...","..."
+},
+
+-- low groove pattern
+{
+  "C-3","...","C-4","...","G-3","...","C-4","...",
+  "F-3","...","C-4","...","...","...","...","..."
+},
+
+-- slightly chaotic (good for branching)
+{
+  "C-5","...","E-5","D-5","...","G-5","...","F-5",
+  "...","D-5","...","C-5","...","...","...","..."
+},
+
+-- mixed density
+{
+  "C-5","D-5","...","E-5","...","F-5","G-5","...",
+  "E-5","...","D-5","C-5","...","...","...","..."
+},
+
+-- offset staircase up
+{
+  "...","C-4","D-4","E-4","F-4","G-4","A-4","B-4",
+  "C-5","...","...","...","...","...","...","..."
+},
+
+-- offset staircase down
+{
+  "...","C-5","B-4","A-4","G-4","F-4","E-4","D-4",
+  "C-4","...","...","...","...","...","...","..."
+},
+
+-- dense zigzag
+{
+  "C-5","E-5","D-5","F-5","E-5","G-5","F-5","A-5",
+  "G-5","...","...","...","...","...","...","..."
+},
+
+-- jack pattern (DDR classic)
+{
+  "C-5","C-5","C-5","...","C-5","C-5","...","...",
+  "D-5","D-5","...","...","...","...","...","..."
+},
+
+-- alternating two-note burst
+{
+  "C-5","D-5","C-5","D-5","C-5","D-5","...","...",
+  "E-5","F-5","E-5","F-5","...","...","...","..."
+},
+
+-- wide jumps
+{
+  "C-4","...","G-5","...","D-4","...","A-5","...",
+  "E-4","...","B-5","...","...","...","...","..."
+},
+
+-- rolling triplet-ish
+{
+  "C-5","E-5","G-5","...","E-5","C-5","E-5","...",
+  "G-5","...","...","...","...","...","...","..."
+},
+
+-- syncopated dense
+{
+  "...","C-5","D-5","...","E-5","...","F-5","G-5",
+  "...","E-5","...","C-5","...","...","...","..."
+},
+
+-- mirrored pattern
+{
+  "C-5","D-5","E-5","F-5","E-5","D-5","C-5","...",
+  "...","...","...","...","...","...","...","..."
+},
+
+-- chord-outline arpeggio feel
+{
+  "C-4","...","G-4","...","E-5","...","G-4","...",
+  "C-4","...","...","...","...","...","...","..."
+},
+
+-- broken rhythm variant
+{
+  "C-5","...","D-5","E-5","...","F-5","...","G-5",
+  "E-5","...","D-5","...","C-5","...","...","..."
+},
+
+-- fast burst then rest
+{
+  "C-5","D-5","E-5","F-5","G-5","A-5","...","...",
+  "...","...","...","...","...","...","...","..."
+},
+
+-- low-high bounce fast
+{
+  "C-3","C-5","C-3","C-5","C-3","C-5","...","...",
+  "G-3","G-5","G-3","G-5","...","...","...","..."
+},
+
+-- repeated with shift
+{
+  "...","E-5","...","E-5","...","E-5","...","...",
+  "D-5","...","C-5","...","...","...","...","..."
+},
+
+-- clustered mid
+{
+  "D-5","E-5","F-5","...","E-5","D-5","C-5","...",
+  "D-5","...","...","...","...","...","...","..."
+},
+
+-- broken descending
+{
+  "C-6","...","A-5","...","F-5","...","D-5","...",
+  "C-5","...","...","...","...","...","...","..."
+},
+
+-- chaotic jumpy (important for branching)
+{
+  "C-5","...","F-5","D-5","...","A-5","...","E-5",
+  "...","G-5","...","C-5","...","...","...","..."
+},
+
+-- double-step pattern
+{
+  "C-5","D-5","D-5","E-5","E-5","F-5","...","...",
+  "G-5","...","...","...","...","...","...","..."
+},
+
+-- uneven spacing
+{
+  "C-5","...","...","D-5","E-5","...","...","F-5",
+  "G-5","...","...","...","...","...","...","..."
+},
+
+-- fast alternating high
+{
+  "G-5","A-5","G-5","A-5","G-5","A-5","...","...",
+  "F-5","E-5","...","...","...","...","...","..."
+},
+
+-- low groove with variation
+{
+  "C-3","...","C-4","...","G-3","...","D-4","...",
+  "F-3","...","C-4","...","...","...","...","..."
+},
+
+-- semi-random filler (very useful)
+{
+  "C-5","...","E-5","...","D-5","...","G-5","...",
+  "F-5","...","A-5","...","E-5","...","...","..."
+},
+
+-- near-repetition (state collision booster)
+{
+  "C-5","...","D-5","...","E-5","...","C-5","...",
+  "D-5","...","E-5","...","C-5","...","...","..."
+},
+
+-- same but shifted (VERY important)
+{
+  "...","C-5","...","D-5","...","E-5","...","C-5",
+  "...","D-5","...","E-5","...","C-5","...","..."
+},
+
+}
+
+local model = build_markov_model(flatten(training_data), 2)
+
+print(inspect(model))
+
+--[[
+local generated = generate_sequence(model, 100)
+
+for i,v in ipairs(generated) do
+    print(v)
+end
+--]]