Someone asked earlier about using #t for base 12 and
automatically reading things like #t04 as a pitch
designation (middle-C in this case):
(set! *#readers*
(cons (cons #\t (lambda (str)
(* 16.351 (expt 2 (/ (+ (* 12 (string->number (string
(str 2))))
(string->number (string (str
1)) 12))
12)))))
*#readers*))
:#t94
439.98391314603
:#t04
261.616
:#t05
523.232
So the syntax here is #t<pitch><octave>.
_______________________________________________
Cmdist mailing list
[email protected]
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
