\version "2.19.49"


% Accordion Standard Bass library
% Last change: 2016 Nov 9

\tagGroup #'(screenOut midiOut)
% These definitions are to use when need "chord type letter" on chord
% majorChordLetter = -\tag#'chordLetter _\tweak #'direction #UP _\markup {M}
% minorChordLetter = -\tag#'chordLetter _\tweak #'direction #UP _\markup {m}
% dominantSeventhChordLetter = -\tag#'chordLetter _\tweak #'direction #UP _\markup {7}
% diminishedSeventhChordLetter = -\tag#'chordLetter _\tweak #'direction #UP _\markup {d}

% These definitions are to use when need "chord type letter" on note
majorChordLetter = -\tag#'chordLetter ^\markup {M}
minorChordLetter = -\tag#'chordLetter ^\markup {m}
dominantSeventhChordLetter = -\tag#'chordLetter ^\markup {7}
diminishedSeventhChordLetter = -\tag#'chordLetter ^\markup {d}

majorChord = \chordmode {a}
minorChord = \chordmode {a:m}
dominantSeventhChord = \chordmode {a:7^5}
diminishedSeventhChord = \chordmode {a:m7^5}

%%% *** %%% *** %%% *** %%% *** %%% *** %%% *** %%%
rootNote = bes,

rootNoteExp = { \rootNote} 
rootNoteDouble = {<\rootNote' \rootNote>}
midiMajorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \majorChord}
midiMinorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \minorChord}
midiDominantSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \dominantSeventhChord}
midiDiminishedSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \diminishedSeventhChord}

screenMajorChord = {\rootNote' \majorChordLetter}
screenMinorChord = {\rootNote' \minorChordLetter}
screenDominantSeventhChord = {\rootNote' \dominantSeventhChordLetter}
screenDiminishedSeventhChord = {\rootNote' \diminishedSeventhChordLetter}

xbeso = {\tag #'midiOut \rootNoteDouble 
      \tag #'screenOut \rootNoteExp }

xbesM = {\tag #'midiOut \midiMajorChord 
       \tag #'screenOut \screenMajorChord }

xbesm = {\tag #'midiOut \midiMinorChord
       \tag #'screenOut \screenMinorChord}

xbess = {\tag #'midiOut \midiDominantSeventhChord
       \tag #'screenOut \screenDominantSeventhChord}

xbesd = {\tag #'midiOut \midiDiminishedSeventhChord
       \tag #'screenOut \screenDiminishedSeventhChord}

xbesr = {<<\xbeso \xbesM>>}
%%% *** %%% *** %%% *** %%% *** %%% *** %%% *** %%%
rootNote = b,

rootNoteExp = { \rootNote} 
rootNoteDouble = {<\rootNote' \rootNote>}
midiMajorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \majorChord}
midiMinorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \minorChord}
midiDominantSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \dominantSeventhChord}
midiDiminishedSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \diminishedSeventhChord}

screenMajorChord = {\rootNote' \majorChordLetter}
screenMinorChord = {\rootNote' \minorChordLetter}
screenDominantSeventhChord = {\rootNote' \dominantSeventhChordLetter}
screenDiminishedSeventhChord = {\rootNote' \diminishedSeventhChordLetter}

xbo = {\tag #'midiOut \rootNoteDouble 
      \tag #'screenOut \rootNoteExp }

xbM = {\tag #'midiOut \midiMajorChord 
       \tag #'screenOut \screenMajorChord }

xbm = {\tag #'midiOut \midiMinorChord
       \tag #'screenOut \screenMinorChord}

xbs = {\tag #'midiOut \midiDominantSeventhChord
       \tag #'screenOut \screenDominantSeventhChord}

xbd = {\tag #'midiOut \midiDiminishedSeventhChord
       \tag #'screenOut \screenDiminishedSeventhChord}

xbr = {<<\xbo \xbM>>}
%%% *** %%% *** %%% *** %%% *** %%% *** %%% *** %%%
rootNote = c

rootNoteExp = { \rootNote} 
rootNoteDouble = {<\rootNote' \rootNote>}
midiMajorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \majorChord}
midiMinorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \minorChord}
midiDominantSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \dominantSeventhChord}
midiDiminishedSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \diminishedSeventhChord}

screenMajorChord = {\rootNote' \majorChordLetter}
screenMinorChord = {\rootNote' \minorChordLetter}
screenDominantSeventhChord = {\rootNote' \dominantSeventhChordLetter}
screenDiminishedSeventhChord = {\rootNote' \diminishedSeventhChordLetter}

xco = {\tag #'midiOut \rootNoteDouble 
      \tag #'screenOut \rootNoteExp }

xcM = {\tag #'midiOut \midiMajorChord 
       \tag #'screenOut \screenMajorChord }

xcm = {\tag #'midiOut \midiMinorChord
       \tag #'screenOut \screenMinorChord}

xcs = {\tag #'midiOut \midiDominantSeventhChord
       \tag #'screenOut \screenDominantSeventhChord}

xcd = {\tag #'midiOut \midiDiminishedSeventhChord
       \tag #'screenOut \screenDiminishedSeventhChord}

xcr = {<<\xco \xcM>>}
xcrs = {<<\xco \xcs>>}


%%% *** %%% *** %%% *** %%% *** %%% *** %%% *** %%%
rootNote = d,

rootNoteExp = { \rootNote} 
rootNoteDouble = {<\rootNote' \rootNote>}
midiMajorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \majorChord}
midiMinorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \minorChord}
midiDominantSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \dominantSeventhChord}
midiDiminishedSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \diminishedSeventhChord}

screenMajorChord = {\rootNote' \majorChordLetter}
screenMinorChord = {\rootNote' \minorChordLetter}
screenDominantSeventhChord = {\rootNote' \dominantSeventhChordLetter}
screenDiminishedSeventhChord = {\rootNote' \diminishedSeventhChordLetter}

xdo = {\tag #'midiOut \rootNoteDouble 
      \tag #'screenOut \rootNoteExp }

xdM = {\tag #'midiOut \midiMajorChord 
       \tag #'screenOut \screenMajorChord }

xdm = {\tag #'midiOut \midiMinorChord
       \tag #'screenOut \screenMinorChord}

xds = {\tag #'midiOut \midiDominantSeventhChord
       \tag #'screenOut \screenDominantSeventhChord}

xdd = {\tag #'midiOut \midiDiminishedSeventhChord
       \tag #'screenOut \screenDiminishedSeventhChord}

xdr = {<<\xdo \xdM>>}

xdrs = {<<\xdo \xds>>}
%%% *** %%% *** %%% *** %%% *** %%% *** %%% *** %%%
rootNote = e,

rootNoteExp = { \rootNote} 
rootNoteDouble = {<\rootNote' \rootNote>}
midiMajorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \majorChord}
midiMinorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \minorChord}
midiDominantSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \dominantSeventhChord}
midiDiminishedSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \diminishedSeventhChord}

screenMajorChord = {\rootNote' \majorChordLetter}
screenMinorChord = {\rootNote' \minorChordLetter}
screenDominantSeventhChord = {\rootNote' \dominantSeventhChordLetter}
screenDiminishedSeventhChord = {\rootNote' \diminishedSeventhChordLetter}

xeo = {\tag #'midiOut \rootNoteDouble 
      \tag #'screenOut \rootNoteExp }

xeM = {\tag #'midiOut \midiMajorChord 
       \tag #'screenOut \screenMajorChord }

xem = {\tag #'midiOut \midiMinorChord
       \tag #'screenOut \screenMinorChord}

xes = {\tag #'midiOut \midiDominantSeventhChord
       \tag #'screenOut \screenDominantSeventhChord}

xed = {\tag #'midiOut \midiDiminishedSeventhChord
       \tag #'screenOut \screenDiminishedSeventhChord}

xer = {<<\xeo \xeM>>}
%%% *** %%% *** %%% *** %%% *** %%% *** %%% *** %%%
rootNote = f,

rootNoteExp = { \rootNote} 
rootNoteDouble = {<\rootNote' \rootNote>}
midiMajorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \majorChord}
midiMinorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \minorChord}
midiDominantSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \dominantSeventhChord}
midiDiminishedSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \diminishedSeventhChord}

screenMajorChord = {\rootNote' \majorChordLetter}
screenMinorChord = {\rootNote' \minorChordLetter}
screenDominantSeventhChord = {\rootNote' \dominantSeventhChordLetter}
screenDiminishedSeventhChord = {\rootNote' \diminishedSeventhChordLetter}

xfo = {\tag #'midiOut \rootNoteDouble 
      \tag #'screenOut \rootNoteExp }

xfM = {\tag #'midiOut \midiMajorChord 
       \tag #'screenOut \screenMajorChord }

xfm = {\tag #'midiOut \midiMinorChord
       \tag #'screenOut \screenMinorChord}

xfs = {\tag #'midiOut \midiDominantSeventhChord
       \tag #'screenOut \screenDominantSeventhChord}

xfd = {\tag #'midiOut \midiDiminishedSeventhChord
       \tag #'screenOut \screenDiminishedSeventhChord}

xfr = {<<\xfo \xfM>>}
%%% *** %%% *** %%% *** %%% *** %%% *** %%% *** %%%
rootNote = fis,

rootNoteExp = { \rootNote} 
rootNoteDouble = {<\rootNote' \rootNote>}
midiMajorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \majorChord}
midiMinorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \minorChord}
midiDominantSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \dominantSeventhChord}
midiDiminishedSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \diminishedSeventhChord}

screenMajorChord = {\rootNote' \majorChordLetter}
screenMinorChord = {\rootNote' \minorChordLetter}
screenDominantSeventhChord = {\rootNote' \dominantSeventhChordLetter}
screenDiminishedSeventhChord = {\rootNote' \diminishedSeventhChordLetter}

xfiso = {\tag #'midiOut \rootNoteDouble 
      \tag #'screenOut \rootNoteExp }

xfisM = {\tag #'midiOut \midiMajorChord 
       \tag #'screenOut \screenMajorChord }

xfism = {\tag #'midiOut \midiMinorChord
       \tag #'screenOut \screenMinorChord}

xfiss = {\tag #'midiOut \midiDominantSeventhChord
       \tag #'screenOut \screenDominantSeventhChord}

xfisd = {\tag #'midiOut \midiDiminishedSeventhChord
       \tag #'screenOut \screenDiminishedSeventhChord}

xfisr = {<<\xfo \xfM>>}

%%% *** %%% *** %%% *** %%% *** %%% *** %%% *** %%%
rootNote = g,

rootNoteExp = { \rootNote} 
rootNoteDouble = {<\rootNote' \rootNote>}
midiMajorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \majorChord}
midiMinorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \minorChord}
midiDominantSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \dominantSeventhChord}
midiDiminishedSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \diminishedSeventhChord}

screenMajorChord = {\rootNote' \majorChordLetter}
screenMinorChord = {\rootNote' \minorChordLetter}
screenDominantSeventhChord = {\rootNote' \dominantSeventhChordLetter}
screenDiminishedSeventhChord = {\rootNote' \diminishedSeventhChordLetter}

xgo = {\tag #'midiOut \rootNoteDouble 
      \tag #'screenOut \rootNoteExp }

xgM = {\tag #'midiOut \midiMajorChord 
       \tag #'screenOut \screenMajorChord }

xgm = {\tag #'midiOut \midiMinorChord
       \tag #'screenOut \screenMinorChord}

xgs = {\tag #'midiOut \midiDominantSeventhChord
       \tag #'screenOut \screenDominantSeventhChord}

xgd = {\tag #'midiOut \midiDiminishedSeventhChord
       \tag #'screenOut \screenDiminishedSeventhChord}

xgr = {<<\xgo \xgM>>}

xgrs = {<<\xgo \xgs>>}
%%% *** %%% *** %%% *** %%% *** %%% *** %%% *** %%%
rootNote = a,

rootNoteExp = { \rootNote} 
rootNoteDouble = {<\rootNote' \rootNote>}
midiMajorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \majorChord}
midiMinorChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \minorChord}
midiDominantSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \dominantSeventhChord}
midiDiminishedSeventhChord = \chordmode {\transpose a #(car (event-chord-pitches rootNoteExp)) \diminishedSeventhChord}

screenMajorChord = {\rootNote' \majorChordLetter}
screenMinorChord = {\rootNote' \minorChordLetter}
screenDominantSeventhChord = {\rootNote' \dominantSeventhChordLetter}
screenDiminishedSeventhChord = {\rootNote' \diminishedSeventhChordLetter}

xao = {\tag #'midiOut \rootNoteDouble 
      \tag #'screenOut \rootNoteExp }

xaM = {\tag #'midiOut \midiMajorChord 
       \tag #'screenOut \screenMajorChord }

xam = {\tag #'midiOut \midiMinorChord
       \tag #'screenOut \screenMinorChord}

xas = {\tag #'midiOut \midiDominantSeventhChord
       \tag #'screenOut \screenDominantSeventhChord}

xad = {\tag #'midiOut \midiDiminishedSeventhChord
       \tag #'screenOut \screenDiminishedSeventhChord}

xar = {<<\xao \xaM>>}

xarm = {<<\xao \xam>>}

xars = {<<\xao \xas>>}