%======================== \version "2.13.12"
P = #(define-music-function (parser location) () (apply make-music (append (list 'StrokeFingerEvent 'origin location) (list 'digit 1)))) I = #(define-music-function (parser location) () (apply make-music (append (list 'StrokeFingerEvent 'origin location) (list 'digit 2)))) M = #(define-music-function (parser location) () (apply make-music (append (list 'StrokeFingerEvent 'origin location) (list 'digit 3)))) A = #(define-music-function (parser location) () (apply make-music (append (list 'StrokeFingerEvent 'origin location) (list 'digit 4)))) \new Staff \relative c'' { \key c \major \time 3/4 << { \set strokeFingerOrientations = #'(up) \override StrokeFinger #'add-stem-support = ##t<e c g>4 r16 <d-\A > <c-\I -\A > <b-\A > <a-\I -\M > <g-\M > <fis-\I >32 <g-\M > <e-\I >16 |
} \\ \\ { s4. \autoBeamOff e8 e s | } \\ { \set strokeFingerOrientations = #'(down) \override StrokeFinger #'add-stem-support = ##t <c-\P >8[ <c-\P >] <c-\P >[ <c-\P >] <c-\P > <c-\P > | } >> } %======================== Nick
<<attachment: voices.preview.png>>
_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org http://lists.gnu.org/mailman/listinfo/lilypond-user