From josepadovani at yahoo.com.br Thu Oct 4 18:09:23 2007 From: josepadovani at yahoo.com.br (padovani) Date: Thu, 04 Oct 2007 15:09:23 -0300 Subject: [fomus-devel] text but not markup? Message-ID: <47052C53.1020308@yahoo.com.br> Is it possible to include a lilypond text throught fomus that isn't intialized by th "^" symbol? I.e.: "_" or also another types of texts like "/tempo"... I'm trying to do it throught format function but I'm not geting it... the example would clarify better what I'm trying to make... tx for any help (fomus :output '(:lilypond :view t) :LILYPOND-TEXTTEMPO-MARKUP (concatenate 'string (format nil "~A" #\backspace) " \\tempo ~A") :ensemble-type :orchestra :parts (list (make-part :name "Piano" :instr :piano :events (loop 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)) :marks (if (= off 7) '((:TEXTTEMPO "8.=120")))))))) From dpsenick at uiuc.edu Fri Oct 5 13:33:36 2007 From: dpsenick at uiuc.edu (David Psenicka) Date: Fri, 05 Oct 2007 08:33:36 -0500 Subject: [fomus-devel] text but not markup? In-Reply-To: <47052C53.1020308@yahoo.com.br> References: <47052C53.1020308@yahoo.com.br> Message-ID: <47063D30.1050409@uiuc.edu> I'll have to add an option for that--I'll add some way of overriding it BTW I'm in the middle of porting this whole project to C++... The main reasons are that it should be easier to install (I think some people didn't want to deal with Lisp) and it will be more flexible as a dynamic library in other applications... plus I'll be able to comb through everything and smooth out some of the kinks that are still there along the way (weird beams that pop up sometimes, etc.). It won't be stuck in Lisp--it'll be usable in any language that can load a dynamic library + objects for Pd & Max, etc., plus the text file input should be more flexible (less pseudo-lisp syntax, provisions for constructs like chords, etc.), settings adjustments can be made per measure, and a few other things that should have been done from the start padovani wrote: > Is it possible to include a lilypond text throught fomus that isn't > intialized by th "^" symbol? > I.e.: "_" or also another types of texts like "/tempo"... I'm trying > to do it throught format function but I'm not geting it... the example > would clarify better what I'm trying to make... tx for any help > > (fomus :output '(:lilypond :view t) > :LILYPOND-TEXTTEMPO-MARKUP (concatenate 'string (format nil "~A" > #\backspace) " \\tempo ~A") > :ensemble-type :orchestra > :parts (list (make-part :name "Piano" > :instr :piano :events > (loop > 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)) > :marks (if (= off 7) > > '((:TEXTTEMPO "8.=120")))))))) > _______________________________________________ > fomus-devel mailing list > fomus-devel at common-lisp.net > http://common-lisp.net/cgi-bin/mailman/listinfo/fomus-devel > From josepadovani at yahoo.com.br Thu Oct 18 14:37:37 2007 From: josepadovani at yahoo.com.br (padovani) Date: Thu, 18 Oct 2007 11:37:37 -0300 Subject: [fomus-devel] understanding "backend_ly.lisp" Message-ID: <47176FB1.6050908@yahoo.com.br> hi again! So, I'm trying to understand the backend_ly.lisp of fomus... my doubts are in this passage.. (conc-stringlist (loop for x in '(:text :textdyn :texttempo :textnote) and m in (list (or text-markup *lilypond-text-markup*) (or textdyn-markup *lilypond-textdyn-markup*) (or texttempo-markup *lilypond-texttempo-markup*) (or textnote-markup *lilypond-textnote-markup*)) nconc (loop for (xxx di str) in (getmarks e x) collect (conc-strings (ecase di (:up "^") (:down "_")) (format nil m (lilypond-string-escape str)))))) I have two questions... 1. What is - or where is defined - the function "xxx" - from (xxx di str) ... it should get the values ":up" or ":down", right? 2. I tried to create a third - empty - direction, ":justplace", to place whatever texts I wanted... (ecase di (:up "^") (:down "_") (:justplace nil)) .... Then I have recompiled fomus but it doesn't work... Why? Should I define it in other places? Where? Sorry if the questions are stupid.. Maybe someday I become a developer! :) Jos? H. From andersvi at extern.uio.no Fri Oct 19 07:40:07 2007 From: andersvi at extern.uio.no (andersvi at extern.uio.no) Date: Fri, 19 Oct 2007 09:40:07 +0200 Subject: [fomus-devel] understanding "backend_ly.lisp" In-Reply-To: <47176FB1.6050908@yahoo.com.br> (padovani's message of "Thu\, 18 Oct 2007 11\:37\:37 -0300") References: <47176FB1.6050908@yahoo.com.br> Message-ID: >>>>> "p" == padovani writes: p> I have two questions... p> 1. What is - or where is defined - the function "xxx" - from (xxx di p> str) ... it should get the values ":up" or ":down", right? The (xxx di str) inside the loop clause is a "destructuring pattern" - meaning here that the 3 variables xxx, di & str will get their values from the subsequent expression. (loop repeat 1 for (a b c) = '(1 2 3) collect (+ a b c)) => 6 p> 2. I tried to create a third - empty - direction, ":justplace", to p> place whatever texts I wanted... p> (ecase di (:up "^") (:down "_") (:justplace nil)) .... p> Then I have recompiled fomus but it doesn't work... Why? Should I p> define it in other places? Where? What do you want to do? Putting nil in there does nothing. Ie: (conc-strings "hi" "ho") => "hiho" (conc-strings nil "ho") => "ho" You'll also have to add your mark to various places to make fomus beleive you're not mistyping, ie in +notemark-type+ and possibly other places. From dpsenick at uiuc.edu Fri Oct 19 15:02:02 2007 From: dpsenick at uiuc.edu (David Psenicka) Date: Fri, 19 Oct 2007 10:02:02 -0500 Subject: [fomus-devel] understanding "backend_ly.lisp" In-Reply-To: References: <47176FB1.6050908@yahoo.com.br> Message-ID: <4718C6EA.3020601@uiuc.edu> An HTML attachment was scrubbed... URL: