[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Note Exercise, Guitar
From: |
Thomas Morley |
Subject: |
Re: Note Exercise, Guitar |
Date: |
Mon, 18 Feb 2013 03:09:47 +0100 |
2013/2/18 pabuhr <address@hidden>:
> I tried to create a macro, "Fred", to replace the many
> repeated lines, but was unsuccessful. Suggestions on how to make it work?
Quit concise:
\version "2.16.1"
underscore =
\markup \combine \with-color #white "|" "_"
Fred =
#(define-music-function (parser location name times) (string? list?)
$(make-sequential-music
(map
(lambda (tms)
#{
\lyricmode {
\set stanza = \markup \fontsize #-2 $name
\repeat unfold $tms \underscore
}
#})
times)))
notes = \Fred "Note" #'(6 17 16 16 16) % list of notes per line
fretno = \Fred "Fret" #'(6 17 16 16 16) % list of notes per line
HTH,
Harm