\version "2.19.40"

% Accordion Standard Bass library
% Last change: 2016 May 6

% This definitios is 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}

% This definitios is 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 = 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>>}

%%% *** %%% *** %%% *** %%% *** %%% *** %%% *** %%%
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>>}
%%% *** %%% *** %%% *** %%% *** %%% *** %%% *** %%%
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 = 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>>}