code from class, 2012-11-01

tap-examples.rkt

(require (planet clements/rsound:4:3))

(define SONG (rs-read "/tmp/wenceslas.wav"))

(define my-ding (rs-append ding (silence (* 4 44100))))

(define (looper sound)
  (local [(define len (rs-frames sound))]
  (network ()
           [ctr ((loop-ctr len 1))]
           [out (rs-ith/left sound ctr)])))

(signal-play 
 (network ()
          [fc (sawtooth-wave 16)]
          [osc (sawtooth-wave (+ 560 (* fc 500)))]
          #;[sig ((looper SONG))]
          [t1 ((tap 500 0.0) (prev out 0.0))]
          [out (+ osc (* 0.9 t1))]))