fomus-devel September 2006

fomus-devel@common-lisp.net

5 participants
24 discussions

[fomus-devel] iterate
by Kilian Sprotte 15 Sep '06

15 Sep '06

Greetings, this is just to announce that fomus is now installable, independent of whether you have installed the additional lisp library 'iterate' or not. If you encounter any problems, please let me know on this list. http://common-lisp.net/pipermail/fomus-devel/2006-September/000077.html It also means that the second harmonic spelling algo as advertised above, should be functional (but not finished yet, anyway). Thanks, Kilian

2 2

Re: [fomus-devel] expected valid/unique mark in MARKS slot
by Rob Canning 13 Sep '06

13 Sep '06

> You can't beat the amount of tech. support your getting :) yes indeed many thanks :) what would be handy would be a short show off file using all the objects maybe some on the list has something they could share? this is as far as i've got so far init :output (:lilypond :view t); part 1 :name "Piano" :instr :piano; (note 1 :off 0 :dur 0.25 :note 82 :marks ((:textnote"")) ))))); (note 1 :off 0.25 :dur 0.25 :note 87 :marks ((:textnote"")) ))))); (note 1 :off 0.5 :dur 0.25 :note 48 :marks (:staccato ))))); (note 1 :off 0.75 :dur 0.25 :note 76 :marks ((:textnote"")) ))))); (note 1 :off 1 :dur 0.25 :note 83 :marks (:marcato ))))); (note 1 :off 1.25 :dur 0.25 :note 51 :marks (:accent ))))); (note 1 :off 1.5 :dur 0.25 :note 82 :marks ((:textnote"")) ))))); (note 1 :off 1.75 :dur 0.25 :note 76 :marks (:endslur-(:fermata)) ))))) ; (note 1 :off 2 :dur 0.5 :note 57 :marks ((:textnote"")) ))))); (note 1 :off 2.5 :dur 0.25 :note 45 :marks (:portato ))))); (note 1 :off 2.75 :dur 0.25 :note 50 :marks (:marcato ))))); (note 1 :off 3 :dur 0.25 :note 36 :marks ((:textnote"")) ))))); (note 1 :off 3.25 :dur 0.25 :note 51 :marks (:accent ))))); (note 1 :off 3.5 :dur 0.25 :note 46 :marks ((:textnote"")) ))))); (note 1 :off 3.75 :dur 0.25 :note 51 :marks ((:textnote"")) ))))); (note 1 :off 4 :dur 0.25 :note 79 :marks (:staccato ))))); (note 1 :off 4.25 :dur 8 :note 40 :marks (:startslur-(:textnote"id=479")) ))))); ----------------------------------------------------------------- Find the home of your dreams with eircom net property Sign up for email alerts now http://www.eircom.net/propertyalerts

1 0

Re: [fomus-devel] expected valid/unique mark in MARKS slot
by Rob Canning 13 Sep '06

13 Sep '06

yes that works alright - thanks so :text has to be associated with another mark - it cant just exist in its own right? if that is the case i suppose once :ignore is implemented that will be a workaround - a bit messy though. cheers, rob Kilian Sprotte <ml13(a)onlinehome.de> wrote: > > Am 13.09.2006 um 14:44 schrieb Rob Canning: > > > hi, > > > > can't seem to get :textnote to work... > > > > what am i doing wrong here? > > > > init :output (:lilypond :view t); > > part 1 :name "Piano" :instr :piano; > > (note 1 :off 3 :dur 1 :note 67 :marks (:textnote "sul G")); > > > > ;; Formatting music... > > ;;; *****ERROR***** > > ;; Error in function FOMUS::CHECK-TYPE*: > > ;; Found :TEXTNOTE, expected valid/unique mark in MARKS slot of > > note at offset 3.0 > > Hi, > > imagine you would also want to write an accent: > > init :output (:lilypond :view t); > part 1 :name "Piano" :instr :piano; > (note 1 :off 3 :dur 1 :note 67 :marks (:accent (:textnote "sul G"))); > > Makes sense? > > Cheers, > > Kilian > > > _______________________________________________ > fomus-devel mailing list > fomus-devel(a)common-lisp.net > http://common-lisp.net/cgi-bin/mailman/listinfo/fomus-devel > -------------------------------- www.robcanning.utvinternet.com + 44 (0)20 77390206 -------------------------------- ----------------------------------------------------------------- Find the home of your dreams with eircom net property Sign up for email alerts now http://www.eircom.net/propertyalerts

4 4

Re: [fomus-devel] :mark (:ignore) ?
by Rob Canning 13 Sep '06

13 Sep '06

((:textnote "")) will do the job cheers rob David Psenicka <dpsenick(a)uiuc.edu> wrote: > > > > Rob Canning wrote: > > hi! > > > > is there a "blank" message that i can write in a fomus file but that it will ignore > > > > for example > > > > :mark (:portato) > > :mark (:ignore) > > > > > So :ignore essentially does nothing? It wouldn't be any problem to add > a mark like this, I'll put this in (either an :ignore or a :nothing > mark) for the next update (probably will be abailable by this weekend). > > -David > _______________________________________________ > fomus-devel mailing list > fomus-devel(a)common-lisp.net > http://common-lisp.net/cgi-bin/mailman/listinfo/fomus-devel > -------------------------------- www.robcanning.utvinternet.com + 44 (0)20 77390206 -------------------------------- ----------------------------------------------------------------- Find the home of your dreams with eircom net property Sign up for email alerts now http://www.eircom.net/propertyalerts

1 0

Re: [fomus-devel] pack list as symbol
by Rob Canning 13 Sep '06

13 Sep '06

scrap that i can ommit the space ((:textnote"sul G")) robcanning(a)eircom.net wrote: > > i get it - thanks - > > is there anyway that a character can be inserted in the spaces of a list so it can be formated as a symbol? > it would make it easier generating strings as symbols are easier to deal with than lists - in [sprintf] or {pack] for example > > ((:textnote "sul G")) would become > > ((:textnote_"sul G")) > or > ((:textnote,"sul G")) > > and then could be handled as a %s > ? > > just a thought > cheers > rob > > > Rick Taube <taube(a)uiuc.edu> wrote: > > > > > i think :marks takes a LIST of marks. try > > > > (note 1 :off 3 :dur 1 :note 67 :marks '((:textnote "sul G")) ) > > > > i think you you meant ((:textnote "sul G")) without the "'" > > > --rick > > > > On Sep 13, 2006, at 10:33 AM, Rob Canning wrote: > > > > > yes that works alright - thanks > > > > > > so :text has to be associated with another mark - it cant just > > > exist in its own right? > > > if that is the case i suppose once :ignore is implemented that will > > > be a workaround - a bit messy though. > > > > > > cheers, > > > > > > rob > > > > > > Kilian Sprotte <ml13(a)onlinehome.de> wrote: > > > > > >> > > >> Am 13.09.2006 um 14:44 schrieb Rob Canning: > > >> > > >>> hi, > > >>> > > >>> can't seem to get :textnote to work... > > >>> > > >>> what am i doing wrong here? > > >>> > > >>> init :output (:lilypond :view t); > > >>> part 1 :name "Piano" :instr :piano; > > >>> (note 1 :off 3 :dur 1 :note 67 :marks (:textnote "sul G")); > > >>> > > >>> ;; Formatting music... > > >>> ;;; *****ERROR***** > > >>> ;; Error in function FOMUS::CHECK-TYPE*: > > >>> ;; Found :TEXTNOTE, expected valid/unique mark in MARKS slot of > > >>> note at offset 3.0 > > >> > > >> Hi, > > >> > > >> imagine you would also want to write an accent: > > >> > > >> init :output (:lilypond :view t); > > >> part 1 :name "Piano" :instr :piano; > > >> (note 1 :off 3 :dur 1 :note 67 :marks (:accent (:textnote "sul G"))); > > >> > > >> Makes sense? > > >> > > >> Cheers, > > >> > > >> Kilian > > >> > > >> > > >> _______________________________________________ > > >> fomus-devel mailing list > > >> fomus-devel(a)common-lisp.net > > >> http://common-lisp.net/cgi-bin/mailman/listinfo/fomus-devel > > >> > > > > > > -------------------------------- > > > www.robcanning.utvinternet.com > > > + 44 (0)20 77390206 > > > -------------------------------- > > > > > > ----------------------------------------------------------------- > > > Find the home of your dreams with eircom net property > > > Sign up for email alerts now http://www.eircom.net/propertyalerts > > > > > > > > > _______________________________________________ > > > fomus-devel mailing list > > > fomus-devel(a)common-lisp.net > > > http://common-lisp.net/cgi-bin/mailman/listinfo/fomus-devel > > > > > > -------------------------------- > www.robcanning.utvinternet.com > + 44 (0)20 77390206 > -------------------------------- > > ----------------------------------------------------------------- > Find the home of your dreams with eircom net property > Sign up for email alerts now http://www.eircom.net/propertyalerts > > > _______________________________________________ > fomus-devel mailing list > fomus-devel(a)common-lisp.net > http://common-lisp.net/cgi-bin/mailman/listinfo/fomus-devel > -------------------------------- www.robcanning.utvinternet.com + 44 (0)20 77390206 -------------------------------- ----------------------------------------------------------------- Find the home of your dreams with eircom net property Sign up for email alerts now http://www.eircom.net/propertyalerts

1 0

[fomus-devel] pack list as symbol - was: expected valid/unique mark in MARKS slot
by Rob Canning 13 Sep '06

13 Sep '06

i get it - thanks - is there anyway that a character can be inserted in the spaces of a list so it can be formated as a symbol? it would make it easier generating strings as symbols are easier to deal with than lists - in [sprintf] or {pack] for example ((:textnote "sul G")) would become ((:textnote_"sul G")) or ((:textnote,"sul G")) and then could be handled as a %s ? just a thought cheers rob Rick Taube <taube(a)uiuc.edu> wrote: > > i think :marks takes a LIST of marks. try > > (note 1 :off 3 :dur 1 :note 67 :marks '((:textnote "sul G")) ) > i think you you meant ((:textnote "sul G")) without the "'" > --rick > > On Sep 13, 2006, at 10:33 AM, Rob Canning wrote: > > > yes that works alright - thanks > > > > so :text has to be associated with another mark - it cant just > > exist in its own right? > > if that is the case i suppose once :ignore is implemented that will > > be a workaround - a bit messy though. > > > > cheers, > > > > rob > > > > Kilian Sprotte <ml13(a)onlinehome.de> wrote: > > > >> > >> Am 13.09.2006 um 14:44 schrieb Rob Canning: > >> > >>> hi, > >>> > >>> can't seem to get :textnote to work... > >>> > >>> what am i doing wrong here? > >>> > >>> init :output (:lilypond :view t); > >>> part 1 :name "Piano" :instr :piano; > >>> (note 1 :off 3 :dur 1 :note 67 :marks (:textnote "sul G")); > >>> > >>> ;; Formatting music... > >>> ;;; *****ERROR***** > >>> ;; Error in function FOMUS::CHECK-TYPE*: > >>> ;; Found :TEXTNOTE, expected valid/unique mark in MARKS slot of > >>> note at offset 3.0 > >> > >> Hi, > >> > >> imagine you would also want to write an accent: > >> > >> init :output (:lilypond :view t); > >> part 1 :name "Piano" :instr :piano; > >> (note 1 :off 3 :dur 1 :note 67 :marks (:accent (:textnote "sul G"))); > >> > >> Makes sense? > >> > >> Cheers, > >> > >> Kilian > >> > >> > >> _______________________________________________ > >> fomus-devel mailing list > >> fomus-devel(a)common-lisp.net > >> http://common-lisp.net/cgi-bin/mailman/listinfo/fomus-devel > >> > > > > -------------------------------- > > www.robcanning.utvinternet.com > > + 44 (0)20 77390206 > > -------------------------------- > > > > ----------------------------------------------------------------- > > Find the home of your dreams with eircom net property > > Sign up for email alerts now http://www.eircom.net/propertyalerts > > > > > > _______________________________________________ > > fomus-devel mailing list > > fomus-devel(a)common-lisp.net > > http://common-lisp.net/cgi-bin/mailman/listinfo/fomus-devel > > -------------------------------- www.robcanning.utvinternet.com + 44 (0)20 77390206 -------------------------------- ----------------------------------------------------------------- Find the home of your dreams with eircom net property Sign up for email alerts now http://www.eircom.net/propertyalerts

1 0

[fomus-devel] expected valid/unique mark in MARKS slot
by Rob Canning 13 Sep '06

13 Sep '06

hi, can't seem to get :textnote to work... what am i doing wrong here? init :output (:lilypond :view t); part 1 :name "Piano" :instr :piano; (note 1 :off 3 :dur 1 :note 67 :marks (:textnote "sul G")); ;; Formatting music... ;;; *****ERROR***** ;; Error in function FOMUS::CHECK-TYPE*: ;; Found :TEXTNOTE, expected valid/unique mark in MARKS slot of note at offset 3.0 thanks, rob ----------------------------------------------------------------- Find the home of your dreams with eircom net property Sign up for email alerts now http://www.eircom.net/propertyalerts

2 1

[fomus-devel] line break error ?
by Rob Canning 12 Sep '06

12 Sep '06

hi again, when writing to [textfile] in pd, pd sticks in a line break when a line gets too long fomus doesnt like this eg. note 2 :off 4.25 :dur 0.25 :note 63 :marks (:portato :accent :PP); is fine note 2 :off 4.25 :dur 0.25 :note 63 :marks (:portato :accent :PP :marcato); where the marcato is on the next line gives this error ;;; *****ERROR***** ;; End-of-File on #<String-Input Stream> maybe it should be that fomus only percives a line break when it sees a ; is there a solution to this ? thanks rob ----------------------------------------------------------------- Find the home of your dreams with eircom net property Sign up for email alerts now http://www.eircom.net/propertyalerts

2 2

[fomus-devel] :mark (:ignore) ?
by Rob Canning 12 Sep '06

12 Sep '06

hi! is there a "blank" message that i can write in a fomus file but that it will ignore for example :mark (:portato) :mark (:ignore) this is so i could have a way of clearing a placeholder in a fixed length message i am generating in pd with [sprintf] if i dont clear it it will remain in subsequent messages until a new value repalces it. i'm sure there is a more elegant way i could generate my message strings but it would be handy to know if there is a ":ignore" message i could send thanks rob ----------------------------------------------------------------- Find the home of your dreams with eircom net property Sign up for email alerts now http://www.eircom.net/propertyalerts

2 1

[fomus-devel] :nokey2
by Kilian Sprotte 09 Sep '06

09 Sep '06

Hi, fomus has experimental support for a second enharmonic spelling algorithm that basically tries do the same as the first, but is powered by a different solver -- in this case: adaptive search (fomus/ads.lisp) This is the form I used for testing: (fomus :output '( (:data)) :verbose 1 :quartertones nil :ensemble-type :orchestra :auto-accs-mod :nokey2 :global (list (make-timesig :off 0 :time '(5 8) :div '(3/2 1))) :parts (list (make-part :name "Piano" :instr '(:piano :simultlim 1) :events (loop with x = 0 for off from 0 to 10 by 1/2 collect (make-note :off off :dur (if (< off 10) 1/2 1) :note (+ 48 (random 25))))))) Cheers, Kilian PS: David, could you replace http://common-lisp.net/project/fomus/index.html by http://common-lisp.net/project/fomus/ksindex.html if you like my change ? (or maybe put that link somewhere else?)

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

fomus-devel September 2006