Commit 546919b7 authored by dave griffiths's avatar dave griffiths
Browse files

flz works

parent 4fbbd617
......@@ -27,7 +27,7 @@ def lookup(code):
def send_lz(blocks,last):
conv = ""
for block in blocks[0:24]:
for block in blocks:
conv += lookup(block)
if last!=conv:
......
; lz/nz
(synth-init 50 44100)
(synth-init 50 22050)
(define (make-lz md d stk w h mem)
(vector md d stk w h mem))
......@@ -198,7 +198,7 @@
;(lz-prog l 1 "-d>-AC-A")
;(lz-prog l 2 "b+b--bAB")
(lz-prog l 0 ". ")
(lz-prog l 0 "a ")
(lz-prog l 1 " ")
(lz-prog l 2 " ")
(lz-prog l 3 " ")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment