lilypond-user-fr
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Décompte des temps


From: Pierre Perol-Schneider
Subject: Re: Décompte des temps
Date: Mon, 26 Oct 2015 12:20:51 +0100

Bonjour Gérard,
Je viens seulement de recevoir l'image jointe.
Ci-dessous un petit code avec plusieurs options :

\version "2.18.2"

ballade-irlandaise-accords = \chordmode {
  | % mes.1
    s1 
  | % mes.2
    c1
  | % mes.3
    f1:7+
  | % mes.4
    c1
  | % mes.5
    c1
  | % mes.6
    a1:m
  | % mes.7
    f1:7+
  | % mes.8
    g1
  | % mes.9
    g1
  | % mes.10
    e1:m
  | % mes.11
    e1:m
  | % mes.12
    a1:m
  | % mes.13
    f1
  | % mes.14
    c1
  | % mes.15
    f1
  | % mes.16
    c1
}

ballade-irlandaise-melodie = \transpose c c' {
  \clef G
  \time 4/4
  \override Staff.TimeSignature.style = #'single-digit
  \key c\major
  \tempo 4 = 120
  | % mes.1
    r4 g c' d' 
  | % mes.2
    e'1
  | % mes.3
    r4 d' c' a8 g~
  | % mes.4
    g1
  | % mes.5
    r4 c' c' b
  | % mes.6
    c'1
  | % mes.7
    r4 d'8 e' f'4 e'8 d'~
  | % mes.8
    d'1
  | % mes.9
    r4 d' e' f'
  | % mes.10
    g'1
  | % mes.11
    r4 f'8 e' d'4 c'8 e'~
  | % mes.12
    e'1
  | % mes.13
    r4 d' c' a
  | % mes.14
    g1
  | % mes.15
    r4 a c' d'8 c'
  | % mes.16
    c'1
  \bar "|."
}

ballade-irlandaise-beat-noire = {
  % mes.1-16
  \repeat unfold 16 { s4^"1" s^"2" s^"3" s^"4" }
}

ballade-irlandaise-beat-croche = {
  % mes.1-16
  \override TextScript.X-offset = #0.3
  \teeny
  \repeat unfold 16 {
    s8^"1" s^"&" s^"2" s^"&" s^"3" s^"&" s^"4" s^"&"
  }
}

ballade-irlandaise-beat-truc-graphique = {
  % mes.1-16
  \repeat unfold 64 {
    \override TextScript.X-offset = #0.7
    s8^\markup {
        \override #'(thickness . 5)
        \with-color #red
        \draw-line #'(0 . 2)
      }
    s^\markup {
        \override #'(thickness . 5)
        \with-color #blue
        \draw-line #'(0 . 1.5)
      }
  }
}

%% Icones du métronome :
metronome =
#'((moveto 0 0)
   (lineto -1 0)
   (lineto -2 -3)
   (lineto 1 -3)
   (closepath))

aiguille =
#'((moveto -0.5 0)
   (lineto -0.5 -2.5))

aiguille-a-gauche =
#'((moveto -2 -0.5)
   (lineto -0.5 -2.5))

aiguille-a-droite =
#'((moveto 1 -0.5)
   (lineto -0.5 -2.5))

ballade-irlandaise-beat-metronome = {
  % mes.1-16
  \override TextScript.X-offset = #1
  \repeat unfold 32 {
    s8^\markup\scale #'(.4 . .4) { \combine \path #0.25 #metronome \path #0.25 #aiguille-a-droite }
    s^\markup\scale #'(.4 . .4) { \combine \path #0.25 #metronome \path #0.25 #aiguille }
    s^\markup\scale #'(.4 . .4) { \combine \path #0.25 #metronome \path #0.25 #aiguille-a-gauche }
    s^\markup\scale #'(.4 . .4) { \combine \path #0.25 #metronome \path #0.25 #aiguille }
  }
}

%% La partition :
\paper {
  indent = 0
}

\header {
  title = "Ballade Irlandaise"
  composer = "Traditionel"
  poet = "Irlande"
  tagline = ""
}

\markup\vspace #1
\score {
  <<
    \new ChordNames \ballade-irlandaise-accords
    \new Staff \ballade-irlandaise-melodie
    %% Au choix :
    \new Dynamics \ballade-irlandaise-beat-noire
    \new Dynamics \ballade-irlandaise-beat-croche
    \new Dynamics \ballade-irlandaise-beat-truc-graphique
    \new Dynamics \ballade-irlandaise-beat-metronome
  >>
  \layout {
    system-count = 4
    \context {
      \Dynamics
      \override VerticalAxisGroup.nonstaff-relatedstaff-spacing  = #'((padding . 2))
      \override VerticalAxisGroup.nonstaff-nonstaff-spacing = #'((padding . 2))
    }
  }
  \midi {}
}



Cordialement,
Pierre

Le 26 octobre 2015 09:24, survoje <address@hidden> a écrit :
Alors là !?

Je n'aurai jamais trouvé ce truc aussi subtil !

Merci pour la découverte, le sujet est clos pour moi !

Bonne journée
Gérard



--
View this message in context: http://lilypond-french-users.1298960.n2.nabble.com/Decompte-des-temps-tp7583365p7583380.html
Sent from the LilyPond French Users mailing list archive at Nabble.com.

_______________________________________________
liste de diffusion lilypond-user-fr
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user-fr


reply via email to

[Prev in Thread] Current Thread [Next in Thread]