%% Generated by lilypond-book %% Options: [exampleindent=10.16\mm,indent=0\mm,line-width=160\mm,paper-height=845.047\pt,paper-width=597.508\pt,papersize='(cons (* 597.508 pt) (* 845.047 pt))] \include "lilypond-book-preamble.ly" % **************************************************************** % Start cut-&-pastable-section % **************************************************************** #(ly:set-option 'eps-box-padding 3.000000) \paper { #(set-paper-size '(cons (* 597.508 pt) (* 845.047 pt))) indent = 0\mm line-width = 160\mm % offset the left padding, also add 1mm as lilypond creates cropped % images with a little space on the right line-width = #(- line-width (* mm 3.000000) (* mm 1)) } \layout { } % **************************************************************** % ly snippet: % **************************************************************** \sourcefilename "/lilypond-2.25.35/input/regression/musicxml/33a-Spanners.xml" \sourcefileline 0 \version "2.25.35" % automatically converted by musicxml2ly from - \pointAndClickOff %% additional definitions required by the score: % \accs-ornament % -------------- % % Position the `above` and `below` markup lists as vertical stacks % above and below markup `script`, respectively. `above` and `below` % are by default horizontally centered on `script` (controlled by the % property `acc-dir`), printed at a size given by the property % `acc-font-size` (default value -5), and a color given by the % property `acc-color` (default is black). Between all markups a % vertical space given by the property `acc-padding` (default value % 0.2) is inserted. The `above` stack grows from bottom to top, while % the `below` stack grows from top to bottom. % % If either `above` or `below` is an empty argument, or if `script` is % set to `#f`, the corresponding argument is not printed. % % If an element of `above`, `script`, or `below` is a plain string, % check the following. % % * If the string consists entirely of one or more characters from the % accidental set '♮♭♯𝄪𝄫' (not counting a possible enclosure), add % `\number` internally as a prefix to use the Emmentaler font. % % * Otherwise the element is taken as a glyph name (again not counting % a possible enclosure), to be internally accessed with the % `\musicglyph` command. % % * (Not for `script`.) If an element of `above` or `below` is a % plain string and the first and last character is `(` and `)`, % respectively, the element gets enclosed in parentheses. The same % holds for `[` and `]`, enclosing the element in brackets. The % font size of the enclosure characters is controlled by the % property `enclosure-font-size` (default value -2). % % Example: % % ``` % \markup \override #'(acc-padding . 0.5) % \accs-ornament { "♭" "(♯)" } "scripts.haydnturn" {} % ``` #(define-markup-command (accs-ornament layout props above script below) (markup-list? markup? markup-list?) #:properties ((acc-font-size -5) (acc-color black) (acc-padding 0.3) (acc-dir CENTER) (enclosure-font-size -2)) (define enclosure-regex ;; `(?(-3) ...)` is a 'conditional subpattern' that is only ;; considered for matching if the subpattern three opening ;; parentheses earlier (i.e., the first group) matches. (ly:make-regex "(?x) ^ ( [([] ) ? ( [^]()[] + ) ( (?(-3) [])] ) ) $")) (define charset:accidentals (string->char-set "♮♭♯𝄪𝄫")) (define (musicglyph-or-number-markup arg) (if (string-every charset:accidentals arg) (make-number-markup arg) (make-musicglyph-markup arg))) (define (with-enclosure-markup arg) (let ((match (ly:regex-exec enclosure-regex arg))) (if match (let* (;; `left` is `#f` if there is no enclosure. (left (ly:regex-match-substring match 1)) (left (if left (make-normalsize-markup (make-fontsize-markup enclosure-font-size left)) #f)) (glyph (ly:regex-match-substring match 2)) ;; `right` is `""` if there is no enclosure. (right (ly:regex-match-substring match 3)) (right (if (string-null? right) #f (make-normalsize-markup (make-fontsize-markup enclosure-font-size right))))) (make-concat-markup (list (or left "") (musicglyph-or-number-markup glyph) (or right "")))) #f))) (define (to-markup arg enclosure) (if (string? arg) (if (string-null? arg) #f (if enclosure (with-enclosure-markup arg) (musicglyph-or-number-markup arg))) arg)) (define (make-acc-stencil arg) (if arg (interpret-markup layout props (make-halign-markup acc-dir (make-with-color-markup acc-color (make-fontsize-markup acc-font-size arg)))) #f)) (let* ((above (map (lambda (x) (to-markup x #t)) above)) (above-stils (map (lambda (x) (make-acc-stencil x)) above)) (script (to-markup script #f)) (script-stil (if script (interpret-markup layout props script) empty-stencil)) (below (map (lambda (x) (to-markup x #t)) below)) (below-stils (map (lambda (x) (make-acc-stencil x)) below)) (script-stil (fold (lambda (elem previous) (ly:stencil-combine-at-edge previous Y UP elem acc-padding)) script-stil above-stils)) (script-stil (fold (lambda (elem previous) (ly:stencil-combine-at-edge previous Y DOWN elem acc-padding)) script-stil below-stils))) script-stil)) % \acc-ornament % ------------- % % This function behaves similar to `\accs-ornament` with the % difference that `above` and `below` are single markups, not markup % lists. If one of the arguments is an empty string, it is not % printed. % % Example: % % ``` % \markup \acc-ornament "[♭]" "scripts.turn" ♯ % ``` #(define-markup-command (acc-ornament layout props above script below) (markup? markup? markup?) #:properties (accs-ornament-markup) (accs-ornament-markup layout props (if (and (string? above) (string-null? above)) '() (list above)) (if (and (string? script) (string-null? script)) #f script) (if (and (string? below) (string-null? below)) '() (list below)))) % Some shorthands to make the usage of `\acc-ornament` more % comfortable for simple cases. ornament = #(define-music-function (above script below) (string? string? string?) #{ \tweak parent-alignment-X #CENTER \tweak self-alignment-X #CENTER -\markup \acc-ornament #above #script #below #}) accTrill = #(define-music-function (above) (string?) #{ \tweak parent-alignment-X #CENTER \tweak self-alignment-X #CENTER -\markup \override #'((acc-dir . -1.3) (acc-padding . -0.4)) \acc-ornament #above "scripts.trill" "" #}) #(define-markup-command (trill-acc-tweak layout props above) (string?) (interpret-markup layout props #{ \markup \override #'((acc-dir . -1.3) (acc-padding . -0.4)) \with-dimension-from #X \with-true-dimension #X \musicglyph "scripts.trill" \acc-ornament #above \with-true-dimension #X \musicglyph "scripts.trill" "" #})) % `color` and `size` are optional. If `size` is present, `color` must % be present, too. `size` also sets the `enclosure-font-size` % property (three magsteps larger). trillTweak = #(define-music-function (acc color size music) (string? (color? black) (number?) ly:music?) (let* ((override (list `(acc-color . ,color))) (override (if size (cons `(enclosure-font-size . ,(+ size 3)) (cons `(acc-font-size . ,size) override)) override))) #{ \tweak bound-details.left.text \markup \override #override \trill-acc-tweak #acc #music #})) #(define edge-height-alist '((up . -0.7) (down . 0.7) (none . 0))) #(define (get-height type) (or (assv-ref edge-height-alist type) (begin (ly:warning "bracket edge type '~a' not implemented" type) 0))) % Make the `edge-height` property independent of a bracket's direction. #(define (make-edge-height left right) (grob-transformer 'edge-height (lambda (grob orig) (let ((dir (ly:grob-property grob 'direction)) (left-height (get-height left)) (right-height (get-height right))) (cons (* dir left-height) (* dir right-height)))))) \header { texidoc = "Several spanners as defined in MusicXML: tuplet, slur (solid, dashed), wedge (cresc, dim), trill with accidental mark and wavy-line (with another accidental mark on the second beat), single-note trill spanner, octave-shift (8va,15mb), bracket (solid down/down, dashed down/down, solid none/down, dashed none/up, solid none/none), dashes, glissando (wavy), slide (solid), grouping, two-note tremolo, hammer-on, pull-off, pedal line (down, change, up), pedal text (down, up)." } \layout { \context { \Staff printKeyCancellation = ##f } \context { \Score autoBeaming = ##f } } PartPOneVoiceOne = \relative b' { \clef "treble" \time 3/4 \key c \major \tweak TupletBracket.direction #UP \tuplet 3/2 { b4 b4 b4 } r4 | % 1 b4 _( b4 b4 ) | % 2 \slurDashed b4 ( \slurSolid b4 b4 ) | % 3 b4 ^\< b4 b4 \! | % 4 b4 _\> b4 b4 \! | % 5 b4 \trillTweak "♯" \startTrillSpan b4 ^\ornament "♮" "" "" b4 \stopTrillSpan | % 6 b4 _\startTrillSpan <> \stopTrillSpan r2 | % 7 \ottava #1 b'4 b4 b4 \ottava #0 | % 8 \ottava #-2 b,,,4 b4 b4 \ottava #0 | % 9 \barNumberCheck #10 \tweak edge-height #(make-edge-height 'down 'down) \tweak direction #UP \[ b''4 b4 b4 \] | % 10 \tweak style #'dashed-line \tweak edge-height #(make-edge-height 'down 'down) \tweak direction #DOWN \[ b4 b4 b4 \] | % 11 \tweak edge-height #(make-edge-height 'none 'down) \tweak direction #UP \[ b4 b4 b4 \] | % 12 \tweak style #'dashed-line \tweak edge-height #(make-edge-height 'none 'up) \tweak direction #DOWN \[ b4 b4 b4 \] | % 13 \tweak edge-height #(make-edge-height 'none 'none) \tweak direction #UP \[ b4 b4 b4 \] | % 14 b4 \tweak style #'dashed-line _\startTextSpan b4 b4 \stopTextSpan | % 15 \once \override Glissando.style = #'trill b4 \glissando f'4 r4 | % 16 b,4 \glissando c,4 r4 | % 17 b'4 b4 b4 | % 18 \once \override Beam.gap-count = 2 \repeat tremolo 8 { b32 b32 } r4 | % 19 \barNumberCheck #20 b4 b4 r4 | % 20 b4 b4 r4 | % 21 \set Staff.pedalSustainStyle = #'bracket b4 \sustainOn b4 \sustainOff \sustainOn <> \sustainOff b4 | % 22 \set Staff.pedalSustainStyle = #'text b4 \sustainOn b4 <> \sustainOff b4 \bar "|." } % The score definition \score { << \new Staff = "P1" << \context Staff << \override Staff.BarLine.allow-span-bar = ##f \mergeDifferentlyDottedOn \mergeDifferentlyHeadedOn \context Voice = "PartPOneVoiceOne" { \PartPOneVoiceOne } >> >> >> \layout {} % To create MIDI output, uncomment the following line: % \midi { \tempo 4 = 100 } } % **************************************************************** % end ly snippet % ****************************************************************