Commons

	\version "2.20.0"
			#(set-global-staff-size 20)
			
			\include "improviso.ily"
			
			\paper {
			   top-margin = 15\mm
			   bottom-margin = 15\mm
			   left-margin = 20\mm
			   right-margin = 20\mm
			   }
			
			\layout {
			   \context {
			      \Score
			      \remove "Bar_number_engraver"
			      \remove "Metronome_mark_engraver"
			      }
			   }
			
			\header { tagline = " " }
			
			% Définition des variables :
			varTitle = ""
			varTitle_en = ""
			varTitle_et = ""
			varSortTitle = ""
			varSortTitle_en = ""
			varSortTitle_et = ""
			varComposer = ""
			varComposer_en = ""
			varComposer_et = ""
			varSubtitle = ""
			varSubtitle_en = ""
			varSubtitle_et = ""
			enteredby = ""
			varChords = \chordmode {}
			varIlluTop = " "
			varIllu = " "
			varIlluRef = ""
			varInfos = ""
			varInfos_en = ""
			varInfos_et = ""
			varLyr = ""
			varLyr_en = ""
			varLyr_et = ""
			varLyrMore = ""
			
			% Style pour la biblio :
			#(define-markup-command (styleBiblio layout props text) (markup?)
			(interpret-markup layout props
			#{\markup \sans \teeny \override-lines #'(baseline-skip . 2) { #text }#}))
			
			#(define-markup-command (edt layout props text) (markup?)
			(interpret-markup layout props
			#{\markup \sans \abs-fontsize #8 { #text }#}))
			
			%espace vertical : copie de vspace mais variant selon feuille de style (ici activé)
			#(define-markup-command (vspaceopt layout props amount) (number?)
			"Espace vertical (vspace perso, désactivable dans feuille de style)"
			(let ((amount (* amount 3.0)))
			(ly:make-stencil "" empty-interval (cons 0 amount)))
			)
			
			enr = \markup {\hspace #1 \epsfile #X #1.8 #"styles/ico_enr.eps"}
			pub = \markup {\hspace #1 \epsfile #X #1.8 #"styles/ico_pub.eps"}
			col = \markup {\hspace #1 \epsfile #X #2 #"styles/ico_col.eps"}
			gam = \markup {\hspace #1 \epsfile #X #2 #"styles/ico_gam.eps"}
			altName = \markup {\line {\underline "Autre nom" :}}
			altNames = \markup {\line {\underline "Autres noms" :}}
			rq = \markup {\hspace #1 \line {\underline "Rq" :}}
			
			% Spécial Bretagne : créer 6/4 composé de 4/4 + 2/8
			rideeSix = \markup {
			   \override #'(baseline-skip . 2) \number {
			      \column { "4" "4" }
			      \vcenter "+"
			      \bracket \column { "2" "4" }
			      }
			   }
			
			% Espace vertical seulement si ce style est utilisé (PDF pour le web)
			vspaceWeb = \markup \vspace #1
			
			% Glyphe perso pour la clé de sol:
			my-clef =
			#(ly:make-stencil
			`(path 0.01
			`(
			moveto  82  -204
			curveto  77  -175  75  -133  73  -97
			curveto  53  -97  10  -80  2  -40
			curveto  -2  -17  0  27  8  57
			curveto  25  124  60  198  83  244
			curveto  100  277  100  286  101  292
			curveto  106  308  107  336  125  343
			curveto  134  347  141  337  138  326
			curveto  137  319  129  298  122  287
			lineto  118  278
			lineto  115  255
			curveto  90  65  91  -73  93  -72
			curveto  118  -60  134  -46  145  -19
			curveto  153  4  148  28  138  32
			curveto  132  34  125  27  125  18
			curveto  125  12  126  9  130  9
			curveto  138  9  142  4  140  -2
			curveto  138  -9  122  -13  115  -5
			curveto  96  12  115  47  136  47
			curveto  152  47  171  31  163  -12
			curveto  156  -53  108  -67  94  -93
			lineto  94  -104
			curveto  96  -152  109  -197  102  -205
			curveto  90  -225  83  -213  82  -204
			closepath
			moveto  71  -80
			lineto  71  -29
			curveto  70  7  78  121  87  206
			curveto  88  212  91  225  91  225
			curveto  91  227  90  225  78  200
			curveto  49  135  19  67  20  -6
			curveto  20  -37  27  -62  54  -77
			curveto  60  -80  65  -81  71  -80
			closepath
			)
			'round 'round #t)
			(cons 0 160)
			(cons 0 0)
			)
			
			\layout {
			   \context {
			      \Score
			      \override Clef.stencil =
			      #(lambda (grob)
			      (let* ((sz (ly:grob-property grob 'font-size 0))
			      (mlt (magstep sz))
			      (glyph (ly:grob-property grob 'glyph-name)))
			      (cond
			      ((equal? glyph "clefs.G")
			      (ly:stencil-scale my-clef (* 0.015 mlt) (* 0.015 mlt)))
			      ((equal? glyph "clefs.G_change")
			      (ly:stencil-scale my-clef (* .008 mlt) (* .008 mlt)))
			      (else (ly:clef::print grob)))))
			      }
			   
			   
			%\override Score.Hairpin.thickness = #2
			%\override Score.Stem.thickness = #2
			%\override Score.TupletBracket.thickness = #2
			   \override Score.VoltaBracket.thickness = #2
			%\override Score.SystemStartBar.thickness = #4
			%\override StaffGroup.SystemStartBracket.padding = #0.25
			%\override ChoirStaff.SystemStartBracket.padding = #0.25
			%\override Staff.Tie.thickness = #3
			%\override Staff.Tie.line-thickness = #2
			%\override Staff.Slur.thickness = #3
			%\override Staff.PhrasingSlur.thickness = #3
			   \override Staff.BarLine.hair-thickness = #1.5
			   \override Staff.BarLine.thick-thickness = #5
			%\override Staff.MultiMeasureRest.hair-thickness = #3
			%\override Staff.MultiMeasureRestNumber.font-size = #2
			%\override LyricHyphen.thickness = #3
			%\override LyricExtender.thickness = #3
			%\override PianoPedalBracket.thickness = #2
			   
			   }