1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
;;;WholeMeasureRepeat
(if (d-Directive-score? "CompactChordChart")
(let ((tag "WholeMeasureRepeat")(timesig (GetPrevailingTimeSig #t)))
(d-InsertWholeRest)
(d-SetDurationInTicks (* 1536 timesig))
(d-DirectivePut-chord-override tag (logior DENEMO_OVERRIDE_LILYPOND DENEMO_OVERRIDE_GRAPHIC DENEMO_ALT_OVERRIDE))
(d-DirectivePut-chord-gy tag 15)
(d-DirectivePut-chord-graphic tag "
𝄎
Denemo
48")
(d-DirectivePut-chord-postfix tag (string-append "s1*" (number->string timesig)
"
-\\tweak #'extra-offset #'(5 . 2)
-\\markup \\scale #'(0.5 . -0.5){
\\translate-scaled #'(4 . 0.5) \\draw-circle #1 #0 ##t
\\translate-scaled #'(-2 . 4) \\beam #4 #-1.5 #2 \\translate-scaled #'(0 . 0.5)
\\draw-circle #1 #0 ##t } "))
(d-SetObjectDisplayWidth 100)
(d-SetSaved #f))
(let ()
(d-WholeMeasureRest)
(d-DirectivePut-chord-gx "WholeMeasureRest" 40)
(d-DirectivePut-chord-gy "WholeMeasureRest" 15)
(d-DirectivePut-chord-display "WholeMeasureRest" (_ "Measure Repeat"))
(d-DirectivePut-chord-graphic "WholeMeasureRest" "
𝄎
Denemo
48")
(d-DirectivePut-score-prefix "WholeMeasureRepeat" "
makePercent =
#(define-music-function (note) (ly:music?)
(make-music 'PercentEvent
'length (ly:music-length note))) ")
(d-DirectivePut-score-override "WholeMeasureRepeat" DENEMO_OVERRIDE_AFFIX)
(d-DirectivePut-chord-prefix "WholeMeasureRepeat" "\\makePercent ")
(d-SetSaved #f)))
|
