[CM] grace beta for win32

Heinrich Taube taube at uiuc.edu
Wed Apr 23 13:09:58 PDT 2008

sorry, this is it with proper formatting (i tested it)

define process piano-phase (stop, keys, rate)
  run with pat = make-cycle(keys)
    until elapsed() >= stop
    send "mp:midi", key: key(next(pat)), dur: rate
    wait rate

  with trope = {e4 fs4 b4 cs5 d5 fs4 e4 cs5 b4 fs4 d5 cs5} ,
       nsecs = 20
  sprout list( piano-phase(nsecs, trope, .167),
               piano-phase(nsecs, trope, .17))

More information about the Cmdist mailing list