input/regression/fret-diagrams.ly

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