The LilyPond Snippet Repository ♪♫

…the snippet: #(define counter-alist '()) #(define-markup-command (counter layout props name) (string?) "Increases and prints out the … …props (markup (number->string newval))))) #(define-markup-command (setcounter layout props name value) (string? number?) "Set the given … …counter-alist (assoc-set! counter-alist name (- value 1))) (interpret-markup layout props (make-counter-markup name))) \markup { Initial value of the …

…2023 % Make a chicane staff. #(define-markup-command (chicane-staff layout props length hcorr hpos bdist) (number? number? number? … …-2))))))) % Make a twisted staff. #(define-markup-command (twist-staff layout props length hcorr hpos bdist) (number? number? number? … …the 'basic-distance' value of the 'staff-staff-spacing' property." (interpret-markup layout props (markup (#:path 0.1 `((moveto 0 -2) (…

…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 } } }