Re: Guitar Fret Diagram - scale degree below string

[Klaus Blum]

Hi Harm, 

your code allows using markup where only numbers are allowed - exacly what I
was looking for. 
Thanks a lot for this great discovery. It allows "abusing" LilyPond's
\fret-diagram-verbose for crazy things like this: 
<http://lilypond.1069038.n5.nabble.com/file/n179739/Zwischenablage01.png> 

Cheers, 
Klaus

%----------------------------------------------------------------
\version "2.19.25"

#(define-markup-command (with-flat layout props text)
   (markup?)
   (interpret-markup layout props
     #{
       \markup \concat { \raise #0.3 \fontsize #-3 \flat $text }
     #}))

#(define-markup-command (with-sharp layout props text)
   (markup?)
   (interpret-markup layout props
     #{
       \markup \concat { \raise #0.5 \fontsize #-3 \sharp $text }
     #}))

#(define-markup-command (flat-after layout props text)
   (markup?)
   (interpret-markup layout props
     #{
       \markup \concat { $text \raise #0.3 \fontsize #-3 \flat }
     #}))

#(define-markup-command (sharp-after layout props text)
   (markup?)
   (interpret-markup layout props
     #{
       \markup \concat { $text \raise #0.5 \fontsize #-3 \sharp }
     #}))

#(define-markup-command (custom-fretboard layout props places)
   (list?)
   (interpret-markup layout props
     #{
       \markup {
  \override #'(size . 3)
  \override #'(align-dir . -1)
  \override #'(fret-diagram-details .
                (
                  (dot-color . grey40)
                  (finger-code . in-dot)
                  (barre-type . straight)
                  (orientation . landscape)
                  (string-count . 4)
                  (dot-radius . 0.35)
                  ;; "open" and "mute" will be abused to display first and
last string name:
                  (open-string . "E")
                  (mute-string . "G")
                  (xo-font-magnification . 0.25)
                  ))
  \fret-diagram-verbose $places
}
     #}))

\markup { \concat {Fm \super maj7} Chord on the bass guitar: }
\markup \vspace #0.5
\markup {
  \custom-fretboard #`
  (
   (barre 2.5 2.5 3)
   (barre 2.5 2.5 5)
   (barre 2.5 2.5 7)
   (barre 2.5 2.5 9)
   (barre 1.5 1.5 12)
   (barre 3.5 3.5 12)
   (barre 2.5 2.5 15)
   (barre 2.5 2.5 17)
   (barre 2.5 2.5 19)
   (barre 2.5 2.5 21)
   (barre 1.5 1.5 24)
   (barre 3.5 3.5 24)
   (open 4)
   (mute 1)
   (place-fret 4 1 ,#{ \markup 1 #})
   (place-fret 4 4 ,#{ \markup \with-flat 3 #})
   (place-fret 4 8 ,#{ \markup 5 #})
   (place-fret 4 12 ,#{ \markup \with-sharp 7 #})
   (place-fret 4 13 ,#{ \markup 1 #})
   (place-fret 4 16 ,#{ \markup \with-flat 3 #})
   (place-fret 4 20 ,#{ \markup 5 #})
   (place-fret 4 24 ,#{ \markup \with-sharp 7 #})
   (place-fret 3 3 ,#{ \markup 5 #})
   (place-fret 3 7 ,#{ \markup \with-sharp 7 #})
   (place-fret 3 8 ,#{ \markup 1 #})
   (place-fret 3 11 ,#{ \markup \with-flat 3 #})
   (place-fret 3 15 ,#{ \markup 5 #})
   (place-fret 3 19 ,#{ \markup \with-sharp 7 #})
   (place-fret 3 20 ,#{ \markup 1 #})
   (place-fret 3 23 ,#{ \markup \with-flat 3 #})
   (place-fret 2 2 ,#{ \markup \with-sharp 7 #})
   (place-fret 2 3 ,#{ \markup 1 #})
   (place-fret 2 6 ,#{ \markup \with-flat 3 #})
   (place-fret 2 10 ,#{ \markup 5 #})
   (place-fret 2 14 ,#{ \markup \with-sharp 7 #})
   (place-fret 2 15 ,#{ \markup 1 #})
   (place-fret 2 18 ,#{ \markup \with-flat 3 #})
   (place-fret 2 22 ,#{ \markup 5 #})
   (place-fret 1 1 ,#{ \markup \with-flat 3 #})
   (place-fret 1 5 ,#{ \markup 5 #})
   (place-fret 1 9 ,#{ \markup \with-sharp 7 #})
   (place-fret 1 10 ,#{ \markup 1 #})
   (place-fret 1 13 ,#{ \markup \with-flat 3 #})
   (place-fret 1 17 ,#{ \markup 5 #})
   (place-fret 1 21 ,#{ \markup \with-sharp 7 #})
   (place-fret 1 22 ,#{ \markup 1 #})
   )
}

\markup \vspace #0.5

\markup {
  \custom-fretboard #`
  (
   (barre 2.5 2.5 3)
   (barre 2.5 2.5 5)
   (barre 2.5 2.5 7)
   (barre 2.5 2.5 9)
   (barre 1.5 1.5 12)
   (barre 3.5 3.5 12)
   (barre 2.5 2.5 15)
   (barre 2.5 2.5 17)
   (barre 2.5 2.5 19)
   (barre 2.5 2.5 21)
   (barre 1.5 1.5 24)
   (barre 3.5 3.5 24)
   (open 4)
   (mute 1)
   (place-fret 4 1 ,#{ \markup F #})
   (place-fret 4 4 ,#{ \markup \flat-after A #})
   (place-fret 4 8 ,#{ \markup C #})
   (place-fret 4 12 ,#{ \markup E #})
   (place-fret 4 13 ,#{ \markup F #})
   (place-fret 4 16 ,#{ \markup \flat-after A #})
   (place-fret 4 20 ,#{ \markup C #})
   (place-fret 4 24 ,#{ \markup E #})
   (place-fret 3 3 ,#{ \markup C #})
   (place-fret 3 7 ,#{ \markup E #})
   (place-fret 3 8 ,#{ \markup F #})
   (place-fret 3 11 ,#{ \markup \flat-after A #})
   (place-fret 3 15 ,#{ \markup C #})
   (place-fret 3 19 ,#{ \markup E #})
   (place-fret 3 20 ,#{ \markup F #})
   (place-fret 3 23 ,#{ \markup \flat-after A #})
   (place-fret 2 2 ,#{ \markup E #})
   (place-fret 2 3 ,#{ \markup F #})
   (place-fret 2 6 ,#{ \markup \flat-after A #})
   (place-fret 2 10 ,#{ \markup C #})
   (place-fret 2 14 ,#{ \markup E #})
   (place-fret 2 15 ,#{ \markup F #})
   (place-fret 2 18 ,#{ \markup \flat-after A #})
   (place-fret 2 22 ,#{ \markup C #})
   (place-fret 1 1 ,#{ \markup \flat-after A #})
   (place-fret 1 5 ,#{ \markup C #})
   (place-fret 1 9 ,#{ \markup E #})
   (place-fret 1 10 ,#{ \markup F #})
   (place-fret 1 13 ,#{ \markup \flat-after A #})
   (place-fret 1 17 ,#{ \markup C #})
   (place-fret 1 21 ,#{ \markup E #})
   (place-fret 1 22 ,#{ \markup F #})
   )
}
%----------------------------------------------------------------



--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/Guitar-Fret-Diagram-scale-degree-below-string-tp179664p179739.html
Sent from the User mailing list archive at Nabble.com.