Re: String Concatenation, and Use of Unicode characters

[Thomas Morley]

2015-03-02 17:40 GMT+01:00 Michael Hendry <address@hidden>:
> I’m an amateur jazz guitarist, and although I usually play from Realbook 
> leadsheets I occasionally need to produce my own.
>
> Typically, I want PDF output in three files, (Concert pitch, Bb and Eb), and 
> I would like to modularise this as much as possible.
>
> The .ly code which follows shows what I’m trying to do, but there are a 
> couple of problems I would like help with.
>
> 1. I’d like to define a variable (\BaseFileName) which is the name of the 
> song, and have this variable picked up for the title in the header, and when 
> I’m creating the three PDF files with the relevant instrument names appended.
>
> e.g. "Generic (guitar).pdf”, “Generic (trumpet).pdf” and “Generic (alto).pdf”.
>
>
> 2. The LilyJazzText font uses small capitals instead of lower case letters, 
> so using “Eb” produces a capital E followed by a small capital B. On my Mac I 
> know how to produce a flat sign, and LilyPond will use the flat sign from 
> another font, but I’d like to be able to define a flat sign as a variable, 
> and append it to the piece markup when creating the books for trumpet and 
> alto.
>
> Thanks in advance,
>
> Michael Hendry
>
>
> %%%%%%%%%%%%
>
> \version "2.18.0"
>
> \include "LilyJAZZ.ily"
> \include "AccordsJazzDefs.ly"
>
> BaseFileName = "Generic"
> FlatSign = ""
>
> \header {
>   title =               \markup {\fontsize #3   \override #'(font-name . 
> "LilyJAZZText") "Generic" }
> }
>
> TheHead =  \relative c' {
>   \set Score.markFormatter = #format-mark-box-letters
>   \clef "treble" \key c \major \numericTimeSignature \time 4/4
>  {c d e f}
>
> }
>
> TheChords =  \chords {
> c1
> }
>
> % I’d like the code from here on to be generic, and produce concert, Bb and 
> Eb versions from the variables defined above.
>
> \book {
>
>   \bookOutputName  "Generic (guitar)” % I WANT TO CONSTRUCT THIS STRING BY 
> APPENDING “ (guitar)” to BaseFileName
>   \new Score
>   <<
>     \transpose c c {\TheChords}
>     \new Staff
>     \jazzOn \transpose c c {\TheHead}
>   >>
>   \header {piece = \markup {\fontsize #-1 \override #'(font-name . 
> "LilyJazzText") "Guitar"}}
> }
>
> \book {
>   \bookOutputName "Generic (tpt)” % I WANT TO CONSTRUCT THIS STRING BY 
> APPENDING “ (tpt)” to BaseFileName
>   \new Score
>   <<
>     \transpose c d' {\TheChords}
>     \new Staff
>     \jazzOn \transpose c d' {\TheHead}
>   >>
>   \header {piece = \markup {\fontsize #-1 \override #'(font-name . 
> "LilyJazzText") "Trumpet in Bb”}} % I WANT TO USE VARIABLE FOR FLAT SIGN 
> HERE...
> }
>
>
> \book {
>   \bookOutputName "Generic (alto)” % I WANT TO CONSTRUCT THIS STRING BY 
> APPENDING “ (alto)” to BaseFileName
>   \new Score
>   <<
>     \transpose c a {\TheChords}
>     \new Staff \jazzOn \transpose c a {\TheHead}
>   >>
>   \header {piece = \markup {\fontsize #-1 \override #'(font-name . 
> "LilyJazzText") "Alto Sax in Eb”}} % …AND AGAIN HERE



How about the quite generic code below?
nb %%uncomment


\version "2.18.0"

%% uncomment
%
%\include "LilyJAZZ.ily"
%\include "AccordsJazzDefs.ly"
%
BaseFileName = "Generic"

FlatSign =
  \markup {
    \hspace #0.1
    \raise #0.4
    \fontsize #-3
    \flat
  }

\header {
  title =
    \markup {
      \fontsize #3
      \override #'(font-name . "LilyJAZZText")
      \BaseFileName
    }
}

TheHead =  \relative c' {
  \set Score.markFormatter = #format-mark-box-letters
  \clef "treble" \key c \major \numericTimeSignature \time 4/4
  c d e f

}

TheChords = \chords {
  c1
}

#(define (scores instruments pitches)
   (map
     (lambda (p n)
         #{
           \score {
              <<
                \new ChordNames
                \transpose c $p \TheChords
                \new Staff
                %% uncomment:
                %\jazzOn
                \transpose c $p \TheHead
              >>
              \header {
                piece =
                  \markup {
                    \fontsize #-1 \override #'(font-name . "LilyJazzText") $n
                  }
              }
              %% for testing:
              %\layout { \override ChordNames.ChordName.color = #red }
           }
         #})
     (event-chord-pitches pitches)
     (map
       (lambda (i)
         (let ((instr (string-split i #\tab)))
         (if (string-null? (last instr))
             #{ \markup $(car instr) #}
             #{ \markup \concat { $(car instr) \FlatSign } #})))
       instruments)))

writebooks =
#(define-void-function (parser location instr-nms pitches) (list? ly:music?)
 (let* ((instrument-names
          (map
            (lambda (i)
              (car (string-split i #\tab)))
            instr-nms))
        (file-names
          (map
            (lambda (i)
              (let ((instr (string-split i #\Space)))
              (format #f "~a (~a)" BaseFileName (string-downcase (car instr)))))
            instrument-names)))
 (for-each
   (lambda (score name)
     (let* ((my-new-book
              (ly:make-book
                $defaultpaper
                $defaultheader
                score)))
       (ly:score-set-header! score (ly:score-header score))
       (ly:book-process
          my-new-book
          $defaultpaper
          $defaultlayout
          name)))
     (scores instr-nms pitches)
     file-names)))


\writebooks
  #'(
     "Guitar\t" ;; \t is a hack to signalize not to print a flat-accidental
     "Trumpet in B"
     "Alto Sax in E"
     )
  { c d' a }


HTH,
  Harm