Subject: define-music-function un peu compliqué

From: dmalik <[email-masked]>
Date: Wed, 23 Jun 2010 14:02:01 -0700 (PDT)

J'ai un accompagnement piano pas piqué des vers, j'ai trouvé comment l'écrire
pour une mesure, et comme cette écriture compliquée se répète sur toutes les
mesures j'ai essayé de créer une fonction qui ne fonctionne pas.
Apparamment c'est le passage des variables (surtout up et down) qui coince.
Je ne connais ni scheme et je débute avec lilypond
Voici mon fichier :

\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 {	}
			
}

-- 
View this message in context: http://lilypond-french-users.1298960.n2.nabble.com/define-music-function-un-peu-complique-tp5215197p5215197.html
Sent from the LilyPond French Users mailing list archive at Nabble.com.

---

From: Christophe Pochon <[email-masked]>
Date: Thu, 24 Jun 2010 00:07:45 +0200

Je me trompe peut-être, mais à première vue ton code a l'air bien
compliqué.... on doit pouvoir faire plus simple.
T'aurais un scan d'un manuscrit de ce que tu veux faire exactement ?

Christophe Pochon
http://www.christophe-pochon.com

---

From: Christophe Pochon <[email-masked]>
Date: Thu, 24 Jun 2010 08:54:05 +0200

J'ai envoyé une réponse en privé (par erreur) à dmalik, voici ce que je lui
disais :

*En fait, pourquoi utiliser une fonction ? Je te mets ci-dessous ma version
de ta première mesure. Ca me semble un peu plus simple et plus lisible.
Après, tu n'as qu'à faire des copier-coller de cette première mesure et
modifier ce que tu veux.*
*Encore une fois, si tu as un brouillons, je suis preneur et veux bien
essayer.*
*
*
*Voici comment je commencerais :*

Après j'avais mis mon code, mais je viens de faire un petit changement pour
être encore plus proche de SA première mesure.
Alors dmalik, c'est ce code-ci que je te suggère comme point de départ :

\version "2.12.3"

\header {
  % Enlever le pied de page par défaut
  tagline = ##f
}

\paper {
  #(set-paper-size "a4")
}

global = {

  \key a \major
  \time 4/4
}

right = \relative c'' {
  \global
  % En avant la musique !
  s4 a16^> s s s
  s4 a16^> s s s
}

left = \relative c {
  \global
  f,16( cis' fis a) \change Staff = "right"  \slurDown \stemDown fis'(
\change Staff = "left" \stemUp a, fis c)
  f,16( cis' fis a) \change Staff = "right"  \slurDown \stemDown fis'(
\change Staff = "left" \stemUp a, fis c)

}

\score {
  \new PianoStaff <<
    \new Staff = "right" \right
    \new Staff = "left" { \clef bass \left }
  \layout { }
}

Christophe Pochon

Le 24 juin 2010 00:07, Christophe Pochon <[email-masked]> a

---

From: dmalik <[email-masked]>
Date: Thu, 24 Jun 2010 07:26:44 -0700 (PDT)

Merci
C'est vrai que c'est bien plus simple, mais débutant sous lilypond, ce n'est
pas la solution que j'ai trouvé.
Mais les d'autres mesures vont compliquer la saisie par exemple :
http://lilypond-french-users.1298960.n2.nabble.com/file/n5217396/part.jpeg 
Si tu as d'autres idées simples je suis preneur
DM
-- 
View this message in context: http://lilypond-french-users.1298960.n2.nabble.com/define-music-function-un-peu-complique-tp5215197p5217396.html
Sent from the LilyPond French Users mailing list archive at Nabble.com.

---

From: Christophe Pochon <[email-masked]>
Date: Thu, 24 Jun 2010 18:28:30 +0200

Il faudrait que tu m'envoies (en privé), un scan un peu plus long de ta
partition, et je veux bien en faire un bout !

A+

Christophe Pochon

Le 24 juin 2010 16:26, dmalik <[email-masked]> a écrit :

> View this message in context:
> http://lilypond-french-users.1298960.n2.nabble.com/define-music-function-un-peu-complique-tp5215197p5217396.html
> _______________________________________________
> liste de diffusion lilypond-user-fr
> [email-masked]
> http://lists.gnu.org/mailman/listinfo/lilypond-user-fr
>
>