On Thu, Jul 14, 2016 at 10:24 AM, Mojca Miklavec
<[email protected]> wrote:
> Hi,
>
> Just as an exercise I went on reading different parts of the manuals
> and also came up with an alternative "poor man's" solution that
> achieves the desired output, but would be way more tedious to input.
> I'm attaching it nevertheless (maybe it turns out that parts of the
> complex code could be simplified).
This is clever, never would have thought of it myself. However, I
wonder if you would be able to typeset complex examples like the one
you attach down-thread with this approach.
>>
>> Ah, OK. Good. I assumed that the push applied to both staves and so should
>> be
>> centered like many piano dynamics. But as I say I know nothing about
>> accordion notation!
>
> Yes, push applies to both staves of course (with a bit of humour:
> pushing open part and pulling the other would probably result in
> translation of the instrument rather than music :) :) :) :).
That puts it into perspective :)
>
> I checked one of the scores I got and the lines are in fact not
> aligned vertically. They might indeed be "centered in the empty space
> between the staves", but the effect is not noticeable because the
> differences in line heights are just minor ones.
I think you will be able to do much more with alignment putting the
line into its own context. In the attached example, I
put it into a Dynamics context. You have to use spacers to get the
attachments right--redundant information, but I think that
the advantages make the extra trouble worth it.
That is if you can come to grips with the complex vertical spacing engine :)
.
>
> Thank you. But now the line from the 8th bar on is too close to the
> bottom stave (and in the second example the last horizontal line is
> too close to the upper stave).
>
> It looks slightly better if I add >c'< to the basses of the first
> example or >c< to the main melody of the second example.
Again, you have complete control over vertical spacing with the line
in its own context.
[coloring objects affected by push/pull}
>
> What I meant was rather the following:
>
> \new PianoStaff <<
> \new Staff {
> f'1
> \startPush
> f'
> \startPull
> f'
> }
> \new Staff {
> \clef bass
> f1
> f % some magic to make this one red automatically
> f
> }
>>>
Oh, OK, not trivial at all to do this automatically. Probably you
will end up just doing it manually.
>
>> And also how lyrics relate.
>
> Usually it's (from top to bottom):
>
> - (optional) names of buttons and/or fingers
> - first stave / melody
> - lyrics
> - horizontal line to mark push/pull
> - (optional) whatever markings are needed for the basses (could be
> fingers, staccato, ...)
> - second stave / basses
> - (optional) whatever markup might be needed below (very often there
> is the button number to help people who don't know musical theory)
Please see the attached example, where I recreate the PNG you attach
down-thread. I omitted several elements
which are easily handled by extra Dynamics or Lyrics contexts.
>
>
> I need to add that many people who play the instrument know absolutely
> nothing about the music theory and are not able to read the scores.
> Until recently the instrument has never been taught in music schools
> and most people have learnt it on their own simply by trying out what
> sounded right. Many of them are usually able to repeat any melody they
> hear.
>
> But even for those who know the scores and are only starting playing
> the instrument it's super difficult to remember which pitch belongs to
> which of the 30+ buttons. The pitch also changes when playing
> direction changes, making the whole thing even trickier. Playing form
> "button labels" (A2, C5, B4, ...) is thus much much easier and many
> still learn just the "button name notation" without ever learning any
> theory. Teachers also rarely use anything else but the button labels.
>
> The "best" scores for beginners contain all of the following elements:
> - all the pitches in both staves (melody + basses), even if everyone
> ignores them
> - all button names for both staves
> - all finger numbers (at least for the upper stave)
> - lyrics
> - playing direction
Thank you for the explanation. My reaction is that it would be nice
to be able to present different
"editions" which provide this and that information but omit details
which, say, an experienced player wouldn't need. Judging by the PNG,
these scores are cluttered and possibly a bit
overwhelming for the player?
I hope that the attached will give you what you need. It didn't take
me long at all to recreate what I did of the score example.
Best,
David
\version "2.19.30"
#(define-event-class 'accordion-push-span-event 'span-event)
#(define ly:accordion-push-spanner::print
(lambda (grob)
(let* ((bound-L (ly:spanner-bound grob LEFT))
(bound-R (ly:spanner-bound grob RIGHT))
;; (common-X (ly:grob-system grob)) probably does the same
;; as the next three lines...
(common-X (ly:grob-common-refpoint grob bound-L X))
(common-X (ly:grob-common-refpoint bound-L bound-R X))
(common-X (ly:grob-common-refpoint grob common-X X))
(extent-L (ly:grob-robust-relative-extent bound-L common-X X))
(left-X (if (= 1 (ly:item-break-dir bound-L))
(cdr extent-L)
(car extent-L)))
(right-X (cdr (ly:grob-robust-relative-extent bound-R common-X X)))
(off (ly:grob-relative-coordinate grob common-X X))
(th (ly:grob-property grob 'thickness 1))
(stil (ly:round-filled-box (cons left-X right-X) (cons 0 th) 0.0)))
(ly:stencil-translate-axis stil (- off) X))))
#(define (add-grob-definition grob-name grob-entry)
(let* ((meta-entry (assoc-get 'meta grob-entry))
(class (assoc-get 'class meta-entry))
(ifaces-entry (assoc-get 'interfaces meta-entry)))
(set-object-property! grob-name 'translation-type? ly:grob-properties?)
(set-object-property! grob-name 'is-grob? #t)
(set! ifaces-entry (append (case class
((Item) '(item-interface))
((Spanner) '(spanner-interface))
((Paper_column) '((item-interface
paper-column-interface)))
((System) '((system-interface
spanner-interface)))
(else '(unknown-interface)))
ifaces-entry))
(set! ifaces-entry (uniq-list (sort ifaces-entry symbol<?)))
(set! ifaces-entry (cons 'grob-interface ifaces-entry))
(set! meta-entry (assoc-set! meta-entry 'name grob-name))
(set! meta-entry (assoc-set! meta-entry 'interfaces
ifaces-entry))
(set! grob-entry (assoc-set! grob-entry 'meta meta-entry))
(set! all-grob-descriptions
(cons (cons grob-name grob-entry)
all-grob-descriptions))))
#(add-grob-definition
'AccordionPushSpanner
`(
(direction . ,UP)
(staff-padding . 0.8)
(thickness . 1)
(outside-staff-priority . 1000)
(stencil . ,ly:accordion-push-spanner::print)
(staff-padding . 0.8)
(meta . ((class . Spanner)
(interfaces . (font-interface
line-interface
line-spanner-interface
axis-group-interface
outside-staff-interface
side-position-interface))))))
#(define scheme-event-spanner-types
'(
(AccordionPushSpanEvent
. ((description . "Used to signal where accordion push lines
start and stop.")
(types . (accordion-push-span-event span-event event))
))
))
#(set!
scheme-event-spanner-types
(map (lambda (x)
(set-object-property! (car x)
'music-description
(cdr (assq 'description (cdr x))))
(let ((lst (cdr x)))
(set! lst (assoc-set! lst 'name (car x)))
(set! lst (assq-remove! lst 'description))
(hashq-set! music-name-to-property-table (car x) lst)
(cons (car x) lst)))
scheme-event-spanner-types))
#(set! music-descriptions
(append scheme-event-spanner-types music-descriptions))
#(set! music-descriptions
(sort music-descriptions alist<?))
#(define (add-bound-item spanner item)
(if (null? (ly:spanner-bound spanner LEFT))
(ly:spanner-set-bound! spanner LEFT item)
(ly:spanner-set-bound! spanner RIGHT item)))
%{
#(define (axis-offset-symbol axis)
(if (eq? axis X) 'X-offset 'Y-offset))
#(define (set-axis! grob axis)
(if (not (number? (ly:grob-property grob 'side-axis)))
(begin
(set! (ly:grob-property grob 'side-axis) axis)
(ly:grob-chain-callback
grob
(if (eq? axis X)
ly:side-position-interface::x-aligned-side
side-position-interface::y-aligned-side)
(axis-offset-symbol axis)))))
%}
accordionPushSpannerEngraver =
#(lambda (context)
(let ((span '())
(finished '())
(event-start '())
(event-stop '()))
(make-engraver
(listeners ((accordion-push-span-event engraver event)
(if (= START (ly:event-property event 'span-direction))
(set! event-start event)
(set! event-stop event))))
((process-music trans)
(if (ly:stream-event? event-stop)
(if (null? span)
(ly:warning "You're trying to end a accordion push spanner but you haven't started one.")
(begin (set! finished span)
(ly:engraver-announce-end-grob trans finished event-start)
(set! span '())
(set! event-stop '()))))
(if (ly:stream-event? event-start)
(begin (set! span (ly:engraver-make-grob trans 'AccordionPushSpanner event-start))
; (set-axis! span Y)
(set! event-start '()))))
((stop-translation-timestep trans)
(if (and (ly:spanner? span)
(null? (ly:spanner-bound span LEFT)))
(ly:spanner-set-bound! span LEFT
(ly:context-property context 'currentCommandColumn)))
(if (ly:spanner? finished)
(begin
(if (null? (ly:spanner-bound finished RIGHT))
(ly:spanner-set-bound! finished RIGHT
(ly:context-property context 'currentCommandColumn)))
(set! finished '())
(set! event-start '())
(set! event-stop '()))))
((finalize trans)
(if (ly:spanner? finished)
(begin
(if (null? (ly:spanner-bound finished RIGHT))
(ly:spanner-set-bound! finished RIGHT
(ly:context-property context 'currentMusicalColumn)))
(set! finished '())))
(if (ly:spanner? span)
(begin
(ly:warning "I think there's a dangling accordion push spanner :-(")
(ly:grob-suicide! span)
(set! span '())))))))
startPush =
#(make-span-event 'AccordionPushSpanEvent START)
startPull =
#(make-span-event 'AccordionPushSpanEvent STOP)
redPush =
#(define-music-function (music) (ly:music?)
#{
\override NoteHead.color = #red
\startPush
#music
\startPull
\revert NoteHead.color
#})
%%%%%%%%%%%%%%%%%%%%%%%%%%%%% EXAMPLE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
global = {
\time 2/4
\key f \major
}
\new PianoStaff <<
\new Staff <<
\new Voice = "melody" {
\global
\partial 4 c'8 c'
c'8 c'4 c'8~
c'8 c'4 d'8~
d'4 e'8 e'~
e'8 f'4.~
f'2~
f'8 a a a
a8 bes c' c'~
\break
c'8 d'4.~
d'2~
d'8 c' c' c'
c'8 bes a g~
g2~
g2~
g8 c' s4
}
\new Lyrics \lyricsto "melody" {
\repeat unfold 50 { "foo" }
}
>>
\new Dynamics \with {
\override VerticalAxisGroup.nonstaff-nonstaff-spacing.padding = 1
} {
s4
s2*6
s4 s8 \startPush s8
s2*3
s4 s8 \startPull s8
s2*3
}
\new Staff = "staff" <<
\new Voice = "bass" {
\clef bass
\global
r4
R2*3
\repeat unfold 7 { d,8 <d f a> }
c,8 <e g c'>
\repeat unfold 3 { bes,,8 <d f bes> f, <d f bes> }
bes,8 <d f bes> f, <e g c'>
\repeat unfold 2 { c,8 <e g c'> g, <e g c'> }
c,8 <e g c'> c, d,
}
\new Lyrics \with {
alignAboveContext = "staff"
}
\lyricmode {
\skip 4
\skip 2*3
"9"8 "8" "9" "8"
"9" "8" "9" "8"
"9" "8" "9" "8"
"9" "8" "4" "1"
"6" "5" "4" "5"
"6" "5" "4" "5"
"6" "5" "4" "3"
"4" "3" "2" "3"
"4" "3" "2" "3"
"4" "3" "4" "9"
"7" "6" "7" "9"
}
>>
>>
\layout {
ragged-last = ##t
\context {
\Global
\grobdescriptions #all-grob-descriptions
}
\context {
\Dynamics
\consists \accordionPushSpannerEngraver
}
}
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
