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 lilypond-user@gnu.org http://lists.gnu.org/mailman/listinfo/lilypond-user