Re: Chord spacing issues in 2.11 series

[lasconic]

I follow Joe Neeman's advice and it does the trick for me !
The manual for extra-spacing-width is here :
http://lilypond.org/doc/v2.11/Documentation/user/lilypond-learning/Outside-staff-objects

I just added : 
\layout {
        \context { 
           \ChordNames 
           \override ChordName #'extra-spacing-width = #'(-0.5 . 0.5)
    
        }
  }

Lasconic



Shamus-3 wrote:
> 
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
> 
> Joe Neeman wrote:
> | Try overriding the extra-spacing-width property on the ChordName grob
> | (the extra-spacing-width property is part of the item-interface, which
> | is supported by ChordName).
> |
> | You could also try overriding the padding property of the SeparationItem
> | grob.
> |
> | By the way, if you attach a small example that demonstrates the problem,
> | it becomes easier to help because I can test to see if my suggestions
> | fix the problem.
> |
> | Joe
> 
> Here you go. Look at measures 1-2. The example is contrived, but I've
> had situations similar to this arise quite often. The chords are too
> close together for comfortable reading, especially for nearly geriatric
> musicians like myself. Any help would be appreciated.
> 
> Warmest regards,
> - -- Shamus
> 
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v2.0.7 (GNU/Linux)
> Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
> 
> iD8DBQFIl6OUmE5b/O3JjkYRAg+XAKCQpRCSFoyvp66diqsRXBsCiLIuyACgwrd4
> lm3LS4DsqqUOqiVZRRf+pDQ=
> =VspW
> -----END PGP SIGNATURE-----
> 
> % Pop chords as used in English/American popular music
> % by James L. Hammons
> 
> % Written against \version "2.8.2"
> 
> 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:export
> (ly:wide-char->utf-8 #x00f8)) } "7" }
> %     <c ees ges bes>-\markup { \raise #0.8 { #(ly:export (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?
> % \set chordNameExceptions = #popChords
> 
> % Bah, this doesn't work either...
> % #(set chordNameExceptions popChords)
> 
> 
> % Let's try fixing the accidentals with some Scheme...
> 
> #(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 (string-append "accidentals."
> (number->string alt)))))
>             )
>           )
> 
>           ;; 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 (string-append "accidentals."
> (number->string alt)))))
>             )
>           )
> 
>         )
> 
>       )
> 
>     )
>   )
> 
>   )
> )
> 
> 
> popChords =
> {
>   \set chordNameExceptions = #popChordsAdd
>   \set chordRootNamer = #chord-name->pop-markup
> }
> 
> \version "2.11.52"
> \include "pop-chords.ly"
> \include "english.ly"
> 
> % Good sizes are 16, 18, & 20
> staffSize = #18
> #(set-default-paper-size "letter")
> #(set-global-staff-size staffSize)
> #(ly:set-option (quote no-point-and-click))
> 
> %
> % Lead vocal
> %
> 
> LeadVox = \relative c''
> {
> %     \set Voice.autoBeaming = ##f
> %     \set Staff.instrument = #"Lead vox"
>       \clef G
>       \key g \major
>       \override Staff.TimeSignature #'style = #'()
>       \time 4/4
> \override Score.SpacingSpanner #'average-spacing-wishes = ##f
> 
>       % Intro
> 
>       s1 | % 1
>       s1 | % 2
>       s1 | % 3
>       s1 | % 4
>       s1 | % 5
>       r2 r4 g8 fs | % 6
> 
>       s1 | % 1
>       s1 | % 2
>       s1 | % 3
>       s1 | % 4
>       s1 | % 5
>       r2 r4 g8 fs | % 6
> }
> 
> 
> %
> % Chord names
> %
> 
> Chords = \chordmode
> {
> %Bah, can't we set this globally?
>       \popChords
> 
>       % Intro
> 
>       a4:maj7/bf cs:sus4/e bf fs:maj7.5-/af | % 1
>       c2/g g | % 2
>       d2/fs e:m | % 3
>       a2:m g/b | % 4
>       d2 e | % 5
>       g1 | % 6
> 
>       a4:maj7/bf cs:sus4/e bf fs:maj7.5+/af | % 1
>       c2/g g | % 2
>       d2/fs e:m | % 3
>       a2:m g/b | % 4
>       d2 e | % 5
>       g1 | % 6
> }
> 
> 
> %
> % Chord rhythms
> %
> 
> % Use a RhythmicStaff on the chords instead of this?
> % It almost works, but not quite. Doesn't collapse chords above to single
> notes...
> 
> StaffC = \relative c
> {
> %     \set Voice.autoBeaming = ##f
> %     \set Staff.instrument = #"Rhythm"
>       \override Staff.TimeSignature #'style = #'()
>       \time 4/4
>       \override NoteHead #'style = #'slash
> 
>       % Intro
> 
>       c4 c c c | % 1
>       c4 c c c | % 2
>       c4 c c c | % 3
>       c4 c c c | % 4
>       c4 c c c | % 5
>       c4 c c c | % 6
> 
>       c4 c c c | % 1
>       c4 c c c | % 2
>       c4 c c c | % 3
>       c4 c c c | % 4
>       c4 c c c | % 5
>       c4 c c c | % 6
> }
> 
> 
> \score
> {
>       <<
>               <<
>                       \new Staff = leadStaff { \new Voice = "lead" \LeadVox }
>               >>
> 
>               \new ChoirStaff = "Rhythm"
>               <<
>                       \new ChordNames = "chords" \Chords
>                       \new RhythmicStaff = "chordRhythm" \StaffC
>               >>
> 
>               \set Score.skipBars = ##t
>               \set Score.melismaBusyProperties = #'()
>       >>
> }
> 
> 
> \paper
> {
>   #(define fonts (make-pango-font-tree
>     "Times New Roman"
>     "DomCasual BT"
>     "Luxi Mono"
>     (/ staffSize 20)))
> 
> %  top-margin = -0.25 \in
> }
> 
> _______________________________________________
> lilypond-user mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/lilypond-user
> 
> 

-- 
View this message in context: 
http://www.nabble.com/Chord-spacing-issues-in-2.11-series-tp18798386p18837519.html
Sent from the Gnu - Lilypond - User mailing list archive at Nabble.com.