Hi,
I must admit I havent quite followed fomus development for the last weeks.... But looking on the cvs logs, I can see that you're still quite involved... Have you actually posted your project, in order to find co-developers?
I have updated to the latest cvs tody and I am having some problems with the :note slot. I will allow myself to post some snippets, below, which I suppose to be syntactically correct (?).
Actually some (if not all) of them used to be working before, so are you again working on the accidental stuff?
I am doing this on openmcl:
(progn (fomus-init :backend '(:lilypond )) (fomus-newpart 1 :name "Cello" :instr :cello) (fomus-newnote 1 :off 0 :dur 0.3 :note 61) (fomus-newnote 1 :off 0.3 :dur 1 :note 62) (fomus-exec))
(progn (fomus-init :backend '(:lilypond )) (fomus-newpart 1 :name "Cello" :instr :cello) (fomus-newnote 1 :off 0 :dur 0.3 :note 'c4) (fomus-newnote 1 :off 0.3 :dur 1 :note 'd4) (fomus-exec))
(progn (fomus-init :backend '(:lilypond )) (fomus-newpart 1 :name "Cello" :instr :cello) (fomus-newnote 1 :off 0 :dur 0.3 :note '(c4 n)) (fomus-newnote 1 :off 0.3 :dur 1 :note '(ds4 s)) (fomus-exec))
One thats actually working is this:
(progn (fomus-init :auto-accidentals nil :backend '(:lilypond)) (fomus-newpart 1 :name "Cello" :instr :cello) (fomus-newnote 1 :off 0 :dur 0.3 :note (list 61 1)) (fomus-newnote 1 :off 0.3 :dur 1 :note (list 61 -1)) (fomus-exec))
Regards,
Kilian Sprotte
I just fixed a list of bugs, most of them related to note spellings, percussion instruments and system brackets--all of your examples worked for me in openmcl and cmucl, so I might have fixed the problem already. If the latest CVS update still causes problems, send me the debug file that is generated ("/tmp/fomus.dbg" is the default setting) so that I can replicate the problem exactly.
Lately I've only had time to fix bugs here and there (there are still a lot of them floating around)--by mid Jan. I think I'll have the rest of the big features in place that I wanted to put in (CMN & MusicXML backends, polymeters, speed improvements, key signatures, fixes for Windows users, a few other things). I'll bump up the version to something greater than 0.1 and make an official release once I've done some extensive testing on all this. At that point I think it will be easier for other developers to join the project or add their own algorithms--until then I'll still be changing a lot of things around as I finish these things.
-David
ml13@onlinehome.de wrote:
Hi,
I must admit I havent quite followed fomus development for the last weeks.... But looking on the cvs logs, I can see that you're still quite involved... Have you actually posted your project, in order to find co-developers?
I have updated to the latest cvs tody and I am having some problems with the :note slot. I will allow myself to post some snippets, below, which I suppose to be syntactically correct (?).
Actually some (if not all) of them used to be working before, so are you again working on the accidental stuff?
Hi,
this is just a quick note to tell you that - although the tremolo facility is pretty nice - I am having problems with the following:
(fomus:fomus-init :backend '(:lilypond :view t))
(fomus:fomus-newpart 1 :name "p1") (fomus:fomus-newnote 1 :off 0 :dur 4/3 :note '(77 0) :marks '((:tremolofirst) :mf)) (fomus:fomus-newnote 1 :off 0 :dur 4/3 :note '(64 0) :marks '((:tremolosecond))) (fomus:fomus-newnote 1 :off 3 :dur 1 :note '(74 0) :marks '((:tremolofirst))) (fomus:fomus-newnote 1 :off 3 :dur 1 :note '(67 0) :marks '((:tremolosecond)))
(fomus:fomus-exec)
Happy New Year!
Kilian
Thanks--I think the latest update should work now--I'm going to be straightening up a lot of these things and finishing up unfinished code in the next few weeks, so any bug reports, complaints, etc. will be much appreciated. I'd welcome any ideas or comments about the interface too, if anyone has any--especially if there are any settings that are too complicated, excessive, ineffective, ambiguous, etc..
-David
ml13@onlinehome.de wrote:
Hi,
this is just a quick note to tell you that - although the tremolo facility is pretty nice - I am having problems with the following:
(fomus:fomus-init :backend '(:lilypond :view t))
(fomus:fomus-newpart 1 :name "p1") (fomus:fomus-newnote 1 :off 0 :dur 4/3 :note '(77 0) :marks '((:tremolofirst) :mf)) (fomus:fomus-newnote 1 :off 0 :dur 4/3 :note '(64 0) :marks '((:tremolosecond))) (fomus:fomus-newnote 1 :off 3 :dur 1 :note '(74 0) :marks '((:tremolofirst))) (fomus:fomus-newnote 1 :off 3 :dur 1 :note '(67 0) :marks '((:tremolosecond)))
(fomus:fomus-exec)
Happy New Year!
Kilian
fomus-devel mailing list fomus-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/fomus-devel
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)