a_dinosaur/TECHNO.COM
1
0
Fork 0
mirror of https://github.com/ScrelliCopter/TECHNO.COM.git synced 2025-02-21 01:59:25 +11:00
Code Issues Packages Projects Releases Wiki Activity

midi expose mangler increment to make playing around with the phrase easier

Browse Source
This commit is contained in:
a dinosaur
2024-04-23 23:47:26 +10:00
parent d7c4c4662a
commit 3ef77e93b3
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
technomid.py
View File

@@ -151,6 +151,7 @@ def generate(f: BinaryIO):
phrase = [2, *[1, 0, 0] * 3] * 3 + [2, 3] + [0, 3] * 3 phrase = [2, *[1, 0, 0] * 3] * 3 + [2, 3] + [0, 3] * 3
freq_tbl = [5424, 2712, 2416, 2280] freq_tbl = [5424, 2712, 2416, 2280]
mangler = 0x0404 mangler = 0x0404
mangler_inc = 76 # len(phrase) * 2
yield 0, MIDIMetaTempo(int(round((1000000 * 0x80000) / timer))) # 16th note every two PIC ticks yield 0, MIDIMetaTempo(int(round((1000000 * 0x80000) / timer))) # 16th note every two PIC ticks
yield 0, MIDIProgramChange(0, 80) # Set GM patch to #81 "Lead 1 (Square)" yield 0, MIDIProgramChange(0, 80) # Set GM patch to #81 "Lead 1 (Square)"
@@ -170,7 +171,7 @@ def generate(f: BinaryIO):
yield 0, MIDIMetaTrackEnd() yield 0, MIDIMetaTrackEnd()
return return
# Scramble pitch table at the end of each measure # Scramble pitch table at the end of each measure
mangler = (mangler + len(phrase) * 2) & 0xFFFF mangler = (mangler + mangler_inc) & 0xFFFF
freq_tbl = [freq ^ mangler for freq in freq_tbl] freq_tbl = [freq ^ mangler for freq in freq_tbl]
mid = MIDIWriter(f) mid = MIDIWriter(f)