|
From: | Stephen MacNeil |
Subject: | Re: Thumb in fret-diagram |
Date: | Tue, 5 May 2015 09:23:25 -0400 |
Thanks!On 05.05.2015, at 14:21, Stephen MacNeil <address@hidden> wrote:_______________________________________________%%%%%%%%%% cutStephenHTHHi 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#(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 titlechordTilte = \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
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user
[Prev in Thread] | Current Thread | [Next in Thread] |