Re: Temporary font change?

[Klaus Blum]

Hi Urs, 

thanks for your hint. Now it works:

% --------------------------------------------------------

\version "2.19.15"

#(define-public (add-notation-font fontnode name music-str brace-str factor)
   (begin
    (add-music-fonts fontnode
      name music-str brace-str
      feta-design-size-mapping factor)
    fontnode))

\paper {
  #(define notation-fonts
     (list
      (list 'improviso "improviso" "improviso")
      (list 'emmentaler "emmentaler" "emmentaler")
      ))

  #(begin
    (for-each
     (lambda (tup)
       (add-notation-font fonts
         (car tup) ; font identifier
         (cadr tup) ; notation font
         (caddr tup) ; brace font
         (/ staff-height pt 20)))
     notation-fonts))
}

handOn = {
  \override NoteHead.color   = #blue
  \override Accidental.color = #blue
  \override NoteHead #'font-family = #'improviso
  \override Accidental #'font-family = #'improviso
}

handOff = {
  \revert NoteHead.color
  \revert Accidental.color
  \revert NoteHead #'font-family
  \revert Accidental #'font-family
}

<<
  \new Staff {
    <<
      { c'1^"Complete the following intervals:"  f' dis'}
      \\
      { \handOn as'1 a' ais' }
    >>
  }
  \new Lyrics \lyricmode { "   minor 6th   "1 "   major 3rd   " "   perf.
5th   " }
>>

% --------------------------------------------------------

P.S.: I had to change the version number to 2.19.15. 
2.18.2 returns an error message:
Wrong number of arguments to #<procedure add-music-fonts (node name family
design-size-alist factor)>
It seems that add-music-fonts now has different parameters.

P.P.S.: Does anybody know why the whole notes don't align as long as there
are two voices, separated by a double backslash?


Cheers, 
Klaus




--
View this message in context: 
http://lilypond.1069038.n5.nabble.com/Temporary-font-change-tp172083p172089.html
Sent from the User mailing list archive at Nabble.com.