One more bit i did not think about: changed font to italic, more
   appropriate.

   http://www.4shared.com/dir/10890314/b1afbb12/Francesco.html

   \version "2.10.33"
   \header{
    title = "Ricercar"
    opus = \markup {\small \italic "(N 52)"}
     composer = "Francesco da Milano"
    tagline = ""
    piece = \markup {\small \italic ""}
   }
   \paper{
     paper-size = "letter"
     oddFooterMarkup = "Francesco Ricercar"
     %%system-count = #10
     ragged-bottom = ##t
     ragged-lastbottom = ##t
     %%print-page-number = ##t
     top-margin = .001\in
     %%bottom-margin = .1\in
     %%head-separation = 0\in
     %%foot-separation = 0\in
     %%between-system-space = .25\in
     %%between-system-padding = .25\in
     before-title-space = .001\in
     between-title-space = .001\in
     after-title-space = .001\in

     myStaffSize = #17
    }

     #(set-global-staff-size 17
     )
   #(define (fret-letter-tablature-format string tuning pitch)
     (make-string 1 (integer->char
     (+ (char->integer #\a)
     (- (ly:pitch-semitones pitch)
     (list-ref tuning (- string 1)))))))
   bb = \bar "|"
   offset = {
     \override Voice.Stem #'extra-offset = #'(0 . .6)
     \override Voice.Beam #'extra-offset = #'(0 . .6)
   }
   I = \context Voice \relative c' {
     \set Staff.midiInstrument = "harpsichord"
     \once \override Score.MetronomeMark #'transparent = ##t
     \tempo 4 = 42
     \offset


     \stemUp g'4\1 g8\1 g\1 \bar "|" d4\2 d\2 \bar "|" r8 a'\1 g\1 f\2
   ees\2 g16.\1 a32\1 \bar "|"

     bes8\1 bes\1 a\1 g\1 \bb g\1 f\2 ees\2 d\2 \bb r16 f\2 ees\2 d\2 r
   bes'\1 a\1 g\1 r c\1 \bb

     bes8.\1 a16\1 g16.\1 f32\2 ees16 d c f8 ees16 \bb d8. s r16 d \bb bes
   ees d g[ f bes] g c a f \bb

     g bes8 a g fis16 \bb g4 f8 d ees4 d8 s \bb

     f16. g32 a16 f c'4 \bb bes8. bes16 a g8 fis16 \bb g8 g g ees16 c d
   bes c d \bb

     ees16. d32 c16 bes a g32\4 a \bb bes c d e f g a bes c16 bes a g \bb
   f32 ees d c bes a g f ees d c bes\6

     r16 c'' bes a g bes a g \bb f a g f e g f e \bb r bes' a g16. e32 fis
   g fis16 g \bb g4 \bar "||"
   }
   II = \context Voice \relative c' {
     \set Staff.midiInstrument = "harpsichord"
     \stemDown s1 d8\2 d\2 bes\3 bes\3 r16 c\3 ees8\2

     d s s c bes a c d\3 c s s s c

     d8. s s s bes c16 bes c a8 s16 c bes ees s d ees8 c16 d\3

     ees d c8 d s s1

     s4.. ees16 d8. d16 c bes a8 s16 ees' d c8 b16 c a\4 bes g8 bes16

     s4. s2 s4.

     s16 c d8 bes c a bes s4 d8 s s4 d
   }
   III = \context Voice \relative c' {
     \set Staff.midiInstrument = "harpsichord"
     \offset
     \stemUp g8\4 g16\4 a\3 bes\3 g\4 bes8\3 g4\4 g\4 fis8\4 s s s g4

     r16 g d'8 r16 f, s8 g r16 f s8 g16 f f8\4 bes g c a\4

     g8. s s s s a16 g8. fis16 g8 s16 c a d g,8 s

     s4 bes8 a g4 a c bes16. c32 d16 bes

     a4 s g s g8 s s s s s

     s4. s4 ees'16 d c bes a s s4

     s2 s4 g8 a f c'16 bes a8 a <b g>4
   }
   IV = \context Voice \relative c' {
     \set Staff.midiInstrument = "harpsichord"
     \stemDown g,4\6 g8\6 g\6 g\6 g16\6 a\6 bes\6 g\6 bes\6 c\5 d8\5 d\5
   ees\5 d16\5 bes\6 c8\5 c\5

     g\6 r16 g\6 d'8 r16 c r16 g\6 d'8 r16 c r bes\6 s8 g'\4 ees c4

     r16 g32\6 a\6 bes\6 c d16 ees c32 d ees f g16 a f32 g a bes c16 r
   bes,32\6 c d ees f16\5 s c d8 ees16 c g' c, d bes\6 c8 f16 bes\4

     ees, bes\6 ees f g bes,\6 c d g,16.\6 a32\6 bes16\6 g\6 d'16. ees32
   f16 d c16. d32 ees16 c g8.\6 g16\6

     d'8. d16 c16. d32 ees16 c g16.\6 a32\6 bes16\6 g\6 a\6 bes\6 c d g,\6
   c b\6 c g8\6 c16 f\5 bes,\6 ees8 bes16\6

     c d ees16. d32 c16 bes\6 g8\6 d' c16 d f g d8 g,4\6

     a32\6 g\6 a16\6 g\6 d' ees8 c d bes\6 c a\6 bes\6 c d d g,4\6
   }
   \score {
     <<
     \new TabStaff = "guitar tab" <<
     \set TabStaff.stringTunings = #'(7 2 -3 -7 -12 -17)
     %\set TabStaff.stringTunings = #'(7 2 -3)
     %%\override TabStaff.Stem #'transparent = ##t
     %%\override TabStaff.Dots #'transparent = ##t
     \set TabStaff.tablatureFormat = #fret-letter-tablature-format
     \override TabStaff.TabNoteHead #'extra-offset = #'(0 . .3)
     \set Score.defaultBarType = "empty"
     \override TabStaff.TabNoteHead #'font-shape = #'italic
     \context TabVoice = "I" {\I }
     \context TabVoice = "II" {\II }
     %\context TabVoice = "III" {\III \III}
     %\context TabVoice = "IV" {\IV \IV}
     >>
     \new TabStaff = "guitar tab" <<
     \set TabStaff.stringTunings = #'(7 2 -3 -7 -12 -17)
     %\set TabStaff.stringTunings = #'(-7 -12 -17)
     %%\override TabStaff.Stem #'transparent = ##t
     %%\override TabStaff.Dots #'transparent = ##t
     \set TabStaff.tablatureFormat = #fret-letter-tablature-format
     \override TabStaff.TabNoteHead #'extra-offset = #'(0 . .3)
     \set Score.defaultBarType = "empty"
     \override TabStaff.TabNoteHead #'font-shape = #'italic
     %\context TabVoice = "I" {\I \I}
     %\context TabVoice = "II" {\II \II}
     \context TabVoice = "III" {\III }
     \context TabVoice = "IV" {\IV }
     >>
     >>
     \layout { }

     \midi {
     }
     }
   alexander

   --


To get on or off this list see list information at
http://www.cs.dartmouth.edu/~wbc/lute-admin/index.html

Reply via email to