Hi forgot to include attachments.
On Wednesday, July 2, 2014 9:39:38 AM, MING TSANG <tsan...@rogers.com> wrote:
James: thank you for the email.
Thomas: Is it possible to modify 'solfege-engraver' not display / print
tied-to-notes?
Emmanuel,
Ming.
On Wednesday, July 2, 2014 8:41:13 AM, James <pkx1...@gmail.com> wrote:
On 02/07/14 13:34, MING TSANG wrote:
Hi, Colin:
>Thank you for you email.
>I don't remember who the author of 'solfege-engraver' is? By re-submit to the
>list again I hope the author will see this and be able to update it if it is
>possible.
>Emmanuel,
>Ming
http://lists.gnu.org/archive/html/lilypond-user/2014-04/msg00450.html
Thomas Morely?
James
>
>
>On Monday, June 30, 2014 11:01:34 PM, Colin Campbell <c...@shaw.ca> wrote:
>
>
>
>On 14-06-30 07:39 PM, MING TSANG wrote:
>
>
>>
>>Hi, Colin:
>><><><><>
>>Thank you for the suggestion. But I want to preserve what is code in the
>>staff. I do not want to display second ⓢ and third ⓢ above the staff (the
>>same way midi track just extend the beats without playing it). The same for
>>second ⓕ. I want to retain the ⓡ because it is a slur (just as midi will
>>play it).
>>"ⓓ" "ⓡ" "ⓜ" "ⓕ" "ⓢ" "ⓛ" "ⓣ"
>>
>>
>>
>>Emmanuel,
>>Ming
>Sorry about that, Ming! I hadn't read your original
message properly. As you seem to be modifying a
scheme snippet, perhaps you can find a way to
trigger the solfege only on a pitch change. I'm
thinking of something like \set chordChanges = ##t
in a ChordNames context. Can you get in touch with
the snippet author?
>
>HTH,
>
>Colin
>
>--
>The average pencil is seven inches long, with just
a half-inch eraser - in case you thought optimism
was dead.
> - Robert Brault, software developer, writer
(1952- )
>
>
>
>
>_______________________________________________
lilypond-user mailing list lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user\version "2.19.8"
#(define syllables '("do" "re" "mi" "fa" "so" "la" "ti"))
#(define sylsâ '("â" "â¡" "â" "â" "â¢" "â" "â£"))
#(define numRâ '("â" "â" "â" "â" "â" "â
" "â"))
#(define number '("1" "2" "3" "4" "5" "6" "7"))
#(define numRâ '("â" "â" "â" "â" "â" "â" "â"))
%{
#(define (solfege-engraver lst dir)
(make-engraver
(acknowledgers
((note-head-interface engraver grob source)
(let* (
(context (ly:translator-context engraver))
(tonic-pitch (ly:context-property context 'tonic))
(tonic-index (ly:pitch-notename tonic-pitch))
(event (ly:grob-property grob 'cause))
(grob-pitch (ly:event-property event 'pitch))
(grob-index (ly:pitch-notename grob-pitch))
(delta (modulo (- grob-index tonic-index) 7))
(name (list-ref lst delta))
(newgrob (ly:engraver-make-grob engraver 'TextScript event)))
(if (string= name "Hb") (set! name "B"))
(set! (ly:grob-property newgrob 'text) name)
(set! (ly:grob-property newgrob 'direction) dir) )))))
%}
#(define (solfege-engraver lst dir)
(make-engraver
(acknowledgers
((note-head-interface engraver grob source)
(let* (
(context (ly:translator-context engraver))
(tonic-pitch (ly:context-property context 'tonic))
(tonic-index (ly:pitch-notename tonic-pitch))
(event (ly:grob-property grob 'cause))
(event-copy (ly:event-deep-copy event))
(grob-pitch (ly:event-property event 'pitch))
(grob-index (ly:pitch-notename grob-pitch))
(delta (modulo (- grob-index tonic-index) 7))
(name (list-ref lst delta))
(newgrob (ly:engraver-make-grob engraver 'TextScript event-copy)))
;; clear 'tweaks for newgrob
;; (ly:event-set-property! event-copy 'tweaks '())
(if (string= name "Hb") (set! name "B"))
;; Give newgrob 'outside-staff-priority depending on
;; grob 'staff-position
(set! (ly:grob-property newgrob 'outside-staff-priority)
(+ (ly:grob-property newgrob 'outside-staff-priority)
(* dir (ly:grob-property grob 'staff-position))))
(set! (ly:grob-property newgrob 'text) name)
(set! (ly:grob-property newgrob 'direction) dir) )))))
xup = \with { \consists #(solfege-engraver syllables UP) }
xdown = \with { \consists #(solfege-engraver syllables DOWN) }
zup= \with { \consists #(solfege-engraver sylsâ UP) }
zdown= \with { \consists #(solfege-engraver sylsâ DOWN) }
nup= \with { \consists #(solfege-engraver number UP) }
ndown= \with { \consists #(solfege-engraver number DOWN) }
rup= \with { \consists #(solfege-engraver numRâ UP) }
rdown= \with { \consists #(solfege-engraver numRâ DOWN) }
sup= \with { \consists #(solfege-engraver numRâ UP) }
sdown= \with { \consists #(solfege-engraver numRâ DOWN) }
% { %%%%%%%%%%%%%%% sample %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
soprano = { a'4 g'4~2~ | 4 f'4~2 | c'2( d'2) | b1}
%soprano = { a'4 g'2.~ | 4 f'2. | c'2( d'2) | b1}
sopWords = \lyricmode {
Red fox and blue cat.
}
\new Staff {
<<
\new Voice = "soprano" \zup {
\override TextScript.outside-staff-priority = 1000
\textLengthOn % make room for text!
\voiceOne \soprano
}
\new Lyrics \with {
\override VerticalAxisGroup #'staff-affinity = #CENTER
} \lyricsto "soprano" \sopWords
>>
}
\markup{The 'fox' is sung 4 beats long & 'and' 3 beats long ( a tie).}
\markup{It will be clearer if (2)\underline{'the second & third â¢'} is not printed.}
\markup{ ... Is it possible to modify 'solfege-engraver' not to print (2)?}
\markup{The â¡ for 'blue' is ok being printed because it is a slur.}
%}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
