hi again,<br>
i just noticed that when using some of the more exotic cmn clefs in cm, a la:<br>
<span>(define my-staffs<br> '((0 :name "hi osc" :clef :quad-treble :meter (4 4))<br> (1 :name "lo osc" :clef :double-bass :meter (4 4))))<br>(io "/tmp/test.cmn" :staffing my-staffs :size 20
<br> :free-expansion-factor 1.5 :automatic-octave-signs nil)<br>(new seq :name 'whoops<br> :subobjects<br> (list<br> (new cmn :time 0 :note 'c7 :staff 0 :duration 4)<br> (new cmn :time 0 :note 'c0 :staff 1 :duration 4)))
<br><br>(events #&whoops "test.cmn")</span><br>
<br>
the actual output displays the music using tenor clefs ... some sort of
fallback, i guess. i looked in the cmn.scm code for a little while, but
didn't see where this could be happening - i'd like to be able to use
these clefs if possible ... i know it's strange but i have reasons ...<br>
<br>
the accidental issue is another baffler (for me ...) - i'm trying to do
some microtonal output to cmn and have made a little function that
looks up non-integer keynums and assigns one of the built-in cmn
microtonal symbols and adds it to the :data slot of the cmn expression.
<br>
<br>
(defun accid (num)<br>
(let ((acc (cond ((< 0 num .5) 'sharp-down) <etc.><br>
...<br>
and set accidl = (accid p1)<br>
...<br>
:data (list accidl 'stem-down)<br>
<br>
when the events are output, the displayed file looks ok, but the notes in the .cmn file look like this:<br>
<span>(g1 (sign #<write-protected-accidental>) ...<br>
<br>
and if it's reloaded:<br>
</span><span>READER-ERROR at 462 (line 17, column 18) on #<SB-SYS:FD-STREAM for "file /tmp/testit.cmn" {C277649}>:<br>illegal sharp macro character: #\<<br> [Condition of type READER-ERROR]<br></span>
<span><br>
i just tried this with a much more stripped-down example and the same thing happens:<br>
<br>
</span><span>(new cmn :time 0 :note 'c5 :staff 0 :data (list 'sharp-up) :duration 4)</span><span><br>
<br>
why doesn't my method work? what's the better way to do this?<br>
<br>
thanks,<br>
bill<br>
</span>