Re: French viol/lute tablature

[Jonathan Kulp]

Jonathan Kulp wrote:

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


Working on this some more I've moved the ancient rhythm indications 
closer to the TabStaff and increased their fontsize.  How does this look?

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 
       #})
                    
rhythmStaffGlobal = {
      \stemUp
      \override Staff.TimeSignature #'transparent = ##t
      \override Staff.Clef #'transparent = ##t
%               \override Staff.StaffSymbol #'transparent = ##t
          \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'( 0 . -0 )
      \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
      \set fontSize = #5
}

rhythms = \relative c'' { 
  \rhythmStaffGlobal
  a4 a8 s8 a2 
}

tabGlobal = {
    \set TabStaff.stringTunings = #'(2 -3 -8 -12 -17 -22)
    \set TabStaff.tablatureFormat = #letter-tablature-format
    \override Beam #'transparent = ##t
    \override TabNoteHead #'font-size = #0
    \override TabNoteHead #'font-shape = #'italic
    \override TabNoteHead #'extra-offset = #'( 0.0 . 0.5 )
    \override Staff.Clef #'transparent = ##t
}

notes = \relative c {
  \stemUp \cadenzaOn \noStem \time 2/2 
  c4 d8 e <f, a c f>2
}

\score {
  <<
    \new Staff << 
      \rhythms
    >>
    \new TabStaff <<
      \tabGlobal \notes
    >>
  >>
}
<<attachment: tabtest.png>>_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user