rudimentary framework for BEEP audio

Author: hornc

CTBASIC.py

@@ -13,6 +13,7 @@
 import sys
 
 from CTBASIC.rule110 import rule110
+from CTBASIC import audio
 from CTBASIC import graphics
 from CTBASIC.graphics import Graphics
 
@@ -176,6 +177,8 @@ def compile_(self):
                 append = parse_fill(line, 0)
             elif line.startswith('CLS'):
                 append += print_(STX + graphics.CLS + ETX)
+            elif audio.match(line):
+                append = print_(audio.parse(line))
             elif line.startswith('ENDIF'):
                 pass
             elif line.startswith('END'):

CTBASIC/audio.py

@@ -0,0 +1,20 @@
+"""
+Very experimental attempt to emulate ZX Spectrum audio
+via BEEP and piping terminal output to aplay...
+"""
+import re
+
+
+ARGS = re.compile(r'(\.?\d+)\s*,\s*(-?\d+)')
+
+
+def match(line):
+    return line.startswith('BEEP')
+
+
+def parse(line):
+    duration, pitch = ARGS.search(line[4:]).groups()
+    duration = float(duration)
+    pitch = int(pitch)
+    #print('DEBUG:', duration, pitch)
+    return 'ccccc\n'

examples/audio/Frere_Gustav_example.bas

@@ -0,0 +1,18 @@
+REM Taken from Steven Vickers, SINCLAIR ZX SPECTRUM: BASIC Programming.
+REM Chapter 19, BEEP example code.
+
+PRINT "Frere Gustav"
+BEEP 1,0: BEEP 1,2: BEEP .5,3: BEEP.5,2: BEEP 1,0
+BEEP 1,0: BEEP 1,2: BEEP .5,3: BEEP.5,2: BEEP 1,0
+BEEP 1,3: BEEP 1,5: BEEP 2,7
+BEEP 1,3: BEEP 1,5: BEEP 2,7
+BEEP .75,7: BEEP .25,8: BEEP .5,7: BEEP .5,5:BEEP .5,3: 
+    BEEP.5,2: BEEP 1,0
+BEEP .75,7: BEEP .25,8: BEEP .5,7: BEEP .5,5: BEEP .5,3: BEEP .5,2: 
+    BEEP 1,0
+BEEP 1,0: BEEP 1,-5: BEEP 2,0
+BEEP 1,0: BEEP 1,-5: BEEP 2,0
+
+BIN 1
+CLEAR 941
+