1 #(define-markup-command (characteri paper props name) (markup?)
2 (interpret-markup paper props
3 (markup #:larger #:smallCaps name)))
5 #(define-markup-command (character paper props name) (markup?)
6 (interpret-markup paper props
7 (markup #:null #:translate (cons -4 1) #:characteri name)))
9 #(define-markup-command (character-text paper props name text) (markup? markup?)
10 (interpret-markup paper props
11 (markup #:null #:translate (cons -4 1)
12 #:line (#:characteri name #:italic text))))
14 #(define-markup-command (character-text-col paper props name text) (markup? markup?)
15 (interpret-markup paper props
16 (markup #:null #:translate (cons -4 0)
17 #:column (#:characteri name
18 #:line (#:null #:translate (cons 4 0) text)))))
20 #(define-public (make-character-mark clefs name)
21 (if (string=? clefs "")
22 #{ s1*0 ^\markup \character $name #}
23 #{ << { \set Staff.forceClef = ##t \clef #clefs
24 \once \override Staff . Clef #'full-size-change = ##t }
25 s1*0 ^\markup \character $name >> #}))
27 #(define-public (make-character-mark-text clefs name text)
28 (if (string=? clefs "")
29 #{ s1*0 ^\markup \character-text $name $text #}
30 #{ << { \set Staff.forceClef = ##t \clef #clefs
31 \once \override Staff . Clef #'full-size-change = ##t }
32 s1*0 ^\markup \character-text $name $text >> #}))
34 #(define-public (make-character-mark-text-col clefs name text)
35 (if (string=? clefs "")
36 #{ s1*0 ^\markup \character-text-col $name $text #}
37 #{ << { \set Staff.forceClef = ##t \clef #clefs
38 \once \override Staff . Clef #'full-size-change = ##t }
39 s1*0 ^\markup \character-text-col $name $text >> #}))
43 \once \override Score . RehearsalMark #'break-visibility = #end-of-line-invisible
44 \once \override Score . RehearsalMark #'direction = #UP
45 \once \override Score . RehearsalMark #'self-alignment-X = #LEFT
46 \once \override Score . RehearsalMark #'padding = #3
50 \once \override Score . RehearsalMark #'break-visibility = #end-of-line-invisible
51 \once \override Score . RehearsalMark #'direction = #DOWN
52 \once \override Score . RehearsalMark #'self-alignment-X = #LEFT
53 \once \override Score . RehearsalMark #'padding = #3
57 \once \override Score . RehearsalMark #'break-visibility = #begin-of-line-invisible
58 \once \override Score . RehearsalMark #'direction = #DOWN
59 \once \override Score . RehearsalMark #'self-alignment-X = #RIGHT
60 \once \override Score . RehearsalMark #'padding = #3
63 \once \override Score . RehearsalMark #'break-visibility = #end-of-line-invisible
64 \once \override Score . RehearsalMark #'direction = #UP
65 \once \override Score . RehearsalMark #'self-alignment-X = #CENTER
66 \mark \markup \musicglyph #"scripts.segno"
69 \once \override Score . RehearsalMark #'break-visibility = #end-of-line-invisible
70 \once \override Score . RehearsalMark #'direction = #DOWN
71 \once \override Score . RehearsalMark #'self-alignment-X = #CENTER
72 \mark \markup \musicglyph #"scripts.segno"
75 \once \override Score . RehearsalMark #'break-visibility = #begin-of-line-invisible
76 \once \override Score . RehearsalMark #'direction = #UP
77 \once \override Score . RehearsalMark #'self-alignment-X = #CENTER
78 \mark \markup \musicglyph #"scripts.segno"
81 \once \override Score . RehearsalMark #'break-visibility = #begin-of-line-invisible
82 \once \override Score . RehearsalMark #'direction = #DOWN
83 \once \override Score . RehearsalMark #'self-alignment-X = #CENTER
84 \mark \markup \musicglyph #"scripts.segno"
88 \once \override Score . RehearsalMark #'break-visibility = #begin-of-line-invisible
89 \once \override Score . RehearsalMark #'direction = #DOWN
90 \once \override Score . RehearsalMark #'self-alignment-X = #RIGHT
91 \once \override Score . RehearsalMark #'padding = #2
95 #(define-music-function (parser location text) (markup?)
96 #{ \dacapoOverrides\mark\markup\right-align\italic $text #})
99 \dacapoOverrides \mark \markup \right-align \italic Fin.
103 \dacapoOverrides \mark \markup \right-align \italic "Dal Segno."
107 \dacapoOverrides \mark \markup \right-align \italic "Da Capo."
111 #(define-music-function (parser location text) (markup?)
114 \mark \markup \column \right-align { \italic "Da Capo." $text }
118 #(define-music-function (parser location text) (markup?)
121 \mark \markup \column \right-align { \italic "Dal Segno." $text }
125 #(define-music-function (parser location text) (markup?)
128 \mark \markup \column \right-align { \italic "Fin." $text }