- fomus-devel@common-lisp.net - mailman3.common-lisp.net

[fomus-devel] ongoing improvements....
by David Psenicka 17 Apr '06

17 Apr '06

Mika, I fixed quite a few things and updated CVS--I'd wait for one more CVS update as I make sure I didn't create any new problems :) . A few things I ran across in some of the tests (and some other odds and ends that occur to me): I wouldn't put anything in the "partids" slot in a timesig object yet (I saw this in the Segovia and maybe one or two others)--that option is there for polymeters which aren't quite implemented yet (it's in the main code but not in the backends yet)--actually in the Segovia parts the partids indicate part 0 which isn't defined--so the time signatures weren't used at all and the default 4/4 was used Specifying :div '(2) for a 2/4 meter tells fomus not to subdivide the measure at all, so it will try to cram everything in the measure into a tuplet (I think I should just make this an error--this isn't really intended and can only give strange results). I found a few large numbers in some of the slur/text spanner marks (they look more like addresses or indexes)--I'm not sure if that's what you want in there. Originally fomus was supposed to accept any "level" numbers and sort it all out (so the numbers that go into these marks could actually be treated like IDs for each mark), but I think that creates problems and confusion--so now I've changed it so slurs (and any other spanner mark that gets a "level" number) should only use one of several unique numbers (such as 1 & 2 for two levels of slurs). Within each "level" fomus tries to complete missing start and end marks and other problems it finds, so I think this will be less confusing. The "min-tuplet-dur" setting will affect how nested tuplets are created--I set the default to a lower value to get one of the nested triplets tests to work correctly--there are at least a few more issues to look at involving tuplets (rules for finding them + beaming nested tuplets...) The numbers that go with tremolos are in beat values, so when you specified 1/8 (I think you wanted eighth-notes) you got 32nd note tremolos (1/8 of a beat)--so to get the eighth-note tremolos (:tremolo 1/2) is needed (when a quarter note gets the beat). I apologize, the documentation wasn't really clear on this (among other things... :) ). By next update I'll modify the mark to optionally receive a written value--this should be more intuitive & flexible. Forcing tied notes is a good idea (next update I think it'll be there--this should be easy to implement) I've improved staff-distribution a little (actually a lot--the Segovia looks a little rough, but that's to be expected)--I should add a way to force staff decisions for individual notes and entire voices--at some point I plan to have presets for handling different types of material (for example presets for melodic lines, regular rhythms, complex rhythms, etc.), presets for ea. voice would be worthwhile. Staff and voice distribution might be awkward for a little while as I tweak them further... I decided to make tuplet spelling (7 in time of 4 vs. 7 in time of 8, etc.) user controllable, so the default is now is the power-of-2 rule which can be overriden by the "default-tuplets" setting (ex. :default-tuplets '((7 8) (31 32)) specifies you want 7 in the time of 8 not 4, etc..) I need to look at the Rite of Spring test some more--there's some strange issue (I think) w/ Lilypond shortening slurs... Probably my fault but I'm not sure yet. -David

2 2

[fomus-devel] Re: fomus-test :)
by David Psenicka 11 Apr '06

11 Apr '06

Kilian, The test suite is working really well. I added a few more backend methods and tweaked a function that parses the code (separating fomus lines from test lines...) -David

1 0

[fomus-devel] Re: LispWorks
by David Psenicka 06 Apr '06

06 Apr '06

Thank you for your attachments. I'll have some time to look at the tuplet bug in the next few days... There's a slot in the timesig class called "div" where you can specify possible measure subdivisions (as number of beats in each subdivision). For example: (make-timesig :off 0 :time '(5 8) :div '(1 3/2)) or (make-timesig :off 0 :time '(5 4) :div '(3 2)) or (make-timesig :off 0 :time '(5 8) :div '((3/2 1) (1 3/2))). Looking at the '(5 4) example just now I see that I need to fix the beaming algorithm so that it shows the 3 + 2 division properly (another addition to the bug list). There are also two settings, :default-meas-divs and :default-tuplet-divs which are lookup tables containing default divisions (you can override fomus's defaults with these), but they don't give you direct control. Let me know if you have any additional ideas for controlling subdivisions/tuplets--I'm open to anything that will make the program more flexible. I'm looking forward to seeing it work with PWGL/ENP--thank you so much for your help. -David Mika Kuuskankare wrote: > David, > >> FOMUS should run in LispWorks now (I tested on Max OS X and will try >> Windows & Linux soon). > > > Thanks for your work on LispWorks. It looks promising! > > I already did an exporter that converts ENP -> FOMUS -> LILYPOND. I > enclosed some test runs showing the output of the exporter . > .eps files show the original ENP score > .pdf shows the lilypond output > .dbg is fomus dbg file, and > .err is a possible error message generated by FOMUS > > BTW, I set :AUTO-QUANTIZE to NIL, because I wanted to use exact > ratios but this produced some difficulties with nested tuplets (see > for example fomus152). > > Is there a possibility to help the quantizer/rhythm interpreter in > case of tuplets and beat divisions, e.g., to indicate beat/subbeat > boundaries? > > > Anyway, I am quite excited about FOMUS. > > > Best regards, > > Mika > > > Mika Kuuskankare > Researcher > Department of Doctoral Studies in Musical Performance and Research > Sibelius Academy > > Henkilökohtainen postiosoite/Personal post address > PL 342 - PO Box 342 > FIN-00121 Helsinki, FINLAND > Tel: +358 (0)40 5415 233 > Skype: mkuuskan > >

1 0

[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

[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

[fomus-devel] interface 2
by ml13＠onlinehome.de 25 Jul '05

25 Jul '05

Hi, first of all congratulations to setting up this project!! I am quite amazed about what is already working and l like very much the general setup (the backends, the settings + init file, and the quantization seems to be quite strong, too :), e.g. I enjoyed quite a lot seeing proper quarter triplets, instead of tied over stuff). This is really great!! In fact, I have really started trying out things only this morning (so I cannot tell that much). For the moment, I stumbled over a little problem: (in-package :fm) (fomus-init :ensemble-type :orchestra) (fomus-newpart 1 :name "Piano" :instr :piano) (fomus-newnote 1 :off 0 :dur 2 :note 61) (fomus-exec) What am I missing here? I get an error inside the quant algorithm. I suppose, this is just my problem.... Cheers, Kilian Sprotte

1 0

[fomus-devel] anonymous login
by Rick Taube 23 Jul '05

23 Jul '05

The "problem" with anon cvs at common-lisp.net was the copy/past example: > # For reasonably modern clients: > cvs -z3 -d > :pserver:anonymous:anonymous@common-lisp.net:/project/<project-name>/ > cvsroot co <module> apparently :pserver:anonymous:anonymous... only works for some cvs clients. Anyway this works for downloading Fomus: cvs -z3 -d :pserver:anonymous@common-lisp.net:/project/fomus/cvsroot login cvs -z3 -d :pserver:anonymous@common-lisp.net:/project/fomus/cvsroot co fomus -rick

1 0

[fomus-devel] :composer and :title settings?
by Rick Taube 22 Jul '05

22 Jul '05

are the :composer and :title supposed to be working? they do appear in the generated .ly file but not in the resulting pdf. ;; -*-lisp-*- ;; FOMUS v0.1.1 ;; OpenMCL Version (Beta: Darwin) 0.14.3 (FOMUS :DEBUG-FILENAME "/tmp/fomus.dbg" :VERBOSE 2 :USE-CM T :CM-SCALE NIL :LOADXMLS-FUN :ASDF :BACKEND '(:LILYPOND :FILENAME "test.ly" :VIEW T) :BASE-FILENAME "/tmp/fomus" :GLOBAL NIL :PARTS '(#I(FOMUS:PART :ID NIL :PARTID 1 :NAME NIL :ABBREV NIL :INSTR :VIOLA :EVENTS (#I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 85/4 :DUR 1/4 :NOTE 51.343636 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 83/4 :DUR 1/2 :NOTE 73.70424 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 79/4 :DUR 1 :NOTE 72.46571 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 75/4 :DUR 1 :NOTE 67.59837 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 37/2 :DUR 1/4 :NOTE 83.012184 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 73/4 :DUR 1/4 :NOTE 88.936745 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 69/4 :DUR 1 :NOTE 85.05147 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 65/4 :DUR 1 :NOTE 84.17426 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 61/4 :DUR 1 :NOTE 57.55209 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 59/4 :DUR 1/2 :NOTE 72.09549 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 55/4 :DUR 1 :NOTE 59.53202 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 53/4 :DUR 1/2 :NOTE 85.77424 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 49/4 :DUR 1 :NOTE 70.00486 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 47/4 :DUR 1/2 :NOTE 71.040085 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 43/4 :DUR 1 :NOTE 63.979553 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 21/2 :DUR 1/4 :NOTE 79.26982 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 41/4 :DUR 1/4 :NOTE 56.663208 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 10 :DUR 1/4 :NOTE 64.85958 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 39/4 :DUR 1/4 :NOTE 91.22709 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 37/4 :DUR 1/2 :NOTE 78.9512 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 35/4 :DUR 1/2 :NOTE 67.674095 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 33/4 :DUR 1/2 :NOTE 84.08667 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 8 :DUR 1/4 :NOTE 65.932915 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 31/4 :DUR 1/4 :NOTE 84.203094 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 29/4 :DUR 1/2 :NOTE 77.43326 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 7 :DUR 1/4 :NOTE 61.944397 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 27/4 :DUR 1/4 :NOTE 64.957 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 25/4 :DUR 1/2 :NOTE 68.64221 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 23/4 :DUR 1/2 :NOTE 85.60951 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 11/2 :DUR 1/4 :NOTE 77.35074 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 5 :DUR 1/2 :NOTE 81.6767 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 4 :DUR 1 :NOTE 84.95224 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 7/2 :DUR 1/2 :NOTE 64.852776 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 5/2 :DUR 1 :NOTE 51.718925 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 9/4 :DUR 1/4 :NOTE 77.13191 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 7/4 :DUR 1/2 :NOTE 66.979935 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 3/2 :DUR 1/4 :NOTE 51.788128 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 5/4 :DUR 1/4 :NOTE 61.10151 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 1 :DUR 1/4 :NOTE 86.94888 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID 1 :VOICE 1 :OFF 0 :DUR 1 :NOTE 78.27983 :MARKS NIL)) :OPTS NIL)) :EVENTS NIL :CHECK-RANGES T :TRANSPOSE T :INSTRUMENTS NIL :INSTR-GROUPS NIL :ENSEMBLE-TYPE :ORCHESTRA :PERCUSSION NIL :TITLE "HiHo!" :SUBTITLE NIL :COMPOSER "Anon." :TIMESIG-STYLE NIL :TUPLET-STYLE NIL :QUANTIZE-ADJUST-GRACE-DURS T :DEFAULT-GRACE-DUR 1/2 :DEFAULT-GRACE-NUM 0 :EFFECTIVE-GRACE-DUR-MUL 1/2 :MIN-AUTO-TIMESIG-DUR 2 :DEFAULT-TIMESIG #I(FOMUS:TIMESIG-REPL :ID NIL :TIME (4 4) :COMP NIL :BEAT 1/4 :DIV NIL :PROPS NIL) :QUARTERTONES NIL :AUTO-ACCIDENTALS T :AUTO-CAUTIONARY-ACCS T :AUTO-STAFF/CLEF-CHANGES T :AUTO-OTTAVAS T :AUTO-GRACE-SLURS T :AUTO-VOICING T :AUTO-BEAMS T :AUTO-QUANTIZE T :AUTO-MULTIVOICE-RESTS T :AUTO-MULTIVOICE-NOTES T :AUTO-OVERRIDE-TIMESIGS T :SPLIT-FUN :DEFAULT :AUTO-ACCS-FUN :DEFAULT :AUTO-VOICES-FUN :DEFAULT :AUTO-DISTR-RESTS-FUN :DEFAULT :AUTO-MULTIVOICE-COMB-FUN :DEFAULT :AUTO-OTTAVAS-FUN :DEFAULT :AUTO-BEAM-FUN :DEFAULT :AUTO-QUANTIZE-FUN :DEFAULT :AUTO-STAFF/CLEFS-FUN :DEFAULT :USE-DEFAULT-MEAS-DIVS T :DEFAULT-MEAS-DIVS NIL :USE-DEFAULT-TUPLET-DIVS T :DEFAULT-TUPLET-DIVS NIL :BEAT-DIVISION 16 :MIN-TUPLET-DUR 1/2 :MAX-TUPLET-DUR 4 :MIN-SIMPLE-TUPLET-DUR 2 :MAX-TUPLET 7 :TUPLET-DOTTED-RESTS T :DOUBLE-DOTTED-NOTES T :DOTTED-NOTE-LEVEL T :SHORTLONGSHORT-NOTES-LEVEL T :SYNCOPATED-NOTES-LEVEL :TOP :ACC-ENGINE-HEAP 300 :ACC-IMPORTANCE-SCORE 15/16 :ACC-IMPORTANCE-STEPS 10 :VOICE-ENGINE-HEAP 300 :VOICE-IMPORTANCE-SCORE 15/16 :VOICE-IMPORTANCE-STEPS 10 :STAFF-ENGINE-HEAP 300 :STAFF-IMPORTANCE-SCORE 15/16 :STAFF-IMPORTANCE-STEPS 10 :ACC-DIATONIC-INT-SCORE 7/8 :ACC-AUG-DIM-INT-SCORE 1/2 :ACC-SPELLING-PENALTY 1/4 :ACC-GOOD-UNISON-SCORE 1 :ACC-BAD-UNISON-SCORE 3/8 :ACC-SIMILAR-QTONE-SCORE 1/3 :ACC-DIST-SCORE 1/3 :ACC-BEAT-DIST 2 :ACC-OCTAVE-DIST 1 :MAX-CAUT-ACC-DIST 2 :MAX-ACC-BEAT-DIST-MUL 3 :ACC-USE-DOUBLE NIL :ACC-THROUGHOUT-MEAS T :CAUT-ACC-OTTAVAS T :CAUT-ACC-OCTAVES 1 :CAUT-ACC-AFTER-ONE-MEAS NIL :VOICE-HIGH/LOW-PENALTY 1/3 :VOICE-SIMULT-PENALTY 1 :VOICE-CHORD-SCORE 1/12 :VOICE-LEADING-PENALTY 1/4 :VOICE-BALANCE-PENALTY 1/24 :VOICE-DIST-SCORE 1/3 :VOICE-OCTAVE-DIST 1 :VOICE-HIGH/LOW-BEAT-DIST 1/2 :VOICE-LEADING-BEAT-DIST 4 :VOICE-BALANCE-BEAT-DIST 12 :MAX-VOICE-BEAT-DIST-MUL 3 :CLEF-CHANGE-CLEF-PENALTY 1 :CLEF-CHANGE-STAFF-PENALTY 1/2 :CLEF-POLYPHONY-PERBEAT-PENALTY 1/8 :CLEF-ORDER-PERBEAT-PENALTY 1/8 :CLEF-FORCE-CLEF-CHANGE-DIST 2 :MAX-OTTAVA-REST-DIST 3 :BEAM-LARGE-EIGHTH-BEAM T :BEAM-LARGE-COMP-EIGHTH-BEAM T :BEAM-LARGE-EIGHTH-COUNT 3 :BEAM-LARGE-COMP-EIGHTH-COUNT 5 :MIN-MULTIVOICE-CHORDS-DUR 1 :GRANDSTAFF-HIDE-RESTS T :MIN-GRANDSTAFF-HIDE-RESTS-DUR 1 )

1 0

[fomus-devel] :quartertones t
by Rick Taube 22 Jul '05

22 Jul '05

well i like the new ":quartertone t" a lot more than the old ":auto-accs-fun :nokey1" ! but unfortunately im getting the same error i think: ? ;; Common Music package detected ;; FOMUS v0.1.1 ;; Lisp music notation formatter ;; Copyright (c) 2005 David Psenicka, All Rights Reserved ;; See file "COPYING" for terms of use and distribution. (load "/Lisp/fomus/load") (define *tempo* 60) (define *beat* 1/4) (define (ranpiano len lb ub ) (process repeat len for r = (pick 1/4 1/8 1/16) output (new fms:note :off (now) :partid ':piano :note (between lb ub) :dur (rhythm r)) wait (rhythm r))) (define piano (new fms:part :instr ':piano :partid ':piano )) (cd ) (events (ranpiano 20 40.0 80.0) "test.ly" :parts (list piano) :quartertones t :view t ) ;; Formatting music... ; Saving debug file "/tmp/fomus.dbg"... ; Checking types... ; Quantizing... ; Ranges... ; Transpositions... ; Accidentals... > Error in process listener(1): value T is not of the expected type REAL. > While executing: CCL::>-2 > Type :POP to abort. Type :? for other options. 1 > (:B ) (F0135B00) : 0 "CCL::>-2" 1792 (F0135B10) : 1 "CCL::<=-2" 32 (F0135B20) : 2 "<=" 224 (F0135B30) : 3 NIL NIL (F0135B40) : 4 "FOMUS::NOKEY-INTSCORE" 948 (F0135B50) : 5 "FOMUS::NOKEYQ-INTSCORE" 180 (F0135B60) : 6 "FOMUS::EXPANDFUN" 2752 (F0135B70) : 7 "FOMUS::A*-ENGINE" 1008 (F0135B80) : 8 "FOMUS::ACC-NOKEY" 544 (F0135B90) : 9 "FOMUS::ACCIDENTALS" 496 (F0135BA0) : 10 "FOMUS::FOMUS-PROC" 2744 (F0135BB0) : 11 "FOMUS::FOMUS-MAIN" 24 (F0135BC0) : 12 NIL NIL (F0135BD0) : 13 "FOMUS" 18156 (F0135BF0) : 14 "EVENTS" 464 (F0135C00) : 15 NIL NIL (F0135C10) : 16 "EVENTS" 864 (F0135C20) : 17 NIL NIL (F0135C30) : 18 "CCL::CALL-CHECK-REGS" 72 (F0135C40) : 19 NIL NIL (F0135C50) : 20 "CCL::TOPLEVEL-EVAL" 152 (F0135C60) : 21 "CCL::READ-LOOP" 844 (F0135CA0) : 22 "CCL:TOPLEVEL-LOOP" 44 (F0135CC0) : 23 "Anonymous Function #x6112C86" 68 (F0135CD0) : 24 NIL NIL (F0135CE0) : 25 "Anonymous Function #x6152356" 592 (F0135D00) : 26 "CCL::RUN-PROCESS-INITIAL-FORM" 400 (F0135D30) : 27 NIL NIL (F0135D40) : 28 "Anonymous Function #x610E7CE" 152 (F0135D60) : 29 "Anonymous Function #x61025AE" 172 1 > here is fomus.dbg ;; -*-lisp-*- ;; FOMUS v0.1.1 ;; OpenMCL Version (Beta: Darwin) 0.14.3 (FOMUS :DEBUG-FILENAME "/tmp/fomus.dbg" :VERBOSE 2 :USE-CM T :CM-SCALE NIL :LOADXMLS-FUN :ASDF :BACKEND '(:LILYPOND :FILENAME "test.ly" :VIEW T) :BASE-FILENAME "/tmp/fomus" :GLOBAL NIL :PARTS '(#I(FOMUS:PART :ID NIL :PARTID :PIANO :NAME NIL :ABBREV NIL :INSTR :PIANO :EVENTS (#I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 10 :DUR 1/2 :NOTE 74.23258 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 39/4 :DUR 1/4 :NOTE 61.876236 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 19/2 :DUR 1/4 :NOTE 73.499344 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 9 :DUR 1/2 :NOTE 61.546974 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 17/2 :DUR 1/2 :NOTE 52.72618 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 8 :DUR 1/2 :NOTE 53.756363 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 31/4 :DUR 1/4 :NOTE 56.069782 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 15/2 :DUR 1/4 :NOTE 41.573856 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 13/2 :DUR 1 :NOTE 42.31521 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 11/2 :DUR 1 :NOTE 43.41865 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 5 :DUR 1/2 :NOTE 78.99568 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 19/4 :DUR 1/4 :NOTE 44.70688 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 9/2 :DUR 1/4 :NOTE 76.27559 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 4 :DUR 1/2 :NOTE 64.238815 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 3 :DUR 1 :NOTE 53.841625 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 11/4 :DUR 1/4 :NOTE 64.45273 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 7/4 :DUR 1 :NOTE 65.44075 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 5/4 :DUR 1/2 :NOTE 68.1021 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 1 :DUR 1/4 :NOTE 78.36841 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 0 :DUR 1 :NOTE 44.015144 :MARKS NIL)) :OPTS NIL)) :EVENTS NIL :CHECK-RANGES T :TRANSPOSE T :INSTRUMENTS NIL :INSTR-GROUPS NIL :ENSEMBLE-TYPE :ORCHESTRA :PERCUSSION NIL :TITLE NIL :SUBTITLE NIL :COMPOSER NIL :TIMESIG-STYLE NIL :TUPLET-STYLE NIL :QUANTIZE-ADJUST-GRACE-DURS T :DEFAULT-GRACE-DUR 1/2 :DEFAULT-GRACE-NUM 0 :EFFECTIVE-GRACE-DUR-MUL 1/2 :MIN-AUTO-TIMESIG-DUR 2 :DEFAULT-TIMESIG #I(FOMUS:TIMESIG-REPL :ID NIL :TIME (4 4) :COMP NIL :BEAT 1/4 :DIV NIL :PROPS NIL) :QUARTERTONES T :AUTO-ACCIDENTALS T :AUTO-CAUTIONARY-ACCS T :AUTO-STAFF/CLEF-CHANGES T :AUTO-OTTAVAS T :AUTO-GRACE-SLURS T :AUTO-VOICING T :AUTO-BEAMS T :AUTO-QUANTIZE T :AUTO-MULTIVOICE-RESTS T :AUTO-MULTIVOICE-NOTES T :AUTO-OVERRIDE-TIMESIGS T :SPLIT-FUN :DEFAULT :AUTO-ACCS-FUN :DEFAULT :AUTO-VOICES-FUN :DEFAULT :AUTO-DISTR-RESTS-FUN :DEFAULT :AUTO-MULTIVOICE-COMB-FUN :DEFAULT :AUTO-OTTAVAS-FUN :DEFAULT :AUTO-BEAM-FUN :DEFAULT :AUTO-QUANTIZE-FUN :DEFAULT :AUTO-STAFF/CLEFS-FUN :DEFAULT :USE-DEFAULT-MEAS-DIVS T :DEFAULT-MEAS-DIVS NIL :USE-DEFAULT-TUPLET-DIVS T :DEFAULT-TUPLET-DIVS NIL :BEAT-DIVISION 16 :MIN-TUPLET-DUR 1/2 :MAX-TUPLET-DUR 4 :MIN-SIMPLE-TUPLET-DUR 2 :MAX-TUPLET 7 :TUPLET-DOTTED-RESTS T :DOUBLE-DOTTED-NOTES T :DOTTED-NOTE-LEVEL T :SHORTLONGSHORT-NOTES-LEVEL T :SYNCOPATED-NOTES-LEVEL :TOP :ACC-ENGINE-HEAP 300 :ACC-IMPORTANCE-SCORE 15/16 :ACC-IMPORTANCE-STEPS 10 :VOICE-ENGINE-HEAP 300 :VOICE-IMPORTANCE-SCORE 15/16 :VOICE-IMPORTANCE-STEPS 10 :STAFF-ENGINE-HEAP 300 :STAFF-IMPORTANCE-SCORE 15/16 :STAFF-IMPORTANCE-STEPS 10 :ACC-DIATONIC-INT-SCORE 7/8 :ACC-AUG-DIM-INT-SCORE 1/2 :ACC-SPELLING-PENALTY 1/4 :ACC-GOOD-UNISON-SCORE 1 :ACC-BAD-UNISON-SCORE 3/8 :ACC-SIMILAR-QTONE-SCORE 1/3 :ACC-DIST-SCORE 1/3 :ACC-BEAT-DIST 2 :ACC-OCTAVE-DIST 1 :MAX-CAUT-ACC-DIST 2 :MAX-ACC-BEAT-DIST-MUL 3 :ACC-USE-DOUBLE NIL :ACC-THROUGHOUT-MEAS T :CAUT-ACC-OTTAVAS T :CAUT-ACC-OCTAVES 1 :CAUT-ACC-AFTER-ONE-MEAS NIL :VOICE-HIGH/LOW-PENALTY 1/3 :VOICE-SIMULT-PENALTY 1 :VOICE-CHORD-SCORE 1/12 :VOICE-LEADING-PENALTY 1/4 :VOICE-BALANCE-PENALTY 1/24 :VOICE-DIST-SCORE 1/3 :VOICE-OCTAVE-DIST 1 :VOICE-HIGH/LOW-BEAT-DIST 1/2 :VOICE-LEADING-BEAT-DIST 4 :VOICE-BALANCE-BEAT-DIST 12 :MAX-VOICE-BEAT-DIST-MUL 3 :CLEF-CHANGE-CLEF-PENALTY 1 :CLEF-CHANGE-STAFF-PENALTY 1/2 :CLEF-POLYPHONY-PERBEAT-PENALTY 1/8 :CLEF-ORDER-PERBEAT-PENALTY 1/8 :CLEF-FORCE-CLEF-CHANGE-DIST 2 :MAX-OTTAVA-REST-DIST 3 :BEAM-LARGE-EIGHTH-BEAM T :BEAM-LARGE-COMP-EIGHTH-BEAM T :BEAM-LARGE-EIGHTH-COUNT 3 :BEAM-LARGE-COMP-EIGHTH-COUNT 5 :MIN-MULTIVOICE-CHORDS-DUR 1 :GRANDSTAFF-HIDE-RESTS T :MIN-GRANDSTAFF-HIDE-RESTS-DUR 1 )

1 0

[fomus-devel] CVS checkout?
by Han-Wen Nienhuys 21 Jul '05

21 Jul '05

Hi, As you might imagine, I'm a more than curious about fomus, how it performs and how it works, so I've been trying to check it out from CVS; I have little success though. AFAICT, the following command should work cvs -z3 -d :pserver:anonymous@common-lisp.net:/project/fomus/cvsroot co fomus but I'm failing. Could you include the CVS incantation on the webpage that I could readily cut & paste? Thanks! -- Han-Wen Nienhuys - hanwen(a)xs4all.nl - http://www.xs4all.nl/~hanwen

2 2

[fomus-devel] quarter tones
by Rick Taube 21 Jul '05

21 Jul '05

when i try to generate qtones doing: :auto-accs-fun :nokey-qtones1 then fomus breaks during the accidental phase. ive put the dbg file at the end (load "/Lisp/fomus/load") (define *tempo* 60) (define *beat* 1/4) (define (ranpiano len lb ub ) (process repeat len for r = (pick 1/4 1/8 1/16) output (new fms:note :off (now) :partid ':piano :note (between lb ub) :dur (rhythm r)) wait (rhythm r))) (define piano (new fms:part :instr ':piano :partid ':piano )) (cd ) ;;; quarter tones (events (ranpiano 20 40.0 80.0) "test.ly" :parts (list piano) :auto-accs-fun :nokey-qtones1 ;:view t ) #P"/Lisp/fomus/load.lisp" ? ? ? ? ? #P"/Users/hkt/" ? ;; Formatting music... ; Saving debug file "/tmp/fomus.dbg"... ; Checking types... ; Quantizing... ; Ranges... ; Transpositions... ; Accidentals... > Error in process listener(1): value T is not of the expected type REAL. > While executing: CCL::>-2 > Type :POP to abort. Type :? for other options. 1 > -------------------------ffomus.dbg ;; -*-lisp-*- ;; FOMUS v0.1.0 (FOMUS :DEBUG-FILENAME "/tmp/fomus.dbg" :VERBOSE 2 :USE-CM T :CM-SCALE NIL :LOADXMLS-FUN :ASDF :BACKEND '(:LILYPOND :FILENAME "test.ly" :VIEW NIL) :BASE-FILENAME "/tmp/fomus" :GLOBAL NIL :PARTS '(#I(FOMUS:PART :ID NIL :PARTID :PIANO :NAME NIL :ABBREV NIL :INSTR :PIANO :EVENTS (#I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 10 :DUR 1/2 :NOTE 74.23258 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 39/4 :DUR 1/4 :NOTE 61.876236 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 19/2 :DUR 1/4 :NOTE 73.499344 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 9 :DUR 1/2 :NOTE 61.546974 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 17/2 :DUR 1/2 :NOTE 52.72618 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 8 :DUR 1/2 :NOTE 53.756363 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 31/4 :DUR 1/4 :NOTE 56.069782 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 15/2 :DUR 1/4 :NOTE 41.573856 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 13/2 :DUR 1 :NOTE 42.31521 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 11/2 :DUR 1 :NOTE 43.41865 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 5 :DUR 1/2 :NOTE 78.99568 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 19/4 :DUR 1/4 :NOTE 44.70688 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 9/2 :DUR 1/4 :NOTE 76.27559 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 4 :DUR 1/2 :NOTE 64.238815 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 3 :DUR 1 :NOTE 53.841625 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 11/4 :DUR 1/4 :NOTE 64.45273 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 7/4 :DUR 1 :NOTE 65.44075 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 5/4 :DUR 1/2 :NOTE 68.1021 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 1 :DUR 1/4 :NOTE 78.36841 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 0 :DUR 1 :NOTE 44.015144 :MARKS NIL)) :OPTS NIL)) :EVENTS NIL :CHECK-RANGES T :TRANSPOSE T :INSTRUMENTS NIL :INSTR-GROUPS NIL :ENSEMBLE-TYPE :ORCHESTRA :PERCUSSION NIL :TITLE NIL :SUBTITLE NIL :COMPOSER NIL :TIMESIG-STYLE NIL :TUPLET-STYLE NIL :QUANTIZE-ADJUST-GRACE-DURS T :DEFAULT-GRACE-DUR 1/2 :DEFAULT-GRACE-NUM 0 :EFFECTIVE-GRACE-DUR-MUL 1/2 :MIN-AUTO-TIMESIG-DUR 2 :DEFAULT-TIMESIG #I(FOMUS:TIMESIG-REPL :ID NIL :TIME (4 4) :COMP NIL :BEAT 1/4 :DIV NIL :PROPS NIL) :AUTO-ACCIDENTALS T :AUTO-CAUTIONARY-ACCS T :AUTO-STAFF/CLEF-CHANGES T :AUTO-OTTAVAS T :AUTO-GRACE-SLURS T :AUTO-VOICING T :AUTO-BEAMS T :AUTO-QUANTIZE T :AUTO-MULTIVOICE-RESTS T :AUTO-MULTIVOICE-NOTES T :AUTO-OVERRIDE-TIMESIGS T :SPLIT-FUN :DEFAULT :AUTO-ACCS-FUN :NOKEY-QTONES1 :AUTO-VOICES-FUN :DEFAULT :AUTO-DISTR-RESTS-FUN :DEFAULT :AUTO-MULTIVOICE-COMB-FUN :DEFAULT :AUTO-OTTAVAS-FUN :DEFAULT :AUTO-BEAM-FUN :DEFAULT :AUTO-QUANTIZE-FUN :DEFAULT :AUTO-STAFF/CLEFS-FUN :DEFAULT :USE-DEFAULT-MEAS-DIVS T :DEFAULT-MEAS-DIVS NIL :USE-DEFAULT-TUPLET-DIVS T :DEFAULT-TUPLET-DIVS NIL :BEAT-DIVISION 16 :MIN-TUPLET-DUR 1/2 :MAX-TUPLET-DUR 4 :MIN-SIMPLE-TUPLET-DUR 2 :MAX-TUPLET 7 :TUPLET-DOTTED-RESTS T :DOUBLE-DOTTED-NOTES T :DOTTED-NOTE-LEVEL T :SHORTLONGSHORT-NOTES-LEVEL T :SYNCOPATED-NOTES-LEVEL :TOP :ACC-ENGINE-HEAP 300 :ACC-IMPORTANCE-SCORE 15/16 :ACC-IMPORTANCE-STEPS 10 :VOICE-ENGINE-HEAP 300 :VOICE-IMPORTANCE-SCORE 15/16 :VOICE-IMPORTANCE-STEPS 10 :STAFF-ENGINE-HEAP 300 :STAFF-IMPORTANCE-SCORE 15/16 :STAFF-IMPORTANCE-STEPS 10 :ACC-DIATONIC-INT-SCORE 7/8 :ACC-AUG-DIM-INT-SCORE 1/2 :ACC-SPELLING-PENALTY 1/4 :ACC-GOOD-UNISON-SCORE 1 :ACC-BAD-UNISON-SCORE 3/8 :ACC-SIMILAR-QTONE-SCORE 1/3 :ACC-DIST-SCORE 1/3 :ACC-BEAT-DIST 2 :ACC-OCTAVE-DIST 1 :MAX-CAUT-ACC-DIST 2 :MAX-ACC-BEAT-DIST-MUL 3 :ACC-USE-DOUBLE NIL :ACC-THROUGHOUT-MEAS T :CAUT-ACC-OTTAVAS T :CAUT-ACC-OCTAVES 1 :CAUT-ACC-AFTER-ONE-MEAS NIL :VOICE-HIGH/LOW-PENALTY 1/3 :VOICE-SIMULT-PENALTY 1 :VOICE-CHORD-SCORE 1/12 :VOICE-LEADING-PENALTY 1/4 :VOICE-BALANCE-PENALTY 1/24 :VOICE-DIST-SCORE 1/3 :VOICE-OCTAVE-DIST 1 :VOICE-HIGH/LOW-BEAT-DIST 1/2 :VOICE-LEADING-BEAT-DIST 4 :VOICE-BALANCE-BEAT-DIST 12 :MAX-VOICE-BEAT-DIST-MUL 3 :CLEF-CHANGE-CLEF-PENALTY 1 :CLEF-CHANGE-STAFF-PENALTY 1/2 :CLEF-POLYPHONY-PERBEAT-PENALTY 1/8 :CLEF-ORDER-PERBEAT-PENALTY 1/8 :CLEF-FORCE-CLEF-CHANGE-DIST 2 :MAX-OTTAVA-REST-DIST 3 :BEAM-LARGE-EIGHTH-BEAM T :BEAM-LARGE-COMP-EIGHTH-BEAM T :BEAM-LARGE-EIGHTH-COUNT 3 :BEAM-LARGE-COMP-EIGHTH-COUNT 5 :MIN-MULTIVOICE-CHORDS-DUR 1 :GRANDSTAFF-HIDE-RESTS T :MIN-GRANDSTAFF-HIDE-RESTS-DUR 1 )

1 0

[fomus-devel] FOMUS::CHECK-TYPE*
by Rick Taube 20 Jul '05

20 Jul '05

I still cant get this to work: (define *tempo* 60) (define *beat* 1/4) (define (ranpiano len lb ub ) (process repeat len for r = (pick 1/4 1/8 1/16) output (new fms:note :off (now) :partid ':piano :note (between lb ub) :dur (rhythm r)) wait (rhythm r))) (define piano (new fms:part :instr '(:grandstaff :piano) :partid ':piano )) (cd ) (events (ranpiano 20 40 80) "test.ly" :parts (list piano)) ? ;; Formatting music... ; Saving debug file "/tmp/fomus.dbg"... ; Checking types... > Error in process listener(1): Unknown type specifier: (FOMUS::KEY-ARG-PAIRS* :SYM :CLEFS :STAVES :MINP :MAXP :VOICELIM :TPOSE :CLEFLEGLS :8UPLEGLS :8DNLEGLS :PERCS) > While executing: CCL::%%TYPEP > Type :POP to abort. has something changed that I need to track? here is fomus.dbg: --------------------------- ;; -*-lisp-*- ;; FOMUS v0.1.0 (FOMUS :DEBUG-FILENAME "/tmp/fomus.dbg" :VERBOSE 2 :USE-CM T :CM-SCALE NIL :LOADXMLS-FUN :ASDF :BACKEND '(:LILYPOND :FILENAME "test.ly") :BASE-FILENAME "/tmp/fomus" :GLOBAL NIL :PARTS '(#I(FOMUS:PART :ID NIL :PARTID :PIANO :NAME NIL :ABBREV NIL :INSTR (:GRANDSTAFF :PIANO) :EVENTS (#I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 39/4 :DUR 1/2 :NOTE 73 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 37/4 :DUR 1/2 :NOTE 55 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 9 :DUR 1/4 :NOTE 54 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 35/4 :DUR 1/4 :NOTE 67 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 33/4 :DUR 1/2 :NOTE 58 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 8 :DUR 1/4 :NOTE 71 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 31/4 :DUR 1/4 :NOTE 60 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 29/4 :DUR 1/2 :NOTE 47 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 25/4 :DUR 1 :NOTE 64 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 23/4 :DUR 1/2 :NOTE 52 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 19/4 :DUR 1 :NOTE 41 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 17/4 :DUR 1/2 :NOTE 42 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 15/4 :DUR 1/2 :NOTE 74 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 7/2 :DUR 1/4 :NOTE 78 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 3 :DUR 1/2 :NOTE 52 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 11/4 :DUR 1/4 :NOTE 69 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 5/2 :DUR 1/4 :NOTE 43 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 3/2 :DUR 1 :NOTE 51 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 1 :DUR 1/2 :NOTE 78 :MARKS NIL) #I(FOMUS:NOTE :ID NIL :PARTID :PIANO :VOICE 1 :OFF 0 :DUR 1 :NOTE 50 :MARKS NIL)) :OPTS NIL)) :EVENTS NIL :CHECK-RANGES T :TRANSPOSE T :INSTRUMENTS NIL :INSTR-GROUPS NIL :ENSEMBLE-TYPE :ORCHESTRA :PERCUSSION NIL :TITLE NIL :SUBTITLE NIL :COMPOSER NIL :TIMESIG-STYLE NIL :TUPLET-STYLE NIL :QUANTIZE-ADJUST-GRACE-DURS T :DEFAULT-GRACE-DUR 1/2 :DEFAULT-GRACE-NUM 0 :EFFECTIVE-GRACE-DUR-MUL 1/2 :MIN-AUTO-TIMESIG-DUR 2 :DEFAULT-TIMESIG #I(FOMUS:TIMESIG-REPL :ID NIL :TIME (4 4) :COMP NIL :BEAT 1/4 :DIV NIL :PROPS NIL) :AUTO-ACCIDENTALS T :AUTO-CAUTIONARY-ACCS T :AUTO-STAFF/CLEF-CHANGES T :AUTO-OTTAVAS T :AUTO-GRACE-SLURS T :AUTO-VOICING T :AUTO-BEAMS T :AUTO-QUANTIZE T :AUTO-MULTIVOICE-RESTS T :AUTO-MULTIVOICE-NOTES T :AUTO-OVERRIDE-TIMESIGS T :SPLIT-FUN :DEFAULT :AUTO-ACCS-FUN :DEFAULT :AUTO-VOICES-FUN :DEFAULT :AUTO-DISTR-RESTS-FUN :DEFAULT :AUTO-MULTIVOICE-COMB-FUN :DEFAULT :AUTO-OTTAVAS-FUN :DEFAULT :AUTO-BEAM-FUN :DEFAULT :AUTO-QUANTIZE-FUN :DEFAULT :AUTO-STAFF/CLEFS-FUN :DEFAULT :USE-DEFAULT-MEAS-DIVS T :DEFAULT-MEAS-DIVS NIL :USE-DEFAULT-TUPLET-DIVS T :DEFAULT-TUPLET-DIVS NIL :BEAT-DIVISION 16 :MIN-TUPLET-DUR 1/2 :MAX-TUPLET-DUR 4 :MIN-SIMPLE-TUPLET-DUR 2 :MAX-TUPLET 7 :TUPLET-DOTTED-RESTS T :DOUBLE-DOTTED-NOTES T :DOTTED-NOTE-LEVEL T :SHORTLONGSHORT-NOTES-LEVEL T :SYNCOPATED-NOTES-LEVEL :TOP :ACC-ENGINE-HEAP 300 :ACC-IMPORTANCE-SCORE 15/16 :ACC-IMPORTANCE-STEPS 10 :VOICE-ENGINE-HEAP 300 :VOICE-IMPORTANCE-SCORE 15/16 :VOICE-IMPORTANCE-STEPS 10 :STAFF-ENGINE-HEAP 300 :STAFF-IMPORTANCE-SCORE 15/16 :STAFF-IMPORTANCE-STEPS 10 :ACC-DIATONIC-INT-SCORE 7/8 :ACC-AUG-DIM-INT-SCORE 1/2 :ACC-SPELLING-PENALTY 1/4 :ACC-GOOD-UNISON-SCORE 1 :ACC-BAD-UNISON-SCORE 3/8 :ACC-SIMILAR-QTONE-SCORE 1/3 :ACC-DIST-SCORE 1/3 :ACC-BEAT-DIST 2 :ACC-OCTAVE-DIST 1 :MAX-CAUT-ACC-DIST 2 :MAX-ACC-BEAT-DIST-MUL 3 :ACC-USE-DOUBLE NIL :ACC-THROUGHOUT-MEAS T :CAUT-ACC-OTTAVAS T :CAUT-ACC-OCTAVES 1 :CAUT-ACC-AFTER-ONE-MEAS NIL :VOICE-HIGH/LOW-PENALTY 1/3 :VOICE-SIMULT-PENALTY 1 :VOICE-CHORD-SCORE 1/12 :VOICE-LEADING-PENALTY 1/4 :VOICE-BALANCE-PENALTY 1/24 :VOICE-DIST-SCORE 1/3 :VOICE-OCTAVE-DIST 1 :VOICE-HIGH/LOW-BEAT-DIST 1/2 :VOICE-LEADING-BEAT-DIST 4 :VOICE-BALANCE-BEAT-DIST 12 :MAX-VOICE-BEAT-DIST-MUL 3 :CLEF-CHANGE-CLEF-PENALTY 1 :CLEF-CHANGE-STAFF-PENALTY 1/2 :CLEF-POLYPHONY-PERBEAT-PENALTY 1/8 :CLEF-ORDER-PERBEAT-PENALTY 1/8 :CLEF-FORCE-CLEF-CHANGE-DIST 2 :MAX-OTTAVA-REST-DIST 3 :BEAM-LARGE-EIGHTH-BEAM T :BEAM-LARGE-COMP-EIGHTH-BEAM T :BEAM-LARGE-EIGHTH-COUNT 3 :BEAM-LARGE-COMP-EIGHTH-COUNT 5 :MIN-MULTIVOICE-CHORDS-DUR 1 :GRANDSTAFF-HIDE-RESTS T :MIN-GRANDSTAFF-HIDE-RESTS-DUR 1 )

1 0

[fomus-devel] settings
by Rick Taube 20 Jul '05

20 Jul '05

It would be helpful it you would list and/or describe the default value that fomus initially assigns to each parameter: :AUTO-ACCS-FUN [nil] or whatever. also what does the -FUN suffix mean?? function? but the value I pass is a keyword, not a function. if you mean that internally fomus uses a function then i dont think the user cares if you do it with a function or a hamster, its not really relevant to me if i cant pass a function. I would be happy to trade that information for a shorter name: :auto-accs :nokey1 what does the 1 mean after the names like nokey1? i dont see a 2 anywhere so why do i have to always add a 1?? even if there is a 2, i will never remember what 1 vs 2 means so i will always have to refer to the docs. using keywords as parameters is nice, and since there are so many of then and since you define them as globals inside fomus you could associate documentation each parameter so users could look up what they need in the repl: (fomus:doc :auto-accs) "controls the foo of bar. possible values are: bif buf. current valuee is buf. defaut value is zuz. (fomus:doc :part) the following settiing are defined for class PART: asd,qw3e, asd, xcv

1 0

[fomus-devel] compiling in sbcl
by Rick Taube 20 Jul '05

20 Jul '05

fomus will not compile in sbcl 0.9.0 on OSX: ; compiling (DEFPARAMETER +LILYPOND-DYNS+ ...) ; compiling (DEFUN SAVE-LILYPOND ...)set_auto_gc_trigger: tried to set gc trigger too high! (0x081a3e98) fatal error encountered in SBCL pid 1317: lost The system is too badly corrupted or confused to continue at the Lisp level. If the system had been compiled with the SB-LDB feature, we'd drop into the LDB low-level debugger now. But there's no LDB in this build, so we can't really do anything but just exit, sorry. it does compile and load in cmu and openmcl.

1 0

[fomus-devel] loading fomus
by Rick Taube 20 Jul '05

20 Jul '05

Hi the docs say: > Example 2.1. Compiling and Loading > CL-USER> (load "path_to_fomus_directory/load.lisp") but this does not work in either openmcl or cmucl or sbcl. there are several problems, the first is that neither openmcl or cmucl have the ASDF package preloaded, so when you do your READ: (with-open-file (f (merge-pathnames "fomus.asd" *load-pathname*) :direction :input) (destructuring-bind (xxx1 xxx2 &key components &allow-other-keys) (read f) it breaks because your fomus.asd assumes there is an asdf package: (asdf:defsystem "fomus" i dont think i makes any sense to read that file: either insure that asdf is aroun, load the file and call asdf:operate or dont assume the asdf package at all. the second problem is that (file-write-date cn) will return NIL if cn does not exist: ? (file-write-date #P"/Lisp/fomus/package.dfsl") NIL which breaks your >= date comparison. this fixes both issues and works in openmcl cmucl and sbcl ------------------------------------------ fomus/load.lisp ;; -*-lisp-*- ;; Load file for FOMUS (defparameter *components* '("package" "misc" "deps" "data" "classes" "util" "accidentals" "beams" "marks" "other" "ottavas" "parts" "postproc" "split" "staves" "voices" "quantize" "backend_ly" "backends" "main" "interface" "final")) (loop for na in *components* for cl = (merge-pathnames na *load-pathname*) for cn = (compile-file-pathname cl) for wd = (file-write-date cn) when (or (not wd) (>= (file-write-date cl) wd)) do (compile-file cl) do (load cn))

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

fomus-devel