[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