input/regression/fret-diagrams.ly

   1 \version "2.11.65"
   2
   3 \paper {
   4         ragged-right =  ##t
   5 }
   6
   7 <<
   8   \chords {a2 a c c  d}
   9
  10   \new Voice =mel {
  11     \textLengthOn
  12     % Set global properties of fret diagram
  13     \override Voice.TextScript #'size = #'1.2
  14     \override Voice.TextScript #'(fret-diagram-details finger-code) = #'below-string
  15     \override Voice.TextScript #'(fret-diagram-details dot-color) = #'black
  16
  17     %% A chord for ukelele
  18     a'2 ^\markup
  19     \override #'(fret-diagram-details . (
  20                   (string-count . 4)
  21                    (dot-color . white)
  22                    (finger-code . in-dot))){
  23                    \fret-diagram #"4-2-2;3-1-1;2-o;1-o;"}
  24    %% A chord for ukelele, with formatting defined in definition string
  25    %  1.2 * size, 4 strings, 4 frets, fingerings below string
  26    %  dot radius .35 of fret spacing, dot position 0.55 of fret spacing
  27     a'2 ^\markup
  28     \override #'(fret-diagram-details . (
  29                   (dot-color . white)
  30                    (open-string . "o"))){
  31                    \fret-diagram #"s:1.2;w:4;h:3;f:2;d:0.35;p:0.55;4-2-2;3-1-1;2-o;1-o;"}
  32      %% C major for guitar, barred on third fret
  33         % verbose style
  34         % roman fret label, finger labels below string, straight barre
  35     c' ^\markup
  36     \override #'(size . 1.1) { % 110% of default size
  37        \override #'(fret-diagram-details . (
  38                      (number-type . roman-lower)
  39                      (finger-code . below-string)
  40                      (barre-type . straight))) {
  41             \fret-diagram-verbose #'((mute 6)
  42                                      (place-fret 5 3 1)
  43                                      (place-fret 4 5 2)
  44                                      (place-fret 3 5 3)
  45                                      (place-fret 2 5 4)
  46                                      (place-fret 1 3 1)
  47                                      (barre 5 1 3)) }}
  48
  49       %% C major for guitar, barred on third fret
  50         % verbose style
  51     c' ^\markup
  52     \override #'(size . 1.1) { % 110% of default size
  53        \override #'(fret-diagram-details . (
  54                      (number-type . arabic)
  55                      (dot-label-font-mag . 0.9)
  56                      (finger-code . in-dot)
  57                      (fret-label-font-mag . 0.6)
  58                      (fret-label-vertical-offset . 0)
  59                      (label-dir . -1)
  60                      (mute-string . "M")
  61                      (orientation . landscape)
  62                      (xo-font-magnification . 0.4)
  63                      (xo-padding . 0.3))) {
  64             \fret-diagram-verbose #'((mute 6)
  65                                      (place-fret 5 3 1)
  66                                      (place-fret 4 5 2)
  67                                      (place-fret 3 5 3)
  68                                      (place-fret 2 5 4)
  69                                      (place-fret 1 3 1)
  70                                      (barre 5 1 3)) }}
  71     %% simple D chord
  72
  73     d' ^\markup
  74         \override #'(fret-diagram-details . (
  75                      (finger-code . below-string)
  76                      (dot-radius . 0.35)
  77                      (dot-position . 0.5)
  78                      (fret-count . 3)))
  79                      {
  80             \fret-diagram-terse #"x;x;o;2-1;3-2;2-3;" }
  81   }
  82 >>