fomus-devel February 2006

fomus-devel@common-lisp.net

3 participants
6 discussions

[fomus-devel] cvs fomus
by Rick Taube 03 Apr '06

03 Apr '06

cvs fomus doesnt compile in openmcl ;Compiling "/Lisp/fomus/splitrules.lisp"... ;Loading #P"/Lisp/fomus/util.dfsl"... > Error in process listener(1): Illegal use of wildcarded filename "/ Applications/Peak™ 3.21 (OS X)/Peak™ 3.21 \\\\*Read\\\\* ME" > While executing: CCL::NATIVE-TRANSLATED-NAMESTRING > Type :POP to abort. Type :? for other options. 1 > also, what is the state of support for musicxml in finale VS sibelius? i need to notate a piece, whihc means that ill prrobably end up using one of these programs. a primary determining factor in my choice of which one to buy is xml input, so which one should i buy? or are both bascially crappy so that its not worrth the money in either case?

2 2

[fomus-devel] :forceacc
by Kilian Sprotte 23 Feb '06

23 Feb '06

Hi, I am just wondering, whether it could be a good idea to add a :forceacc mark; it would behave exactly like :cautacc, but avoid having parentheses in the notation. Let's say I want to have a clear printout of a twelve-tone row or maybe print some Boulez or Schoenberg.... Adding :forceacc to every note, would allow for having naturals before every note. Maybe I have overlooked (again) some of the settings, but I have the impression that this is currently not possible and it doesn't really require having its own acc-spelling algorithm. Cheers, -Kilian

2 3

[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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

fomus-devel February 2006