Re: Please tear apart this example lead sheet template for traditional Western folk tunes

[Valentin Petzel]

Hello Tom,

you accidently forwarded me the digest. Unless there is a reason not to when 
replying to a message please change the Subject to match the discussion, make 
sure to include the list to the recipients and optimally adjust the quoted 
body to not include the whole digest.

If you’ve got any questions about what is happening here feel free to ask. We 
are using here that we can "register" scores to the current book(part) from 
scheme using the function (add-score score) (similarly we can use (add-text 
markup) to add a stand-alone markup to the book). This allows us to construct 
scores using scheme, which makes automated handling of thing much easier.

So what we want to have is a function that creates a score using standard 
elements, that is, chords, a voice, and lyrics. At the same time we want to be 
flexible enough to leave out some of these elements.

So we define a void-function (that is a scheme function that returns nothing) 
that takes:
→ The title of the score
→ Optionally the composer of the score
→ A piece of music for the voice or #f
→ A piece of music for the chords or #f
→ A piece of lyrics (which is also music) or a list of such (to allow stanzas)
 or #f

The syntax here is
myfunction =
#(define-void-function (arg1 arg2 ...)
(type-check-arg1 type-check-arg1 ...)
function-body)

where the type-checks are predicates (functions returning truth values) or 
(predicate default) for optional arguments with default value.

We then use let* which allows us to locally bind some variables (similar to 
let, but let* lets each binding access the previous bindings). The syntax here 
is

(let* ((var1 value1) (var2 value2) ...) body)

So we define CN, FB, VC, LY as shorthands for the ChordNames, FretBoards, Voice 
and Lyrics. If one of these is set to #f we use empty-music, which is music 
containing nothing, else we create the contexts with the specified music.

As lyrics might be a list of lyrics we have to handle both of these things, 
which is done by either doing something to the lyrics or by doing to the whole 
list (which is the (map function list) expression). We also need to handle the 
presence of the Voice here. If for some reason voice is set to #f we should 
not align the lyrics to anything and rely on the lyrics themselves being 
rhythmicised. To make further handling easier we make sure that LY is list 
even when lyrics isn’t. [WHICH BY THE WAY I FORGOT IF lyrics IS #f, THIS IS 
FIXED IN THE APPENDED FILE!]

So we get a big expression basically just checking:
→ Is lyrics #f? If so use (in the fixed version a list of) empty music.
→ Is voice #f? If so do not use \lyricsto "auto"
→ Is lyrics music or a list? If so we use map to create Lyrics for each member 
of the list. If not we create a list containing a single Lyrics context.

Next we basically want to put all of these contexts in a << ... >> construct. 
This is known as "simultaneous music" and is internally stored as
(make-music 'SimulataneousMusic 'elements A-LIST-OF-MUSIC)
where the list of music contains the content of ... . This means we simply 
have to construct this list and then do the above call with this list.

I won’t go into detail what a LISP list is, if you are interested please ask 
or checkout what I wrote to Simon earlier this thread. But basically if L is a 
list then `(,a ,b ,c . ,L) will be L with a, b and c prepended. As Jean 
pointed out this can be done by (cons* a b c L).

So we do a
(cons* CN FB VC LY)
to create a list of all the contexts we created so far (and maybe some empty 
music, but we do not really have to care about these).

Next we create a score with the specified header informations and the 
previously created simultaneous music. Using #{ ... #} allows us to parse the 
content between as Lilypond syntax instead of scheme syntax. So we do
#{ \score { ... } #}
and create the score just like we would in Lilypond syntax.

Then the last thing we do is use add-score to add this newly created score to 
the current book.

Cheers,
Valentin

Am Donnerstag, 24. Februar 2022, 00:05:42 CET schrieben Sie:
> Thank you for completely upgrading my lead sheet template. WOW! I haven't
> acknowledged because it's so advanced. You've added a bunch of advanced
> features I'm trying to understand thoroughly.% Lead sheet with:
% - Guitar fretboard diagrams
% - Override a predefined fretboard diagram
% - Pickup note with text above it suppressed
% - Chord and other text suppressed above the pickup note
 Please send critiques to tomcampb...@gmail.com
\version "2.22"

 STARTING INCLUDABLE TEMPLATE
#(define (music-or-false? m) (or (ly:music? m) (not m)))
#(define (music-or-list-or-false? m) (or (music-or-false? m) (list? m)))

leadsheetScore =
#(define-void-function (title composer voice chords lyrics)
   (markup? (markup? "Trad.") music-or-false? music-or-false? music-or-list-or-false?)
   (let* ((CN (if chords #{ \new ChordNames $chords #} (empty-music)))
  (FB (if chords
 

Re: Please tear apart this example lead sheet template for traditional Western folk tunes

[Jean Abou Samra]

Le 23/02/2022 à 02:14, Valentin Petzel a écrit :

Hi Simon,

note that to enable having multiple stanzas of lyrics the LY thing is not
music, but a list of music. In LISP a list either the empty list '() or a pair
(cons a b) where b is a list. Thus the list (a b c d) is in fact
(cons a (cons b (cons c (cons d '() or (a . (b . (c . (d . '( which
shorthands to (a b c d . '()). So if we were to use (list CN FB VC LY) this
would correspond to `(,CN ,FB ,VC ,LY). Let’s say CB = a, FB = b, VC = c, LY =
(d e). Then this would be (a b c (d e)). On the other hand using
`(,CN ,FB ,VC . ,LY) [which corresponds to (cons CN (cons FB (cons VC LY)))]
gives us (a b c d e), so a flat list.

We could also write this as (append (list CN FB VC) LY).



Also (cons* CN FB VC LY).

Best,
Jean

Re: Please tear apart this example lead sheet template for traditional Western folk tunes

[Valentin Petzel]

Hi Simon,

note that to enable having multiple stanzas of lyrics the LY thing is not 
music, but a list of music. In LISP a list either the empty list '() or a pair 
(cons a b) where b is a list. Thus the list (a b c d) is in fact
(cons a (cons b (cons c (cons d '() or (a . (b . (c . (d . '( which 
shorthands to (a b c d . '()). So if we were to use (list CN FB VC LY) this 
would correspond to `(,CN ,FB ,VC ,LY). Let’s say CB = a, FB = b, VC = c, LY = 
(d e). Then this would be (a b c (d e)). On the other hand using
`(,CN ,FB ,VC . ,LY) [which corresponds to (cons CN (cons FB (cons VC LY)))] 
gives us (a b c d e), so a flat list.

We could also write this as (append (list CN FB VC) LY).

Cheers,
Valentin

Am Mittwoch, 23. Februar 2022, 01:59:59 CET schrieben Sie:
> Hi Valentin,
> 
> one line in your Scheme code confused me. If you don’t mind explaining,
> why do you write
> 
> `(,CN ,FB ,VC . ,LY)
> 
> instead of
> 
> (list CN FB VC LY)
> 
> ?
> 
> Best, Simon
> 
> On 22/02/2022 09:25, Valentin Petzel wrote:
> > Hello Tom,
> > 
> > A good template will separate content and form. Ideally you’d be able to
> > use a few templates that work so universally that you need only to define
> > the music variables and include the template file. This would mean that
> > changing the music and the form can be done simply. If for example you
> > wanted to change the layout a bit you do not want to have to change this
> > in every score you have. Instead you can change it in the included layout
> > definition and you’re done.
> > 
> > We can even use functions to do this in a very clean manner. See the
> > appended example.
> > 
> > Cheers,
> > Valentin
> > 
> > Am Dienstag, 22. Februar 2022, 03:09:03 CET schrieb Tom Campbell:
> >> I am about to transcribe a bunch of older Western folk music in lead
> >> sheet
> >> form for an open source tunebook. Am trying to create a robust template
> >> so
> >> I don't have to think too much about anything other than getting the
> >> notes,
> >> chords, and lyrics right. You can see it below, or rendered by the
> >> invaluable Lilybin at http://lilybin.com/u6p5m8/8.
> >> 
> >> Can you tell me what's bad about this as a template? The lead sheets will
> >> contain chord names and guitar fretboard diagrams. Added a crucial (for
> >> me)
> >> section overriding the predefined guitar fretboard diagram for a chord. I
> >> also took too long to figure out how to get pickup notes in a format that
> >> seemed natural.
> >> 
> >> Thanks!
> >> 
> >> % Lead sheet with:
> >> % - Guitar fretboard diagrams
> >> % - Override a predefined fretboard diagram
> >> % - Pickup note with text above it suppressed
> >> % - Chord and other text suppressed above the pickup note
> >>  Please send critiques to tomcampb...@gmail.com
> >> \version "2.18.2"
> >> \include "predefined-guitar-fretboards.ly"
> >> 
> >> % Override predefined fretboard for e minor.
> >> % This just adds a G to the first (highest) string.
> >> % A little contrived but it's brief.
> >> \storePredefinedDiagram #default-fret-table \chordmode { e:m }
> >> #guitar-tuning
> >> #"o;2-2;2-3;o;o;3-4;"
> >> 
> >> \header {
> >> title = "Hit and Miss (Daphne)"
> >> composer = "Trad."
> >> }
> >> 
> >> theMelody = \relative c {
> >> 
> >>\clef treble
> >>\key e \minor
> >>\time 6/8
> >> 
> >> % Pickup note
> >> 
> >>\partial 8 e'8
> >> 
> >> % Verse melody (truncated for clarity)
> >> g4 a8 b4 e8
> >> d8. e16 fis8
> >> e4 b16 c
> >> 
> >> }
> >> 
> >> theLyrics = \lyricmode {
> >> When Daph -- ne from fair
> >> 
> >>Phoe -- bus did fly the --
> >> 
> >> }
> >> 
> >> theChords = \chordmode {
> >> % Replace the N.C. that would appear over
> >> % the pickup note
> >> \set noChordSymbol = ""
> >> \partial 8 r8
> >> 
> >>e2.:min
> >>b4.:min
> >>e4.:min
> >>   
> >>   }
> >> 
> >> \score {
> >> 
> >><<
> >>\new ChordNames { \theChords }
> >>\new FretBoards { \theChords }
> >>\new Voice = "one" { \autoBeamOn \theMelody }
> >>\new Lyrics \lyricsto "one" \theLyrics
> >>
> >>\layout { }
> >>\midi { }
> >> 
> >> }



signature.asc
Description: This is a digitally signed message part.

Re: Please tear apart this example lead sheet template for traditional Western folk tunes

[Simon Albrecht]

Hi Valentin,

one line in your Scheme code confused me. If you don’t mind explaining, 
why do you write


`(,CN ,FB ,VC . ,LY)

instead of

(list CN FB VC LY)

?

Best, Simon

On 22/02/2022 09:25, Valentin Petzel wrote:

Hello Tom,

A good template will separate content and form. Ideally you’d be able to use a
few templates that work so universally that you need only to define the music
variables and include the template file. This would mean that changing the
music and the form can be done simply. If for example you wanted to change the
layout a bit you do not want to have to change this in every score you have.
Instead you can change it in the included layout definition and you’re done.

We can even use functions to do this in a very clean manner. See the appended
example.

Cheers,
Valentin

Am Dienstag, 22. Februar 2022, 03:09:03 CET schrieb Tom Campbell:

I am about to transcribe a bunch of older Western folk music in lead sheet
form for an open source tunebook. Am trying to create a robust template so
I don't have to think too much about anything other than getting the notes,
chords, and lyrics right. You can see it below, or rendered by the
invaluable Lilybin at http://lilybin.com/u6p5m8/8.

Can you tell me what's bad about this as a template? The lead sheets will
contain chord names and guitar fretboard diagrams. Added a crucial (for me)
section overriding the predefined guitar fretboard diagram for a chord. I
also took too long to figure out how to get pickup notes in a format that
seemed natural.

Thanks!

% Lead sheet with:
% - Guitar fretboard diagrams
% - Override a predefined fretboard diagram
% - Pickup note with text above it suppressed
% - Chord and other text suppressed above the pickup note
 Please send critiques to tomcampb...@gmail.com
\version "2.18.2"
\include "predefined-guitar-fretboards.ly"

% Override predefined fretboard for e minor.
% This just adds a G to the first (highest) string.
% A little contrived but it's brief.
\storePredefinedDiagram #default-fret-table \chordmode { e:m }
#guitar-tuning
#"o;2-2;2-3;o;o;3-4;"

\header {
title = "Hit and Miss (Daphne)"
composer = "Trad."
}

theMelody = \relative c {
   \clef treble
   \key e \minor
   \time 6/8

% Pickup note
   \partial 8 e'8

% Verse melody (truncated for clarity)
g4 a8 b4 e8
d8. e16 fis8
e4 b16 c

}

theLyrics = \lyricmode {
When Daph -- ne from fair
   Phoe -- bus did fly the --
}

theChords = \chordmode {
% Replace the N.C. that would appear over
% the pickup note
\set noChordSymbol = ""
\partial 8 r8
   e2.:min
   b4.:min
   e4.:min
  }

\score {
   <<
   \new ChordNames { \theChords }
   \new FretBoards { \theChords }
   \new Voice = "one" { \autoBeamOn \theMelody }
   \new Lyrics \lyricsto "one" \theLyrics

   \layout { }
   \midi { }
}

Re: Please tear apart this example lead sheet template for traditional Western folk tunes

[Valentin Petzel]

Hello Tom,

A good template will separate content and form. Ideally you’d be able to use a 
few templates that work so universally that you need only to define the music 
variables and include the template file. This would mean that changing the 
music and the form can be done simply. If for example you wanted to change the 
layout a bit you do not want to have to change this in every score you have. 
Instead you can change it in the included layout definition and you’re done.

We can even use functions to do this in a very clean manner. See the appended 
example.

Cheers,
Valentin

Am Dienstag, 22. Februar 2022, 03:09:03 CET schrieb Tom Campbell:
> I am about to transcribe a bunch of older Western folk music in lead sheet
> form for an open source tunebook. Am trying to create a robust template so
> I don't have to think too much about anything other than getting the notes,
> chords, and lyrics right. You can see it below, or rendered by the
> invaluable Lilybin at http://lilybin.com/u6p5m8/8.
> 
> Can you tell me what's bad about this as a template? The lead sheets will
> contain chord names and guitar fretboard diagrams. Added a crucial (for me)
> section overriding the predefined guitar fretboard diagram for a chord. I
> also took too long to figure out how to get pickup notes in a format that
> seemed natural.
> 
> Thanks!
> 
> % Lead sheet with:
> % - Guitar fretboard diagrams
> % - Override a predefined fretboard diagram
> % - Pickup note with text above it suppressed
> % - Chord and other text suppressed above the pickup note
>  Please send critiques to tomcampb...@gmail.com
> \version "2.18.2"
> \include "predefined-guitar-fretboards.ly"
> 
> % Override predefined fretboard for e minor.
> % This just adds a G to the first (highest) string.
> % A little contrived but it's brief.
> \storePredefinedDiagram #default-fret-table \chordmode { e:m }
> #guitar-tuning
> #"o;2-2;2-3;o;o;3-4;"
> 
> \header {
> title = "Hit and Miss (Daphne)"
> composer = "Trad."
> }
> 
> theMelody = \relative c {
>   \clef treble
>   \key e \minor
>   \time 6/8
> 
> % Pickup note
>   \partial 8 e'8
> 
> % Verse melody (truncated for clarity)
> g4 a8 b4 e8
> d8. e16 fis8
> e4 b16 c
> 
> }
> 
> theLyrics = \lyricmode {
> When Daph -- ne from fair
>   Phoe -- bus did fly the --
> }
> 
> theChords = \chordmode {
> % Replace the N.C. that would appear over
> % the pickup note
> \set noChordSymbol = ""
> \partial 8 r8
>   e2.:min
>   b4.:min
>   e4.:min
>  }
> 
> \score {
>   <<
>   \new ChordNames { \theChords }
>   \new FretBoards { \theChords }
>   \new Voice = "one" { \autoBeamOn \theMelody }
>   \new Lyrics \lyricsto "one" \theLyrics
> 
>   \layout { }
>   \midi { }
> }

% Lead sheet with:
% - Guitar fretboard diagrams
% - Override a predefined fretboard diagram
% - Pickup note with text above it suppressed
% - Chord and other text suppressed above the pickup note
 Please send critiques to tomcampb...@gmail.com
\version "2.22"

 STARTING INCLUDABLE TEMPLATE
#(define (music-or-false? m) (or (ly:music? m) (not m)))
#(define (music-or-list-or-false? m) (or (music-or-false? m) (list? m)))

leadsheetScore =
#(define-void-function (title composer voice chords lyrics)
   (markup? (markup? "Trad.") music-or-false? music-or-false? music-or-list-or-false?)
   (let* ((CN (if chords #{ \new ChordNames $chords #} (empty-music)))
  (FB (if chords
  (if voice
  #{ \new FretBoards $chords #}
  #{ \new FretBoards \with { \consists Bar_engraver \override BarLine.bar-extent = #'(-6 . 3) } $chords #})
  (empty-music)))
  (VC (if voice #{ \new Staff \new Voice="auto" $voice #} (empty-music)))
  (LY (if lyrics
  (if voice
  (if (ly:music? lyrics)
  (list #{ \new Lyrics \lyricsto "auto" $lyrics #})
  (map (lambda (x)
 (if (ly:music? x)
 #{ \new Lyrics \lyricsto "auto" $x #}
 (if (pair? x)
 ; If x is a pair of the form (key . music) we create a stanza indication
 #{ \new Lyrics \lyricsto "auto" { \set stanza =
   $(if (markup? (car x))
 (car x)
 (format "~a" (car x)))
   $(cdr x) } #})))
 lyrics))
  (if (ly:music? lyrics)
  (list #{ \new Lyrics $lyrics #})
  (map (lambda (x)
 (if (ly:music? x)
 #{ \new 

Re: Please tear apart this example lead sheet template for traditional Western folk tunes

[Jean Abou Samra]

Le 22/02/2022 à 03:09, Tom Campbell a écrit :
I am about to transcribe a bunch of older Western folk music in lead 
sheet form for an open source tunebook.



Nice to hear that!


Am trying to create a robust template so I don't have to think too 
much about anything other than getting the notes, chords, and lyrics 
right. You can see it below, or rendered by the invaluable Lilybin at 
http://lilybin.com/u6p5m8/8.


Can you tell me what's bad about this as a template? The lead sheets 
will contain chord names and guitar fretboard diagrams. Added a 
crucial (for me) section overriding the predefined guitar fretboard 
diagram for a chord. I also took too long to figure out how to get 
pickup notes in a format that seemed natural.


Thanks!

% Lead sheet with:
% - Guitar fretboard diagrams
% - Override a predefined fretboard diagram
% - Pickup note with text above it suppressed
% - Chord and other text suppressed above the pickup note
 Please send critiques totomcampb...@gmail.com
\version "2.18.2"



Before starting, how about upgrading? LilyPond 2.18 is
8 years old, there have been many improvements in the
meantime, and if you ask for help on the lists, people
will be testing snippets in their replies with newer
versions.


\include "predefined-guitar-fretboards.ly 
"


% Override predefined fretboard for e minor.
% This just adds a G to the first (highest) string.
% A little contrived but it's brief.
\storePredefinedDiagram #default-fret-table \chordmode { e:m }
#guitar-tuning
#"o;2-2;2-3;o;o;3-4;"

\header {
title = "Hit and Miss (Daphne)"
composer = "Trad."
}

theMelody = \relative c {
  \clef treble
  \key e \minor
  \time 6/8

% Pickup note
  \partial 8 e'8

% Verse melody (truncated for clarity)
g4 a8 b4 e8
d8. e16 fis8
e4 b16 c

}

theLyrics = \lyricmode {
When Daph -- ne from fair
  Phoe -- bus did fly the --
}

theChords = \chordmode {
% Replace the N.C. that would appear over
% the pickup note
\set noChordSymbol = ""


\once \set?


Best,
Jean

Please tear apart this example lead sheet template for traditional Western folk tunes

[Tom Campbell]

I am about to transcribe a bunch of older Western folk music in lead sheet
form for an open source tunebook. Am trying to create a robust template so
I don't have to think too much about anything other than getting the notes,
chords, and lyrics right. You can see it below, or rendered by the
invaluable Lilybin at http://lilybin.com/u6p5m8/8.

Can you tell me what's bad about this as a template? The lead sheets will
contain chord names and guitar fretboard diagrams. Added a crucial (for me)
section overriding the predefined guitar fretboard diagram for a chord. I
also took too long to figure out how to get pickup notes in a format that
seemed natural.

Thanks!

% Lead sheet with:
% - Guitar fretboard diagrams
% - Override a predefined fretboard diagram
% - Pickup note with text above it suppressed
% - Chord and other text suppressed above the pickup note
 Please send critiques to tomcampb...@gmail.com
\version "2.18.2"
\include "predefined-guitar-fretboards.ly"

% Override predefined fretboard for e minor.
% This just adds a G to the first (highest) string.
% A little contrived but it's brief.
\storePredefinedDiagram #default-fret-table \chordmode { e:m }
#guitar-tuning
#"o;2-2;2-3;o;o;3-4;"

\header {
title = "Hit and Miss (Daphne)"
composer = "Trad."
}

theMelody = \relative c {
  \clef treble
  \key e \minor
  \time 6/8

% Pickup note
  \partial 8 e'8

% Verse melody (truncated for clarity)
g4 a8 b4 e8
d8. e16 fis8
e4 b16 c

}

theLyrics = \lyricmode {
When Daph -- ne from fair
  Phoe -- bus did fly the --
}

theChords = \chordmode {
% Replace the N.C. that would appear over
% the pickup note
\set noChordSymbol = ""
\partial 8 r8
  e2.:min
  b4.:min
  e4.:min
 }

\score {
  <<
  \new ChordNames { \theChords }
  \new FretBoards { \theChords }
  \new Voice = "one" { \autoBeamOn \theMelody }
  \new Lyrics \lyricsto "one" \theLyrics
>>
  \layout { }
  \midi { }
}