Re: French viol/lute tablature

[Jonathan Kulp]

Kim Shrier wrote:
> I have letters working after a fashion.  I have added 
> letter-tablature-format
> and bass-viol-tuning, tenor-viol-tuning, and treble-viol-tuning to my 
> copy of
> output-lib.scm.  This is a very simplistic implementation of using letters
> that uses the same font, font size, and alignment that the numbers use.  
> The
> results are not very pleasing and I will need to tweak it to make it look
> better.
>
> I am still pondering how I want to organize the code for the other aspects
> of French tab.
>
> Kim

Kim, I've been playing with this a bit and have come up with a decent 
start, I think.  I haven't figured out how to get the ancient notes 
above closer to the TabStaff--if I make them any lower on the zero-line 
staff, it starts showing ledger lines that I can't make disappear.

Give this a try and see what you think!

Jon

--
Jonathan Kulp
http://www.jonathankulp.com

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

\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 #'extra-offset = #'( 0.0 . 0.5 )
      \stemUp \cadenzaOn \noStem \time 2/2
      c4 d8 e f2
    }
  >>
>>
}