>
> > c4 \chordmode {f, f,}
> > e \chordmode {e, e,}
> > \partial 2 b \chordmode {e,}
>
> [graphics]
>
> If that input corresponds to the printed output you gave, I want to see
> the code producing the output.
>
>
No, it doesn't correspond. Have a look to this code and to attached images:
\version "2.19.49"
\include "AccordionStandardBass.ly"
left =
{
\clef bass
\xao \xam \xaM \xas %sorry for the terrible name, they are temporary
}
\score
{
\new Staff = "left" {\keepWithTag #'screenOut \left}
\layout { } %first score
}
\score
{
\new Staff = "left" \with { midiInstrument = "accordion"} {\keepWithTag
#'midiOut \left}
\layout {} %second score; just to see the output
\midi { }
}
This generates two different scores and one midi file. I attached the
screenshot of the two scores and the source code of
"AccordionStandardBass.ly"
The second score normally does not contain layout because it is used only
for the midi output; here I included the "layout" command to show what is
going to the midi....
The source "AccordionStandardBass.ly" is "semiautomatically" generated :))
It is semi-automatically generated in the sense that I've written just one
note and copy and paste the rest (just changed the note name etc.)
I wrote AccordionStandardBass few months ago. Now that I understand a bit
more lilypond I would like to rewrite it. The idea is to have a tool to
write for accordion in "standard notation" and also generating
corresponding midi output. If you David, or anybody else with more
experience than me can help to do a better work it would be great.
Best regards, g.
\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>>}
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
