> > > 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 lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user