Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \language "english"
  2. \version "2.16.2"
  3. \pointAndClickOff
  4. #(set-global-staff-size 22 )
  5.  
  6. \paper {
  7.  system-system-spacing  #'basic-distance = #20
  8.  page-count = 1
  9. }
  10.  
  11.  
  12. \header {
  13.  title = "Air ('on the G string')"
  14.  subtitle = \markup{\italic "Orchestral Suite no. 3 BMV 1068"}
  15.  composer =  \markup{
  16.    \column {
  17.      \line {"J.S. Bach "}
  18.      { \italic "(1685 - 1750)"}
  19.    }
  20.  }
  21.  copyright =
  22.  \markup {
  23.    \override #'(font-size . -8)
  24.    "Domaine Public @ edition: Jean-Michel Thiemonge CC-by-sa"
  25.  }
  26.  tagline = ##f
  27. }
  28.  
  29. global = {
  30.  \key d \major
  31.  \time 4/4
  32. }
  33.  
  34. chant = \relative c' {
  35.  \global
  36.  \voiceOne
  37.  fs'1 ~ fs1 ~ |
  38.  fs4 b8 g \acciaccatura { fs4 } e8 d cs d
  39.  \break
  40.  cs2 \acciaccatura { b4 } a2 |
  41.  a'1 ~ a8 fs c!  b   e  ds!  a' g |
  42.  \break
  43.  g1 ~
  44.  g8 e b  a  d  cs  g'  fs  |
  45.  fs2. gs!8  a  d,4 d16 e fs8 ~ fs e e  d  |
  46.  cs8 b b16 cs d8 ~ d4 cs8 b a1
  47.  \bar":|" \break
  48.  cs8 b b16 cs d8 ~ d4 cs8 b a1 \bar"|."
  49. }
  50.  
  51. % methode 1 pour couleur
  52. MethodeCouleurUn = {
  53.   \override Voice.NoteHead      #'color = #(x11-color 'red)
  54.   \override Voice.Stem          #'color = #(x11-color 'red)
  55.   \override Voice.Beam          #'color = #(x11-color 'red)
  56.   \override Voice.Accidental    #'color = #(x11-color 'red)
  57.   \override Voice.Slur          #'color = #(x11-color 'red)
  58.   \override Voice.PhrasingSlur  #'color = #(x11-color 'red)
  59.   \override Voice.Tie           #'color = #(x11-color 'red)
  60.   %}
  61. }
  62.  
  63. % appliquer une couleur (methode 2)
  64. #(define (override-color-for-all-grobs color)
  65.    (lambda (context)
  66.      (let loop ((x all-grob-descriptions))
  67.        (if (not (null? x))
  68.            (let ((grob-name (caar x)))
  69.              (ly:context-pushpop-property context grob-name 'color color)
  70.              (loop (cdr x)))))))
  71.  
  72. contrechant = \relative c' {
  73.   \global
  74.   \voiceTwo
  75.   % faire apparaitre contrechant en petit  \new CueVoice
  76.   % \new CueVoice
  77.   {
  78.     %\MethodeCouleurUn
  79.  
  80.     % methode 2 pour couleur (effective)
  81.     \applyContext #(override-color-for-all-grobs (x11-color 'BlueViolet))
  82.  
  83.     <a' d>2 a  <b d> <b d>
  84.     <b d> <gs b> <e a> e
  85.     <a e'>4 c!8 b <a c>4 a'8 c, b2 b2 |
  86.     <b e>4 e8 d <b e> fs' g e  a,2 a2 |
  87.     <a d>2 a |
  88.     b2 b2
  89.     a4 fs gs2
  90.     e1
  91.     a4 fs gs2
  92.     e1
  93.   }
  94. }
  95.  
  96. basse = \relative c {
  97.  d4 d cs cs b b a a g g gs! gs a a g! g
  98.  fs fs e e ds! ds b' b e e d d cs cs a a
  99.  d d cs cs b b gs! e a d e e, a 8 b cs d e g! fs e
  100.  a,4 d e e, a1
  101. }
  102.  
  103. \score {
  104.  \new PianoStaff
  105.  <<
  106.    \new Staff = "right" \with {
  107.    }      << \chant \\ \contrechant >>
  108.  
  109.    \new Staff = "left" \with {
  110.    } { \clef bass \basse }
  111.  >>
  112. }
  113.  
  114.  
  115. \layout {
  116.   indent = 0  
  117.   ragged-last = ##t % derniere mesure pas developpée sur la largeur
  118.  
  119.   \context {
  120.    \Score
  121.    \remove "Bar_number_engraver"
  122.  }
  123.  \context {
  124.    \PianoStaff
  125.    \override StaffGrouper #'staff-staff-spacing = #'((minimum-distance . 11))
  126.  }
  127. }