fomus-devel

fomus-devel@common-lisp.net

100 discussions

[fomus-devel] regression testing
by Kilian Sprotte 16 Feb '06

16 Feb '06

How do you feel about the need of adding a testsuite to fomus? I mean a module that processes an input score and compares the result of the :data output to a predefined solution... Well, I know that this is a task that requires quite some additional work, but it could pay-out possibly. It would probably only make sense if one was sure that the output of the :data backend wouldn't change anymore so much. I could offer some help for doing this... Ciao, Kilian

2 1

[fomus-devel] 9 16
by Kilian Sprotte 13 Feb '06

13 Feb '06

Hi, I haven't really checked the last update, yet, sorry, but I will do that soon. While needing to finish something else, I came across the following problem: (fomus:fomus-init :backend '(:lilypond :view t) :auto-accidentals nil :auto-override-timesigs nil) (fomus:fomus-newtimesig :off 0 :time '(9 16)) (fomus:fomus-newpart 1 :instr :violin) (fomus:fomus-newnote 1 :off 0 :dur 1 :note '(af4 cm:f) :marks '((:textnote "1"))) (fomus:fomus-exec) Aborts telling me the rhythm was too complex. (fomus:fomus-newtimesig :off 0 :time '(9 8)) would make it work. Maybe, I am ignorant to some other settings? Ciao, –Kilian

2 1

[fomus-devel] transpose
by Kilian Sprotte 11 Feb '06

11 Feb '06

Hi, I am quite in a hurry, sorry for being a little silent - the new doc design is pretty nice!! I encountered a presumably small transposing problem, when I use :auto-accidentals nil. This one causes an error: (fomus:fomus-init :backend '(:lilypond :view t) :use-cm t :auto- accidentals nil :transpose t) (fomus:fomus-newpart :bass-clarinet :instr :bass-clarinet :name "bass- clarinet") (fomus:fomus-newnote :bass-clarinet :off 0 :dur 1 :note '(e4 n) :marks nil) (fomus:fomus-exec) This one is fine: (fomus:fomus-init :backend '(:lilypond :view t) :use-cm t :auto- accidentals t :transpose t) (fomus:fomus-newpart :bass-clarinet :instr :bass-clarinet :name "bass- clarinet") (fomus:fomus-newnote :bass-clarinet :off 0 :dur 1 :note 64 :marks nil) (fomus:fomus-exec) A bientôt, -Kilian

2 1

[fomus-devel] intermediate files
by Kilian Sprotte 05 Feb '06

05 Feb '06

Hi, just as an idea, it could be nice to have an option like :delete- intermediate-files in the ly backend. I am not sure, whether lilypond allows for doing this directly, but it could be most simple anyway to do something like the appended diff. Cheers and have a wonderful day, Kilian Sprotte PS: Are you using emacs to edit the code? I sometimes wonder, what a big screen you must have.... ;-) --- orig/backend_ly.lisp +++ mod/backend_ly.lisp @@ -51,6 +51,10 @@ (append (or exe-opts +lilypond-opts+) (list filename)) :wait t #|:output *standard-output*|#) (progn (unless (probe-file (change-filename filename :ext (or out-ext +lilypond-out-ext+))) (er "compiling")) + (ignore-errors (delete-file (change-filename filename :ext "dvi")) + (delete-file (change-filename filename :ext "log")) + (delete-file (change-filename filename :ext "ps")) + (delete-file (change-filename filename :ext "tex"))) (when view (unless (#+cmu extensions:run-program #+sbcl sb-ext:run-program # +openmcl ccl:run-program (or view-exe +lilypond-view-exe+) (append (or view-exe-opts +lilypond-view-opts+) (list (change-filename filename :ext (or out-ext +lilypond-out-ext+))))

2 8

[fomus-devel] snippet-of-the-day
by Kilian Sprotte 13 Jan '06

13 Jan '06

Hi, what makes we very happy today is that fomus accepts notes before the actual parts are created (the violin is just a dummy instr....)!! A minor issue that I have is that the :auto-grace-slurs nil setting does not seem to work (neither lilypond 2.6.4 nor 2.4.5). Busy greetings, Kilian (fomus:fomus-init :backend '(:lilypond :view t) :auto-grace-slurs nil :auto-accidentals nil :max-tuplet-dur 1) (fomus:fomus-newnote 1 :off 0 :dur 3/2 :note '(69 0) :marks '((:texttempo "q=72") :accent :mf)) (fomus:fomus-newnote 1 :off 3/2 :dur 5/6 :note '(69 0) :marks nil) (fomus:fomus-newnote 1 :off 7/3 :dur '(1/2 0) :note '(69 0) :marks nil) (fomus:fomus-newnote 1 :off 7/3 :dur '(1/2 1) :note '(69 0) :marks nil) (fomus:fomus-newnote 1 :off 7/3 :dur 1/3 :note '(69 0) :marks nil) (fomus:fomus-newnote 1 :off 8/3 :dur 4/3 :note '(69 0) :marks nil) (fomus:fomus-newpart 1 :name "P1" :instr :violin) (fomus:fomus-newpart 2 :name "P1" :instr :violin) (fomus:fomus-newpart 3 :name "P2" :instr :violin) (fomus:fomus-newpart 4 :name "P2" :instr :violin) (fomus:fomus-exec)

2 1

Re: [fomus-devel] timesig
by ml13＠onlinehome.de 10 Jan '06

10 Jan '06

Hi David, thats very good news!! You see that I haven't really studied the fomus settings so well, yet (although there are documented very well...) - sorry. Ciao, Kilian Am 10.01.2006 um 18:41 schrieb David Psenicka: > 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(a)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(a)common-lisp.net >> http://common-lisp.net/cgi-bin/mailman/listinfo/fomus-devel >>

1 0

[fomus-devel] :note
by ml13＠onlinehome.de 10 Jan '06

10 Jan '06

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

2 5

[fomus-devel] :beat-division ?
by ml13＠onlinehome.de 29 Jul '05

29 Jul '05

Hi, I just have another question. I dont understand the meaning of :beat-division. For example, when I specify: :beat-division 2, I am expecting the grid for rounding offsets and durations to be: 0 0.5 1 1.5 ... So, if I have something like: (fomus-newnote 1 :off 0 :dur 0.3 :note 61) (fomus-newnote 1 :off 0.3 :dur 0.7 :note 40) it should become: (fomus-newnote 1 :off 0 :dur 0.5 :note 61) (fomus-newnote 1 :off 0.5 :dur 0.5 :note 40) Well, I can see that :beat-division really has a different meaning, could you give me a hint? Thanks, Kilian

1 0

[fomus-devel] (no subject)
by David Psenicka 28 Jul '05

28 Jul '05

Sorry for the lack of response, I didn't have the mailing list set up quite right so I didn't see the postings. :( I think most of these issues are already resolved--the quantizer should be able to handle anything as long as constraints are reasonable (maximum tuplet allowed, divisions per beat, etc.) Also, tiny notes that quantize to 0 duration will turn into grace notes.

2 2

[fomus-devel] FOMUS
by David Psenicka 27 Jul '05

27 Jul '05

I'd like to announce a new project, "Fomus." Fomus is a music notation tool in Lisp for computer music composers that converts "raw" musical data into an output file or files suitable for loading into several different notation programs. The purpose is to provide a better alternative to current options for importing data and formatting it into a score. The program tries to automate a variety of tasks including note spellings, distribution of notes across voices and staves, clef signatures, ottava brackets, combining notes and rests in multiple-voice parts, and (maybe one of the more useful functions) quantizing note offsets and durations by finding combinations of tuplets/beat divisions that minimize the amount of error. Support also exists for articulation markings including slurs, other markings like text and dynamics, and some special types of notation like tremolos, harmonics (some of these aren't implemented yet). It can also be used as a Common Music backend, and will use some of CM's functionality if present. Fomus is still in its initial testing/development stage so many bugs exist, some minor things aren't implemented yet (including backends--it only outputs LilyPond files at the moment), the documentation needs to be finished, the interface needs to be simplified, etc.. This project grew out of a smaller collection of Lisp functions I've been using over the past few years to notate my own pieces. The main website is at http://common-lisp.net/project/fomus/doc/ and contains instructions for CVS download. At the moment the program should compile in the latest versions of CMUCL and SBCL on Linux and CMUCL and OpenMCL in Darwin (it won't compile in Darwin SBCL at the moment). Any comments, feature requests and bug reports are welcome from anyone interested in using it and seeing it develop--there is a mailing list link on the website. (I apologize for the cross-posting.) -David Psenicka

1 0

← Newer
1
2
3
4
5
6
7
8
9
10
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

fomus-devel