Dies ist das Archiv des alten Forums (bis März 2017). Das aktuelle Forum ist unter https://lilypondforum.de zu finden. This is the archive of the old forum (until March 2017). You can find the current forum at https://lilypondforum.de.
\version "2.19.13"incipit =#(define-music-function (parser location incipit-music) (ly:music?) #{ %\once \override Staff.InstrumentName.self-alignment-X = #RIGHT \once \override Staff.InstrumentName.self-alignment-Y = ##f \once \override Staff.InstrumentName.padding = #0.3 \once \override Staff.InstrumentName.stencil = #(lambda (grob) (let* ((instrument-name (ly:grob-property grob 'long-text))) (set! (ly:grob-property grob 'long-text) #{ \markup \score { \context Staff \with { instrumentName = #instrument-name } $incipit-music \layout { $(ly:grob-layout grob) line-width = \indent indent = % primitive-eval is probably easiest for % escaping lexical closure and evaluating % everything respective to (current-module). #(primitive-eval '(or (false-if-exception (- indent incipit-width)) (* 0.5 indent))) ragged-right = ##t ragged-last = ##f system-count = #1 } } #}) (system-start-text::print grob))) #}) violaIncipit = { \once \omit Staff.TimeSignature <g d' a' e''>1 \once \hide Staff.BarLine}violaNotes = \repeat unfold 20 { c'4 d' e' f' }\score { \new Staff \with { instrumentName = "Viola D'Amore" } { \incipit \violaIncipit \violaNotes } \layout { indent = 6\cm incipit-width = 1\cm }}
\version "2.16.2"incipit =#(define-music-function (parser location incipit-music) (ly:music?) #{ %\once \override Staff.InstrumentName #'self-alignment-X = #RIGHT %\once \override Staff.InstrumentName #'self-alignment-Y = ##f \once \override Staff.InstrumentName #'padding = #0.3 \once \override Staff.InstrumentName #'stencil = #(lambda (grob) (let* ((instrument-name (ly:grob-property grob 'long-text))) (set! (ly:grob-property grob 'long-text) #{ \markup \score {