Staff and Voice Contexts to use with hufnagel notation?

[Andreas Stenberg]

Hi!

I'm looking for better way to typset examples / short pieces using 
hufnagel notation.

I would like to have something like the vaticana staff and voice 
contexts and also some shortcuts/ suport for hufnagel ligatures.

Twidling around with tweaks and other is a bit bottersome and doesn't 
produce a werry satisfying result.

Compare the output from this examples with the example of original 
hufnagel notation enclosed. (ex.jpg)

To get even something on the lines of mor simple hufnagel notation in 
secondExample screenshot would be welcome

Andreas Stenberg

\version "2.18.2"
\include "deutsch.ly"

%% deffinitions tweaked from gregoriana.ily

virga =
\once \override NoteHead.style = #'hufnagel.virga

lpes =
\once \override NoteHead.style = #'hufnagel.lpes

virgaL = \tweak extra-offset #'(-3.5 . 0)   \once \override 
NoteHead.style = #'hufnagel.virga


finalis = {
  \once \override BreathingSign.stencil = #ly:breathing-sign::finalis
  \once \override BreathingSign.Y-offset = #0

  % Workaround: add padding.  Correct fix would be spacing engine 
handle this.
  \once \override BreathingSign.minimum-X-extent = #'(-0.8.0 . 0.0)
  \once \override BreathingSign.minimum-Y-extent = #'(-2.5 . 2.5)

  \breathe
}

#(append! supported-clefs '(("hufnagel-fa3" . ("clefs.hufnagel.fa" 3 0))))


upperStaff = \new VaticanaStaff = "upperStaff" <<
  \set Staff.instrumentName = \markup \fontsize #'11  "Q"
  \context VaticanaVoice = "cantus" <<
    \transpose c c {
      %      \override Staff.StaffSymbol.line-count = #5
      \startStaff
      \override Staff.KeySignature.glyph-name-alist =
      #alteration-hufnagel-glyph-name-alist
      \override Staff.Accidental.glyph-name-alist =
      #alteration-hufnagel-glyph-name-alist
      \override Staff.Custos.style = #'hufnagel
      \override NoteHead.style = #'hufnagel.punctum
      \clef "hufnagel-fa3"
      %\set Staff.clefPosition = #6
      % \set Staff.middleCPosition = #4
      %  \set Staff.middleCClefPosition = #4
      d4
      \tweak extra-offset #'(0.8 . 0) d\melisma \virga c \tweak 
extra-offset #'(-0.8 . 0) c\melismaEnd \tweak extra-offset #'(0.8 . 0) 
a,\melisma \virga g,\melismaEnd

      c d

      \tweak extra-offset #'(0.8 . 0) f\melisma \virga e\melismaEnd
      \break \bar ""
      \clef "hufnagel-fa2"
      \tweak extra-offset #'(0.8 . 0) d\melisma \virga e\melismaEnd e

      \tweak extra-offset #'(0.8 . 0) d\melisma \virga g\melismaEnd g

      \virga f e d

      \virga e \break \bar "" \tweak extra-offset #'(0.8 . 0) c\melisma 
\virga d\melismaEnd d


      \virga g g

      e g \tweak extra-offset #'(0.8 . 0) g\melisma \virga a 
g\melismaEnd \break \bar ""

      \virga f e c

      e \virga g

      \virga f \break \bar "" \clef "hufnagel-fa3" e d

      \virga e \tweak extra-offset #'(0.8 . 0) c\melisma  \virga 
d\melismaEnd d

      \finalis
    }
  >>
  \new Lyrics = "One" \lyricsto "cantus" {
    uem ter -- ra pon -- tus e -- the -- ra co -- lunt a -- do -- rant 
pre -- di -- cant: |
    tri -- nam re -- gen -- tem ma -- chi -- nam | clau -- strum ma -- 
ri -- e ba -- iu -- lat. |
  }

>>

\paper {
  line-thickness = #(/ staff-space 5.0)
}

\score {
  <<
    \upperStaff
  >>
  \layout {
    indent = 10.0
    line-width = 90
    ragged-last = ##t
    \context {
      \Score
      timing = ##f
    }
    \context {
      \VaticanaStaff
      \revert  BarLine.transparent
      \override StaffSymbol.thickness = #1.0
      \override KeySignature.glyph-name-alist =
      #alteration-vaticana-glyph-name-alist
      \override Custos.neutral-position = #4
    }
  }
}

ex.jpg
Description: JPEG image

secondExample.png
Description: PNG image