\version "2.12.0"
\include "
italiano.ly"
\header {
title = "Essai"
composer = ""
}
% Ma fonction
tempsdeux =
#(define-music-function (parser location accordhaut notesbas)( ly:music?
ly:music?)
#{
<<
{
\override Beam #'auto-knee-gap = #-5
\stemDown
\override Script #'minimum-space = #3.5
\change Staff = "up" << $accordhaut >>
\stemUp
% Groupe2 reste
\change Staff = "down" $notesbas
}
\\
{
\override Beam #'auto-knee-gap = #5
\stemUp
%Groupe 2 repetition accord pour les double croches
\change Staff = "up" << $accordhaut >>
}
>>
#}
)
%MAIN DROITE
up =\relative do {
\clef treble
\key la \major
\time 4/4
s1
| s1 |
}
%MAIN GAUCHE
down = \relative do {
\clef bass
\key la \major
\time 4/4
\override Beam #'auto-knee-gap = #5
\once \override PhrasingSlur #'positions = #'(-15 . -15)
%MESURE 1 --------------------------------------------------
% C'est celle là qui est la bonne et je veux la répéter avec d'autres notes
% Groupe 1 ---
fa,16_(dod' fad la)
%Groupe 2 Accord
<<
{
\override Beam #'auto-knee-gap = #-5
\stemDown
\override Script #'minimum-space = #3.5
\change Staff = "up" << fad' la \accent _( >>
\stemUp
% Groupe2 reste
\change Staff = "down" la, fad do)
}
\\
{
\override Beam #'auto-knee-gap = #5
\stemUp
%Groupe 2 repetition accord pour les double croches
\change Staff = "up" << fad' la >>
}
>>
% fin groupe 2
%groupe 3
fa,,16_(dod' fad la)
%Groupe 4 Accord
<<
{
\override Beam #'auto-knee-gap = #-5
\stemDown
\override Script #'minimum-space = #3.5
\change Staff = "up" << fad' la \accent _( >>
\stemUp
%Groupe4 reste
\change Staff = "down" la, fad do)
}
\\
{
\override Beam #'auto-knee-gap = #5
\stemUp
%Groupe 4 repetition accord pour les double croches
\change Staff = "up" << fad' la >>
}
>>
% fin groupe 4
|
%MESURE 2 appel de la fonction
--------------------------------------------------
\tempsdeux {fad la} { la, fad do}
\tempsdeux {fad' la} { la, fad do}
\tempsdeux {fad la} { la, fad do}
\tempsdeux {fad la} { la, fad do}
|
}
%%%%%%%%%%%%%%%%%%%%
%%Partition seule
%%%%%%%%%%%%%%%%%%%%%%
\score {
<<
\new PianoStaff <<
\new Staff="up" \up
\new Staff="down" \down
>>
>>
\layout { }
}
%%%%%%%%%%%%%%%%%%%%%%
%%Midi
%%%%%%%%%%%%%%%%%%%%%%
\score {
<<
\new Staff {
\set Staff.midiMaximumVolume = #1
\down
}
>>
\midi { }
}