[gsharp-cvs] CVS gsharp/Scores

rstrandh rstrandh at common-lisp.net
Wed Jun 14 18:24:08 UTC 2006


Update of /project/gsharp/cvsroot/gsharp/Scores
In directory clnet:/tmp/cvs-serv24264

Modified Files:
	bach-suite-iv-prelude.gsh 
Log Message:
Typed a few more bars.  

Now I need to know how to change the key signature in the middle of
a staff. 


--- /project/gsharp/cvsroot/gsharp/Scores/bach-suite-iv-prelude.gsh	2006/06/14 05:01:31	1.2
+++ /project/gsharp/cvsroot/gsharp/Scores/bach-suite-iv-prelude.gsh	2006/06/14 18:24:08	1.3
@@ -4051,62 +4051,57 @@
                                                                          :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
-                                                                         :dots 0 ]) ]) ]) ]
-                             :tail [GSHARP-BUFFER:SLICE
-                                      :bars ([GSHARP-BUFFER:MELODY-BAR
-                                                :elements COMMON-LISP:NIL ]) ] ]
-                          [GSHARP-BUFFER:MELODY-LAYER
-                             :name "treble"
-                             :staves (#1#)
-                             :head [GSHARP-BUFFER:SLICE
-                                      :bars ([GSHARP-BUFFER:MELODY-BAR
-                                                :elements COMMON-LISP:NIL ]) ]
-                             :body [GSHARP-BUFFER:SLICE
-                                      :bars ([GSHARP-BUFFER:MELODY-BAR
-                                                :elements ([GSHARP-BUFFER:REST
+                                                                         :dots 0 ]) ]) ]
+                                             [GSHARP-BUFFER:MELODY-BAR
+                                                :elements ([GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
-                                                              :rbeams 2
+                                                              :rbeams 1
                                                               :lbeams 0
-                                                              :dots 0
-                                                              :staff #1#
-                                                              :staff-pos 4 ]
+                                                              :dots 1
+                                                              :stem-direction :AUTO
+                                                              :notes ([GSHARP-BUFFER:NOTE
+                                                                         :pitch 21
+                                                                         :staff #2#
+                                                                         :head :FILLED
+                                                                         :accidentals :NATURAL
+                                                                         :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
-                                                              :rbeams 2
-                                                              :lbeams 0
+                                                              :rbeams 1
+                                                              :lbeams 2
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 28
-                                                                         :staff #1#
+                                                                         :pitch 22
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
-                                                              :rbeams 2
-                                                              :lbeams 2
-                                                              :dots 0
+                                                              :rbeams 1
+                                                              :lbeams 0
+                                                              :dots 1
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 29
-                                                                         :staff #1#
+                                                                         :pitch 20
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
-                                                              :rbeams 2
+                                                              :rbeams 1
                                                               :lbeams 2
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 30
-                                                                         :staff #1#
+                                                                         :pitch 21
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -4118,8 +4113,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 31
-                                                                         :staff #1#
+                                                                         :pitch 21
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -4131,8 +4126,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 32
-                                                                         :staff #1#
+                                                                         :pitch 18
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -4144,8 +4139,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 33
-                                                                         :staff #1#
+                                                                         :pitch 19
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -4157,10 +4152,10 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 31
-                                                                         :staff #1#
+                                                                         :pitch 20
+                                                                         :staff #2#
                                                                          :head :FILLED
-                                                                         :accidentals :NATURAL
+                                                                         :accidentals :FLAT
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
@@ -4168,12 +4163,12 @@
                                                               :rbeams 2
                                                               :lbeams 0
                                                               :dots 0
-                                                              :stem-direction :UP
+                                                              :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 34
-                                                                         :staff #1#
+                                                                         :pitch 21
+                                                                         :staff #2#
                                                                          :head :FILLED
-                                                                         :accidentals :FLAT
+                                                                         :accidentals :NATURAL
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
@@ -4183,8 +4178,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 35
-                                                                         :staff #1#
+                                                                         :pitch 22
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -4196,10 +4191,10 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 34
-                                                                         :staff #1#
+                                                                         :pitch 23
+                                                                         :staff #2#
                                                                          :head :FILLED
-                                                                         :accidentals :FLAT
+                                                                         :accidentals :NATURAL
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
@@ -4209,12 +4204,13 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 33
-                                                                         :staff #1#
+                                                                         :pitch 21
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
-                                                                         :dots 0 ]) ]
-                                                           [GSHARP-BUFFER:CLUSTER
+                                                                         :dots 0 ]) ]) ]
+                                             [GSHARP-BUFFER:MELODY-BAR
+                                                :elements ([GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
                                                               :rbeams 2
@@ -4222,8 +4218,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 32
-                                                                         :staff #1#
+                                                                         :pitch 24
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -4235,8 +4231,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 35
-                                                                         :staff #1#
+                                                                         :pitch 25
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -4248,10 +4244,10 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 34
-                                                                         :staff #1#
+                                                                         :pitch 24
+                                                                         :staff #2#
                                                                          :head :FILLED
-                                                                         :accidentals :FLAT
+                                                                         :accidentals :NATURAL
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
@@ -4261,118 +4257,116 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 35
-                                                                         :staff #1#
+                                                                         :pitch 23
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
-                                                                         :dots 0 ]) ]) ]
-                                             [GSHARP-BUFFER:MELODY-BAR
-                                                :elements ([GSHARP-BUFFER:CLUSTER
+                                                                         :dots 0 ]) ]
+                                                           [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
-                                                              :rbeams 1
+                                                              :rbeams 2
                                                               :lbeams 0
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 33
-                                                                         :staff #1#
+                                                                         :pitch 22
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
-                                                              :rbeams 1
-                                                              :lbeams 1
+                                                              :rbeams 2
+                                                              :lbeams 2
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 31
-                                                                         :staff #1#
+                                                                         :pitch 25
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
-                                                              :rbeams 1
-                                                              :lbeams 0
-                                                              :dots 1
+                                                              :rbeams 2
+                                                              :lbeams 2
+                                                              :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 38
-                                                                         :staff #1#
+                                                                         :pitch 24
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
-                                                              :rbeams 1
+                                                              :rbeams 2
                                                               :lbeams 2
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 38
-                                                                         :staff #1#
+                                                                         :pitch 25
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
-                                                              :rbeams 1
+                                                              :rbeams 2
                                                               :lbeams 0
-                                                              :dots 1
+                                                              :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 38
-                                                                         :staff #1#
+                                                                         :pitch 23
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
-                                                              :rbeams 1
+                                                              :rbeams 2
                                                               :lbeams 2
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 39
-                                                                         :staff #1#
+                                                                         :pitch 25
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
-                                                              :rbeams 1
-                                                              :lbeams 0
-                                                              :dots 1
+                                                              :rbeams 2
+                                                              :lbeams 2
+                                                              :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 37
-                                                                         :staff #1#
+                                                                         :pitch 26
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
-                                                              :rbeams 1
+                                                              :rbeams 2
                                                               :lbeams 2
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 38
-                                                                         :staff #1#
+                                                                         :pitch 27
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
-                                                                         :dots 0 ]) ]) ]
-                                             [GSHARP-BUFFER:MELODY-BAR
-                                                :elements ([GSHARP-BUFFER:CLUSTER
+                                                                         :dots 0 ]) ]
+                                                           [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
                                                               :rbeams 2
@@ -4380,8 +4374,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 38
-                                                                         :staff #1#
+                                                                         :pitch 28
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -4393,8 +4387,8 @@
                                                               :dots 0

[8965 lines skipped]




More information about the Gsharp-cvs mailing list