Here is the file. Convert-ly upgraded the syntax but something happened in
an internal fine that made a large part of it that changed the way
accidentals look not work, so I commented that part out. I'm not familiar
with pop notation, so if there's anything that needs to change let me know.
On Sun, Dec 22, 2013 at 12:03 AM, Alex Loomis <thebluemusic...@gmail.com>wrote:
> I didn't see it in the LSR and the version of pop-chord.ly I found was
> written for 2.11.52, so it might not work perfectly. Give me a moment and
> I'll attach one that works with 2.17.95
>
>
> On Sat, Dec 21, 2013 at 10:06 PM, Tim McNamara <tim...@bitstream.net>wrote:
>
>> The easiest thing is using the pop-chords.ly alternatives to the default
>> chordname style, using \include. I think it is available in the snippet
>> repository. Or you can write your own chordname exceptions, the procedure
>> for which should be in the Notation reference.
>>
>>
>>
>> > On Dec 21, 2013, at 8:46 PM, Marten Visser <msvis...@planet.nl> wrote:
>> >
>> > Hi Lilyponders,
>> >
>> > Typesetting my masterpiece is drawing to completion, and one fine point
>> of
>> > typesetting remains.
>> >
>> > \chordmode { c1:7 } typesets the 7 as a superscript. I'd like to know
>> how
>> > the 7 can be typeset on the baseline, like the m of a minor chord. I
>> > couldn't find any tweak that does that for me.
>> >
>> > Regards,
>> > Marten
>> >
>> >
>> >
>> >
>> > _______________________________________________
>> > lilypond-user mailing list
>> > lilypond-user@gnu.org
>> > https://lists.gnu.org/mailman/listinfo/lilypond-user
>>
>> _______________________________________________
>> lilypond-user mailing list
>> lilypond-user@gnu.org
>> https://lists.gnu.org/mailman/listinfo/lilypond-user
>>
>
>
% Pop chords as used in English/American popular music
% by James L. Hammons
% Written against \version "2.17.29"
chordFlat = \markup { \hspace #0.2 \tiny \raise #1.0 \flat }
chordSharp = \markup { \hspace #0.1 \teeny \raise #1.0 \sharp }
popChordsMusic =
{
% Triads
<c g>-\markup { "5" }
<c d g>-\markup { "2" }
% <c d g>-\markup { "sus2" }
<c f g>-\markup { "sus" }
% <c f g>-\markup { "sus4" }
% <c ees ges>-\markup { \small \raise #1.0 "o" }
<c ees ges>-\markup { \raise #0.8 "o" }
% <c ees ges>-\markup { "dim" }
% <c e gis>-\markup { "aug" }
% or +
% Sixths
<c e g a>-\markup { "6" }
<c ees g a>-\markup { "m6" }
% Sevenths (including altered)
<c e g bes>-\markup { "7" }
<c ees g bes>-\markup { "m7" }
<c e g b>-\markup { "maj7" }
<c f g bes>-\markup { "7sus4" }
<c d g bes>-\markup { "7sus2" }
<c e ges bes>-\markup { "7" \chordFlat "5" }
<c e gis bes>-\markup { "7" \chordSharp "5" }
% <c e gis bes>-\markup { "aug7" }
% or +7
<c ees g b>-\markup { "m(maj7)" }
% <c ees ges beses>-\markup { \small \raise #1.0 { "o" } "7" }
<c ees ges beses>-\markup { \raise #0.8 { "o" } "7" }
% <c ees ges beses>-\markup { "dim7" }
% <c ees ges bes>-\markup { \small \raise #1.0 { $(ly:wide- char->utf-8 #x00f8) } "7" } % <c ees ges bes>-\markup { \raise #0.8 { $(ly:wide-char- >utf-8 #x00f8) } "7" }
<c ees ges bes>-\markup { "m7" \chordFlat "5" }
<c e ges b>-\markup { "maj7" \chordFlat "5" }
<c e gis b>-\markup { "maj7" \chordSharp "5" }
% Ninths (including altered--incomplete)
<c e g bes d'>-\markup { "9" }
<c ees g bes d'>-\markup { "m9" }
<c e g b d'>-\markup { "maj9" }
<c e g d'>-\markup { "add9" }
<c e g a d'>-\markup { "6/9" }
<c ees g a d'>-\markup { "m6/9" }
<c ees g b d'>-\markup { "m(maj9)" }
<c e g bes des'>-\markup { "7" \chordFlat "9" }
<c e g bes dis'>-\markup { "7" \chordSharp "9" }
%dim7add9, dim7b9, dim7#9, 9#5, 9b5, maj9#5, maj9b5, 9sus4, 9sus2
% Elevenths (incomplete)
<c e g bes d' f'>-\markup { "11" }
<c ees g bes d' f'>-\markup { "m11" }
<c e g b d' f'>-\markup { "maj11" }
<c e g f'>-\markup { "add11" }
<c ees g f'>-\markup { "m add11" }
<c ees g bes f'>-\markup { "m7add11" }
% Thirteenths (incomplete)
<c e g bes d' a'>-\markup { "13" }
<c ees g bes d' a'>-\markup { "m13" }
<c e g b d' a'>-\markup { "maj13" }
<c e g a'>-\markup { "add13" }
% Misc add chords
<c e g bes des' aes'>-\markup { "7" \chordFlat "9" \chordFlat "13" }
<c e gis bes des'>-\markup { "7" \chordSharp "5" \chordFlat "9" }
<c e g b d' fis'>-\markup { "maj9" \chordSharp "11" }
<c e g bes d' fis'>-\markup { "9" \chordSharp "11" }
}
% Add to existing exceptions
popChordsAdd = #(append
(sequential-music-to-chord-exceptions popChordsMusic #t)
ignatzekExceptions)
% Bah, can't we set this globally? YES! See below...
% \set chordNameExceptions = #popChords
% Bah, this doesn't work either...
% #(set chordNameExceptions popChords)
% Let's try fixing the accidentals with some Scheme...
%It breaks the file, let's not.
%{
#(define (chord-name->pop-markup pitch)
(let* ((alt (ly:pitch-alteration pitch)))
(make-line-markup
(list
(make-simple-markup (vector-ref #("C" "D" "E" "F" "G" "A" "B") (ly:pitch-notename pitch)))
;; If it's natural, do nothing
(if (= alt 0)
(make-line-markup (list empty-markup))
(if (= alt FLAT)
;; Otherwise, handle adding the flat symbol
(make-line-markup
(list
(make-hspace-markup 0.3) ;; WAS: 0.4
(make-tiny-markup (make-raise-markup 1.0
(make-musicglyph-markup "accidentals.flat")))
)
)
;; or handle adding the sharp symbol
(make-line-markup
(list
(make-hspace-markup 0.1) ;; WAS: 0.2
(make-teeny-markup (make-raise-markup 1.0
(make-musicglyph-markup "accidentals.sharp")))
)
)
)
)
)
)
)
)
%}
%{
popChords =
{
\set chordNameExceptions = #popChordsAdd
\set chordRootNamer = #chord-name->pop-markup
\override ChordName.extra-spacing-width = #'(-1.25 . 1.25)
}
%}
\layout
{
\context
{
\Score
chordNameExceptions = #popChordsAdd
% chordRootNamer = #chord-name->pop-markup
\override ChordName.extra-spacing-width = #'(-1.25 . 1.25)
}
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
