Actually produced sound!

Changes

1 changed files (+10/-6)

• main.scm
  • @@ -1,19 +1,23 @@
    + (use-modules (ice-9 binary-ports)) + (define (note freq start len) ( lambda (t) ( - if (or (< t start) (> t (+ start len))) + if (or (< t start) (>= t (+ start len))) 0 freq ) )) (define (music t) ( - (note 440 0 10) t + * t (logand 42 (ash t -10)) )) (define (play t) ( - if (< t 100) - (cons (music t) (play (+ t 1))) - (music t) + cons (modulo (music t) 256) (if (< t 100000) + (play (+ t 1)) + '() + ) )) - (display (play 0)) + ; (display (play 0)) + (map (lambda (c) (put-u8 (current-output-port) c)) (play 0))