Mercurial > hg > amuse
comparison utils/harmony/chord-labelling.lisp @ 41:90abdf9adb60
monodising and some n-gram utilities
darcs-hash:20070614140028-f76cc-9bdeba6db4097e425b1fee4f58a3327eeb486685.gz
| author | David Lewis <d.lewis@gold.ac.uk> |
|---|---|
| date | Thu, 14 Jun 2007 15:00:28 +0100 |
| parents | 81b4228e26f5 |
| children |
comparison
equal
deleted
inserted
replaced
| 40:5bec705db9d6 | 41:90abdf9adb60 |
|---|---|
| 576 | 576 |
| 577 ;;;;;;;;;;;;;;;;;;;;;;;;; | 577 ;;;;;;;;;;;;;;;;;;;;;;;;; |
| 578 ;; | 578 ;; |
| 579 ;; Likelihood (structure) manipulation and access methods | 579 ;; Likelihood (structure) manipulation and access methods |
| 580 ;; | 580 ;; |
| 581 ;; FIXME: Explain this?? Is it ((pc :type) . p(chord))? | |
| 581 | 582 |
| 582 (defgeneric set-likelihood (likelihoods offset chord likelihood)) | 583 (defgeneric set-likelihood (likelihoods offset chord likelihood)) |
| 583 (defmethod set-likelihood ((likelihoods list) chord offset likelihood) | 584 (defmethod set-likelihood ((likelihoods list) chord offset likelihood) |
| 584 (acons (list offset chord) likelihood likelihoods)) | 585 (acons (list offset chord) likelihood likelihoods)) |
| 585 | 586 |