input/lsr/guitar/fret-diagrams.ly

   1 %%  Do not edit this file; it is auto-generated from LSR!
   2 \version "2.11.23"
   3
   4 \header { texidoc = "
   5 This snippets shows many possibilities for obtaining and tweaking fret
   6 diagrams.
   7 " }
   8
   9 \paper {
  10
  11   %% stretch to prevent diagrams from colliding.
  12   line-width = 18.0 \cm
  13 }
  14
  15
  16 <<
  17   \chords {s2 c c c d}
  18
  19   \new Voice =mel {
  20
  21     %% A chord for ukelele
  22     a'2 ^\markup
  23     \override #'(string-count . 4) {
  24       \override #'(dot-color . white) {
  25         \fret-diagram #"4-2-2;3-1-1;2-o;1-o;"}}
  26
  27     %% C major for guitar, barred on third fret
  28     c' ^\markup
  29     \override #'(number-type . roman-lower) {  % lower-case roman numeral fret label
  30       \override #'(size . 1.1) {                  % 110% of default size
  31         \override #'(finger-code . below-string) {  % string labels below strings
  32           \override #'(barre-type . straight) {       % straight barre
  33             \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)) }}}}
  34     %% C major for guitar, barred on third fret
  35     c' ^\markup
  36     \override #'(number-type . arabic) {  % lower-case roman numeral fret label
  37       \override #'(dot-color . white) {     % white dots
  38         \override #'(finger-code . in-dot) {  % string labels in dots
  39           \override #'(barre-type . curved) {       % straight barre
  40             \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)) }}}}
  41     %% C major for guitar, barred on third fret
  42     c' ^\markup
  43     \override #'(number-type . roman-upper) {  % upper-case roman numeral fret label
  44       \override #'(label-dir . -1) {            % label fret at left side of diagram
  45         \override #'(finger-code . in-dot) {        % string labels in dots
  46           \override #'(barre-type . curved) {         % curved barre
  47             \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)) }}}}
  48
  49     %% simple D chord
  50
  51     d' ^\markup
  52     \override #'(finger-code . below-string) {
  53       \override #'(dot-radius . 0.35) {
  54         \override #'(dot-position . 0.5) {
  55           \override #'(fret-count . 5) {
  56             \fret-diagram-terse #"x;x;o;2-1;3-2;2-3;" }}}}
  57
  58   }
  59 >>