Augmention dotts with \tabFullNotation

[Andreas Stenberg]

Hi!

I'm fidling around with an edition containing among other things a 
version the piece edited from a Petrucci print from 1509 where some 
parts of the original fourpart song are intabulated into italian lute 
tablature.

My last effort to get at least a credible look-alike of the original 
print (this will be an edition containing both diplomatorical and 
practical editions of the versions of the piece) involves using the 
\tabFullNotation in tablaur and tweeking outlook, placement etc of stems 
and flags. The present problem is with dotted notes. With a (two note) 
chord I get as many augmention dots and mooving the around will move 
both of them.

I need a way to supress the unnecessary extra dott (that goes into some 
wrry annoying and weird places when mooving the dott needed to its place 
just beneeth the flagg.

Here's an example. (Also enclosed as file) A Jpg on wath it should look 
like is enclosed. One example of this probleme is in bar 2 in the 
tabalature in the examples.

\version "2.20.0"

\include "deutsch.ly"

ficta = {
  \once \set suggestAccidentals =##t
}


rythmUp = {

      \once \override Dots.extra-offset = #'(0.0 . 1)
      \once \override Stem.extra-offset = #'(0.0 . 3)
      \once \override Flag.extra-offset = #'(0.0 . 3)
}
rythmUpB = {

      \once \override Dots.extra-offset = #'(0.0 . 1)
      \once \override Stem.extra-offset = #'(0.0 . 2)
      \once \override Flag.extra-offset = #'(0.0 . 2)
}


symbols = {
                         \key f \major

                         \time 2/2
                         \set Timing.measureLength = #(ly:make-moment 4/2)

  \omit Clef
  \override Staff.TimeSignature.style = #'mensural
  \omit NoteHead
      \stemUp
      \autoBeamOff
      \override Flag.stencil = #old-straight-flag
      \override Stem.thickness = #1.0
      \override Dots.extra-offset = #'(0.0 . 1)
      \override Stem.extra-offset = #'(0.0 . 1)
      \override Flag.extra-offset = #'(0.0 . 1)



                         <a'\6 f\2 >8*4 <g'\5 g\3 >16*4 \rythmUp 
<f'\5>16*4_. <e'\5 a\3 >8*4 <d'\4 b\3 >8*4

                         <e'\5 a\3 >8.*4 \rythmUpB <d'\4>16*4_. <e'\5 
a\3 >4*4


}

voicePart = <<
  \new Voice = "discantus" \relative c' {
    \set Staff.midiInstrument = "choir aahs"
    %\clef "petrucci-g"
    \clef "petrucci-c2"
    \override Staff.NoteHead.style = #'petrucci
    \override Staff.Rest.style = #'mensural
    \override Staff.TimeSignature.style = #'mensural
  \override Staff.KeySignature.glyph-name-alist =
  #alteration-mensural-glyph-name-alist

    \override Staff.Accidental.glyph-name-alist =
  #alteration-mensural-glyph-name-alist
  \override Staff.AccidentalSuggestion.glyph-name-alist =
  #alteration-mensural-glyph-name-alist

  %\transpose c b,
    {
      \key f \major
      \relative c' {

        f2 e4\melisma d4\melismaEnd c2 d2~

        d2 \ficta cis4\melisma \ficta h4\melismaEnd \ficta cis!1


      }
    }
  }
  \new Lyrics \lyricsto "discantus" {
    dis -- si chi miei di sian
  }
>>




\score {
  <<
  \voicePart
  \new TabStaff \with { stringTunings = #`( ,(ly:make-pitch -2 5 
NATURAL) ,(ly:make-pitch -1 1 NATURAL) ,(ly:make-pitch -1 4 NATURAL) 
,(ly:make-pitch -1 6 NATURAL) ,(ly:make-pitch 0 2 NATURAL) 
,(ly:make-pitch 0 5 NATURAL) )
                                       \hide Clef
} {

    \tabFullNotation
  \removeWithTag #'Sound
    \symbols
  }
  >>
  \layout {}
}

Yours Andreas Stenberg

Petrucci-Tab-ex.jpg
Description: JPEG image

Petrucci-ta-Ex-Lily.ly
Description: Text Data