Re: French viol/lute tablature

[Jonathan Kulp]

[moving this thread to user instead of devel]

Kim Shrier wrote:

> I don't like the results but it is a start.  The letters should be a little
> larger and I would like to use the italic version of the font.
>
> Kim

I made the letters a couple of sizes bigger and italics.  You can adjust 
the size if it's not right.  I believe the default size was -2.

Jon

%%%%%%%%%%%%%%%%%%%%%%%%%%

\version "2.11.64"

#(define (letter-tablature-format str context event)
  (let*
      ((tuning (ly:context-property context 'stringTunings))
       (pitch (ly:event-property event 'pitch)))
    (make-whiteout-markup
     (make-vcenter-markup
      (string (integer->char
         (+ (char->integer #\a)
            (- (ly:pitch-semitones pitch)
            (list-ref tuning (- str 1))))))))))

noStem =    #(define-music-function (parser location) ()
       #{
         \override Voice.Stem #'transparent = ##t
       #})



\score {
<<
  \new Staff <<
    \relative c'' {
      \stemUp
      \override Staff.TimeSignature #'transparent = ##t
      \override Staff.Clef #'transparent = ##t
      \override Staff.StaffSymbol #'line-count = 0
      \override LedgerLineSpanner #'transparent = ##t
      \override Stem #'flag-style = #'mensural
      \override Stem #'thickness = #1.0
      \override NoteHead #'style = #'mensural
      \autoBeamOff
      a4 a8 a a2
    }
  >>
  \new TabStaff <<
    \set TabStaff.stringTunings = #'(2 -3 -8 -12 -17 -22)
    \set TabStaff.tablatureFormat = #letter-tablature-format
    \relative c {
      \override Beam #'transparent = ##t
      \override TabNoteHead #'font-size = #1
      \override TabNoteHead #'font-shape = #'italic
      \override TabNoteHead #'extra-offset = #'( 0.0 . 0.5 )
      \stemUp \cadenzaOn \noStem \time 2/2
      c4 d8 e f2
    }
  >>
>>
}