Jonathan Kulp wrote:
Kim Shrier wrote:I don't like the results but it is a start. The letters should be a littlelarger and I would like to use the italic version of the font. KimI 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 [email protected] http://lists.gnu.org/mailman/listinfo/lilypond-user
