]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/twinkle.ly
release: 1.0.1
[lilypond.git] / input / twinkle.ly
index 8664faed17c2b3723e423091f3dcda2efd05450f..926f7abafb9d1d5a233881151a70bd1dea44bbc9 100644 (file)
-%  "Ah, vous dirais-je, maman" 
-%  "Altijd is Kortjakje ziek"
-%  "Twinkle twinkle little star"
-% 
-
-
-melodie = music {
-       $
-       c c | g g | a a | g g |
-       f f | e e | d d8.( e16 | )c2 | % :|
-
-       g g | f f | e e | d d |
-%      g g | f f | e( [f0*32 e0*32 d0*32] e8. f16 | e )d | c c | 
-       g g | f f | e( e8. f16 | e )d |
-
-       c c | g g | a a | g g |
-       f f | e e | d d8.( e16 | )c2 % :|
-       $
+\header{
+filename =      "twinkle.ly";
+title =         "Twinkle Twinkle Little Star";
+description =   "traditional song in various languages."
+  "Ah, vous dirais-je, maman" 
+  "Altijd is Kortjakje ziek"
+  "Twinkle twinkle little star";
+
+composer =      "Traditional";
+enteredby =     "HWN & JCN";
+copyright =     "public domain";
 }
 
-begeleiding = music {
-       $
-       \octave{`}
-       c 'c | 'e 'c | 'f 'c | 'e 'c | 
-       'd b | 'c a | f g | c2 | 
+%{
+Tested Features: lyrics, interleaving lyrics and staffs
+%}
 
-       'e g | d g | 'c g | b g | 
-%      'e g | 'd g | 'c 'c8.( 'd16 | \voice{ 'c )b } \voice{ g2 } |
-       'e g | 'd g | 'c 'c8.( 'd16 | 'c )b |
+\version "1.0.0";
 
-       c 'c | 'e 'c | 'f 'c | 'e 'c | 
-       'd b | 'c a | f g | c2 
-       $
-}
+melody = \melodic \relative c'' {
+       \clef violin;
+       \property Staff.instrument = "alto sax"
+       
+       c4 c | g' g | a a | g g |
+       f f | e e | d d8.( e16 | )c2 |
 
-tekst = music { 
-       @ 
-       Al- tijd is Kort- jak- je ziek,2
-       midden in_de week maar 's_zon- dags niet.2
-       's_Zon- dags gaat ze naar de kerk,2
-       met een boek vol zil- ver werk.2
-       Al- tijd is Kort- jak- je ziek,2
-       midden in_de week maar 's_zon- dags niet.2
-       @
-}
+       g'4 g | f f | e e | d d |
+       g g | f f | e( e8. f16 | e4 )d |
 
-he_gedraagje_tekst = music { 
-       @ 
-       Al- tijd zuigt Bill Gates mijn piek,2
-       "\TeX" is slecht- ser dan mu- ziek.2
-       's_Zon- dags gaat het door een raam,2
-       Weet dat ik me er- voor schaam.2
-       Al- tijd zuigt Bill Gates mijn piek,2
-       "\TeX" is slecht- ser dan mu- ziek.2
-       @
+       c c | g' g | a a | g g |
+       f f | e e | d d8.( e16 | )c2 |
 }
 
-texte = music { 
-       @ 
-       \textstyle "italic" 
-       Ah! vous dir- ai_- je ma man2
-       Ce qui cau- se mon tour- ment2
-       Pa- pa veut que je rai- sonne2
-       Comme un- e grand- e per- sonne2
-       Moi je dis que les bon- bons2
-       Val- ent mieux que la rai- son2
-       @
-}
+accompany = \melodic \relative c {
+       \clef "bass";
+       c4 c' | e c | f c | e c | 
+       d b | c a | f g | c,2 | 
 
-text1 = music {
-       @
-       \textstyle "roman"
-       Twin- kle, twin- kle, lit- tle star,2
-       How I won- der what you are.2
-       Up a- bove the world so high,2
-       Like a dia- mond in the sky.2
-       Twin- kle, twin- kle, lit- tle star,2
-       How I won- der what you are!2
-       @
-}
+       e'4 g, | d' g, | c g | b g | 
+       e' g, | d' g, | c c8.( d16 | c4 )b |
 
-text2 = music {
-       @
-       \textstyle "roman"
-       When the bla- zing sun is gone,2
-       When he no- thing shines up- on,2
-       Then you show your lit- tle light,2
-       Twin- kle, twin- kle, all the night.2
-       Twin- kle, twin- kle, lit- tle star,2
-       How I won- der what you are!2
-       @
+       c, c' | e c | f c | e c | 
+       d b | c a | f g | c,2 
 }
 
-text3 = music {
-       @
-       \textstyle "roman"
-       Then the tra- veler in the dark2
-       Thanks you for your ti- ny spark;2
-       He_could not see which way to go,2
-       If you did not twin- kle so.2
-       Twin- kle, twin- kle, lit- tle star,2
-       How I won- der what you are!2
-       @
+global = \melodic {
+       \time 2/4;
+       \skip 2*24;
+       \bar ":|";
 }
 
-mstaf = staff {
-%      melodic
-       complex
-       music { melodie }
-       commands { clef "violin" }
+tekst = \lyric{ 
+       Al-4 tijd is Kort- jak- je ziek,2
+       midden4 in_de week maar s,_zon- dags niet.2
+% ugly hack: insertion of  empty syllables creates columns on extra 
+% moments.  The net result is more spacing.
+%
+% probably not necessary anymore
+%      midden8 _8 in_de8 _8 week4 maar s,_zon- dags niet.2
+       s,_Zon-4 dags gaat ze naar de kerk,2
+       met4 een boek vol zil- ver werk.2
+       Al-4 tijd is Kort- jak- je ziek,2
+       midden8 _8  in_de8 _8 week4 maar s,_zon- dags niet.2
 }
 
-bass_staf = staff {
-%      melodic
-       complex
-       music { begeleiding }
-       commands { clef "bass" }
-}
 
+%{
+Ja inderdaad. Dit is geen educatieve danwel muzikaal verantwoorde
+tekst. Mogen wij ook af en toe ergens op afgeven?
+%}
 
-dutch_staf = staff {
-       lyric 
-       music { tekst }
-       music {he_gedraagje_tekst}
+hegedraagjetekst = \lyric{ 
+       Al-4 tijd zuigt Bill Gates mijn piek,2
+       "\TeX"4 is slecht- ser dan mu- ziek.2
+       s,_Zon-4 dags gaat het door een raam,2
+       Weet4 dat ik me er- voor schaam.2
+       Al-4 tijd zuigt Bill Gates mijn piek,2
+       "\TeX"4 is slecht- ser dan mu- ziek.2
 }
 
-french_staf = staff {
-       lyric 
-       music { texte }
+texte = \lyric{ 
+       \property Lyrics . textstyle" =  "italic" 
+%      \property Lyrics . textstyle" =  "roman" 
+       Ah!4 vous dir- ai_- je ma man2
+       Ce4 qui cau- se mon tour- ment2
+       Pa-4 pa veut que je rai- sonne2
+       Comme4 un- e grand- e per- sonne2
+       Moi4 je dis que les bon- bons2
+       Val-4 ent mieux que la rai- son2
 }
 
-english_staf = staff {
-       lyric 
-       music { text1 }
-       music { text2 }
-       music { text3 }
+texti = \lyric{
+       \property "Lyrics"."textstyle" =  "roman"
+       Twin-4 kle, twin- kle, lit- tle star,2
+       How4 I won- der what you are.2
+       Up4 a- bove the world so high,2
+       Like4 a dia- mond in the sky.2
+       Twin-4 kle, twin- kle, lit- tle star,2
+       How4 I won- der what you are!2
 }
 
-tstaf = staff { 
-       lyric 
-       music { tekst }
-       music { texte }
+textii = \lyric{
+       When4 the bla- zing sun is gone,2
+       When4 he no- thing shines up- on,2
+       Then4 you show your lit- tle light,2
+       Twin-4 kle, twin- kle, all the night.2
+       Twin-4 kle, twin- kle, lit- tle star,2
+       How4 I won- der what you are!2
+       
 }
 
+textiii = \lyric{
+       Then4 the tra- veler in the dark2
+       Thanks4 you for your ti- ny spark;2
+       He_could4 not see which way to go,2
+       If4 you did not twin- kle so.2
+       Twin-4 kle, twin- kle, lit- tle star,2
+       How4 I won- der what you are!2
+}
 
-score {
-       staff { mstaf }
-       staff { dutch_staf }
-       staff { french_staf }
-       staff { english_staf }
-       staff { bass_staf }
-       paper {
-               unitspace 2.5cm
+$top_lyrics = \type Lyrics = top <
+       \tekst
+>
+
+$treble_staff = \type Staff = treble <
+       \global
+       \melody 
+>
+
+$bass_staff = \type Staff = bass <
+       \global
+       \accompany
+>
+
+$middle_lyrics = \type Lyrics = middle <
+       \texte
+>
+
+$bottom_lyrics = \type Lyrics = bottom <
+%      \global
+       \texti
+       \textii
+       \textiii
+>
+
+$grand_staff = \type GrandStaff <
+       \$treble_staff
+       \$middle_lyrics
+       \$bass_staff
+>
+
+\score{
+       < 
+               \$treble_staff
+               \$middle_lyrics
+               \$top_lyrics
+               \$grand_staff
+               \$bottom_lyrics
+       >
+       \paper{
+               gourlay_maxmeasures = 14.0;
        }
-       commands {
-               meter 2 * 4
-               skip 24:0
-               bar "||"
+       \midi{ 
+               \tempo 4 = 120 ;
        }
 }