Thanks--I'll put the tremolos on the todo list, that's something I overlooked.  The beat defaults to 1/4 (quarter note duration), but can be changed w/ :default-beat and in the time signature objects (in compound meters it defaults to the beat implied by the time signature). 

Actually, the 3/8 gets added to the 5/8 because by default any measure smaller than 2 beats is merged into the measure preceding it--you can change the duration with :min-auto-timesig-dur, so

(fomus:fomus-init :backend '(:lilypond :view t) :auto-accidentals nil :min-auto-timesig-dur 3/2)

should get you what you want.  You can turn off the auto-rearranging too (:auto-override-timesigs nil)

-David

ml13@onlinehome.de wrote:

Hi,

for some reason fomus wants to make a 5/8 + a 3/8 into a 8/8 in the the following snippet. I will be using fomus quite regularly the next days and keep on pasting my observations. I could also try to give some comments on the interface and settings, if I have some more time after this hot period. I will surely also play around with the quant settings - for the moment, I will use :max-tuplet-dur 1, which seems to work nicely. If you speak about a "beat", do you always mean a quarter beat, regardless of time signature ? (I think that's good...)

Cheers,

    Kilian

(fomus:fomus-init :backend '(:lilypond :view t) :auto-accidentals nil)

(fomus:fomus-newpart 2)

(fomus:fomus-newtimesig :off 0 :time '(3 8))

(fomus:fomus-newnote 2 :off 0 :dur 1/2 :note '(74 0) :marks '(:accent :mf))

(fomus:fomus-newnote 2 :off 1/2 :dur 1/2 :note '(71 0) :marks nil)

(fomus:fomus-newnote 2 :off 1 :dur 1/2 :note '(74 0) :marks nil)

(fomus:fomus-newtimesig :off 3/2 :time '(5 8))

(fomus:fomus-newnote 2 :off 3/2 :dur 1/2 :note '(74 0) :marks '(:accent))

(fomus:fomus-newnote 2 :off 2 :dur 1/2 :note '(67 0) :marks nil)

(fomus:fomus-newnote 2 :off 5/2 :dur 1/2 :note '(67 0) :marks nil)

(fomus:fomus-newnote 2 :off 3 :dur 1/2 :note '(71 0) :marks nil)

(fomus:fomus-newnote 2 :off 7/2 :dur 1/2 :note '(74 0) :marks nil)

(fomus:fomus-newtimesig :off 4 :time '(3 8))

(fomus:fomus-newnote 2 :off 4 :dur 1/2 :note '(74 0) :marks '(:accent))

(fomus:fomus-newnote 2 :off 9/2 :dur 1/2 :note '(74 0) :marks nil)

(fomus:fomus-newnote 2 :off 5 :dur 1/2 :note '(67 0) :marks nil)

(fomus:fomus-newtimesig :off 11/2 :time '(5 8))

(fomus:fomus-newnote 2 :off 11/2 :dur 1/2 :note '(74 0) :marks '(:accent))

(fomus:fomus-newnote 2 :off 6 :dur 1/2 :note '(71 0) :marks nil)

(fomus:fomus-newnote 2 :off 13/2 :dur 1/2 :note '(74 0) :marks nil)

(fomus:fomus-newnote 2 :off 7 :dur 1/2 :note '(71 0) :marks nil)

(fomus:fomus-newnote 2 :off 15/2 :dur 1/2 :note '(67 0) :marks nil)

(fomus:fomus-newtimesig :off 8 :time '(5 8))

(fomus:fomus-newnote 2 :off 8 :dur 1/2 :note '(74 0) :marks '(:accent))

(fomus:fomus-newnote 2 :off 17/2 :dur 1/2 :note '(71 0) :marks nil)

(fomus:fomus-newnote 2 :off 9 :dur 1/2 :note '(74 0) :marks nil)

(fomus:fomus-newnote 2 :off 19/2 :dur 1/2 :note '(67 0) :marks nil)

(fomus:fomus-newnote 2 :off 10 :dur 1/2 :note '(71 0) :marks nil)

(fomus:fomus-exec)

_______________________________________________
fomus-devel mailing list
fomus-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/fomus-devel