LSR: Update.

[lilypond.git] / input / new / customizing-markup-fret-diagrams.ly

diff --git a/input/new/customizing-markup-fret-diagrams.ly b/input/new/customizing-markup-fret-diagrams.ly
new file mode 100644 (file)
index 0000000..c170f84
--- /dev/null
+++ b/input/new/customizing-markup-fret-diagrams.ly
@@ -0,0 +1,90 @@
+\version "2.11.55"
+
+\header {
+  lsrtags = "fretted-strings,tweaks-and-overrides"
+
+  texidoc = "Fret diagram properties can be set through
+@code{fret-diagram-details}.  For markup fret diagrams, overrides
+can be applied to the @code{Voice.TextScript} object or directly
+to the markup.
+"
+  doctitle = "Customizing markup fret diagrams"
+}
+
+<<
+  \chords { c1 c c d }
+  
+  \new Voice = "mel" {
+    \textLengthOn
+    % Set global properties of fret diagram
+    \override Voice.TextScript #'size = #'1.2
+    \override Voice.TextScript #'fret-diagram-details
+                                  #'finger-code = #'in-dot
+    \override Voice.TextScript #'fret-diagram-details
+                                  #'dot-color = #'white
+
+    %% C major for guitar, no barre, using defaults
+       % terse style
+    c'1^\markup { \fret-diagram-terse #"x;3-3;2-2;o;1-1;o;" }
+
+    %% C major for guitar, barred on third fret
+       % verbose style
+       % size 1.0
+       % roman fret label, finger labels below string, straight barre
+    c'1^\markup {
+      % standard size
+      \override #'(size . 1.0) {
+        \override #'(fret-diagram-details . (
+                     (number-type . roman-lower)
+                     (finger-code . in-dot)
+                     (barre-type . straight))) {
+          \fret-diagram-verbose #'((mute 6)
+                                   (place-fret 5 3 1)
+                                   (place-fret 4 5 2)
+                                   (place-fret 3 5 3)
+                                   (place-fret 2 5 4)
+                                   (place-fret 1 3 1)
+                                   (barre 5 1 3))
+        }
+      }
+    }
+
+    %% C major for guitar, barred on third fret
+       % verbose style
+       % landscape orientation, arabic numbers, M for mute string
+       % no barre, fret label down or left, small mute label font
+    c'1^\markup {
+      \override #'(fret-diagram-details . (
+                   (finger-code . below-string)
+                   (number-type . arabic)
+                   (label-dir . -1)
+                   (mute-string . "M")
+                   (orientation . landscape)
+                   (barre-type . none)
+                   (xo-font-magnification . 0.4)
+                   (xo-padding . 0.3))) {
+        \fret-diagram-verbose #'((mute 6)
+                                 (place-fret 5 3 1)
+                                 (place-fret 4 5 2)
+                                 (place-fret 3 5 3)
+                                 (place-fret 2 5 4)
+                                 (place-fret 1 3 1)
+                                 (barre 5 1 3))
+      }
+    }
+
+    %% simple D chord
+       % terse style
+       % larger dots, centered dots, fewer frets
+       % label below string
+    d'1^\markup {
+      \override #'(fret-diagram-details . (
+                   (finger-code . below-string)
+                   (dot-radius . 0.35)
+                   (dot-position . 0.5)
+                   (fret-count . 3))) {
+        \fret-diagram-terse #"x;x;o;2-1;3-2;2-3;"
+      }
+    }
+  }
+>>