[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
}
>>
>>
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
