patch::: 1.3.146.jcn1

[lilypond.git] / mutopia / J.S.Bach / Petites-Preludes / preludes-6.ly

diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-6.ly b/mutopia/J.S.Bach/Petites-Preludes/preludes-6.ly
index 9080ca86dcbbcd9744711695f4ea7b9032eed75e..0dc4d06a64ec3c4a01657dc3759b10dd144dec46 100644 (file)
--- a/mutopia/J.S.Bach/Petites-Preludes/preludes-6.ly
+++ b/mutopia/J.S.Bach/Petites-Preludes/preludes-6.ly
@@ -1,49 +1,21 @@
-%{
+#(set! point-and-click line-column-location)
 
- Six Petits Preludes,
- Collection Johann Peter Kellner
- ca 1703 - 1707
+opus = "BWV 940"
+piece = "6"
 
- Kellner was a student of Bach's that copied some 90 works of his master.
- 
-%}
+\version "1.3.146"
 
-\header{
-  copyright =   "public domain";
-  source = "Ed. Henry Lemoine Urtext";
-  title =       "Pr\\\"aludum";
-  opus = "BWV 940";
-  composer =    "Johann Sebastian Bach (1685-1750)";
-  enteredby =   "jcn,hwn";
-
-  % mutopia headers.
-  mutopiatitle = "Prelude";
-  mutopiacomposer = "J.S.Bach";
-  mutopiaopus = "BWV940";
-  mutopiainstrument = "Piano";
-  style = "baroque";
-  copyright = "Public Domain";
-  maintainer = "Jan Nieuwenhuizen";
-  maintainer_email = "janneke@gnu.org";
-  tagline =    "\\\\This music is part of the Mutopia project, http://sca.uwaterloo.ca/Mutopia/\\\\It has been typeset and placed in the public domain by " + \maintainer + ".\\\\Unrestricted modification and redistribution is permitted and encouraged - copy this music and share it!";
-  maintainer = "janneke@gnu.org";
-  lastupdated = "1999/Nov/14";
-  
-}
-
-\version "1.3.110";
 
 
-
-one = \context Staff \notes\relative c{
+one =  \context Staff \notes\relative c{
        \context Voice=i
-       \skip 1; |
+       \skip 1 |
        \stemUp
        r4 d''2 cis4 |
        \stemBoth
        d16 a' g f  e f cis d 
        e8.-\mordent f16  d8.-\prall cis16 |
-       \stemUp
+       \stemUp\tieUp
        cis4 ~ cis16 a d8 ~ d4 a |
        %5
        b2 ~ b4 a ~ |
@@ -54,10 +26,10 @@ one = \context Staff \notes\relative c{
        fis4 g r8 g16 bes e4 |
        %10
        d1
-       \bar "|.";
+       \bar "|."
 }
 
-two = \context Staff \notes\relative c{
+two =  \context Staff \notes\relative c{
        \context Voice=ii
        r16 d'' c bes  a bes f g 
        a8.-\mordent bes16  g8.-\prall f16 |
@@ -65,7 +37,7 @@ two = \context Staff \notes\relative c{
        f2 e2 |
        \translator Staff=lower \stemUp
        r4 a, bes b |
-       \translator Staff=upper \stemDown
+       \translator Staff=upper \stemDown\tieDown
        r16 b' a g  f8. f16 e2 ~ |
        %5
        e2 ~ e4 ~ e16 e f! d |
@@ -77,7 +49,7 @@ two = \context Staff \notes\relative c{
        fis1
 }
 
-three = \context Staff \notes\relative c{
+three =  \context Staff \notes\relative c{
        \context Voice=iii
        \stemUp
        f2 e |
@@ -91,28 +63,30 @@ three = \context Staff \notes\relative c{
        e8.-\mordent f16  d8.-\prall c16 \stemBoth c4. d8 |
        \stemDown
        e4 ~ e16 f e d  cis a b cis  d e f d |
-       \property Voice . textStyle = "finger"
+       \property Voice.TextScript \set #'font-style = #'finger
        bes!2 a ~ |
        a a |
        d, cis' |
        %10
        a'1
-       \bar "|.";
+       \bar "|."
 }
 
-four = \context Staff \notes\relative c{
+four =  \context Staff \notes\relative c{
        \context Voice=iv
        \stemDown 
        d2 cis |
-       \skip 1*2; |
-       \skip 4*3;
-       \translator Staff=upper \stemUp \property Voice.horizontalNoteShift = 1 
+       \skip 1*2 |
+       \skip 4*3
+       \translator Staff=upper \stemUp
+       \property Voice.NoteColumn \override #'horizontal-shift = #1
        c''4 |
        %5
        a gis ~ gis16 gis fis e 
-       \skip 4*1;
-       \translator Staff=lower \stemDown \property Voice.horizontalNoteShift = 0 
-       \stemUp
+       \skip 4*1
+       \translator Staff=lower \stemDown
+       \property Voice.NoteColumn \override #'horizontal-shift = #0
+       \stemUp\tieUp
        b2 a |
        g a4. gis16 a |
        gis2 < g8 cis,> <f d> e4 |
@@ -122,9 +96,9 @@ four = \context Staff \notes\relative c{
        d,1
 }
 
-global = \notes{
-       \time 4/4;
-       \key f \major;
+global =  \notes{
+       \time 4/4
+       \key f \major
 }
 
 \score{
@@ -137,18 +111,19 @@ global = \notes{
                >
                \context Staff = lower <
                        \global
-                       \clef "bass";
+                       \clef "bass"
                        \three
                        \four
                >
        >
        \paper{
-               linewidth = 18.0 \cm;  
+               linewidth = 18.0 \cm  
 
        }
-       \midi{ \tempo 4 = 40; }
+       \midi{ \tempo 4 = 40 }
        \header{
-               opus = "BWV 940";
+               piece = \piece
+               opus = \opus
        }
 }