1 #(define-markup-command (characteri paper props name)
5 #{ \markup\larger\smallCaps $name #}))
7 #(define-markup-command (character paper props name)
11 #{ \markup\translate #'(-1 . 1) \characteri $name #}))
13 #(define-markup-command (character-text paper props name text)
17 #{ \markup\translate #'(-1 . 1) \line {
18 \characteri $name \italic $text } #}))
20 #(define-markup-command (character-text-col paper props name text)
24 #{ \markup\translate #'(-4 . 0) \column {
25 \characteri $name \translate #'(4 . 0) $text } #}))
27 #(define-public (make-character-mark clefs name)
28 (if (string=? clefs "")
29 #{ <>^\markup\character $name #}
30 #{ << { \set Staff.forceClef = ##t \clef #clefs
31 \once\override Staff.Clef.full-size-change = ##t }
32 <>^\markup\character $name >> #}))
34 #(define-public (make-character-mark-text clefs name text)
35 (if (string=? clefs "")
36 #{ <>^\markup\character-text $name $text #}
37 #{ << { \set Staff.forceClef = ##t \clef #clefs
38 \once\override Staff.Clef.full-size-change = ##t }
39 <>^\markup\character-text $name $text >> #}))
41 #(define-public (make-character-mark-text-col clefs name text)
42 (if (string=? clefs "")
43 #{ <>^\markup\character-text-col $name $text #}
44 #{ << { \set Staff.forceClef = ##t \clef #clefs
45 \once\override Staff.Clef.full-size-change = ##t }
46 <> ^\markup\character-text-col $name $text >> #}))
50 \once\override Score.RehearsalMark.break-visibility =
51 #end-of-line-invisible
52 \once\override Score.RehearsalMark.direction = #UP
53 \once\override Score.RehearsalMark.self-alignment-X = #LEFT
54 \once\override Score.RehearsalMark.padding = #2
58 \once\override Score.RehearsalMark.break-visibility =
59 #end-of-line-invisible
60 \once\override Score.RehearsalMark.direction = #DOWN
61 \once\override Score.RehearsalMark.self-alignment-X = #LEFT
62 \once\override Score.RehearsalMark.padding = #2
66 \once\override Score.RehearsalMark.break-visibility =
67 #begin-of-line-invisible
68 \once\override Score.RehearsalMark.direction = #DOWN
69 \once\override Score.RehearsalMark.self-alignment-X = #RIGHT
70 \once\override Score.RehearsalMark.padding = #2
73 \once\override Score.RehearsalMark.break-visibility =
74 #end-of-line-invisible
75 \once\override Score.RehearsalMark.direction = #UP
76 \once\override Score.RehearsalMark.self-alignment-X = #CENTER
77 \mark \markup \musicglyph #"scripts.segno"
80 \once\override Score.RehearsalMark.break-visibility =
81 #end-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"
87 \once\override Score.RehearsalMark.break-visibility =
88 #begin-of-line-invisible
89 \once\override Score.RehearsalMark.direction = #UP
90 \once\override Score.RehearsalMark.self-alignment-X = #CENTER
91 \mark \markup \musicglyph #"scripts.segno"
94 \once\override Score.RehearsalMark.break-visibility =
95 #begin-of-line-invisible
96 \once\override Score.RehearsalMark.direction = #DOWN
97 \once\override Score.RehearsalMark.self-alignment-X = #CENTER
98 \mark \markup \musicglyph #"scripts.segno"
102 \once\override Score.RehearsalMark.break-visibility =
103 #begin-of-line-invisible
104 \once\override Score.RehearsalMark.direction = #DOWN
105 \once\override Score.RehearsalMark.self-alignment-X = #RIGHT
106 \once\override Score.RehearsalMark.padding = #2
110 #(define-music-function (parser location text) (markup?)
111 #{ \dacapoOverrides\mark\markup\right-align\italic $text #})
114 #(define-music-function (parser location text) (markup?)
115 #{ \markUpBegin\mark\markup $text #})
118 #(define-music-function (parser location text) (markup?)
120 \once\override Score.RehearsalMark.break-visibility =
121 #end-of-line-invisible
122 \once\override Score.RehearsalMark.direction = #DOWN
123 \once\override Score.RehearsalMark.self-alignment-X = #LEFT
124 \mark\markup $text #})
127 \dacapoOverrides \mark \markup \right-align \italic Fin.
131 \dacapoOverrides \mark \markup \right-align \italic "Dal Segno."
135 \dacapoOverrides \mark \markup \right-align \italic "Da Capo."
139 #(define-music-function (parser location text) (markup?)
142 \mark \markup \column \right-align { \italic "Da Capo." $text }
146 #(define-music-function (parser location text) (markup?)
149 \mark \markup \column \right-align { \italic "Dal Segno." $text }
153 #(define-music-function (parser location text) (markup?)
156 \mark \markup \column \right-align { \italic "Fin." $text }