The LilyPond Snippet Repository ♪♫

…ly:make-stencil `(delay-stencil-evaluation ,(delay whiteout-expr))) stil))))) #(define-markup-command (outliner layout props thickness color arg) (number? color? markup?) #:category … …1)) (stencil-whiteout-box-outline (interpret-markup layout props arg) (* thickness (ly:output-def-lookup layout 'line-thickness)) color angle-increments radial-increments)) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% A new G clef … …d e f g a b c) \bar "|." } \layout { indent = 0 \context { \Staff %%% Apply a new G …

…here starts the snippet: %circled-pattern #(define-markup-command (circled-pattern layout props radius angle num arg) (number? number? number? … …markup (#:null)) (iota (1+ rep)))))))))) #(define-markup-command (circled-pattern-iterative layout props radius angle num arg) (number? number? number? markup?) (interpret-markup layout props (let ((rep (abs num))) (cond ((= num 0) (…

…------------------------------------------------------------ % markup commands definitions %------------------------------------------------------------ #(define-markup-command (piano-key layout props key-name) (markup?) #:properties ((bottom-padding 0) ; all key … …neck foot)3)) 0) } #}))))) #(define-markup-command (keyboard layout props start-key number) (markup? number?) #:properties ( ; if german … …override #'(german-notenames . #t) \\keyboard b #36 " (interpret-markup layout props (let ((one-octave '("c" "cis" "d" "dis" "e" "…

…controls thickness of the brackets. #(define-markup-command (left-bracket layout props) () "Draw left hand bracket" (let* ((th 0.… …BreathingSign.break-align-symbol = #'custos \breathe } #(define-markup-command (right-bracket layout props) () "Draw right hand bracket" (let* ((th .2);;… …g2) \rightBracket g8([ bes a g a bes]) } \layout{ \context{ \Staff \remove "Time_signature_engraver" } } }

…it does not hurt, either. #(define-markup-command (markupWithHeader layout props markup) (markup?) "Interpret the given markup with … …entry))) alist)) alists)) (props (append prefixed-alist props (layout-extract-page-properties layout)))) (interpret-markup layout props markup))) % ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ % test markup containing references to header …

…ellipse ~a ") %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% The main function %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% #(define-markup-command (clarTab layout props twelfthKey? holes keysByFinger) (boolean? list? list?) (let* ( (… …or (pressed? "dis")(pressed? "ees")))) ""))))) ;% end let* ... (interpret-markup layout props (make-line-markup (list (make-hspace-markup 0) (make-halign-markup -0.4 ;% … …##f } %% \repeat "unfold" 8 %% uncomment to test the layout in several lines \relative c' { \override Voice.TextScript.…

…bar-extent = #'(0 . 2) \bar "|" } myBreak = { \bar "" \break } \layout { indent = 0.0\mm line-width = 120.0\mm … …1" } \line { \smaller \smaller \note {2} #-0.6 } } } \layout { ragged-right = ##t \context { \Score %% defaults %% (shortest-duration-space . 2.0) %% (… …Voice = "stich" \stich >> \new Lyrics \lyricsto "voice" { \text } >> \layout {} \midi {} }

#(define-markup-command (arrow-at-angle layout props angle-deg length fill) (number? number? boolean?) (let* ( (… …length (cos angle-rad))) (target-y (* length (sin angle-rad)))) (interpret-markup layout props (markup #:translate (cons (/ target-x 2) (/ target-y 2)) … …e f g h i j k l } >> >> \layout { \context { \Staff \RemoveEmptyStaves \override VerticalAxisGroup.remove-first = ##t } } }

…influence of a %% BarNumberStaff to the overall score layout, thus version %% >= 2.13.x is recommended (see … …grob) (circle-stencil (bar-number-staff-plain-stencil grob) 0.125 0.5)) \layout { \context { \type Engraver_group \name BarNumberStaff \alias Voice %% … …clef bass \music } >> \new Staff { \clef bass \music } >> \layout { \context { \Score \override NonMusicalPaperColumn.line-break-permission = ##f \remove Bar_…

…Level 0" } } \score { \new Staff { \outlineMusic #0 \melody } \layout {} } % Medium outlining \markup { \column { "BWV 1001 Excerpt" "Outline Level 2" } } \score { \new Staff { \outlineMusic #1 \melody } \layout {} } %% No outlining \markup { \column { "BWV 1001 Excerpt" "No Outlining" } } \score { \new Staff { \outlineMusic #2 \melody } \layout {} } %% Consecutive midi for all 3 scores \score { \new …