* scm/music-functions.scm (determine-split-list): bugfixes.

[lilypond.git] / input / test / scales-greek.ly

diff --git a/input/test/scales-greek.ly b/input/test/scales-greek.ly
index f99145ea088f336a77ca21f163173fee4375a141..d7d4e2ee99ba3af266acae406ffb76f37c4b6e2c 100644 (file)
--- a/input/test/scales-greek.ly
+++ b/input/test/scales-greek.ly
@@ -1,52 +1,35 @@
 \version "2.1.7"
 \header {
-  texidoc = "@cindex Scales Greek
-Show different scales."
+  texidoc = "
+
+Show different greek scales. All these scales are in the key of C
+(major, ionian, phrygian, etc.)
+
+"
 }
 
-voicedefault = \notes {
-\property Score.defaultBarType="empty"
+\score  { \notes {
 
 \key c \major c'8 -"major" d'8 e'8 f'8 g'8 a'8 b'8 c''8
 
 \key c \ionian c'8 -"ionian" d'8 e'8 f'8 g'8 a'8 b'8 c''8
 
-\key d \dorian c'8 -"dorian" d'8 e'8 f'8 g'8 a'8 b'8 c''8
-
-\key e \phrygian c'8 -"phrygian" d'8 e'8 f'8 g'8 a'8 b'8 c''8
-
-\key f \lydian c'8 -"lydian" d'8 e'8 f'8 g'8 a'8 b'8 c''8
-
-\key g \mixolydian c'8 -"mixolydian" d'8 e'8 f'8 g'8 a'8 b'8 c''8
-
-\key a \minor c'8 -"minor" d'8 e'8 f'8 g'8 a'8 b'8 c''8
+\transpose d c { \key d \dorian c'8 -"dorian" d'8 e'8 f'8 g'8 a'8 b'8 c''8 }
 
-\key a \aeolian c'8 -"aeolian" d'8 e'8 f'8 g'8 a'8 b'8 c''8
+\transpose e c { \key e \phrygian c'8 -"phrygian" d'8 e'8 f'8 g'8 a'8 b'8 c''8 }
 
-\key b \locrian c'8 -"locrian" d'8 e'8 f'8 g'8 a'8 b'8 c''8
+\transpose f c { \key f \lydian c'8 -"lydian" d'8 e'8 f'8 g'8 a'8 b'8 c''8 }
 
-\key f \major c'8 -"major" d'8 e'8 f'8 g'8 a'8 bes'8 c''8
+\transpose g c  { \key g \mixolydian c'8 -"mixolydian" d'8 e'8 f'8 g'8 a'8 b'8 c''8 }
 
-\key f \ionian c'8 -"ionian" d'8 e'8 f'8 g'8 a'8 bes'8 c''8
+\transpose a c' { \key a \minor c'8 -"minor" d'8 e'8 f'8 g'8 a'8 b'8 c''8 }
 
-\key g \dorian c'8 -"dorian" d'8 e'8 f'8 g'8 a'8 bes'8 c''8
+\transpose a c' { \key a \aeolian c'8 -"aeolian" d'8 e'8 f'8 g'8 a'8 b'8 c''8 }
 
-\key a \phrygian c'8 -"phrygian" d'8 e'8 f'8 g'8 a'8 bes'8 c''8
-
-\key bes \lydian c'8 -"lydian" d'8 e'8 f'8 g'8 a'8 bes'8 c''8
-
-\key c \mixolydian c'8 -"mixolydian" d'8 e'8 f'8 g'8 a'8 bes'8 c''8
-
-\key d \aeolian c'8 -"aeolian" d'8 e'8 f'8 g'8 a'8 bes'8 c''8
-
-\key d \minor c'8 -"minor" d'8 e'8 f'8 g'8 a'8 bes'8 c''8
-
-\key e \locrian c'8 -"locrian" d'8 e'8 f'8 g'8 a'8 bes'8 c''8
+\transpose b c' { \key b \locrian c'8 -"locrian" d'8 e'8 f'8 g'8 a'8 b'8 c''8 }
 
 }
-
-\score{
-           \voicedefault 
+         
        \paper { }
        \midi {}
 }