2015-02-04 14:22 GMT+01:00 Kieren MacMillan <[email protected]>:
> Hi Harm,
>
>> As I said, I’ve been unable to download that file in a useable form…
>> Is there somewhere else I can obtain it (in raw/text format), or some way to
>> download it that possibly I haven’t tried?
>
> Found it on the nabble list — download problem solved!
> It looks great now.
>
> Two questions:
> 1. Can this behaviour be made the default?
Don't think so, at least not with this code - it's pretty much a
workaround. And the arpeggio-problem is still unsolved.
(Loud thinking:) Maybe NoteColumn could behave like rests, where we
have r1 and R1 already. Could be caused by setting a context-property
or the like.
This is beyond my depth , though.
> 2. How can one shrink the measure width so that it’s much tighter around the
> [single] NoteColumn?
You can try the combination
\newSpacingSection
\override Score.SpacingSpanner #'base-shortest-duration =
#(ly:make-moment 1 0)
Attached you'll find a little newer version of it.
Cheers,
Harm
\version "2.16.0"
% Thanks to David Nalesnik
#(set-global-staff-size 20)
#(define (sort-by-X-coord sys grob-lst)
"Arranges a list of grobs in ascending order by their X-coordinates"
(let* ((X-coord (lambda (x) (ly:grob-relative-coordinate x sys X)))
(comparator (lambda (p q) (< (X-coord p) (X-coord q)))))
(sort grob-lst comparator)))
#(define (find-bounding-grobs note-column grob-lst)
(let* ((sys (ly:grob-system note-column))
(X-coord (lambda (n) (ly:grob-relative-coordinate n sys X)))
(note-column-X (X-coord note-column)))
(define (helper lst)
(if (and (< (X-coord (car lst)) note-column-X)
(> (X-coord (cadr lst)) note-column-X))
(cons (car lst) (cadr lst))
(if (null? (cddr lst))
(cons note-column note-column)
(helper (cdr lst)))))
(helper grob-lst)))
#(define (read-out l1 l2)
(define (helper ls1 ls2 ls3)
"Filters all elements of ls1 from ls2 by their grob-name and appends it to ls3"
(let ((grob-name-proc (lambda (x) (assq-ref (ly:grob-property x 'meta) 'name))))
(if (null? ls1)
ls3
(helper
(cdr ls1)
ls2
(append ls3 (filter (lambda (x) (eq? (car ls1) (grob-name-proc x))) ls2))))))
(helper l1 l2 '()))
#(define ((center-note-column x-offs) grob)
(let* ((sys (ly:grob-system grob))
(elements-lst (ly:grob-array->list (ly:grob-object sys 'all-elements)))
(grob-name (lambda (x) (assq-ref (ly:grob-property x 'meta) 'name)))
(X-extent (lambda (q) (ly:grob-extent q sys X)))
;; NoteColumn
(note-column-coord (ly:grob-relative-coordinate grob sys X))
(grob-ext (X-extent grob))
(grob-length (interval-length grob-ext))
;; NoteHeads
(note-heads (ly:grob-object grob 'note-heads))
(note-heads-grobs (if (not (null? note-heads))
(ly:grob-array->list note-heads)
'()))
(one-note-head (if (not (null? note-heads-grobs))
(car note-heads-grobs)
'()))
(one-note-head-length (if (not (null? one-note-head))
(interval-length (X-extent one-note-head)) ;; NB
0))
;; Stem
(stem (ly:grob-object grob 'stem))
(stem-dir (ly:grob-property stem 'direction))
(stem-length-x (interval-length (X-extent stem))) ;; NB
;; DotColumn
(dot-column (ly:note-column-dot-column grob))
;; AccidentalPlacement
(accidental-placement (ly:note-column-accidentals grob))
;; Arpeggio
(arpeggio (ly:grob-object grob 'arpeggio))
;; Rest
(rest (ly:grob-object grob 'rest))
;; BassFigure + ChordName
(other-grobs-to-center
;; TODO
;; Not sure: What belongs to the list, what not?
(list 'BassFigure
;'BassFigureAlignment
;'BassFigureAlignmentPositioning
'BassFigureBracket
'BassFigureContinuation
;'BassFigureLine
'ChordName
'FretBoard
))
(all-other-grobs (read-out other-grobs-to-center elements-lst))
(condensed-other-grobs
(remove
(lambda (x)
(not (= (ly:grob-relative-coordinate x sys X)
note-column-coord)))
all-other-grobs))
;; Grobs to center between
(args (list 'BarLine
'Clef
'KeySignature
'KeyCancellation
'TimeSignature))
(grob-lst (read-out args elements-lst))
(new-grob-lst (remove (lambda (x) (interval-empty? (X-extent x))) grob-lst))
(sorted-grob-lst (sort-by-X-coord sys new-grob-lst))
;; Bounds
(bounds (find-bounding-grobs grob sorted-grob-lst))
(left (cdr (X-extent (car bounds))))
(right (car (X-extent (cdr bounds))))
;;(bounds-coord (cons left right)) ;; delete
(basic-offset
(- (average left right)
(interval-center (X-extent grob))
(* -1 x-offs)))
(dir-correction
(if (> grob-length one-note-head-length)
(* stem-dir (* -2 stem-length-x) grob-length)
0))
) ;; End of Defs in let*
;; Calculation
(begin
;; (display "\n\taccidental-placement: \t")(write accidental-placement)
(for-each
(lambda (x)
(cond ((ly:grob? x)
(ly:grob-translate-axis!
x
(- basic-offset dir-correction)
X))))
(append
(list
(cond ((not (null? note-heads)) grob))
dot-column
accidental-placement
arpeggio)
condensed-other-grobs)))))
centerNoteColumnOn = \override Staff.NoteColumn #'after-line-breaking = #(center-note-column 0)
centerNoteColumnOff = \revert Staff.NoteColumn #'after-line-breaking
onceCenterNoteColumn =
#(define-music-function (parser location x-offs)(number?)
#{
\once \override Staff.NoteColumn #'after-line-breaking = #(center-note-column x-offs)
#})
%------------ Tests
\paper {
ragged-right = ##f
}
%{
% Jean-Charles' example:
\version "2.17.16"
\include "predefined-guitar-fretboards.ly"
\score {
<<
\new ChordNames \chordmode { c1 c }
\new FretBoards \chordmode { c1 c }
\new Staff \relative c'' { c4 c c c R1 }
\new Staff <<
\new Voice = "bla" \relative c'' { c1 \centerNoteColumnOn <c-1\2>1-.-! }
\new FiguredBass \figuremode { <[12 _!] 8 [6 4]>1 <[12 _!] 8 [6 4]> } >>
\new Lyrics
\lyricsto "bla" %\lyricmode
{ bla -- bla }
>>
\layout { }
}
%}
\paper {
system-system-spacing #'padding = #15
}
\paper { indent = 0 }
\score {
<<
\new Staff = "staff" \relative c'' \repeat unfold 2 { c4 c c c R1 }
\new Staff <<
\new Voice = "bla"
\relative c'' {
c1 c1 \break
c1
\centerNoteColumnOn
\newSpacingSection
\override Score.SpacingSpanner #'base-shortest-duration =
#(ly:make-moment 1 0)
<c c'>1\arpeggio
}
\new Lyrics
\lyricsto "bla" %\lyricmode
{ "|" -- "|" "|" -- "|" }
\new FiguredBass \figuremode {
\set figuredBassAlterationDirection = #RIGHT
%\set figuredBassPlusDirection = #RIGHT
\bassFigureExtendersOn
<[12 _!] 8 [6 4]>1 <[_- 9\+] 5 [6+ 4]>
<[12 _!] 8 [6 4]>1 <[_- 9\+] 5 [6+ 4]> }
\new Lyrics
\lyricsto "bla" %\lyricmode
{ "4" -- "6" "6" -- "6" }
>>
>>
}
%{
% tiny example:
<<
\new Staff
{ \time 3/4 \key b\minor R2.*3 }
\new Staff
{
\time 3/4 \key b\minor b''2.
\key a\minor \onceCenterNoteColumn #0 <a'' cis''>2.
\clef "treble"
R
}
>>
%}
%{
% full test:
\layout {
%indent = 0
\context {
\Score
\override NonMusicalPaperColumn #'line-break-permission = ##f
\override BarNumber #'break-visibility = #'#(#t #t #t)
}
\context {
\Staff
%\remove Time_signature_engraver
%\remove Key_engraver
%\remove Clef_engraver
}
}
\markup \vspace #2
testVoice = \relative c' {
\key b\minor
\time 3/4
b'2_"Zeit?" r4
\key g\minor
\time 3/4
\clef "bass"
R2.
\key a\minor
\time 3/4
\clef "treble"
R2.
\key g\minor
\clef "bass"
R2.
\key a\minor
\clef "treble"
%5
R2. \break
\key g\minor
\clef "bass"
R2.
\key a\minor
\clef "treble"
%7
R2.
\key g\minor
\clef "bass"
R2.*1\fermataMarkup
\key a\minor
\clef "treble"
R
\bar "|."
}
voice = \relative c' {
\key b\minor
\time 3/4
b'2 r4
R2.*6
R2.*1\fermataMarkup
R
\bar "|."
}
pUp = \relative c' {
\key b\minor
\clef "bass"
\time 3/4
% \stemUp
<d, fis b>2.\pp (
\centerNoteColumnOn
% \once \override Score.Arpeggio #'padding = #-1.5
% \set Score.connectArpeggios = ##t
<fis ais> %\arpeggio
<fis d'!>
<e! g! c!> )
%5
\onceCenterNoteColumn #-0.4
<dis fis! a b> (
<e g b> )
%7
<dis fis b> ~
<dis fis b>\fermata
r
}#FFFFFF
pDown = \relative c' {
\key b\minor
\clef "bass"
\time 3/4
<b,, fis' b>2. ( |
\centerNoteColumnOn
<ais fis' ais> %\arpeggio |
<d fis d'> |
<c g' c> ) |
%5
\onceCenterNoteColumn #-0.4
<b b'> ~ |
<b b'>-.-> |
%7
<b b'> ~ |
<b b'>\fermata |
r
}
\score {
<<
\new Staff %\voice
\testVoice
\new PianoStaff <<
\new Staff <<
\pUp
>>
\new Staff <<
\pDown
>>
>>
>>
\layout {
\context {
\Score
\remove "Bar_number_engraver"
}
}
}
%}
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
