]> git.donarmstrong.com Git - lilypond.git/blob - input/twinkle-pop.ly
* scm/auto-beam.scm (revert-property-setting): Bugfixes: add
[lilypond.git] / input / twinkle-pop.ly
1 \version "2.4.0"
2 \header{
3 filename =       "twinkle-pop.ly"
4 xtitle =         "Ah, vous dirais-je, maman "
5 composer =       "traditional"
6 enteredby =      "HWN, chords by Johan Vromans"
7 copyright =      "public domain"
8 }
9
10
11 melodie = \relative c'' {
12         \clef "violin"
13         \time 2/4 
14
15         c4 c  | g' g | a a | g2  |
16         f4 f  | e e  | d d | c2  |
17         g'4 g | f f  | e e | d d |
18         g  g  | f f  | e e | d d |
19         % copy 1-8
20         c4 c  | g' g | a a | g2  |
21         f4 f  | e e  | d d | c2 \bar "|."
22 }
23
24 acc = \chordmode {
25         % why don't \skip, s4 work?
26         c2 c f c
27         f c g:7 c
28         g f c  g:7 % urg, bug!
29         g f c  g:7
30         % copy 1-8
31         c2 c f c
32         f c g:7 c
33 }
34
35 text = \lyricmode{ 
36         \override LyricText  #'font-shape = #'italic
37
38         Ah!4 vous dir -- ai -- je ma man2
39         Ce4 qui cau -- se mon tour -- ment2
40         Pa4 --  pa veut que je rai -- so -- nne
41         Comme4 un -- e grand -- e per -- so -- nne
42         Moi4 je dis que les bon -- bons2
43         Val4 -- ent mieux que la rai -- son2
44         
45 }
46
47 \score {
48         <<  
49            \context ChordNames \acc
50            \context Staff = "melody" \melodie
51            \context Lyrics \text
52         >>
53         \header{
54                 title = "Ah, vous dirais-je, maman "
55         }
56         \layout {  }
57 }
58
59 \score {
60         <<  
61            \context ChordNames \transpose c d\acc
62            \context Staff = "melody" \transpose c d\melodie
63            \context Lyrics \text
64         >>
65         \header{
66           piece = \markup  { "clarinet in B" \flat }
67         }
68         \layout {  }
69 }
70