Re: a column of text to the right of the score

[Pierre Perol-Schneider]

Wrong file name, sorry folks and thanks again Villum.
So here you go
Cheers,
Pierre

2014-09-17 11:38 GMT+02:00 Pierre Perol-Schneider <
pierre.schneider.pa...@gmail.com>:

> Oups, 'forgot the bar numbering on page 2.
> See enclosed corrected files.
> Pierre
>
>
>

\version "2.18.2"

#(set-default-paper-size "letter" 'landscape)

#(define (general-column align-dir baseline mols)
  (let* ((aligned-mols (map (lambda (x) (ly:stencil-aligned-to x X align-dir)) mols)))
    (stack-lines -1 0.0 baseline aligned-mols)))
    
#(define-markup-command (textLeft layout props args)(markup-list?)
  #:properties ((baseline-skip))
  (general-column LEFT baseline-skip (wordwrap-internal-markup-list layout props #f args)))

#(define-markup-command (textCenter layout props args)(markup-list?)
  #:properties ((baseline-skip))
  (general-column CENTER baseline-skip (wordwrap-internal-markup-list layout props #f args)))

#(define-markup-command (textRight layout props args)(markup-list?)
  #:properties ((baseline-skip))
  (general-column RIGHT baseline-skip (wordwrap-internal-markup-list layout props #f args)))

% Page One :
myMusicPageOne = \markuplist \column-lines {
  \score {
    \repeat unfold 40 \relative c' { c d e f g a b c }
    \layout { line-width = 8\in }
  }
}

\markuplist {
  \fill-line {
    \myMusicPageOne
    \column {  
      \fill-line {
        \null
        \override #'(baseline-skip . 2)
        \override #'(line-width . 30)
        \textLeft {
          Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed
          do eiusmod tempor incididunt ut labore et dolore magna aliqua.
          Ut enim ad minim veniam, quis nostrud exercitation ullamco
          laboris nisi ut aliquip ex ea commodo consequat.
        }
      }
      % put some space here :
      \vspace #2
      \fill-line {
        \null
        \override #'(baseline-skip . 4)
        \override #'(line-width . 30)
        \textCenter {
          Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed
          do eiusmod tempor incididunt ut labore et dolore magna aliqua.
          Ut enim ad minim veniam, quis nostrud exercitation ullamco
          laboris nisi ut aliquip ex ea commodo consequat.
        }
      }
      % put some space here :
      \vspace #2
      \fill-line {
        \null
        \override #'(baseline-skip . 5)
        \override #'(line-width . 30)
        \textRight {
          Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed
          do eiusmod tempor incididunt ut labore et dolore magna aliqua.
          Ut enim ad minim veniam, quis nostrud exercitation ullamco
          laboris nisi ut aliquip ex ea commodo consequat.
        }
      }
    }
  }
}

% Page Two :
myMusicPageOne = \markuplist \column-lines {
  \score {
    {
      \set Score.currentBarNumber = #81
      \bar ""
      \repeat unfold 30 
      \relative c' { c d e f g a b c }
      \bar "|."
    }
    \layout { 
      indent = 0
      line-width = 7\in
      \context {
        \Score
        barNumberVisibility = #(lambda (n x) (= (modulo n 1) 0)) 
        \omit TimeSignature
      }
    }
  }
}

\markuplist {
  \fill-line {
    \myMusicPageOne
    \column {  
      \fill-line {
        \null
        \override #'(baseline-skip . 2)
        \override #'(line-width . 40)
        \textLeft {
          Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed
          do eiusmod tempor incididunt ut labore et dolore magna aliqua.
          Ut enim ad minim veniam, quis nostrud exercitation ullamco
          laboris nisi ut aliquip ex ea commodo consequat.
        }
      }
      % put some space here :
      \vspace #2
      \fill-line {
        \null
        \override #'(baseline-skip . 4)
        \override #'(line-width . 35)
        \textCenter {
          Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed
          do eiusmod tempor incididunt ut labore et dolore magna aliqua.
          Ut enim ad minim veniam, quis nostrud exercitation ullamco
          laboris nisi ut aliquip ex ea commodo consequat.
        }
      }
      % put some space here :
      \vspace #2
      \fill-line {
        \null
        \override #'(baseline-skip . 5)
        \override #'(line-width . 30)
        \textRight {
          Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed
          do eiusmod tempor incididunt ut labore et dolore magna aliqua.
          Ut enim ad minim veniam, quis nostrud exercitation ullamco
          laboris nisi ut aliquip ex ea commodo consequat.
        }
      }
    }
  }
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user