X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fscales.ly;h=dc4144ca2500fe99141471cba6da1fe9e12275ed;hb=f5d88b8b3b09ac724d7f2234b25fcbde4bc1b072;hp=d98c1bba4326051c8aeea47190b026514680a9a9;hpb=daee8243ff1c66bc714455a2d265ab02f03546ec;p=lilypond.git

diff --git a/input/scales.ly b/input/scales.ly
index d98c1bba43..dc4144ca25 100644
--- a/input/scales.ly
+++ b/input/scales.ly
@@ -1,60 +1,91 @@
+\header{
+filename =	 "scales.ly";
+enteredby =	 "HWN";
+copyright =	 "public domain";
+}
+
+%{
+ Tested Features: scripts, beams, transposition, 
+%}
+
+%
+% scales with accents.
+%
+
+\version "1.0.1";
+blah = 	\melodic {
+		\time 6/8;	
+\transpose c {
+		\clef "bass";
+			c4. d
+}
+			c d 
+		\clef "violin" ;
+\transpose c'' {
+		\transpose  d { e f }  }
+\transpose c''' {
+		c4. d 
+	%ugr
+		 |[6/9 a8 \< a a a a a a  \! a a \ff \> ]1/1 | }
+		 \transpose c'' {
+		     [6/9 a  a a a a a a a \! a ]1/1 | }
+		 \transpose c''' {
+		 [6/9 c,->-.-\fermata \< g,->-.-\fermata 
+			d->-.-\fermata a->-.-\fermata
+			e'->-.-\fermata b'-. f''-. c'''->-.-\fermata 
+			\! g'''->-.-\fermata \> ]1/1
+
+		[6/9 g'''->-.-\fermata c'''->-.-\fermata
+			f''->-.-\fermata b'->-.-\fermata e'->-.-\fermata 
+			a->-.-\fermata d->-.-\fermata g,->-.-\fermata \! 
+			c,->-.-\fermata ]1/1
+			
+		[6/9 c,->-.-\fermata \< g,->-.-\fermata d->-.-\fermata 
+		a->-.-\fermata
+			e'->-.-\fermata b'-. f''-. 
+			c'''->-.-\fermata \! g'''->-.-\fermata \> ]1/1
+		 [6/9 g'''->-.-\fermata c'''->-.-\fermata
+			f''->-.-\fermata b'->-.-\fermata e'->-.-\fermata 
+			a->-.-\fermata d->-.-\fermata 
+			g,->-.-\fermata \! c,->-.-\fermata ]1/1
+		}
+		\transpose c'' {
+		 [2/3 c g d' ]1/1 
+		 [2/3 d' g c ]1/1  
+		 [2/3 f c' g' ]1/1 
+		 [2/3 g' c' f ]1/1
+		 }
+		 \transpose c' {
+		 [2/3 c g d' ]1/1 
+		 [2/3 d' g c ]1/1  
+		 [2/3 f c' g' ]1/1 
+		 [2/3 g' c' f ]1/1 
+		 [2/3 g' c' f ]1/1 
+  \time 4/4;
 
-blah =
-staff {melodic
-	music{ 	$
-\duration { 8 }
-			\octave{ }
-			 |[ a a a a a a a a a ] 
-			\octave{ ' }
-			 |[ a a a a a a a a a ] 
-			\octave { ` } 
-			 [ `c `g d a 'e 'b ''f '''c '''g ] 
-			 [ '''g '''c ''f 'b 'e a d `g `c ] 
-			\octave{ ' }
-			 [ `c `g d a 'e 'b ''f '''c '''g ] 
-			 [ '''g '''c ''f 'b 'e a d `g `c ] 
-			\octave { } 
-			 [ c g 'd ]2/3 
-			 [ 'd g c ]2/3  
-			 [ f 'c 'g ]2/3 
-			 [ 'g 'c f ]2/3  
-			\octave{ ' }
-			 [ c g 'd ]2/3 
-			 [ 'd g c ]2/3  
-			 [ f 'c 'g ]2/3 
-			 [ 'g 'c f ]2/3 
-
-c1
-	\duration { 8}
-	[c-> d-> e-> f->][g-> a-> b-> 'c->] % 1
-\octave{'}	['c-^ b-^ a-^ g-^][f-^ e-^ d-^ c-^]
-\octave{}	['c-^ b-^ a-^ g-^][f-^ e-^ d-^ c-^]
-	[c-. d-. e-. f-.][g-. a-. b-. 'c-.]
-	['c-- b-- a-- g][f-- e-- d c--] % 5
+c1}
+
+		r8-"text" r8^. r8_. r8 r8 r8 r8 r8
+	[c-> d-> e-> f->][g-> a-> b-> c'->] % 1
+\transpose c'' {	[c'-^ b-^ a-^ g-^][f-^ e-^ d-^ c-^]}
+	[c'-^ b-^ a-^ g-^][f-^ e-^ d-^ c-^]
+	[c-. d-. e-. f-.][g-. a-. b-. c'-.]
+	[c'-- b-- a-- g][f-- e-- d c--] % 5
 	[c-\portato d-\portato e-\portato f-\portato]
-		[g-\portato a-\portato b-\portato 'c-\portato]
-	['c-\upbow b-\upbow a-\downbow g-\downbow]
+		[g-\portato a-\portato b-\portato c'-\portato]
+	[c'-\upbow b-\upbow a-\downbow g-\downbow]
 		[f-\downbow e-\downbow d-\upbow c-\upbow]
-	[c-| d-| e-| f-|][g-| a-| b-| 'c-|]
-	['c b a g][f e d c]
-	[c d e f][g a b 'c] % 10 
-	|['c b a g][f e d c]
+	[c-| d-| e-| f-|][g-| a-| b-| c'-|]
+	[c' b a g][f e d c]
+	[c d e f][g a b c'] % 10 
+	|[c' b a g][f e d c]
 			
-		$}
-}
-
-score {
-	staff {
-	blah
 	}
-	paper {
-		symboltables { table_sixteen}
-		unitspace 1.5 cm
-		geometric 1.4
-	}
-	commands  {
-                meter {6*8}
-                skip 36*8
-		meter {4*4}
+
+
+\score{
+	\melodic {\blah}
+	\paper{
+	 castingalgorithm = \Wordwrap;
 	}
 }