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

Reply via email to