ly/predefined-guitar-fretboards.ly

   1 %%%% This file is part of LilyPond, the GNU music typesetter.
   2 %%%%
   3 %%%% Copyright (C) 2008--2010 Carl D. Sorensen <c_sorensen@byu.edu>
   4 %%%%
   5 %%%% LilyPond is free software: you can redistribute it and/or modify
   6 %%%% it under the terms of the GNU General Public License as published by
   7 %%%% the Free Software Foundation, either version 3 of the License, or
   8 %%%% (at your option) any later version.
   9 %%%%
  10 %%%% LilyPond is distributed in the hope that it will be useful,
  11 %%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 %%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 %%%% GNU General Public License for more details.
  14 %%%%
  15 %%%% You should have received a copy of the GNU General Public License
  16 %%%% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
  17
  18 % chord definitions require default pitchnames
  19 #(define prev-pitchnames pitchnames)
  20 #(set! pitchnames default-language)
  21
  22 \include "predefined-guitar-ninth-fretboards.ly"
  23
  24 %%%  Add basic chordshapes
  25
  26 \version "2.13.36"
  27
  28 \addChordShape #'f #guitar-tuning #"1-1-(;3-3;3-4;2-2;1-1;1-1-);"
  29 \addChordShape #'f:m #guitar-tuning #"1-1-(;3-3;3-4;1-1;1-1;1-1-);"
  30 \addChordShape #'f:7 #guitar-tuning #"1-1-(;3-3;1-1;2-2;1-1;1-1-);"
  31 \addChordShape #'f:m7 #guitar-tuning #"1-1-(;3-3;1-1;1-1;1-1;1-1-);"
  32 \addChordShape #'bes #guitar-tuning #"x;1-1-(;3-2;3-3;3-4;1-1-);"
  33 \addChordShape #'bes:m #guitar-tuning #"x;1-1-(;3-3;3-4;2-2;1-1-);"
  34 \addChordShape #'bes:m7 #guitar-tuning #"x;1-1-(;3-3;1-1;2-2;1-1-);"
  35 \addChordShape #'bes:7 #guitar-tuning #"x;1-1-(;3-2;1-1;3-3;1-1-);"
  36 \addChordShape #'bes:maj7 #guitar-tuning #"x;1-1;3-3;2-2;3-4;x;"
  37 \addChordShape #'c:dim #guitar-tuning #"x;x;1-1;2-3;1-2;2-4;"
  38 \addChordShape #'c:aug #guitar-tuning #"x;x;2-2;1-1-(;1-1-);4-4;"
  39 \addChordShape #'cis #guitar-tuning #"x;x;3-3;1-1-(;2-2;1-1-);"
  40 \addChordShape #'ees:dim #guitar-tuning #"x;x;1-1;2-3;1-2;2-4;"
  41 \addChordShape #'a:dim #guitar-tuning #"x;x;1-1;2-3;1-2;2-4;"
  42
  43 %%%  Add predefined chords
  44
  45 % definitions of predefined diagrams below here
  46
  47 %%%%  c chords
  48 %
  49 \storePredefinedDiagram #default-fret-table \chordmode {c}
  50                         #guitar-tuning
  51                         #"x;3-3;2-2;o;1-1;o;"
  52 \storePredefinedDiagram #default-fret-table \chordmode {c:m}
  53                         #guitar-tuning
  54                         #(offset-fret 2 (chord-shape 'bes:m guitar-tuning))
  55 \storePredefinedDiagram #default-fret-table \chordmode {c:aug}
  56                         #guitar-tuning
  57                         #(chord-shape 'c:aug guitar-tuning)
  58 \storePredefinedDiagram #default-fret-table \chordmode {c:dim}
  59                         #guitar-tuning
  60                         #(chord-shape 'c:dim guitar-tuning)
  61 \storePredefinedDiagram #default-fret-table \chordmode {c:7}
  62                         #guitar-tuning
  63                         #"o;3-3;2-2;3-4;1-1;o;"
  64 \storePredefinedDiagram #default-fret-table \chordmode {c:maj7}
  65                         #guitar-tuning
  66                         #"x;3-3;2-2;o;o;o;"
  67 \storePredefinedDiagram #default-fret-table \chordmode {c:m7}
  68                         #guitar-tuning
  69                         #(offset-fret 2 (chord-shape 'bes:m7 guitar-tuning))
  70
  71 %%%%  cis chords
  72 %
  73 \storePredefinedDiagram #default-fret-table \chordmode {cis}
  74                         #guitar-tuning
  75                         #(chord-shape 'cis guitar-tuning)
  76 \storePredefinedDiagram #default-fret-table \chordmode {cis:m}
  77                         #guitar-tuning
  78                         #"x;x;2-2;1-1;2-3;o;"
  79 \storePredefinedDiagram #default-fret-table \chordmode {cis:aug}
  80                         #guitar-tuning
  81                         #"x;4-4;3-3;2-1;2-2;x;"
  82 \storePredefinedDiagram #default-fret-table \chordmode {cis:dim}
  83                         #guitar-tuning
  84                         #(offset-fret 1 (chord-shape 'c:dim guitar-tuning))
  85 \storePredefinedDiagram #default-fret-table \chordmode {cis:7}
  86                         #guitar-tuning
  87                         #"x;x;3-2;4-3;2-1;4-4;"
  88 \storePredefinedDiagram #default-fret-table \chordmode {cis:maj7}
  89                         #guitar-tuning
  90                         #"x;4-4;3-3;1-1-(;1-1;1-1-);"
  91 \storePredefinedDiagram #default-fret-table \chordmode {cis:m7}
  92                         #guitar-tuning
  93                         #"x;4-4;2-2;1-1;o;o;"
  94
  95 %%%%  des chords
  96 %
  97 \storePredefinedDiagram #default-fret-table \chordmode {des}
  98                         #guitar-tuning
  99                         #"x;x;3-3;1-1-(;2-2;1-1-);"
 100 \storePredefinedDiagram #default-fret-table \chordmode {des:m}
 101                         #guitar-tuning
 102                         #"x;x;2-2;1-1;2-3;o;"
 103 \storePredefinedDiagram #default-fret-table \chordmode {des:aug}
 104                         #guitar-tuning
 105                         #"x;4-4;3-3;2-1;2-2;x;"
 106 \storePredefinedDiagram #default-fret-table \chordmode {des:dim}
 107                         #guitar-tuning
 108                         #(offset-fret 1 (chord-shape 'c:dim guitar-tuning))
 109 \storePredefinedDiagram #default-fret-table \chordmode {des:7}
 110                         #guitar-tuning
 111                         #"x;x;3-2;4-3;2-1;4-4;"
 112 \storePredefinedDiagram #default-fret-table \chordmode {des:maj7}
 113                         #guitar-tuning
 114                         #"x;4-4;3-3;1-1-(;1-1;1-1-);"
 115 \storePredefinedDiagram #default-fret-table \chordmode {des:m7}
 116                         #guitar-tuning
 117                         #"x;4-4;2-2;1-1;o;o;"
 118
 119 %%%%  d chords
 120 %
 121 \storePredefinedDiagram #default-fret-table \chordmode {d}
 122                         #guitar-tuning
 123                         #"x;x;o;2-1;3-3;2-2;"
 124 \storePredefinedDiagram #default-fret-table \chordmode {d:m}
 125                         #guitar-tuning
 126                         #"x;x;o;2-2;3-3;1-1;"
 127 \storePredefinedDiagram #default-fret-table \chordmode {d:aug}
 128                         #guitar-tuning
 129                         #"x;x;o;3-2;3-3;2-1;"
 130 \storePredefinedDiagram #default-fret-table \chordmode {d:dim}
 131                         #guitar-tuning
 132                         #"x;x;o;1-1;o;1-2;"
 133 \storePredefinedDiagram #default-fret-table \chordmode {d:7}
 134                         #guitar-tuning
 135                         #"x;x;o;2-2;1-1;2-3;"
 136 \storePredefinedDiagram #default-fret-table \chordmode {d:maj7}
 137                         #guitar-tuning
 138                         #"x;x;o;2-1;2-2;2-3;"
 139 \storePredefinedDiagram #default-fret-table \chordmode {d:m7}
 140                         #guitar-tuning
 141                         #"x;x;o;2-2;1-1-(;1-1-);"
 142
 143 %%%%  dis chords
 144 %
 145 \storePredefinedDiagram #default-fret-table \chordmode {dis}
 146                         #guitar-tuning
 147                         #(offset-fret 2 (chord-shape 'cis guitar-tuning))
 148 \storePredefinedDiagram #default-fret-table \chordmode {dis:m}
 149                         #guitar-tuning
 150                         #"x;x;4-3;3-2;4-4;1-1;"
 151 \storePredefinedDiagram #default-fret-table \chordmode {dis:aug}
 152                         #guitar-tuning
 153                         #"3-3;2-2;1-1;o;o;3-4"
 154 \storePredefinedDiagram #default-fret-table \chordmode {dis:dim}
 155                         #guitar-tuning
 156                         #(chord-shape 'ees:dim guitar-tuning)
 157 \storePredefinedDiagram #default-fret-table \chordmode {dis:7}
 158                         #guitar-tuning
 159                         #"x;x;1-1;3-3;2-2;3-4;"
 160 \storePredefinedDiagram #default-fret-table \chordmode {dis:maj7}
 161                         #guitar-tuning
 162                         #"x;x;1-1;3-2;3-3;3-4;"
 163 \storePredefinedDiagram #default-fret-table \chordmode {dis:m7}
 164                         #guitar-tuning
 165                         #"x;x;1-1;3-2;2-3;2-4;"
 166
 167 %%%%  ees chords
 168 %
 169 \storePredefinedDiagram #default-fret-table \chordmode {ees}
 170                         #guitar-tuning
 171                         #(offset-fret 2 (chord-shape 'cis guitar-tuning))
 172 \storePredefinedDiagram #default-fret-table \chordmode {ees:m}
 173                         #guitar-tuning
 174                         #"x;x;4-3;3-2;4-4;1-1;"
 175 \storePredefinedDiagram #default-fret-table \chordmode {ees:aug}
 176                         #guitar-tuning
 177                         #"3-3;2-2;1-1;o;o;3-4"
 178 \storePredefinedDiagram #default-fret-table \chordmode {ees:dim}
 179                         #guitar-tuning
 180                         #(chord-shape 'ees:dim guitar-tuning)
 181 \storePredefinedDiagram #default-fret-table \chordmode {ees:7}
 182                         #guitar-tuning
 183                         #"x;x;1-1;3-3;2-2;3-4;"
 184 \storePredefinedDiagram #default-fret-table \chordmode {ees:maj7}
 185                         #guitar-tuning
 186                         #"x;x;1-1;3-2;3-3;3-4;"
 187 \storePredefinedDiagram #default-fret-table \chordmode {ees:m7}
 188                         #guitar-tuning
 189                         #"x;x;1-1;3-2;2-3;2-4;"
 190
 191 %%%%  e chords
 192 %
 193 \storePredefinedDiagram #default-fret-table \chordmode {e}
 194                         #guitar-tuning
 195                         #"o;2-2;2-3;1-1;o;o;"
 196 \storePredefinedDiagram #default-fret-table \chordmode {e:m}
 197                         #guitar-tuning
 198                         #"o;2-2;2-3;o;o;o;"
 199 \storePredefinedDiagram #default-fret-table \chordmode {e:aug}
 200                         #guitar-tuning
 201                         #"o;3-3;2-2;1-1;x;x;"
 202 \storePredefinedDiagram #default-fret-table \chordmode {e:dim}
 203                         #guitar-tuning
 204                         #(offset-fret 1 (chord-shape 'ees:dim guitar-tuning))
 205 \storePredefinedDiagram #default-fret-table \chordmode {e:7}
 206                         #guitar-tuning
 207                         #"o;2-2;o;1-1;o;o;"
 208 \storePredefinedDiagram #default-fret-table \chordmode {e:maj7}
 209                         #guitar-tuning
 210                         #"o;2-3;1-1;1-2;o;x;"
 211 \storePredefinedDiagram #default-fret-table \chordmode {e:m7}
 212                         #guitar-tuning
 213                         #"o;2-2;o;o;o;o;"
 214
 215 %%%%  f chords
 216 %
 217 \storePredefinedDiagram #default-fret-table \chordmode {f}
 218                         #guitar-tuning
 219                         #(chord-shape 'f guitar-tuning)
 220 \storePredefinedDiagram #default-fret-table \chordmode {f:m}
 221                         #guitar-tuning
 222                         #(chord-shape 'f:m guitar-tuning)
 223 \storePredefinedDiagram #default-fret-table \chordmode {f:aug}
 224                         #guitar-tuning
 225                         #"x;x;1-1;4-3;4-4;3-2;"
 226 \storePredefinedDiagram #default-fret-table \chordmode {f:dim}
 227                         #guitar-tuning
 228                         #"x;x;o;1-1;o;1-2;"
 229 \storePredefinedDiagram #default-fret-table \chordmode {f:7}
 230                         #guitar-tuning
 231                         #(chord-shape 'f:7 guitar-tuning)
 232 \storePredefinedDiagram #default-fret-table \chordmode {f:maj7}
 233                         #guitar-tuning
 234                         #"x;x;3-3;2-2;1-1;o;"
 235 \storePredefinedDiagram #default-fret-table \chordmode {f:m7}
 236                         #guitar-tuning
 237                         #(chord-shape 'f:m7 guitar-tuning)
 238
 239 %%%%  fis chords
 240 %
 241 \storePredefinedDiagram #default-fret-table \chordmode {fis}
 242                         #guitar-tuning
 243                         #(offset-fret 1 (chord-shape 'f guitar-tuning))
 244 \storePredefinedDiagram #default-fret-table \chordmode {fis:m}
 245                         #guitar-tuning
 246                         #(offset-fret 1 (chord-shape 'f:m guitar-tuning))
 247 \storePredefinedDiagram #default-fret-table \chordmode {fis:aug}
 248                         #guitar-tuning
 249                         #"2-2;1-1;o;3-4-(;3-4-);2-3;"
 250 \storePredefinedDiagram #default-fret-table \chordmode {fis:dim}
 251                         #guitar-tuning
 252                         #"x;x;1-1;2-3;1-2;2-4;"
 253 \storePredefinedDiagram #default-fret-table \chordmode {fis:7}
 254                         #guitar-tuning
 255                         #(offset-fret 1 (chord-shape 'f:7 guitar-tuning))
 256 \storePredefinedDiagram #default-fret-table \chordmode {fis:maj7}
 257                         #guitar-tuning
 258                         #"x;x;4-4;3-3;2-2;1-1;"
 259 \storePredefinedDiagram #default-fret-table \chordmode {fis:m7}
 260                         #guitar-tuning
 261                         #(offset-fret 1 (chord-shape 'f:m7 guitar-tuning))
 262
 263 %%%%  ges chords
 264 %
 265 \storePredefinedDiagram #default-fret-table \chordmode {ges}
 266                         #guitar-tuning
 267                         #(offset-fret 1 (chord-shape 'f guitar-tuning))
 268 \storePredefinedDiagram #default-fret-table \chordmode {ges:m}
 269                         #guitar-tuning
 270                         #(offset-fret 1 (chord-shape 'f:m guitar-tuning))
 271 \storePredefinedDiagram #default-fret-table \chordmode {ges:aug}
 272                         #guitar-tuning
 273                         #"2-2;1-1;o;3-4-(;3-4-);2-3;"
 274 \storePredefinedDiagram #default-fret-table \chordmode {ges:dim}
 275                         #guitar-tuning
 276                         #"x;x;1-1;2-3;1-2;2-4;"
 277 \storePredefinedDiagram #default-fret-table \chordmode {ges:7}
 278                         #guitar-tuning
 279                         #(offset-fret 1 (chord-shape 'f:7 guitar-tuning))
 280 \storePredefinedDiagram #default-fret-table \chordmode {ges:maj7}
 281                         #guitar-tuning
 282                         #"x;x;4-4;3-3;2-2;1-1;"
 283 \storePredefinedDiagram #default-fret-table \chordmode {ges:m7}
 284                         #guitar-tuning
 285                         #(offset-fret 1 (chord-shape 'f:m7 guitar-tuning))
 286
 287 %%%%  g chords
 288 %
 289 \storePredefinedDiagram #default-fret-table \chordmode {g}
 290                         #guitar-tuning
 291                         #"3-2;2-1;o;o;o;3-3;"
 292 \storePredefinedDiagram #default-fret-table \chordmode {g:m}
 293                         #guitar-tuning
 294                         #(offset-fret 2 (chord-shape 'f:m guitar-tuning))
 295 \storePredefinedDiagram #default-fret-table \chordmode {g:aug}
 296                         #guitar-tuning
 297                         #"x;x;5-1;8-3;8-4;7-2;"
 298 \storePredefinedDiagram #default-fret-table \chordmode {g:dim}
 299                         #guitar-tuning
 300                         #"x;x;5-2;6-4;5-3;3-1;"
 301 \storePredefinedDiagram #default-fret-table \chordmode {g:7}
 302                         #guitar-tuning
 303                         #"3-3;2-2;o;o;o;1-1;"
 304 \storePredefinedDiagram #default-fret-table \chordmode {g:maj7}
 305                         #guitar-tuning
 306                         #"x;x;5-4;4-3;3-2;2-1;"
 307 \storePredefinedDiagram #default-fret-table \chordmode {g:m7}
 308                         #guitar-tuning
 309                         #(offset-fret 2 (chord-shape 'f:m7 guitar-tuning))
 310
 311 %%%%  gis chords
 312 %
 313 \storePredefinedDiagram #default-fret-table \chordmode {gis}
 314                         #guitar-tuning
 315                         #(offset-fret 3 (chord-shape 'f guitar-tuning))
 316 \storePredefinedDiagram #default-fret-table \chordmode {gis:m}
 317                         #guitar-tuning
 318                         #(offset-fret 3 (chord-shape 'f:m guitar-tuning))
 319 \storePredefinedDiagram #default-fret-table \chordmode {gis:aug}
 320                         #guitar-tuning
 321                         #"o;3-4;2-3;1-1;1-2;o;"
 322 \storePredefinedDiagram #default-fret-table \chordmode {gis:dim}
 323                         #guitar-tuning
 324                         #"x;x;o;1-1;o;1-2;"
 325 \storePredefinedDiagram #default-fret-table \chordmode {gis:7}
 326                         #guitar-tuning
 327                         #(offset-fret 3 (chord-shape 'f:7 guitar-tuning))
 328 \storePredefinedDiagram #default-fret-table \chordmode {gis:maj7}
 329                         #guitar-tuning
 330                         #"x;x;1-1-(;1-1;1-1-);3-3;"
 331 \storePredefinedDiagram #default-fret-table \chordmode {gis:m7}
 332                         #guitar-tuning
 333                         #(offset-fret 3 (chord-shape 'f:m7 guitar-tuning))
 334
 335 %%%%  aes chords
 336 %
 337 \storePredefinedDiagram #default-fret-table \chordmode {aes}
 338                         #guitar-tuning
 339                         #(offset-fret 3 (chord-shape 'f guitar-tuning))
 340 \storePredefinedDiagram #default-fret-table \chordmode {aes:m}
 341                         #guitar-tuning
 342                         #(offset-fret 3 (chord-shape 'f:m guitar-tuning))
 343 \storePredefinedDiagram #default-fret-table \chordmode {aes:aug}
 344                         #guitar-tuning
 345                         #"o;3-4;2-3;1-1;1-2;o;"
 346 \storePredefinedDiagram #default-fret-table \chordmode {aes:dim}
 347                         #guitar-tuning
 348                         #"x;x;o;1-1;o;1-2;"
 349 \storePredefinedDiagram #default-fret-table \chordmode {aes:7}
 350                         #guitar-tuning
 351                         #(offset-fret 3 (chord-shape 'f:7 guitar-tuning))
 352 \storePredefinedDiagram #default-fret-table \chordmode {aes:maj7}
 353                         #guitar-tuning
 354                         #"x;x;1-1-(;1-1;1-1-);3-3;"
 355 \storePredefinedDiagram #default-fret-table \chordmode {aes:m7}
 356                         #guitar-tuning
 357                         #(offset-fret 3 (chord-shape 'f:m7 guitar-tuning))
 358
 359 %%%%  a chords
 360 %
 361 \storePredefinedDiagram #default-fret-table \chordmode {a}
 362                         #guitar-tuning
 363                         #"x;o;2-1;2-2;2-3;o;"
 364 \storePredefinedDiagram #default-fret-table \chordmode {a:m}
 365                         #guitar-tuning
 366                         #"x;o;2-2;2-3;1-1;o;"
 367 \storePredefinedDiagram #default-fret-table \chordmode {a:aug}
 368                         #guitar-tuning
 369                         #"x;o;3-4;2-2;2-3;1-1;"
 370 \storePredefinedDiagram #default-fret-table \chordmode {a:dim}
 371                         #guitar-tuning
 372                         #(chord-shape 'a:dim guitar-tuning)
 373 \storePredefinedDiagram #default-fret-table \chordmode {a:7}
 374                         #guitar-tuning
 375                         #"x;o;2-1;o;2-3;o;"
 376 \storePredefinedDiagram #default-fret-table \chordmode {a:maj7}
 377                         #guitar-tuning
 378                         #"x;o;2-2;1-1;2-3;o;"
 379 \storePredefinedDiagram #default-fret-table \chordmode {a:m7}
 380                         #guitar-tuning
 381                         #"x;o;2-2;o;1-1;o;"
 382
 383 %%%%  ais chords
 384 %
 385 \storePredefinedDiagram #default-fret-table \chordmode {ais}
 386                         #guitar-tuning
 387                         #(chord-shape 'bes guitar-tuning)
 388 \storePredefinedDiagram #default-fret-table \chordmode {ais:m}
 389                         #guitar-tuning
 390                         #(chord-shape 'bes:m guitar-tuning)
 391 \storePredefinedDiagram #default-fret-table \chordmode {ais:aug}
 392                         #guitar-tuning
 393                         #"2-2;1-1;o;3-4-(;3-4-);2-3;"
 394 \storePredefinedDiagram #default-fret-table \chordmode {ais:dim}
 395                         #guitar-tuning
 396                         #(offset-fret 1 (chord-shape 'a:dim guitar-tuning))
 397 \storePredefinedDiagram #default-fret-table \chordmode {ais:7}
 398                         #guitar-tuning
 399                         #(chord-shape 'bes:7 guitar-tuning)
 400 \storePredefinedDiagram #default-fret-table \chordmode {ais:maj7}
 401                         #guitar-tuning
 402                         #"x;1-1;3-3;2-2;3-4;x;"
 403 \storePredefinedDiagram #default-fret-table \chordmode {ais:m7}
 404                         #guitar-tuning
 405                         #(chord-shape 'bes:m7 guitar-tuning)
 406
 407 %%%%  bes chords
 408 %
 409 \storePredefinedDiagram #default-fret-table \chordmode {bes}
 410                         #guitar-tuning
 411                         #(chord-shape 'bes guitar-tuning)
 412 \storePredefinedDiagram #default-fret-table \chordmode {bes:m}
 413                         #guitar-tuning
 414                         #(chord-shape 'bes:m guitar-tuning)
 415 \storePredefinedDiagram #default-fret-table \chordmode {bes:aug}
 416                         #guitar-tuning
 417                         #"2-2;1-1;o;3-4-(;3-4-);2-3;"
 418 \storePredefinedDiagram #default-fret-table \chordmode {bes:dim}
 419                         #guitar-tuning
 420                         #(offset-fret 1 (chord-shape 'a:dim guitar-tuning))
 421 \storePredefinedDiagram #default-fret-table \chordmode {bes:7}
 422                         #guitar-tuning
 423                         #(chord-shape 'bes:7 guitar-tuning)
 424 \storePredefinedDiagram #default-fret-table \chordmode {bes:maj7}
 425                         #guitar-tuning
 426                         #"x;1-1;3-3;2-2;3-4;x;"
 427 \storePredefinedDiagram #default-fret-table \chordmode {bes:m7}
 428                         #guitar-tuning
 429                         #(chord-shape 'bes:m7 guitar-tuning)
 430
 431 %%%%  b chords
 432 %
 433 \storePredefinedDiagram #default-fret-table \chordmode {b}
 434                         #guitar-tuning
 435                         #(offset-fret 1 (chord-shape 'bes guitar-tuning))
 436 \storePredefinedDiagram #default-fret-table \chordmode {b:m}
 437                         #guitar-tuning
 438                         #(offset-fret 1 (chord-shape 'bes:m guitar-tuning))
 439 \storePredefinedDiagram #default-fret-table \chordmode {b:aug}
 440                         #guitar-tuning
 441                         #"x;3-2;2-1;o;o;x;"
 442 \storePredefinedDiagram #default-fret-table \chordmode {b:dim}
 443                         #guitar-tuning
 444                         #"x;x;o;1-1;o;1-2;"
 445 \storePredefinedDiagram #default-fret-table \chordmode {b:7}
 446                         #guitar-tuning
 447                         #(offset-fret 1 (chord-shape 'bes:7 guitar-tuning))
 448 \storePredefinedDiagram #default-fret-table \chordmode {b:maj7}
 449                         #guitar-tuning
 450                         #"x;2-1;4-3;3-2;4-4;x;"
 451 \storePredefinedDiagram #default-fret-table \chordmode {b:m7}
 452                         #guitar-tuning
 453                         #(offset-fret 1 (chord-shape 'bes:m7 guitar-tuning))
 454
 455 #(set! pitchnames prev-pitchnames)