Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP


http://adamsmith.as/typ0/cfml-prototype.mp3

(define (bump)
   (literal 1/2 '((0 3 0 1 1/2))))
(define (lump)
   (after bump
          (tra 2 bump)
          (tra 4 bump)
          (tra 5 bump)))
(define (string-step)
   (literal 2 '((0 4 0 1 2)(1 4 7 1 1)(0 4 2 1 2))))
(define (string-end)
   (literal 2 '((0 4 4 1 1)(1 4 -1 1 1))))
(define (song)
   (choose (vol 2/3 string-end)
           (tra +2 (after (during string-step
                                 (after lump (tra -4 lump)))
                         song))))
(perform song 120 (pc:scale 0 'dorian))
Something went wrong with that request. Please try again.