Mercurial > hg > amuse
changeset 93:291f3be180e9
Use ps13-new-imp with no voiceleading
darcs-hash:20070723170559-dc3a5-c53df5ee6cd49bd3d853fbf7d96a51267066a7fd.gz
| author | c.rhodes <c.rhodes@gold.ac.uk> |
|---|---|
| date | Mon, 23 Jul 2007 18:05:59 +0100 |
| parents | 2c5866238d7b |
| children | 8b5818686d7c |
| files | implementations/gsharp/gsharp-import.lisp |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/implementations/gsharp/gsharp-import.lisp Mon Jul 23 18:05:36 2007 +0100 +++ b/implementations/gsharp/gsharp-import.lisp Mon Jul 23 18:05:59 2007 +0100 @@ -142,7 +142,7 @@ ("f" . :flat) ("ff" . :double-flat)))) (defun annotate-misspellings (composition) (do* ((ocp-list (ocp-list composition)) - (note-sequence (ps13:ps13-new-imp (map 'list #'cdr ocp-list) 10 42)) + (note-sequence (ps13:ps13-new-imp (map 'list #'cdr ocp-list) 10 42 nil nil nil)) (list ocp-list (cdr list)) (spellings note-sequence (cdr spellings))) ((null list))