\version "2.17.10"
\include "english.ly"
#(set-global-staff-size 18)
\pointAndClickOff
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\header {
  title = \markup \italic "Author of Light"
  instrument = \markup \italic "for voice and Luth"
  composer = \markup \italic "Thomas Campion"
  %tagline = ##t
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\paper {
  print-page-number = ##t
  line-width = 180\mm
  indent = 0.0\mm

  ragged-bottom =  ##t
  ragged-last-bottom =  ##f
  ragged-right = ##f

  markup-system-spacing	#'basic-distance = #15
  system-system-spacing 	#'basic-distance = #15
  top-system-spacing 	#'basic-distance = #10
  last-bottom-spacing 	#'basic-distance = #10
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\layout {
  \context {
    \Score
    \override MetronomeMark.stencil = ##f
    \override  SpanBar #'break-visibility = #'#( #f #f #f ) % pas de barre traversante
  }

  \context {
    \Staff
    \override StringNumber.stencil = ##f
  }

  % mise en  page de la ligne de hampes
  \context {
    \RhythmicStaff
    \remove "Clef_engraver"                               % on supprime la clé
    \remove "Time_signature_engraver"              % on supprime l'indication de mesure
    \remove "Staff_symbol_engraver"                  % on supprime la portée
    \remove "Bar_engraver"  				 % on supprime les barres de mesure
    fontSize = #-3                                                % on diminue la taille des notes
    \override Stem.length = #5                          % on fixe les hauteurs de hampe
    \override VerticalAxisGroup.staff-staff-spacing =  #'((basic-distance . 1) (padding . 2)) %%  espace entre portée
  }

  % mise en page de la portée de tablature
  \context {
    \TabStaff
    \remove "Clef_engraver"                           % on enlève le logo TAB
    tablatureFormat = #fret-letter-tablature-format   % on utilise les lettres et non les chiffres
    \override StaffSymbol.staff-space = #2          % on espace un peu les lignes pour que les lettres rentrent entre deux lignes
  }

  % mise en page des lettres
  \context {
    \TabVoice
    \override Stem.transparent = ##t
    \override Flag.transparent = ##t                       	  % pas de hampe
    \override Beam.transparent = ##t                          % pas de ligature
    \override Dots.transparent = ##t                            % pas de point
    \override TabNoteHead.font-name = "LuthfontesC"    % la fonte en PJ que vous aurez installé sur votre système  LuthfontesC ou R
    \override TabNoteHead.font-size = #1.5                  % on grossit un peu les lettres
    \override TabNoteHead.extra-offset = #'( 0 . 0.30)    % on place les lettres légèrement au dessus des lignes
    \override TabNoteHead.whiteout = ##f                    % pas d'espace blanc autour des lettres (ça risque de rentrer en collision avec les lignes)
  }
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
NameString =\markup \fontsize #-3.5 \italic { \column { "Sol""Re""La""Fa""Do""Sol" } } %pour afficher le nom des cordes  
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

LuthTuning = \stringTuning  <g, c f a d' g''> %on accorde le luth en Sol (Sol Do Fa La Re Sol)

%%-- portée Tablature Luth
luth =  \relative c' {
  \time 4/2
  <g, g' bf d>2. 	a4 <bf bf' d>2 <b\6 g'\4 d'\2>2 %1
  <c\5 g'\4 c\3 e>2 <cs\5 a'\3 e'\2>2 <d\5 a'\3 f'\2>2 <bf bf' d>2 %2
  <ef\5 g\4 bf\3 d\2>2 c'\3 <d,\5 a'\3 d\2>2. c4\5 %3
  <bf bf' d>4 e'4 <a,,\6 c'\3 f\2>2 <g\6 bf'\3 f'\2>2 <g'\4 e'\2 bf'\1>2 %4 
  <f\4 c'\3 f\2 a\1>2 <f\4 c'\3 f\2 a\1>2 <d\5 bf'\3 f'\2>4 <ef\5 bf'\3 g'\1>4 <c\5 bf'\3 ef\2> <a'\3>4 %5
  <bf,\6  bf'\3 d\2>1 <ef\5 g\4 bf\3 ef\2>4. <f\4>8 <g\4 bf\3 ef\2>8 <a\3> <bf,\6  bf'\3 d\2>8 <c\5>8 %6
  <d\5 fs\4 a\3 d\2>4 <g\4 bf\3 d\2>4 <d\5 g\4 a\3 d\2>4 <fs\4>  <g\4 b\3 d\2>1 %7
  <c,\5 g'\4 c\3 e>1 <b\6 g'\4 d'\2>2 <cs\5 a'\3 e'\2 > %8
  <d\5 a'\3 f'\2>2. <c\5  e'>4 <bf\6 d'\2>4 <a\6>4 <bf\6 d'\2>2 %9
  <a\6 a'\4 cs\3 e\2>2 <a\6 c'\3 e\2>4. <fs''\2>8 <g,,\6 g'\4 bf\3 d\2 g\1>2 <bf\6 bf'\4 d\3 f\2>2 %10
  <f'\4 c'\3 f\2>2 <g\4 bf\3 d\2>2 <d\5 a'\3 d\2>2. <d\5>4 %11 
  <fs\4 a\3 d\2>2 <g\4 b\3 d\2>2 <c,\5 g'\4 c\3 e\2>1 %12
  <d\5 a'\3 fs'\2>2 <g,\6 g'\4 b!\3 d\2 g\1>2 <a\6 a'\4 cs\3 e\2>4 <d'\3>4 <a,\6 a'\4  e'\2>4 <cs'\3>4 %13
  <d,\5 fs\4 a\3 d\2>2. <d\5 fs\4 a\3 d\2>4 <bf\6 bf'\3 d\2>2 <g\6 bf'\3 d\2>2 %14
  <c\5 g'\4 c\3 e>2 <f\4 c'\3 f\2>2 <bf,\6 bf'\3 d\2>2 <a\6 c'\3>2 %15
  <g\6 g'\4 bf\3 d\2>1 <ef'\5 g\4 bf\3 ef\2>2 <c\5 g'\4 ef'\2 g\1>2 %16
  <f\4 c'\3 f\2 a\1>2  <bf\4 d\3 f\2>4. <a\4>8  <g\4 bf\3 d\2 g\1>4 <fs\4 d'\2 a'\1>4 <fs\4 d'\2 bf'\1>2 %17
  <c'\3 ef\2 g\1>4 <bf\3>4 <a\4 cs\3 e\2 a\1>4 <g\4>4 <f\4 c'\3 f\2 a\1>4 <e\5>4 <d\5 d'\2 a'\1>4 <c\5>4 %18
  <bf\6 bf'\3 d\2>4 <a\6>4 <g\6 g'\4 bf\3 d\2>2 <d'\5 fs\4 a\3 d\2>4 <g\4>4  <d\5 a'\3 d\2>4 <fs\4>4 %19
  <g,\6 g'\4 b\3 d\2>\breve
   \override  Score.SpanBar #'break-visibility = #end-of-line-visible  %barre de fin traversante
  \bar "|."
}
%%-------------------------------------------------portée voix
voix = \relative c'' {
  \tempo 4 = 120
  \set Staff.midiInstrument = "voice oohs"
  \key f \major
  \time 4/2
  r2 bf1 g4 g4 %1
  g2 r4 a4 a2 bf2~
  bf4 c8 bf8 a4 g4 fs1
  r1 r2 g2 c2. a4 bf2 c2
  d1 ef2. d4~ %5
  d4 c8[ bf8 a8 g8] a4 g1
  r2 e2 g2 e2
  f4 d4 a'1 g2
  a2 r4 c4 bf2 r4 bf4
  a2 d,4 g2 fs4 d'2 ~ %10
  d4 a4 b!2 d2. bf4
  a2 g4 f4 e4 d4 e2
  d1 r4 d'2 bf8 a8
  g4 c2 a8 g8 f4. d8 e4 fs4
  g2 d4 bf'2 g4 c2 ~ %15
  c4 a4 d1 r4 d,4
  ef2 e!2 f2 fs2
  g2 bf2 a2. a4
  g\breve
}

paroles = \lyricmode {
  Au -- thor of light re -- vive my __ dy -- _ _ ing sprite,
  Re -- deem in front the snares of all __ con - found - ding night
  Lord, light me to this bless -- ed way.
  For blind for blind with world -- ly vain -- de - sires
  I wand -- der - as - a  stray.
  Sun and moon, stars and - un - der -- lights
  I see, but all their glo -- rious beams
  are mists and dark -- ness being com -- "par'd" to thee.
}
%%----------------portée hampes
hampes = \relative c' {
  \stemUp \autoBeamOff
  e2. e4 e2 s2
  f2 s2 s2 s2
  s2 s2 f2. f4
  f4 s4 f2 s1
  s2 s2 f4 s4 s4 s4
  f1 f4. f8 s8 s8 s8 s8
  f4 s4 s4 s4 f1
  f1 f2 s2
  f2. f4 f4 s4 f2
  f2 f4. f8 f1
  f2 s2 f2. f4
  f2 s2 f1
  f2 s2 f4 s4 s4 s4
  f2. f4 f2 s2
  f2 s2 s2 s2
  f1 f2 s2
  f2 f4. f8 f4 s4 f2
  f4 s4 s4 s4 s4 s4 s4 s4
  s4 s4 f2 f4 s4 s4 s4
  f\breve
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\score {
  \new StaffGroup
  <<
    \new Staff <<
      \new Voice = "v" \voix
      \new Lyrics \lyricsto "v" \paroles
    >>

    %\new Staff  \transpose c c' \luth       %% affichage guitare

    \new RhythmicStaff { \hampes   }
    \new TabStaff {
      \set TabStaff.instrumentName = #NameString %affiche nom des cordes
      \set  TabStaff.stringTunings = #LuthTuning
      \luth
    }
  >>
  \layout{}
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\score {
  <<
    \new Staff \voix
    \new Staff {
      % \set Staff.midiInstrument = #'"acoustic guitar (nylon)" % son guitare 
      \set Staff.midiInstrument = #'"orchestral harp"  % ou harp
      \luth
    }
  >>
  \midi { }
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%