input/regression/fret-diagrams.ly

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