No problem, hope it does what you need. Stephen
On Tue, May 5, 2015 at 9:13 AM, pls <p.l.schm...@gmx.de> wrote: > Thanks! > On 05.05.2015, at 14:21, Stephen MacNeil <classicalja...@gmail.com> wrote: > > Hi patrick, > > This is the workaround I used to create fret-diagrams with a thumb. > > http://mglessons.com/lilypond/fret-diagram.ly > http://mglessons.com/lilypond/fret-diagram.pdf > > HTH > Stephen > > %%%%%%%%%% cut > > #(define-public (stack-stencil-overlay stencils) > "Recursive function to add stencils together" > (if (and (pair? stencils) > (ly:stencil? (car stencils))) > > (if (and (pair? (cdr stencils)) > (ly:stencil? (cadr stencils))) > (let ((tail (stack-stencil-overlay (cdr stencils))) > (head (car stencils))) > (ly:stencil-add head tail)) > (car stencils)) > point-stencil)) > > #(define-markup-command (overlay layout props args) > (markup-list?) > "Overlay arguments one on top of the next" > (let ((stencils (interpret-markup-list layout props args))) > (stack-stencil-overlay > (remove ly:stencil-empty? stencils)))) > > % use this under title > > > chordTilte = \markup \fill-line { > \concat{ > > %% chord 1 > \override #'(size . .7) \override #'(fret-diagram-details . ((finger-code > . below-string) > (dot-radius . 0.35) > (number-type . roman-lower) > (finger-code . below-string) > (fret-count . 3))) > \halign #-.72 > \raise #0 \pad-around #.2 { > \center-column\text { > \halign #-13 \fontsize #-2.5 { > Am > } > \vspace #-.6 > \fret-diagram #"6-x;5-o;4-2-2;3-2-3;2-1-1;1-o;" > } > } > %%%%%%%% > > %% chord 2 > %%%%%%%%%%%%% > > \override #'(size . .7)\override #'(fret-diagram-details . ((finger-code . > below-string) > (dot-radius . 0.35) > (number-type . roman-lower) > (finger-code . below-string) > (fret-count . 3))) > \halign #-.72 > \raise #0 \pad-around #.2 { > \center-column\text { > \halign #-13 \fontsize #-2.5 { > F > } > \vspace #-.6 > \concat{ \fret-diagram #"c:6-1-0;6-1-1;5-3-3;4-3-4;3-2-2;2-1-1;1-1-1;" > } > } > } > > > %% chord 3 > \override #'(size . .7)\override #'(fret-diagram-details . ((finger-code . > below-string) > (dot-radius . 0.35) > (number-type . roman-lower) > (finger-code . below-string) > (fret-count . 3))) > \halign #-.72 > \raise #0 \pad-around #.2 { > \center-column\text { > \halign #-13 \fontsize #-2.5 { > C > } > \vspace #-.6 > \fret-diagram-terse #"x;3-3;2-2;o;1-1;o;" > } > } > > %% > %% chord 4 > %%%%%%%%%%%%% > \overlay { > > \overlay { > \translate #'(-.4 . -1.15) \lower #3.75 \finger \fontsize #-8 T > \override #'(size . .7)\override #'(fret-diagram-details . ((finger-code . > below-string) > (dot-radius . 0.35) > (number-type . roman-lower) > (finger-code . below-string) > (fret-count . 3))) > \halign #-.72 > \raise #0 \pad-around #.2 { > \center-column\text { > \halign #-13 \fontsize #-2.5 { > \concat { F \fontsize #-2.5 { maj\fontsize #1.5 7 }} > } > \vspace #-.6 > \concat{ \fret-diagram #"6-1;5-3-3;4-3-4;3-2-2;2-1-1;1-o;" > } > } > } > } > } > > %%%% > \override #'(size . .7) \override #'(fret-diagram-details . ((finger-code > . below-string) > (dot-radius . 0.35) > (number-type . roman-lower) > (finger-code . below-string) > (fret-count . 3))) > \halign #-.72 > \raise #0 \pad-around #.2 { > \center-column\text { > \halign #-13 \fontsize #-2.5 { > \concat { G \fontsize #-2.5 {\fontsize #1.5 7 }} > } > \vspace #-.6 > \fret-diagram #"6-3-3;5-2-2;4-o;3-o;2-o;1-1-1;" > } > } > %% > \override #'(size . .7) \override #'(fret-diagram-details . ((finger-code > . below-string) > (dot-radius . 0.35) > (number-type . roman-lower) > (finger-code . below-string) > (fret-count . 3))) > \halign #-.72 > \raise #0 \pad-around #.2 { > \center-column\text { > \halign #-13 \fontsize #-2.5 { > \concat { C \fontsize #-2.5 {" "\super "ver. 2" }} > } > \vspace #-.6 > \fret-diagram #"6-x;5-3-3;4-2-2;3-o;2-1-1;1-3-4;" > } > } > %%%%%% > \override #'(size . .7) \override #'(fret-diagram-details . ((finger-code > . below-string) > (dot-radius . 0.35) > (number-type . arabic) > (finger-code . below-string) > (fret-count . 3))) > \halign #-.72 > \raise #0 \pad-around #.2 { > \center-column\text { > \halign #-13 \fontsize #-2.5 { > % \concat { F \fontsize #-2.5 {\fontsize #1.5 7/D\super "no 3rd" }} > \concat { Dm \fontsize #-2.5 {\fontsize #1.5 9}} > } > \vspace #-.6 > \fret-diagram #"6-x;5-x;4-o;3-5-1;2-6-3;1-o;" > } > } > %%%%%% > %%%%%% > \override #'(size . .7) \override #'(fret-diagram-details . ((finger-code > . below-string) > (dot-radius . 0.35) > (number-type . arabic) > (finger-code . below-string) > (fret-count . 3))) > \halign #-.72 > \raise #0 \pad-around #.2 { > \center-column\text { > \halign #-13 \fontsize #-2.5 { > Dm > } > \vspace #-.6 > \fret-diagram #"6-x;5-x;4-o;3-2-1;2-3-3;1-1-1;" > } > } > %%%%%% > } > } > \header { > title = "Song Title with markup" > subtitle = \markup \raise #1 \fontsize #-4.2 "Words and music by ...." > copyright = \markup \fontsize #-2.2 "©1669, Some One ." > % subtitle = "" > tagline = ##f > } > \markup {\chordTilte } > > % Use as markup > > %%%%%%%%%%%%% > chordWithThumb = \markup \overlay { > > \overlay { > \translate #'(-.4 . -1.15) \lower #3.75 \finger \fontsize #-8 T > \override #'(size . .7)\override #'(fret-diagram-details . ((finger-code . > below-string) > (dot-radius . 0.35) > (number-type . roman-lower) > (finger-code . below-string) > (fret-count . 3))) > \halign #-.72 > \raise #0 \pad-around #.2 { > \center-column\text { > \halign #-13 \fontsize #-2.5 { > \concat { F \fontsize #-2.5 { maj\fontsize #1.5 7 }} > } > \vspace #-.6 > \concat{ \fret-diagram #"6-1;5-3-3;4-3-4;3-2-2;2-1-1;1-o;" > } > } > } > } > } > \markup {\vspace #1.3 } > %%%% > \relative c'{ > c^\chordWithThumb d e f^"as a markup in a song" > } > > _______________________________________________ > lilypond-user mailing list > lilypond-user@gnu.org > https://lists.gnu.org/mailman/listinfo/lilypond-user > > >
_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user
