[fomus-devel] :note
ml13 at onlinehome.de
ml13 at onlinehome.de
Tue Nov 15 16:39:03 UTC 2005
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
More information about the Fomus-devel
mailing list