Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- \language "english"
- \version "2.16.2"
- \pointAndClickOff
- #(set-global-staff-size 22 )
- \paper {
- system-system-spacing #'basic-distance = #20
- page-count = 1
- }
- \header {
- title = "Air ('on the G string')"
- subtitle = \markup{\italic "Orchestral Suite no. 3 BMV 1068"}
- composer = \markup{
- \column {
- \line {"J.S. Bach "}
- { \italic "(1685 - 1750)"}
- }
- }
- copyright =
- \markup {
- \override #'(font-size . -8)
- "Domaine Public @ edition: Jean-Michel Thiemonge CC-by-sa"
- }
- tagline = ##f
- }
- global = {
- \key d \major
- \time 4/4
- }
- chant = \relative c' {
- \global
- \voiceOne
- fs'1 ~ fs1 ~ |
- fs4 b8 g \acciaccatura { fs4 } e8 d cs d
- \break
- cs2 \acciaccatura { b4 } a2 |
- a'1 ~ a8 fs c! b e ds! a' g |
- \break
- g1 ~
- g8 e b a d cs g' fs |
- fs2. gs!8 a d,4 d16 e fs8 ~ fs e e d |
- cs8 b b16 cs d8 ~ d4 cs8 b a1
- \bar":|" \break
- cs8 b b16 cs d8 ~ d4 cs8 b a1 \bar"|."
- }
- % methode 1 pour couleur
- MethodeCouleurUn = {
- \override Voice.NoteHead #'color = #(x11-color 'red)
- \override Voice.Stem #'color = #(x11-color 'red)
- \override Voice.Beam #'color = #(x11-color 'red)
- \override Voice.Accidental #'color = #(x11-color 'red)
- \override Voice.Slur #'color = #(x11-color 'red)
- \override Voice.PhrasingSlur #'color = #(x11-color 'red)
- \override Voice.Tie #'color = #(x11-color 'red)
- %}
- }
- % appliquer une couleur (methode 2)
- #(define (override-color-for-all-grobs color)
- (lambda (context)
- (let loop ((x all-grob-descriptions))
- (if (not (null? x))
- (let ((grob-name (caar x)))
- (ly:context-pushpop-property context grob-name 'color color)
- (loop (cdr x)))))))
- contrechant = \relative c' {
- \global
- \voiceTwo
- % faire apparaitre contrechant en petit \new CueVoice
- % \new CueVoice
- {
- %\MethodeCouleurUn
- % methode 2 pour couleur (effective)
- \applyContext #(override-color-for-all-grobs (x11-color 'BlueViolet))
- <a' d>2 a <b d> <b d>
- <b d> <gs b> <e a> e
- <a e'>4 c!8 b <a c>4 a'8 c, b2 b2 |
- <b e>4 e8 d <b e> fs' g e a,2 a2 |
- <a d>2 a |
- b2 b2
- a4 fs gs2
- e1
- a4 fs gs2
- e1
- }
- }
- basse = \relative c {
- d4 d cs cs b b a a g g gs! gs a a g! g
- fs fs e e ds! ds b' b e e d d cs cs a a
- d d cs cs b b gs! e a d e e, a 8 b cs d e g! fs e
- a,4 d e e, a1
- }
- \score {
- \new PianoStaff
- <<
- \new Staff = "right" \with {
- } << \chant \\ \contrechant >>
- \new Staff = "left" \with {
- } { \clef bass \basse }
- >>
- }
- \layout {
- indent = 0
- ragged-last = ##t % derniere mesure pas developpée sur la largeur
- \context {
- \Score
- \remove "Bar_number_engraver"
- }
- \context {
- \PianoStaff
- \override StaffGrouper #'staff-staff-spacing = #'((minimum-distance . 11))
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement