On Sat, Jan 14, 2012 at 11:42 AM, Morten Jagd Christensen
<address@hidden> wrote:
Hi all
Im writing a small sceme function to be able to create examples
of guitar fingerings
for various scales.
basically i create a music function "fretsc" to be called for
example as
\fretsc "(6 1) (6 3) (5 0)" to indicate the position and
sequence of notes in a scale.
The input syntax is different, but does the following do what you want?
\version "2.14.0"
#(define-markup-command (fretsc layout props arg) (list?)
(interpret-markup layout props
(markup
(#:override '(fret-diagram-details
. (
(finger-code . in-dot)
(number-type . arabic)
(label-dir . -1)
(orientation . landscape)
(dot-radius . 0.5)
(fret-count . 5)
(top-fret-thickness . 5)
(barre-type . straight)
(xo-padding . 0.3)))
#:fret-diagram-verbose
(map (lambda (x) (append (list 'place-fret) x)) arg)))))
\score {
\new Staff {
\relative c' {
a'^\markup \fretsc #'((5 3 1) (4 5 2) (3 5 3) (2 5 4) (1 3 5) (1 4 6))
}
}
}
HTH,
David