Re: Expansion of score for different format

[Carl Peterson]

I've made a little bit of progress: I've changed the code to:

#(define 

(make-my-scores parser location lyrics)

(if (not (null? lyrics))

#{ $(car lyrics)

$(make-my-scores parser location (cdr lyrics))

#}

)

)

 

seqVerses =

#(define-void-function (parser location up down title composer passage meter lyricist copyright lyrics)

(ly:music? ly:music? string? string? string? scheme? scheme? scheme? list?)

(let*

((score 

#{

       \score {

<<

\new Staff="top" { $up }

  #(make-my-scores parser location lyrics)

\new Staff="bottom" { $down \pageBreak }

          >>

}

     #}

)

)

      (add-score parser score)

)

)

On Fri, May 10, 2013 at 6:15 PM, Carl Peterson <address@hidden> wrote:

Okay, so I've been fairly successful in implementing and tweaking. I'm working  on the complementary function, to output a regular score with stacked verses for book layout. Here is my re-arrangement: 

If I leave out #(make-my-scores parser location lyrics) in the main seqVerses function, I get the music just fine. However, when I add this, I get guile errors. What am I missing here? I'm sure there's something obvious that just isn't coming to mind.

Thanks,

Carl

On Wed, May 8, 2013 at 11:32 PM, Jay Anderson <address@hidden> wrote:

On Wed, May 8, 2013 at 12:27 PM, Carl Peterson <address@hidden> wrote:
> If something doesn't already exist, I suppose the question would be whether
> there's a way to accomplish this by Scheme?

Yes, I do something similar. This might help get you started:

========================================
========================================

I think you're better off writing two separate functions instead of a
big if/else block: one for one score with multiple verses and another,
like the above, for multiple scores each with one verse.

-----Jay