\version "2.16.0"
\include "changePitch.ly"
\include "italiano.ly" 
#(ly:set-option 'delete-intermediate-files #t)
GlobalSize = #18

tabDiatoBass = #(define-music-function (parser location pattern  
music)(ly:music? ly:music?)
"[Decrire la fonction]"
#{ \musicMap
    #(lambda(evt)
      (case (ly:music-property evt 'name)
        ((NoteEvent)
           (let* ((arti (ly:music-property evt 'articulations))
                  (text (and (pair? arti)
                             (ly:music-property (car arti) 'text #f)))
                  (index (ly:pitch-notename
                           (ly:music-property evt 'pitch))))
              (if text (ly:music-set-property! (car arti) 'text
                 (cond ((string=? text "Bs") (list-ref '("C" "D" "E" "F" "G" "A" "B") index))
                       ((string=? text "Ch") (list-ref '("c" "d" "e" "f" "g" "a" "b") index))
                       (else text))))
              evt))
        (else evt)))
    \changePitch $pattern $music
#})

\header {
	title = "Scottish-Valse"
	subtitle = ""
	composer = "Traditionnel"
}

Global = {
	\clef treble
	\key sol \major
	\set Score.markFormatter = #format-mark-box-letters
	\set Score.skipBars = ##t
	\override MultiMeasureRest #'expand-limit = 1
	\override TupletBracket #'bracket-visibility = ##t %% Force l'affichage des crochets de nolets
	\tupletUp %% Crochets de nolets au-dessus
}

Song = \relative sol' {
	\time 2/4
        \tempo 4=120
        \mark \default
	\repeat volta 4 {
		la4 do8 la
		si4 si8 do
	}
	\alternative { 
		{
			re8 mi re si
			do4 la
		}
		{
			re8 mi re do
			la4 la
		} 
		{
			re8 mi re si
			do4 la
		}
		{
			re8 mi re do
			la2
		} 
	}
	\time 3/4
        \tempo 4=140
        \mark \default
	\repeat volta 4 {
		la4 si do
		mi do re
		si re mi8 re
	}
	\alternative { 
		{ do8 si do4 la }
		{ do8 si la2 } 
		{ do8 si do4 la }
		{ do8 si la2 } 
	}
}

BassesScottish = {
	\repeat volta 4 {
		sol4 sol la la
	}
	\alternative { 
	        {sol sol la la }
	        {sol sol la la }
	        {sol sol la la }
	        {sol sol la la }
        }
}

BassesValse = {
	\repeat volta 4 {
		sol2.
		la
		la
	}
	\alternative { 
		{sol}
		{sol}
		{sol}
		{sol}
        }
}

Chords = {
 	\BassesScottish
        \BassesValse
}

Scottish = \samePitch { do16^"Bs" r do16^"Ch" r }
Valse = \samePitch { do8^"Bs" r do^"Ch" r do^"Ch" r }

Basses = {
 	\tabDiatoBass \Scottish \BassesScottish
        \tabDiatoBass \Valse \BassesValse
}

\score {	% sortie pdf
	\new StaffGroup <<	
	\new ChordNames {
		\set chordChanges = ##t
		\frenchChords
		\Chords
	}

	\new Staff << \Song >>

        % Tablature - Mélodie
	\new DrumStaff \with {
		\override StaffSymbol #'line-count = #1						% Une seule ligne de tablature
		\remove "Time_signature_engraver"								% Suppression de la métrique
		\override Clef #'stencil = #ly:text-interface::print 				% Surcharge de la clé de tablature
		% Surcharge de la clé de tablature - remplacer éventuellement le texte { "2" "1" } par  { "C" "G" } ou autre selon les goûts
		\override Clef #'text = \markup{\raise #1 \teeny \column { \bold { \circle"2" \circle"1"}}}
		\override NoteHead #'stencil = #point-stencil					% 
		\override Stem #'length = #0									% 
		\override Stem #'flag = #point-stencil							% 
		\override Stem #'stencil = #point-stencil						% 
		\override Beam #'stencil = #point-stencil						%
		\override Staff #'stencil = #point-stencil						% 
		\override StaffSymbol #'staff-space = #1						% 
		\override  LedgerLineSpanner #'stencil = #point-stencil			% 
	}
	<< \Song >>

        % Tablature - Basses
        \new DrumStaff \with {
		\override StaffSymbol #'line-count = #1						% Une seule ligne de tablature
		\remove "Time_signature_engraver"								% Suppression de la métrique
		\override Clef #'stencil = #ly:text-interface::print 				% Surcharge de la clé de tablature
		% Surcharge de la clé de tablature - modifier le texte {"B"} selon les goûts
		\override Clef #'text = \markup{\raise #0.5 \teeny \bold {\circle"B"}}
		\override NoteHead #'font-size = #-4							% Taille des têtes de notes
		\override Stem #'font-size = #-4								% Taille de la police
		\override StaffSymbol #'staff-space = #(magstep -4)				% Hauteur des symboles ???
	}
	<< \Basses >>

	>>
	\layout {
		\context {
			\Score
			\remove "Bar_number_engraver"
		}
		\context { %propriété des Lyrics
			\Lyrics
			%\override LyricText #'font-name = #"Garamond"
			\override LyricText #'font-size =  #-1.0
		}
		indent = 0\mm
	}
}

\score {	% sortie midi
	\unfoldRepeats{
	\new StaffGroup
	<<
		\new Staff{
		\set Staff.midiInstrument="accordion"
			\Song
		}
		\new Staff{
		\set Staff.midiInstrument="acoustic bass"
			\Basses
		}
	>>
	}
	\midi{}
}

\paper {
	#(set-paper-size "a4") left-margin = 15\mm line-width = 190\mm top-margin = 10\mm bottom-margin = 10\mm % Format A4
%	page-count = #1 % Partition en une seule page
	ragged-right = ##f % Justification horizontale pour un système unique
% 	ragged-last-bottom = ##f  % Justification verticale pour une page unique
	#(define fonts	(make-pango-font-tree "Liberation Sans" "Liberation Sans" "Liberation Mono" ; définition de l'arbre des polices
	(/ GlobalSize 20) ; ne pas modifier ce paramètre proportionnel global mais GlobalSize en tête de fichier
	))
}