The LilyPond Snippet Repository ♪♫

…14) \score { \new StaffGroup \keepWithTag #'score \music \layout { } \midi { } } %{ Uncomment this block when using separate files % … …include "piece.ly" \score { \keepWithTag #'vla \music \layout { } } % vlc.ly % (This is the Cello part file) \include "piece.ly" \score { \keepWithTag #'vlc \music \layout { } } %}

…a markup-command to get stencil-extent based on (interpret-markup layout props ...) #(define-markup-command (center-dyn layout props atr-text dyn)(… …layout props (markup #:normal-text #:italic text))) (dyn-stencil (interpret-markup layout props (markup #:dynamic dyn))) (atr-x-ext (ly:stencil-extent atr-stencil X)) (… …dyn-x 2)) (+ atr-x dyn-x) ) 0.5) 2))) (interpret-markup layout props (markup #:halign x-align #:concat (#:normal-text #:italic text …

…the override is applied to selected Lyrics only %% %\layout { % \context { % \Lyrics % \override LyricText.X-offset = #center-on-word % } %} melody = \relative … …let* ((layout (ly:grob-layout grob)) (props (ly:grob-alist-chain grob (ly:output-def-lookup layout 'text-font-defaults))) (X-extent (ly:stencil-extent (ly:text-interface::interpret-markup layout props (markup text-string)) X))) (if (interval-empty? X-extent) 0 (…

…1.8) %%%%%%%%%%%% \hspace #0.2 } #(define-markup-command (prefix layout props string-qty) (integer?) (interpret-markup layout props (if (member … …let* ((layout (ly:grob-layout grob)) (props (ly:grob-alist-chain grob (ly:output-def-lookup layout 'text-font-defaults)))) (interval-length (ly:stencil-extent (interpret-markup layout props (markup text-string)) X)))) #{ \tweak after-line-breaking #(…

…P.Schneider on October 2014. \header { tagline = ##f } \layout { \context { \Lyrics \override LyricText.font-size = #-1 \override LyricHyphen.… …bli -- che } >> >> %%% Option No2: #(define-markup-command (myBox layout props myWidth myHeight) (number? number?) (interpret-markup layout props (markup #:line (#:with-dimensions (cons 0 0)(cons …

…and define it in the score block instead. \layout { \context { \Score \remove "Mark_engraver" \consists #poly-mark-engraver \consists "… …DETAILS \score { << \new Staff { \PartI } \new Staff { \PartII } >> \layout { \context { \Score polyMarkOptions = #`((Fine (direction . ,UP) (self-alignment-X . … …new Staff { \clef bass \transpose c c, \PartII } >> \layout { \context { \Score polyMarkOptions = #`((Fine (stencil . #f)) (DC (…

…car top-bar-lines) 'stencil)) (bottom-stil (ly:grob-property (car bottom-bar-lines) 'stencil)) (layout (ly:grob-layout grob)) (props (ly:grob-alist-chain grob (ly:output-def-lookup layout 'text-font-defaults))) (… …s1 \bar "|." } \new Staff { \mus \break s1 \bar "|." } >> \layout { \context { \Score \CertainBracketTipsBarLines } } } %% A semi-automatic method making different … …Staff \mus \new Staff \mus \new Staff \mus >> >> \layout { \context { \Score \CertainBracketTipsBarLines } } } %}

…make-raise-markup 0.6 (chord-superscript n))))))) #(define-markup-command (accordion-bass layout props i-col i-row) (index? index?) ;; draw a standard … …chord-name->markup (list-ref cycle-of-fifths x) z)) (init-m (interpret-markup layout props (if (= z 0) (make-override-markup `(thickness . ,(* 10 thick)) (… …to get correct ;; baseline for all chord-name-markups (interpret-markup layout props "B") Y)))) (ly:stencil-translate-axis (ly:stencil-add ;; mark C-Button (if (…

…grob 'text (chords->lyrics (ly:grob-property grob 'text) context)))))) \layout { \context { \Lyrics \name "ChordMarkup" \consists \Chords_lyrics_engraver \… …slashChordSeparator" "- majorSevenSymbol" "- chordNameSeparator" "- minorChordModifier" } \null } } \layout { indent = 0 } } %% 4 other-example-chrds = \new ChordMarkup \lyricmode { "C:13" … …header { piece = \markup \rounded-box \fill-line { "Other examples" \null } } \layout { indent = 0 } }

…new Staff = "upper" \upper \new Staff = "lower" \lower >> \layout {} } } % put some space here \vspace#1 \wordwrap { Nam liber … …new Staff = "upper" \upper \new Staff = "lower" \lower >> \layout {} } % put some space here \vspace#1 \override #'(line-width . … …new Staff = "upper" \upper \new Staff = "lower" \lower >> \layout {} } % put some space here \vspace#1 \override #'(line-width . …