honeylisp/link/tape.fnl

18 lines
561 B
Plaintext
Raw Normal View History

2020-11-02 00:39:31 +00:00
(local tapegen (require :link.tapegen))
(local tape (require :asm.tape))
(local machine
{:source (love.audio.newQueueableSource tapegen.samplerate 16 1 32)
:play (fn [self sound] (self.source:queue sound))
:stop (fn [self] (love.audio.stop))
:upload
(fn [self prg]
(local (loader chunks) (tape.loader prg))
(self:play (tapegen.gen-basic (. loader.org-to-block 0x801 :bytes)))
(each [_ chunk (ipairs chunks)]
(self:play (tapegen.gen-bin chunk))
(love.audio.play self.source)))
:connected? (fn [self] true)})
machine