---------------------
Saturday, November 17th, 2012 3:52:03am
(play-now (* (adsr 0 0.1 0 0) (sine 440)))
---------------------
Saturday, November 17th, 2012 3:52:03am
(play-now (* (adsr 0 0.1 0 0) (sine 440)))
---------------------
Saturday, November 17th, 2012 3:52:03am
(play-now (* (adsr 0 0.1 0 0) (sine 440)))
---------------------
Saturday, November 17th, 2012 3:52:03am
(play-now (* (adsr 0 0.1 0 0) (sine 440)))
---------------------
Saturday, November 17th, 2012 3:52:06am
(play-now (* (adsr 0 0.1 0 0) (sine 440)))
---------------------
Saturday, November 17th, 2012 3:52:06am
(play-now (* (adsr 0 0.1 0 0) (sine 440)))
---------------------
Saturday, November 17th, 2012 3:52:06am
(play-now (* (adsr 0 0.1 0 0) (sine 440)))
---------------------
Saturday, November 17th, 2012 3:52:07am
(play-now (* (adsr 0 0.1 0 0) (sine 440)))
---------------------
Saturday, November 17th, 2012 3:52:08am
(play-now (* (adsr 0 0.1 0 0) (sine 440)))
---------------------
Saturday, November 17th, 2012 3:52:08am
(play-now (* (adsr 0 0.1 0 0) (sine 440)))
---------------------
Saturday, November 17th, 2012 3:52:09am
(play-now (* (adsr 0 0.1 0 0) (sine 440)))
---------------------
Saturday, November 17th, 2012 3:52:10am
(play-now (* (adsr 0 0.1 0 0) (sine 440)))
---------------------
Saturday, November 17th, 2012 3:52:20am
(play-now (* (adsr 2 3 0 0) (sine 440)))
---------------------
Saturday, November 17th, 2012 3:53:05am
(play-now (* (adsr 2 3 0 0) (sine 440)))
---------------------
Saturday, November 17th, 2012 3:53:17am
(play-now (* (adsr 2 3 0 0) (sine (random 1000))))
440
---------------------
Saturday, November 17th, 2012 3:53:24am
(play-now (* (adsr 2 3 0 0) (sine (random 1000))))
440
---------------------
Saturday, November 17th, 2012 3:53:24am
(play-now (* (adsr 2 3 0 0) (sine (random 1000))))
440
---------------------
Saturday, November 17th, 2012 3:53:24am
(play-now (* (adsr 2 3 0 0) (sine (random 1000))))
440
---------------------
Saturday, November 17th, 2012 3:53:30am
(play-now (* (adsr 2 3 0 0) (sine (random 1000))))
440
---------------------
Saturday, November 17th, 2012 3:53:31am
(play-now (* (adsr 2 3 0 0) (sine (random 1000))))
440
---------------------
Saturday, November 17th, 2012 3:53:37am
(play-now (* (adsr 2 3 0 0) (sine (random 1000))))
440
---------------------
Saturday, November 17th, 2012 3:53:39am
(play-now (* (adsr 2 3 0 0) (sine (random 1000))))
440
---------------------
Saturday, November 17th, 2012 3:53:39am
(play-now (* (adsr 2 3 0 0) (sine (random 1000))))
440
---------------------
Saturday, November 17th, 2012 3:54:12am
(play-now (moogbp (* (adsr 2 3 0 0) (sine (random 1000))) (rndf) 0.1))
440
---------------------
Saturday, November 17th, 2012 3:54:13am
(play-now (moogbp (* (adsr 2 3 0 0) (sine (random 1000))) (rndf) 0.1))
440
---------------------
Saturday, November 17th, 2012 3:54:20am
(play-now (moogbp (* (adsr 2 3 0 0) (sine (random 1000))) (rndf) 0.1))
440
---------------------
Saturday, November 17th, 2012 3:54:20am
(play-now (moogbp (* (adsr 2 3 0 0) (sine (random 1000))) (rndf) 0.1))
440
---------------------
Saturday, November 17th, 2012 3:55:25am
(play-now (moogbp (* (adsr 2 3 0 0) (sine (random 1000))) (rndf) 0.1))
440
(define (root time clock) (play time (* (adsr 0 0.1 0 0) (white 440))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
---------------------
Saturday, November 17th, 2012 3:55:30am
(play-now (moogbp (* (adsr 2 3 0 0) (sine (random 1000))) (rndf) 0.1))
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
---------------------
Saturday, November 17th, 2012 3:55:31am
(play-now (moogbp (* (adsr 2 3 0 0) (sine (random 1000))) (rndf) 0.1))
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
---------------------
Saturday, November 17th, 2012 3:55:45am
(play-now (moogbp (* (adsr 2 3 0 0) (sine (random 1000))) (rndf) 0.1))
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
---------------------
Saturday, November 17th, 2012 3:57:06am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4 (in time 0.25 zop (+ clock 1)))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (cond ( (< clock 4)) (in time 0.25 zop (+ clock 1))))
---------------------
Saturday, November 17th, 2012 3:57:08am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4 (in time 0.25 zop (+ clock 1)))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (cond ( (< clock 4)) (in time 0.25 zop (+ clock 1))))
---------------------
Saturday, November 17th, 2012 3:57:17am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (+ clock 1))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (cond ( (< clock 4)) (in time 0.25 zop (+ clock 1))))
---------------------
Saturday, November 17th, 2012 3:57:29am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 4))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (cond ( (< clock 4)) (in time 0.25 zop (+ clock 1))))
---------------------
Saturday, November 17th, 2012 3:57:31am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (cond ( (< clock 4)) (in time 0.25 zop (+ clock 1))))
---------------------
Saturday, November 17th, 2012 3:57:38am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 12))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (cond ( (< clock 4)) (in time 0.25 zop (+ clock 1))))
---------------------
Saturday, November 17th, 2012 3:57:55am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 12))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.01 0 0) (sine 440))) (cond ( (< clock 4)) (in time 0.25 zop (+ clock 1))))
---------------------
Saturday, November 17th, 2012 3:58:00am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 12))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.01 0 0) (sine 440))) (cond ( (< clock 7)) (in time 0.25 zop (+ clock 1))))
---------------------
Saturday, November 17th, 2012 3:58:05am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 12))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.01 0 0) (sine 440))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 3:58:37am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 12))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.01 0 0) (saw 440))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 3:58:43am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 12))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.1 0 0) (saw 440))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 3:59:24am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 12))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.1 0 0) (saw (* (modulo clock 8) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 3:59:33am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 12))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 8) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:00:14am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 8) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopi (+ clock 1)))))
(define (zopi time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 8) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zopi (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:00:15am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 8) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopi (+ clock 1)))))
(define (zopi time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 8) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zopi (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:00:22am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 2) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopi (+ clock 1)))))
(define (zopi time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 8) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zopi (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:00:49am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 2) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 8) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zopa (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:00:50am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 2) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 8) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zopa (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:01:03am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 2) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 8) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zopa (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:01:51am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 2) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 8) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.1)) (cond ( (< clock 7) (in time 0.25 zopa (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:01:56am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 2) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 8) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.25 zopa (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:02:07am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 2) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 8) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:02:17am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 18))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 2) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 8) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:02:19am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 18))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 2) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 8) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:02:23am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 18))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 8) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:02:27am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 18))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:03:21am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 18))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ 440 (* 440 (sine 440)) (* (modulo clock 2) (modulo clock 8) 44)))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:03:28am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 18))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ 440 (* 440 (sine 440)) (* (modulo clock 2) (modulo clock 8) 44)))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.74 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:03:52am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 18))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ 440 (* 440 (sine 44)) (* (modulo clock 2) (modulo clock 8) 44)))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.74 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:04:16am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 18))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (pick (list 500 440 3000) clock) (* 440 (sine 44)) (* (modulo clock 2) (modulo clock 8) 44)))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.74 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:04:22am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 18))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (pick (list 500 440 3000) clock) (* 440 (sine 44)) (* (modulo clock 2) (modulo clock 8) 44)))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
---------------------
Saturday, November 17th, 2012 4:04:43am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 18))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 440 3000) clock) (sine 44)) (* (modulo clock 2) (modulo clock 8) 44) (adsr 0 0.1 0 0)))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
---------------------
Saturday, November 17th, 2012 4:04:45am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 18))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 440 3000) clock) (sine 44)) (* (modulo clock 2) (modulo clock 8) 44)))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
(adsr 0 0.1 0 0)
---------------------
Saturday, November 17th, 2012 4:04:51am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 18))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 440 3000) clock) (sine 44) (adsr 0 0.1 0 0)) (* (modulo clock 2) (modulo clock 8) 44)))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
---------------------
Saturday, November 17th, 2012 4:05:16am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 18))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 7) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 440 3000) clock) (sine 44) (adsr 0 0.2 0 0)) (* (modulo clock 2) (modulo clock 8) 44)))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
---------------------
Saturday, November 17th, 2012 4:05:32am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 18))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 440 3000) clock) (sine 44) (adsr 0 0.2 0 0)) (* (modulo clock 2) (modulo clock 8) 44)))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
---------------------
Saturday, November 17th, 2012 4:05:39am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 440 3000) clock) (sine 44) (adsr 0 0.2 0 0)) (* (modulo clock 2) (modulo clock 8) 44)))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
---------------------
Saturday, November 17th, 2012 4:06:03am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 440 3000) clock) (sine 44) (adsr (pick (list 0 0.2) clock) 0.2 0 0)) (* (modulo clock 2) (modulo clock 8) 44)))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
500
3000
---------------------
Saturday, November 17th, 2012 4:06:22am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 440 3000) clock) (sine 44) (adsr (pick (list 0 0.2) clock) 0.2 0 0)) (* (modulo clock 12) (modulo clock 8) 44)))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
500
3000
(note)
---------------------
Saturday, November 17th, 2012 4:06:29am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 440 3000) clock) (sine 44) (adsr (pick (list 0 0.2) clock) 0.2 0 0)) (* (modulo clock 3) (modulo clock 8) 44)))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
500
3000
(note)
---------------------
Saturday, November 17th, 2012 4:06:35am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 440 3000) clock) (sine 44) (adsr (pick (list 0 0.2) clock) 0.2 0 0)) (* (modulo clock 3) (modulo clock 8) 4)))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
500
3000
(note)
---------------------
Saturday, November 17th, 2012 4:06:42am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 440 3000) clock) (sine 44) (adsr (pick (list 0 0.2) clock) 0.2 0 0)) (note (* (modulo clock 3) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
500
3000
(note)
4
---------------------
Saturday, November 17th, 2012 4:06:54am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 440 3000) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0 0.2) clock) 0.2 0 0)) (note (* (modulo clock 3) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
500
3000
(note)
4
44
---------------------
Saturday, November 17th, 2012 4:07:00am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 440 3000) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0 0.2) clock) 0.2 0 0)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
500
3000
(note)
4
44
---------------------
Saturday, November 17th, 2012 4:07:03am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 440 3000) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0 0)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
500
3000
(note)
4
44
0.2
---------------------
Saturday, November 17th, 2012 4:07:09am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 440 3000) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0 0)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
500
3000
(note)
4
44
0.2
---------------------
Saturday, November 17th, 2012 4:07:29am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 500 440 3000) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0 0)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
---------------------
Saturday, November 17th, 2012 4:07:39am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (sine (+ (* (pick (list 500 500 440 3000) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
---------------------
Saturday, November 17th, 2012 4:07:46am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 500 440 3000) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
---------------------
Saturday, November 17th, 2012 4:07:50am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 500 440 3000) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
---------------------
Saturday, November 17th, 2012 4:08:07am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 500 440 3000) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
---------------------
Saturday, November 17th, 2012 4:08:19am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
3000
---------------------
Saturday, November 17th, 2012 4:08:24am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 3))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (* (modulo clock 2) (modulo clock 8) 44))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
---------------------
Saturday, November 17th, 2012 4:09:03am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (pick (list 0.1 0.2) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
---------------------
Saturday, November 17th, 2012 4:09:16am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 12) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (pick (list 0.1 0.2) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
---------------------
Saturday, November 17th, 2012 4:09:30am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (pick (list 0.1 0.2) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopa (+ clock 1)))))
440
(saw)
(white)
---------------------
Saturday, November 17th, 2012 4:10:25am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.25 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (pick (list (white 400) (squ 200)) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopi (+ clock 1)))))
440
(saw)
---------------------
Saturday, November 17th, 2012 4:10:28am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.25 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (pick (list (white 400) (squ 200)) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopi (+ clock 1)))))
440
(saw)
---------------------
Saturday, November 17th, 2012 4:10:29am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.25 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.25 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (pick (list (white 400) (squ 200)) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopi (+ clock 1)))))
440
(saw)
---------------------
Saturday, November 17th, 2012 4:10:48am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.25 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (pick (list (white 400) (squ 200)) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopi (+ clock 1)))))
440
(saw)
---------------------
Saturday, November 17th, 2012 4:10:57am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (pick (list (white 400) (squ 200)) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopi (+ clock 1)))))
440
(saw)
---------------------
Saturday, November 17th, 2012 4:11:04am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (pick (list (white 400) (squ 200)) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 7) (in time 0.74 zopi (+ clock 1)))))
440
(saw)
---------------------
Saturday, November 17th, 2012 4:11:08am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (pick (list (white 400) (squ 200)) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 70) (in time 0.74 zopi (+ clock 1)))))
440
(saw)
---------------------
Saturday, November 17th, 2012 4:11:13am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (pick (list (white 400) (squ 200)) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1)))))
440
(saw)
---------------------
Saturday, November 17th, 2012 4:11:20am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (pick (list (white 400) (squ 200)) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1)))))
440
(saw)
---------------------
Saturday, November 17th, 2012 4:12:07am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 (pick (list 0.1 0.01 0.02) clock) 0 1) (pick (list (white 400) (squ 200)) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1)))))
440
(saw)
---------------------
Saturday, November 17th, 2012 4:12:47am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 (pick (list 0.1 0.5 0.02) clock) 0 1) (pick (list (white 400) (squ 200)) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1)))))
440
(saw)
---------------------
Saturday, November 17th, 2012 4:13:05am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 (pick (list 0.1 0.5 0.02) clock) 0 1) (pick (list (white 400) (squ (* (adsr 0 0.1 0 0) 440))) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1)))))
440
(saw)
200
---------------------
Saturday, November 17th, 2012 4:13:13am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 (pick (list 0.1 0.5 0.02) clock) 0 1) (pick (list (white 400) (squ (* (adsr 0 0.2 0 0) 440))) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1)))))
440
(saw)
200
---------------------
Saturday, November 17th, 2012 4:13:23am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 (pick (list 0.1 0.2 0.02) clock) 0 1) (pick (list (white 400) (squ (* (adsr 0 0.2 0 0) 440))) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1)))))
440
(saw)
200
---------------------
Saturday, November 17th, 2012 4:13:42am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 (pick (list 0.1 0.2 0.02) clock) 0 1) (pick (list (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 0.2 0 0) 440))) clock)) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1)))))
440
(saw)
200
400
---------------------
Saturday, November 17th, 2012 4:14:21am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0 1) (pick (list (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 0.2 0 0) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (+ clock 1)))))
440
(saw)
200
400
---------------------
Saturday, November 17th, 2012 4:14:40am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (+ clock 1)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0 1) (pick (list (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 0.2 0 0) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
400
---------------------
Saturday, November 17th, 2012 4:15:03am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 30))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0 1) (pick (list (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 0.2 0 0) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 7) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
400
---------------------
Saturday, November 17th, 2012 4:15:27am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0 1) (pick (list (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 0.2 0 0) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 7) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
400
---------------------
Saturday, November 17th, 2012 4:15:31am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0 1) (pick (list (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 0.2 0 0) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 7) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
400
---------------------
Saturday, November 17th, 2012 4:15:44am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0 1) (pick (list (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 0.2 0 0) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
400
---------------------
Saturday, November 17th, 2012 4:15:59am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (moogbp (* (adsr 0 (pick (list 0.1 0.02 0.2) clock) 0 1) (pick (list (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 0.2 0 0) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
400
---------------------
Saturday, November 17th, 2012 4:16:15am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* (adsr 0 (pick (list 0.1 0.02 0.2) clock) 0 1) (pick (list (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 0.2 0 0) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
400
(pink)
---------------------
Saturday, November 17th, 2012 4:16:23am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* (adsr 0 (pick (list 0.1 0.02 0.2) clock) 0 1) (pick (list (pink 400) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 0.2 0 0) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
---------------------
Saturday, November 17th, 2012 4:16:26am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* (adsr 0 (pick (list 0.1 0.02 0.2) clock) 0 1) (pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 0.2 0 0) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
---------------------
Saturday, November 17th, 2012 4:16:42am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* (adsr 0 (pick (list 0.1 0.02 0.2) clock) 0 1) (pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.2) clock) 0 0) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
---------------------
Saturday, November 17th, 2012 4:16:45am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* (adsr 0 (pick (list 0.1 0.02 0.2) clock) 0 1) (pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0 0) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
---------------------
Saturday, November 17th, 2012 4:16:58am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* (adsr 0 (pick (list 0.1 0.02 0.1) clock) 0 1) (pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0 0) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
---------------------
Saturday, November 17th, 2012 4:17:10am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* (adsr 0 (pick (list 0.1 0.02 0.1) clock) 0 1) (pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 70) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
---------------------
Saturday, November 17th, 2012 4:17:15am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 17) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* (adsr 0 (pick (list 0.1 0.02 0.1) clock) 0 1) (pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
---------------------
Saturday, November 17th, 2012 4:17:20am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 1) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* (adsr 0 (pick (list 0.1 0.02 0.1) clock) 0 1) (pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
---------------------
Saturday, November 17th, 2012 4:17:26am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 4) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* (adsr 0 (pick (list 0.1 0.02 0.1) clock) 0 1) (pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
440
(saw)
200
---------------------
Saturday, November 17th, 2012 4:18:29am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 4) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* (adsr 0 (pick (list 0.1 0.02 0.1) clock) 0 1) (sample (pick (list "fa.wav" "fb.wav") clock) 440)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
200
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
---------------------
Saturday, November 17th, 2012 4:18:46am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 4) (modulo clock 8) 44)))) (cond ( (< clock 4) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.1) clock) 0 1) (sample (pick (list "fa.wav" "fb.wav") clock) 440)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
---------------------
Saturday, November 17th, 2012 4:19:01am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 4) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.1) clock) 0 1) (sample (pick (list "fa.wav" "fb.wav") clock) 440)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
---------------------
Saturday, November 17th, 2012 4:19:05am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 4) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.1) clock) 0 1) (sample (pick (list "fa.wav" "fb.wav") clock) 440)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
---------------------
Saturday, November 17th, 2012 4:19:07am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 4) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 4) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.1) clock) 0 1) (sample (pick (list "fa.wav" "fb.wav") clock) 440)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
---------------------
Saturday, November 17th, 2012 4:19:11am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 4) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.1) clock) 0 1) (sample (pick (list "fa.wav" "fb.wav") clock) 440)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
---------------------
Saturday, November 17th, 2012 4:19:23am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 4) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.1) clock) 0.1 1) (sample (pick (list "fa.wav" "fb.wav") clock) 440)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
---------------------
Saturday, November 17th, 2012 4:19:35am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 5))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 4) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.1) clock) 0.1 1) (sample (pick (list "fa.wav" "fc.wav" "fb.wav") clock) 440)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
---------------------
Saturday, November 17th, 2012 4:19:45am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 4) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.1) clock) 0.1 1) (sample (pick (list "fa.wav" "fc.wav" "fb.wav") clock) 440)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
---------------------
Saturday, November 17th, 2012 4:19:46am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 4) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.1) clock) 0.1 1) (sample (pick (list "fa.wav" "fc.wav" "fb.wav") clock) 440)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
---------------------
Saturday, November 17th, 2012 4:19:55am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 4) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fc.wav" "fb.wav") clock) 440)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
---------------------
Saturday, November 17th, 2012 4:19:57am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 4) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fc.wav" "fb.wav") clock) 440)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
---------------------
Saturday, November 17th, 2012 4:20:12am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fc.wav" "fb.wav") clock) 440)) (/ (modulo clock 12) 12) 0.4)) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
---------------------
Saturday, November 17th, 2012 4:20:21am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fc.wav" "fb.wav") clock) 440)) 0.4 (/ (modulo clock 12) 12))) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
---------------------
Saturday, November 17th, 2012 4:20:34am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 0.4 (/ (modulo clock 12) 12))) (cond ( (< clock 12) (in time 0.5 zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
---------------------
Saturday, November 17th, 2012 4:20:53am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 0.4 (/ (modulo clock 12) 12))) (cond ( (< clock 12) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
---------------------
Saturday, November 17th, 2012 4:21:14am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 0.4 (/ (modulo clock 12) 12))) (cond ( (< clock 12) (in time (if (< clock 6) 0.25 3) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
---------------------
Saturday, November 17th, 2012 4:21:30am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw (* (modulo clock 12) (modulo clock 8) 44)))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 12) (in time (if (< clock 6) 0.25 3) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
---------------------
Saturday, November 17th, 2012 4:21:53am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw 12))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 12) (in time (if (< clock 6) 0.25 3) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
---------------------
Saturday, November 17th, 2012 4:21:56am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw 120))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 12) (in time (if (< clock 6) 0.25 3) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
---------------------
Saturday, November 17th, 2012 4:22:10am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw 120))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 12) (in time (if (< clock 6) 0.25 3) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
---------------------
Saturday, November 17th, 2012 4:22:11am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw 120))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr 0 (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 12) (in time (if (< clock 6) 0.25 3) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
---------------------
Saturday, November 17th, 2012 4:22:52am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw 120))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0 0.01) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 12) (in time (if (< clock 6) 0.25 3) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
---------------------
Saturday, November 17th, 2012 4:22:57am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw 120))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 4)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0 0.01) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 3) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
---------------------
Saturday, November 17th, 2012 4:23:24am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw 120))) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0 0.01) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 3) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
---------------------
Saturday, November 17th, 2012 4:23:32am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw 120))) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0 0.01) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 3) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
---------------------
Saturday, November 17th, 2012 4:23:35am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw 120))) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0 0.01) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 3) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
---------------------
Saturday, November 17th, 2012 4:23:36am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw 120))) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0 0.01) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 3) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
---------------------
Saturday, November 17th, 2012 4:23:54am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw 120))) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0 0.01) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
---------------------
Saturday, November 17th, 2012 4:24:08am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw 120))) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
---------------------
Saturday, November 17th, 2012 4:24:10am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (* (adsr 0 0.2 0 0) (saw 120))) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
---------------------
Saturday, November 17th, 2012 4:24:39am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.1)) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
---------------------
Saturday, November 17th, 2012 4:24:45am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "fa.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
---------------------
Saturday, November 17th, 2012 4:25:09am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) 440)) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
---------------------
Saturday, November 17th, 2012 4:25:23am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
---------------------
Saturday, November 17th, 2012 4:25:24am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
---------------------
Saturday, November 17th, 2012 4:25:38am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
---------------------
Saturday, November 17th, 2012 4:25:59am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 1 1) (sine (+ (* (pick (list 500 3000 500 440) clock) (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
---------------------
Saturday, November 17th, 2012 4:26:08am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 3) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:26:15am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 120) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:26:54am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogb (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 3) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:26:55am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogb (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 3) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:27:01am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogb (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 3) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:27:07am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogb (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 3) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:27:12am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogb (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 30) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:27:17am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogb (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 30) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:27:23am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 29) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 3)))))
(define (zopa time clock) (play time (moogb (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 30) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:27:24am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 29) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogb (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 30) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:27:29am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 29) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogb (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 30) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:27:40am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 12) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogb (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 30) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:27:59am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 12) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 30) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:28:13am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 12) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 30) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:28:19am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 12) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 30) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:28:22am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 12) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 3) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:28:26am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 3) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 3) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:28:35am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 3) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:28:38am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 12) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:28:45am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 1 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:28:56am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:29:06am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:29:15am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 1 1) (sine (+ (* 3000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:29:27am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0 1) (sine (+ (* 3000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:29:30am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* 3000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(list 500 500 440)
(pick clock)
---------------------
Saturday, November 17th, 2012 4:29:44am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
3000
---------------------
Saturday, November 17th, 2012 4:29:47am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 3000 500 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
---------------------
Saturday, November 17th, 2012 4:29:49am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 500 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
3000
---------------------
Saturday, November 17th, 2012 4:29:56am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 880 500 500 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
---------------------
Saturday, November 17th, 2012 4:30:04am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 8800 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
500
500
---------------------
Saturday, November 17th, 2012 4:30:07am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* (pick (list 880 440) clock) (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
500
500
---------------------
Saturday, November 17th, 2012 4:30:17am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* 1200 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
500
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:30:28am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
500
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:30:37am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 12 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:30:40am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
0.01
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:30:45am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0.2 0.1 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:30:47am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0.2 0 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:30:57am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0.1 0 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:31:01am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:31:07am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.5 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:31:14am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:31:20am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 13) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:31:29am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:31:37am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 2) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:31:47am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:31:59am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:32:01am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (saw 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "fd.wav" "fc.wav" "fb.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:32:45am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.2 0 0) (white 120)) (rndf) 0.3)) (cond ( (< clock 2) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:32:56am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.1 0 0) (white 120)) (rndf) 0.3)) (cond ( (< clock 20) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:33:01am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.1 0 0) (white 120)) (rndf) 0.3)) (cond ( (< clock 12) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:33:08am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.05 0 0) (white 120)) (rndf) 0.3)) (cond ( (< clock 12) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:33:14am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.05 0.1 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 12) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:33:43am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.05 0.1 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 12) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:33:51am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.05 0.1 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:33:57am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.05 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:34:31am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.05 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:34:42am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:34:45am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 12)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 5) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:34:54am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 12)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:35:25am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 4) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:35:42am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1))) (else (in time 0.5 zop (modulo clock 10)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
---------------------
Saturday, November 17th, 2012 4:35:46am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.02 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
---------------------
Saturday, November 17th, 2012 4:36:11am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.2 0.02) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
---------------------
Saturday, November 17th, 2012 4:36:13am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 2) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
---------------------
Saturday, November 17th, 2012 4:36:28am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
---------------------
Saturday, November 17th, 2012 4:36:45am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
---------------------
Saturday, November 17th, 2012 4:36:46am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
---------------------
Saturday, November 17th, 2012 4:37:02am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 3) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
---------------------
Saturday, November 17th, 2012 4:37:14am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
440
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
---------------------
Saturday, November 17th, 2012 4:37:28am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (crush (* 0.3 (adsr (pick (list 0.1 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 10 (/ (modulo clock 12) 12))) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
---------------------
Saturday, November 17th, 2012 4:38:11am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (echo (* 0.3 (adsr (pick (list 0.1 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) 0.1 0.1)) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
---------------------
Saturday, November 17th, 2012 4:38:40am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (echo (* 0.3 (adsr (pick (list 0.1 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) (* (rndf) 0.1) 0.1)) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
---------------------
Saturday, November 17th, 2012 4:38:42am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (echo (* 0.3 (adsr (pick (list 0.1 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) (* (rndf) 0.01) 0.1)) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
---------------------
Saturday, November 17th, 2012 4:38:46am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (echo (* 0.3 (adsr (pick (list 0.1 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) (* (rndf) 0.01) 0.5)) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
---------------------
Saturday, November 17th, 2012 4:38:50am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (echo (* 0.3 (adsr (pick (list 0.1 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) (* (rndf) 0.01) 0.8)) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
---------------------
Saturday, November 17th, 2012 4:38:57am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (echo (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) (* (rndf) 0.01) 0.8)) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
---------------------
Saturday, November 17th, 2012 4:39:04am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (echo (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) (* (rndf) 0.01) 0.9)) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
---------------------
Saturday, November 17th, 2012 4:39:08am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (echo (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) (* (rndf) 0.001) 0.9)) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
---------------------
Saturday, November 17th, 2012 4:39:14am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (echo (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) (* (rndf) 0.001) 0.95)) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 1) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
---------------------
Saturday, November 17th, 2012 4:39:21am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (echo (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) (* (rndf) 0.001) 0.95)) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
---------------------
Saturday, November 17th, 2012 4:39:24am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (echo (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8))))) (* (rndf) 0.001) 0.9)) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
---------------------
Saturday, November 17th, 2012 4:39:32am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (echo (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 2) (modulo clock 8))))) (* (rndf) 0.001) 0.9)) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
---------------------
Saturday, November 17th, 2012 4:39:39am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (echo (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 2) (modulo clock 8))))) (* (rndf) 0.01) 0.9)) (cond ( (< clock 40) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
---------------------
Saturday, November 17th, 2012 4:39:59am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (echo (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 2) (modulo clock 8))))) (* (rndf) 0.01) 0.9)) (cond ( (< clock 400) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
0.5
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
---------------------
Saturday, November 17th, 2012 4:40:12am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (echo (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "eb.wav" "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 2) (modulo clock 8))))) (* (rndf) 0.01) 0.9)) (cond ( (< clock 400) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
---------------------
Saturday, November 17th, 2012 4:40:24am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "eb.wav" "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 2) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
---------------------
Saturday, November 17th, 2012 4:40:31am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "eb.wav" "ga.wav" "gb.wav" "gc.wav" "gd.wav") clock) (note (* (modulo clock 20) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
---------------------
Saturday, November 17th, 2012 4:40:59am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "eb.wav" "gd.wav") clock) (note (* (modulo clock 20) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"ga.wav"
"gb.wav"
"gc.wav"
---------------------
Saturday, November 17th, 2012 4:41:03am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "eb.wav" "gd.wav") clock) (note (* (modulo clock 2) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"ga.wav"
"gb.wav"
"gc.wav"
---------------------
Saturday, November 17th, 2012 4:41:14am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.2 0.3) clock) 0.1 1) (sample (pick (list "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"ga.wav"
"gb.wav"
"gc.wav"
---------------------
Saturday, November 17th, 2012 4:41:20am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.02 0.3) clock) 0.1 1) (sample (pick (list "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"ga.wav"
"gb.wav"
"gc.wav"
---------------------
Saturday, November 17th, 2012 4:41:25am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.1 0.02 0.01) clock) 0.1 1) (sample (pick (list "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"ga.wav"
"gb.wav"
"gc.wav"
---------------------
Saturday, November 17th, 2012 4:41:29am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.02 0.02 0.01) clock) 0.1 1) (sample (pick (list "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"ga.wav"
"gb.wav"
"gc.wav"
---------------------
Saturday, November 17th, 2012 4:41:33am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.02 0.01) clock) 0.1 1) (sample (pick (list "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"ga.wav"
"gb.wav"
"gc.wav"
---------------------
Saturday, November 17th, 2012 4:42:09am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"ga.wav"
"gb.wav"
"gc.wav"
---------------------
Saturday, November 17th, 2012 4:42:13am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gb.wav"
"gc.wav"
---------------------
Saturday, November 17th, 2012 4:42:16am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (< clock 6) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
---------------------
Saturday, November 17th, 2012 4:42:28am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (< clock 6) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
---------------------
Saturday, November 17th, 2012 4:42:42am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
---------------------
Saturday, November 17th, 2012 4:43:00am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
---------------------
Saturday, November 17th, 2012 4:43:16am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
---------------------
Saturday, November 17th, 2012 4:43:26am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
---------------------
Saturday, November 17th, 2012 4:43:30am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
---------------------
Saturday, November 17th, 2012 4:43:35am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
---------------------
Saturday, November 17th, 2012 4:43:38am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
---------------------
Saturday, November 17th, 2012 4:43:39am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 1 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
---------------------
Saturday, November 17th, 2012 4:43:44am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 2 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
---------------------
Saturday, November 17th, 2012 4:43:54am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.5 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 8)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
---------------------
Saturday, November 17th, 2012 4:44:00am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.5 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 12)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
---------------------
Saturday, November 17th, 2012 4:44:05am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.5 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.01) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
---------------------
Saturday, November 17th, 2012 4:44:08am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.5 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
---------------------
Saturday, November 17th, 2012 4:44:17am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 200) (in time 0.5 zopa (+ clock 1))) (else (in time 0.5 zopi (modulo clock 14)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
---------------------
Saturday, November 17th, 2012 4:44:21am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 200) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "eb.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
---------------------
Saturday, November 17th, 2012 4:44:28am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 200) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
"eb.wav"
---------------------
Saturday, November 17th, 2012 4:44:32am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 200) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
---------------------
Saturday, November 17th, 2012 4:44:46am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0.2 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 200) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 400) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
---------------------
Saturday, November 17th, 2012 4:44:55am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0.2 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 200) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
---------------------
Saturday, November 17th, 2012 4:45:06am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0.2 0 1)) (note (* (modulo clock 12) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 200) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
---------------------
Saturday, November 17th, 2012 4:45:10am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.2 0.01 0) clock) 0.2 0 1)) (note (* (modulo clock 3) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 200) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
---------------------
Saturday, November 17th, 2012 4:45:17am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0.01 0) clock) 0.2 0 1)) (note (* (modulo clock 3) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 200) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
---------------------
Saturday, November 17th, 2012 4:45:18am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.2 0 1)) (note (* (modulo clock 3) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 200) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:45:23am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.01 0 1)) (note (* (modulo clock 3) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 200) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:45:27am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (sine (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.04 0 1)) (note (* (modulo clock 3) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 200) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:45:40am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 2 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.04 0 1)) (note (* (modulo clock 3) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 200) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:45:47am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.04 0 1)) (note (* (modulo clock 3) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 200) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:45:50am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.4 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.04 0 1)) (note (* (modulo clock 3) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 200) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:45:59am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.4 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.04 0 1)) (note (* (modulo clock 3) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:46:04am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.4 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.04 0 1)) (note (* (modulo clock 3) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:46:08am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.4 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.04 0 1)) (note (* (modulo clock 3) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.75 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:46:14am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.4 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.04 0 1)) (note (* (modulo clock 3) (modulo clock 8)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:46:22am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.4 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 8)))) (adsr (pick (list 0) clock) 0.04 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:46:26am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.4 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 0) clock) 0.04 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:46:31am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.4 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 0) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:46:34am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 0) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:46:43am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 0) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 4) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:46:49am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 0) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 12) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
---------------------
Saturday, November 17th, 2012 4:47:08am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 0) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) 300))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
(note (* (modulo clock) (modulo clock 3)))
---------------------
Saturday, November 17th, 2012 4:47:26am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 0) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb.wav" "ga.wav" "gd.wav") clock) 300))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
6
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
(note (* (modulo clock) (modulo clock 3)))
"gb.wav"
---------------------
Saturday, November 17th, 2012 4:47:38am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 0) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 6) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
"gb.wav"
300
---------------------
Saturday, November 17th, 2012 4:47:42am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 0) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 3) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
"gb.wav"
300
---------------------
Saturday, November 17th, 2012 4:47:49am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 0) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 3) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 2) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
"gb.wav"
300
---------------------
Saturday, November 17th, 2012 4:48:04am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 0) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 3) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 2) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
"gb.wav"
300
---------------------
Saturday, November 17th, 2012 4:48:13am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 0.3 0.2 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 0) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 3) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 2) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
"gb.wav"
300
---------------------
Saturday, November 17th, 2012 4:48:19am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 0.3 0.2 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 3) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 2) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
"gb.wav"
300
---------------------
Saturday, November 17th, 2012 4:49:04am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 0.3 0.2 1) (squ (+ (* 2000 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 3) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 2) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
---------------------
Saturday, November 17th, 2012 4:49:25am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 0.3 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 3) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 2) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
---------------------
Saturday, November 17th, 2012 4:49:32am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 3) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 2) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
---------------------
Saturday, November 17th, 2012 4:49:45am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 2) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
---------------------
Saturday, November 17th, 2012 4:49:56am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
"gc.wav"
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
---------------------
Saturday, November 17th, 2012 4:50:06am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gc.wav" "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
---------------------
Saturday, November 17th, 2012 4:50:14am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "eb.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
---------------------
Saturday, November 17th, 2012 4:50:21am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "ab.wav" "ga.wav" "gd.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
---------------------
Saturday, November 17th, 2012 4:50:29am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "ab.wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
---------------------
Saturday, November 17th, 2012 4:50:42am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "ab.wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
---------------------
Saturday, November 17th, 2012 4:50:43am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "ab.wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
---------------------
Saturday, November 17th, 2012 4:51:00am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "ab.wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
---------------------
Saturday, November 17th, 2012 4:51:02am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "ab.wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
---------------------
Saturday, November 17th, 2012 4:51:10am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.1 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time (+ 0.25 (* clock 0.01)) zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "ab.wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
---------------------
Saturday, November 17th, 2012 4:51:21am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.1 0 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "ab.wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
(+ (* clock 0.01))
---------------------
Saturday, November 17th, 2012 4:51:31am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3)) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "ab.wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
(+ (* clock 0.01))
---------------------
Saturday, November 17th, 2012 4:51:40am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 0.1 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "ab.wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
---------------------
Saturday, November 17th, 2012 4:51:52am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 3) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "ab.wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
---------------------
Saturday, November 17th, 2012 4:52:08am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "ab.wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
---------------------
Saturday, November 17th, 2012 4:52:28am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 40) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopa (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "ab.wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
---------------------
Saturday, November 17th, 2012 4:52:39am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 40) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "ab.wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
---------------------
Saturday, November 17th, 2012 4:52:42am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 40) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gb.wav" "ab.wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
---------------------
Saturday, November 17th, 2012 4:52:56am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 40) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "ab.wav" "ab.wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
---------------------
Saturday, November 17th, 2012 4:53:05am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 40) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "ab.wav" "ab.wav" "ga.wav") clock) 800))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
"gd.wav"
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
(note (* (modulo clock 30) (modulo clock 3)))
---------------------
Saturday, November 17th, 2012 4:53:11am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 40) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "aa.wav" "gd.wav" "ab.wav" "ab.wav" "ga.wav") clock) 800))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
(note (* (modulo clock 30) (modulo clock 3)))
---------------------
Saturday, November 17th, 2012 4:53:37am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 40) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb,wav" "ga.wav") clock) 800))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
(note (* (modulo clock 30) (modulo clock 3)))
"gd.wav"
"ab.wav"
"ab.wav"
---------------------
Saturday, November 17th, 2012 4:53:44am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 40) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (+ (* 200 (sine (note (* (modulo clock 3) (modulo clock 2)))) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2)))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"gd.wav"
"ab.wav"
"ab.wav"
800
---------------------
Saturday, November 17th, 2012 4:54:03am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 40) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (note (* (modulo clock 3) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 2) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"gd.wav"
"ab.wav"
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:54:05am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 40) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (note (* (modulo clock 3) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 40) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"gd.wav"
"ab.wav"
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:54:37am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 40) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (note (* (modulo clock 3) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 5) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"gd.wav"
"ab.wav"
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:54:43am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 40) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (note (* (modulo clock 3) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 50) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"gd.wav"
"ab.wav"
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:54:47am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 2 1 0.2 1) (squ (note (* (modulo clock 3) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 50) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"gd.wav"
"ab.wav"
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:55:04am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (squ (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.25 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 50) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"gd.wav"
"ab.wav"
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:55:08am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (squ (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 50) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"gd.wav"
"ab.wav"
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:55:19am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 12) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 50) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"gd.wav"
"ab.wav"
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:55:36am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 20) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 50) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"gd.wav"
"ab.wav"
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:55:44am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 5) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"gd.wav"
"ab.wav"
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:55:45am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.2 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 5) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"gd.wav"
"ab.wav"
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:55:54am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 5) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"gd.wav"
"ab.wav"
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:56:05am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 5) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:56:06am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 5) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:56:26am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 0.3 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:56:33am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0) clock) (pick (list 0.5 0.4 0.3) clock) 0.1 1) (sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:56:43am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0) clock) (pick (list 0.02 0.4 0.3) clock) 0.1 1) (sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:56:48am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0) clock) (pick (list 0.02 0.02 0.3) clock) 0.1 1) (sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.5) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:57:13am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0) clock) (pick (list 0.02 0.02 0.3) clock) 0.1 1) (sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
"ab.wav"
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:57:19am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0) clock) (pick (list 0.02 0.02 0.3) clock) 0.1 1) (sample (pick (list "ab.wav" "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))
---------------------
Saturday, November 17th, 2012 4:57:25am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0) clock) (pick (list 0.02 0.02 0.3) clock) 0.1 1) (sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

---------------------
Saturday, November 17th, 2012 4:57:31am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0) clock) (pick (list 0.02 0.02 0.3) clock) 0 1) (sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

---------------------
Saturday, November 17th, 2012 4:57:35am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0.2) clock) (pick (list 0.02 0.02 0.3) clock) 0 1) (sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3)))))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

---------------------
Saturday, November 17th, 2012 4:57:49am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0.2) clock) (pick (list 0.02 0.02 0.3) clock) 0 1) (pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 440))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
---------------------
Saturday, November 17th, 2012 4:57:57am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0.2) clock) (pick (list 0.02 0.02 0.3) clock) 0 1) (pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 300))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
---------------------
Saturday, November 17th, 2012 4:58:00am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0.2) clock) (pick (list 0.02 0.02 0.3) clock) 0 1) (pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 500))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
---------------------
Saturday, November 17th, 2012 4:58:04am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0) clock) (pick (list 0.02 0.02 0.3) clock) 0 1) (pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.1 0.5) clock) 0.1 1) 500))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
---------------------
Saturday, November 17th, 2012 4:58:14am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0) clock) (pick (list 0.02 0.02 0.3) clock) 0 1) (pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0.1 1) 500))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
---------------------
Saturday, November 17th, 2012 4:58:17am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0) clock) (pick (list 0.02 0.02 0.3) clock) 0 1) (pick (list (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 500))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
---------------------
Saturday, November 17th, 2012 4:58:29am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0) clock) (pick (list 0.02 0.02 0.3) clock) 0 1) (pick (list (pink 40) (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 500))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
---------------------
Saturday, November 17th, 2012 4:58:33am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0) clock) (pick (list 0.02 0.02 0.3) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 500))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
---------------------
Saturday, November 17th, 2012 4:58:44am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0) clock) (pick (list 0.02 0.02 0.3) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
0.1
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
---------------------
Saturday, November 17th, 2012 4:59:03am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0.4 0 0) clock) (pick (list 0.02 0.02 0.3) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.2
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
---------------------
Saturday, November 17th, 2012 4:59:12am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0.4 0 0) clock) (pick (list 0.02 0.02 0.3) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
---------------------
Saturday, November 17th, 2012 4:59:20am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0.4 0) clock) (pick (list 0.02 0.02 0.3) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 4) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
---------------------
Saturday, November 17th, 2012 4:59:34am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0.4 0) clock) (pick (list 0.02 0.02 0.3) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
---------------------
Saturday, November 17th, 2012 4:59:54am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0.4 0) clock) (pick (list 0.02 0.02 0.02) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
---------------------
Saturday, November 17th, 2012 4:59:57am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0.4 0) clock) (pick (list 0.02 0.2 0.02) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
---------------------
Saturday, November 17th, 2012 5:00:00am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0.4 0) clock) (pick (list 0.2 0.2 0.02) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
---------------------
Saturday, November 17th, 2012 5:00:02am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0.4 0) clock) (pick (list 0.2 0.2 0.2) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
---------------------
Saturday, November 17th, 2012 5:00:11am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0.4 0) clock) (pick (list 0.01 0.2 0.2) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.25 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
---------------------
Saturday, November 17th, 2012 5:00:22am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0.4 0) clock) (pick (list 0.01 0.2 0.2) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
---------------------
Saturday, November 17th, 2012 5:00:34am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.2 0.2) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
---------------------
Saturday, November 17th, 2012 5:00:51am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zop (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.2 0.2) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
---------------------
Saturday, November 17th, 2012 5:01:01am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.2 0.2) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
---------------------
Saturday, November 17th, 2012 5:01:07am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (moogbp (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))) (/ (modulo clock 8) 8) 0.4)) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.2 0.2) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
---------------------
Saturday, November 17th, 2012 5:01:18am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2)))))) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.2 0.2) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
(moogbp (/ (modulo clock 8) 8) 0.4)
---------------------
Saturday, November 17th, 2012 5:01:36am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2)))))) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.2 0.2) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
(moogbp (/ (modulo clock 8) 8) 0.4)
---------------------
Saturday, November 17th, 2012 5:01:51am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2)))))) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.01 0.2) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
(moogbp (/ (modulo clock 8) 8) 0.4)
---------------------
Saturday, November 17th, 2012 5:01:54am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2)))))) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.01 0.02) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
(moogbp (/ (modulo clock 8) 8) 0.4)
---------------------
Saturday, November 17th, 2012 5:02:03am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2)))))) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.01 0.02) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
(moogbp (/ (modulo clock 8) 8) 0.4)
---------------------
Saturday, November 17th, 2012 5:02:04am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (* (adsr 0 0.1 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2)))))) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.01 0.02) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
(moogbp (/ (modulo clock 8) 8) 0.4)
---------------------
Saturday, November 17th, 2012 5:02:11am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (* (adsr 0 0.2 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2)))))) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.01 0.02) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
(moogbp (/ (modulo clock 8) 8) 0.4)
---------------------
Saturday, November 17th, 2012 5:02:12am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (* (adsr 0 0.2 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2)))))) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.01 0.02) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
(moogbp (/ (modulo clock 8) 8) 0.4)
---------------------
Saturday, November 17th, 2012 5:02:13am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (* (adsr 0 0.2 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2)))))) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.01 0.02) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
(moogbp (/ (modulo clock 8) 8) 0.4)
---------------------
Saturday, November 17th, 2012 5:02:43am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (* (adsr 0 0.2 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2)))))) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.01 0.4) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
(moogbp (/ (modulo clock 8) 8) 0.4)
---------------------
Saturday, November 17th, 2012 5:02:53am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (* (adsr 0 0.2 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2)))))) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.01 0.4) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
(moogbp (/ (modulo clock 8) 8) 0.4)
---------------------
Saturday, November 17th, 2012 5:02:57am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (* (adsr 0 0.2 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2)))))) (cond ( (< clock 12) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.01 0.02) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
(moogbp (/ (modulo clock 8) 8) 0.4)
---------------------
Saturday, November 17th, 2012 5:03:12am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (zopa time clock) (play time (* (adsr 0 0.2 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2)))))) (cond ( (< clock 30) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.01 0.02) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
(moogbp (/ (modulo clock 8) 8) 0.4)
---------------------
Saturday, November 17th, 2012 5:04:01am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (cond ( (< clock 30) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.01 0.02) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
(moogbp (/ (modulo clock 8) 8) 0.4)
(zopa time clock)
(play time (* (adsr 0 0.2 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))))
---------------------
Saturday, November 17th, 2012 5:04:03am
440
(define (root time clock) (play time (* (adsr 0 0.01 0 0) (white 440))) (when (zmod clock 4) (in time 0.25 zopa (modulo clock 15))) (when (zmod clock 4) (in time 0.25 zopi (modulo clock 15))) (synced-in time root (+ clock 1)))
(synced-in (time-now) root 0)
(define (zop time clock) (cond ( (< clock 30) (in time 0.25 zop (+ clock 1))) (else (in time 0.5 zopa (modulo clock 30)))))
(define (cond ( (< clock 30) (in time 0.5 zopa (+ clock 1)))))
(define (zopi time clock) (play time (* 1 (adsr (pick (list 0 0 0) clock) (pick (list 0.01 0.01 0.02) clock) 0 1) (pick (list (pink 300) (pink 40) (white (* (modulo clock 12) (modulo clock 8) 44)) (squ (* (adsr 0 (pick (list 0.2 0.4 0.5) clock) 0 1) 50))) clock))) (cond ( (< clock 500) (in time (if (odd? clock) 0.5 0.25) zopi (+ clock 1)))))
(saw)
(* (modulo clock) (modulo clock 8) 44)
(pick (list 880 440) clock)
(else (in time 0.5 zop (modulo clock 10)))
(/ (modulo clock 12) 12)
10
(echo (* (rndf) 0.01) 0.9)
(in time 0.5 zopi (modulo clock 14))
(else)
0.01
300
(+ (* clock 0.01))
(play time (moogbp (* (adsr 0 0.01 0.2 1) (white 120)) (rndf) 0.3))
800
(+ (* 200 (sine) (adsr (pick (list 3) clock) 2 0 1)) (note (* (modulo clock 9) (modulo clock 2))))

(sample (pick (list "gd.wav" "ab.wav" "eb,wav" "ga.wav") clock) (note (* (modulo clock 30) (modulo clock 3))))
0
(moogbp (/ (modulo clock 8) 8) 0.4)
(zopa time clock)
(play time (* (adsr 0 0.2 0.2 1) (saw (note (* (modulo clock 30) (modulo clock 2))))))