\version "2.11.37"

GMup = { c4 d8 e f g a b }
Gmup = { c4 d8 ees f g aes b }

GMmid = { c4 d8 e f g a b c1 }
GMmidB = { c4 d8 e f g f e d1}

Gmmid = { c4 d8 ees f g aes b c1 }
GmmidB = { c4 d8 ees f g f ees d1}

GMdown = { c4 b8 a g f e d }
GMend = { c4 b8 a g f e d | c1 }

Gmdown = { c4 b8 aes g f ees d }
Gmend = { c4 b8 aes g f ees d | c1 }



PM = \relative c { c e g c e g c e g c e g c g e c g e c g e c g e c }
Pm = \relative c { c ees g c ees g c ees g c ees g c g ees c g ees c g ees c g ees c }
septdom = \relative c {g b d f g b d f g b d f g b d f g b d f d b g f d b g f d b g f d b g f d b g }

NoTupletNumber = { s4 \override Voice.TupletNumber #'stencil = ##f }

#(define tonique-pitch (ly:make-pitch 0 0 0 ))

SetTonique = #(define-music-function (parser location m ) (ly:music?)
(
	let* (
		(p (ly:music-property (car (ly:music-property m 'elements)) 'pitch))
		(p-index (ly:pitch-notename p))
		(p-alt (ly:pitch-alteration p))
		(ton  (vector-ref #("Do" "Ré" "Mi" "Fa" "Sol" "La" "Si") p-index))
		(mode-str (if (eq? mode minor) "mineur" "majeur" ))
	)	
	(set! tonique-pitch p)	
	(make-music 'SequentialMusic 'elements (list 
		(make-music 'ContextSpeccedMusic 'context-type 'Staff 'element 
			(make-music 'PropertySet 'value
				(markup #:line ( #:italic(
					#:center-align (
						#:line 
							(#:simple ton (cond 
								((= p-alt SHARP) 
									(make-rotate-markup -16 
										(make-translate-markup '(-0.2 . 0.85) 
											(make-tiny-markup (make-sharp-markup)))))
								((= p-alt FLAT)
										(make-rotate-markup -16 
											(make-translate-markup '(-0.1 . 0.35)
												(make-tiny-markup (make-flat-markup)))))
								(else	"" )))	
						#:simple mode-str)
				))) 'symbol 'instrumentName
			)
		)
	))
))


#(define (getPitch note)
 (ly:music-property (car (ly:music-property note 'elements))  'pitch)
)

#(define (transposeToCurrentTon music)
(ly:music-transpose (ly:music-deep-copy music) tonique-pitch)
)

%%%%%%%%%%%%%%%%%%%%%%%%

#(define (filterByPitch accord firstpitch uppitch lastpitch)
( 
	let* 
	(
		(originlist (ly:music-property (ly:music-property accord 'element) 'elements))
		(lastAdded-pitch (ly:make-pitch -5 0 0))
	)
	(make-music 'SequentialMusic 'elements
		(filter 
			(lambda (note) 
				(
					let* 
					(
						(current-pitch (getPitch note))
						(asc (ly:pitch<? lastAdded-pitch current-pitch))
						(lowpitch (if asc firstpitch lastpitch))
						(res (and 
							(or 
								(ly:pitch<? lowpitch current-pitch)
								(equal? lowpitch current-pitch)
							)
							(or 
								(ly:pitch<? current-pitch uppitch) 
								(equal? current-pitch uppitch)
							)
							(not (equal? lastAdded-pitch current-pitch))))
					)
					(if res (set! lastAdded-pitch current-pitch))
					res
				)
			)	
			originlist
		)
	)	
 )
)

%%%%%%%%%%%%%%%%
#(define (setOneDurationToTriolet music)  
(
	let ((dur (ly:music-property music 'duration)))
	(if (ly:duration? dur)
		(set! (ly:music-property music 'duration) (ly:make-duration 3 0 2 3)))
	music)) 
	 
#(define (setDurationToTriolet music) 
(music-map (lambda (x) (setOneDurationToTriolet x)) music))

%%%%%%%%%%%%%%%%%
#(define (make-triplet elt)
  	(make-music 'TimeScaledMusic 'denominator 3 'numerator 2 'element elt)
)

transposegamme = #(define-music-function (parser location music) (ly:music?)     
	(ly:music-transpose music tonique-pitch)
)


gamme = #(define-music-function (parser location  gamme gammeFin) 
	(ly:music? ly:music?)
#{
	\transposegamme  \relative { 
			\key c \mode
			 $gamme  }
	\relative {$gammeFin	}	
	\bar "||" \break	
#})

%%%%%%%%%%%%%%%% 

accParfait = #(define-music-function (parser location firstnote upnote lastnote addmusic) 
								(ly:music? ly:music? ly:music? ly:music?)	
(make-music 'SimultaneousMusic 'elements
	(list
		(make-triplet 
			(make-music 'SequentialMusic 'elements
				(list
					(setDurationToTriolet 
						(filterByPitch 
									(if (eq? mode minor) 
											(transposeToCurrentTon Pm)
											(transposeToCurrentTon PM))
									(getPitch firstnote)
									(getPitch upnote)
									(getPitch lastnote)
						)
					)		
					(setDurationToTriolet #{ \relative { $addmusic } #} )
				)
			)
		)	
		NoTupletNumber
	)
))

%%%%%%%%%%%%%%%%

accSeptDom = #(define-music-function (parser location firstnote upnote lastnote addmusic) 
								(ly:music? ly:music? ly:music? ly:music?)					
 (make-music 'SequentialMusic 'elements
	  (list
			(setDurationToTriolet
			   (filterByPitch 
						(transposeToCurrentTon septdom)
						(getPitch firstnote)
						(getPitch upnote)
						(getPitch lastnote)
				)
			)
			(setDurationToTriolet #{ \relative { $addmusic } #} )
	  )
 )		
)

%%%%%%%%%%%%%%%%

fin = #(define-music-function (parser location finaleNote) (ly:music?)
 (let* (
 	(note (car (ly:music-property finaleNote 'elements)))
	(p (ly:music-property note 'pitch))
	(d (ly:music-property note 'duration))
	)
 (make-music 'SequentialMusic 'elements
	(list 
		(make-music 'EventChord 'elements
			(list 
				(make-music 'NoteEvent 'duration d  'pitch p)
				(make-music 'ArticulationEvent 'articulation-type "fermata")
			)
		)
		(make-music 'ContextSpeccedMusic 'context-type 'Timing 'element
			(make-music 'PropertySet 'value "|." 'symbol 'whichBar))
		(make-music 'EventChord 'elements
			(list 
				(make-music 'LineBreakEvent 'break-permission 'force)
			)
		)
	)
 )
))

%%%%%%%%%%%%%%%%

accFin = #(define-music-function (parser location firstnote upnote finalNote) 
								(ly:music? ly:music? ly:music? )
#{ 
	\accParfait $firstnote $upnote $upnote {}
	\fin $finalNote
#})

%%%%%%%%%%%%%%%%

triolet = #(define-music-function (parser location music) (ly:music?)
#{
	\times 2/3 \relative { $music }
#})

%%%%%%%%% A effacer
mytranspose = #(define-music-function (parser location note music) (ly:music? ly:music?)  
 (   
	let* (  
		(from (ly:make-pitch -1 0 0))
		(to (ly:music-property (car (ly:music-property note 'elements)) 'pitch)) 
		(delta (ly:pitch-diff to from))
	)
	(ly:music-transpose music delta)
 )
)

%%%%%%%%% titre pour le cahier (page de garde)

title =
	\markup {	
		\column {
			\fill-line {"" "Gilles THIBAULT" }	
			\fontsize #8 \override #'(baseline-skip . 50) 
			\column {				
				" "
				\fill-line { "Gammes et arpèges" }
			}
			\fontsize #3  \override #'(baseline-skip . 15) 
			\column {				
				" "
				\fill-line { "pour clarinette" }
				\fill-line { \postscript #"-5 0 moveto 10 0 rlineto stroke" }
			}
			\fontsize #-1  \override #'(baseline-skip . 40) 
	 		\column {
				" "					
				\with-url #"http://lilypond.org/web/"
					\fill-line {						
						#(ly:export
							(format "Réalisé avec Lilypond ~a~awww.lilypond.org"
							(lilypond-version)
							(ly:wide-char->utf-8 #x2014)
							))
					}
			} 
		}
	}


\header {
	tagline = #f
%%	copyright = #f
	
}