Hi Morten,

On Sat, Jan 14, 2012 at 11:42 AM, Morten Jagd Christensen <
morte...@jcaps.com> 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
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to