Perché R1*2 non funziona in questo file?
--
oiram/bin/selom
cofon ={\cadenzaOff \bar "|"\cadenzaOn}
cofn ={\cadenzaOff \bar "|"\cadenzaOn}
snu = { \set stringNumberOrientations = #'(up) }
snd = { \set stringNumberOrientations = #'(down) }
snl = { \set stringNumberOrientations = #'(left) }
snr = { \set stringNumberOrientations = #'(right)}
fou = { \set fingeringOrientations = #'(up) }
fod = { \set fingeringOrientations = #'(down) }
fol = { \set fingeringOrientations = #'(left) }
for = { \set fingeringOrientations = #'(right) }
gt = \override Glissando #'breakable = ##T
gl = \glissando
gT = \override Glissando #'thickness = #2
ignore = \override NoteColumn #'ignore-collision = ##t
\version "2.12.1"
% \paper{
% #(set-paper-size "a4")
% bottom-margin = 1.2\cm
% top-margin = 0.4\cm
% ragged-last-bottom = ##f
% ragged-bottom = ##f
% between-system-space = 5\cm
% %{between-system-padding = #5%}
% }
\layout {
indent = 0.5\cm
}
#(set-global-staff-size 26)
#(define (calc-custom-stroke-text grob)
(let ((text (ly:event-property (event-cause grob) 'text)))
(if (string? text)
(markup #:center-column (#:lower 2.5 "^" text))
(stroke-finger::calc-text grob))))
#(define (make-stroke-finger location finger)
(apply make-music
(append
(list
'StrokeFingerEvent
'origin location)
(if (string? finger)
(list 'text finger)
(list 'digit finger)))))
da = #(define-music-function (parser location) ()
(make-stroke-finger location "a"))
dm = #(define-music-function (parser location) ()
(make-stroke-finger location "m"))
di = #(define-music-function (parser location) ()
(make-stroke-finger location "i"))
dp = #(define-music-function (parser location) ()
(make-stroke-finger location "p"))
dan = #(define-music-function (parser location) ()
(make-stroke-finger location 4))
dmn = #(define-music-function (parser location) ()
(make-stroke-finger location 3))
din = #(define-music-function (parser location) ()
(make-stroke-finger location 2))
dpn = #(define-music-function (parser location) ()
(make-stroke-finger location 1))
\new Staff
% laPiccoloQuaglia =
<<
\new Voice
\relative c'
{ \clef "G_8"
\key c \major
\time 4/4
\set strokeFingerOrientations = #'(up)
\override StrokeFinger #'avoid-slur = #'inside
\override StrokeFinger #'add-stem-support = ##t
\override StrokeFinger #'font-size = #0
\override StrokeFinger #'text = #calc-custom-stroke-text
%{ \once \override Staff.TimeSignature #'stencil = ##f%}
\override StringNumber #'staff-padding = #'()
\fol \snd
\voiceOne
\override Slur #'height-limit = #4
% \set Score.defaultBarType = #"empty"
%1 rigo
R1*3
<g-\di>2 <b-\dm> <a-2-\di> <d-3-\dm> <c-1-\di>4 <b-0-\dm> <a-2-\di>
<g-\dm> <a-\di>2 <d-3-\dm> \break
<g,-\di> <b-\dm> <a-2-\di> <c-1-\dm> <d-3-\di>4
<c-1-\dm> <b-\di> <a-2-\dm> <g-\da>1 \bar ":|"
}
>>
_______________________________________________
lilypond-user mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-user
