[gsharp-cvs] CVS gsharp/Scores

rstrandh rstrandh at common-lisp.net
Wed Jun 14 05:01:32 UTC 2006


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

Modified Files:
	bach-suite-iv-prelude.gsh 
Log Message:
Bug fixes and more bars.


--- /project/gsharp/cvsroot/gsharp/Scores/bach-suite-iv-prelude.gsh	2006/06/13 04:21:49	1.1
+++ /project/gsharp/cvsroot/gsharp/Scores/bach-suite-iv-prelude.gsh	2006/06/14 05:01:31	1.2
@@ -1,7 +1,7 @@
 G#V4
 
 [GSHARP-BUFFER:BUFFER
-   :min-width 17
+   :min-width 12
    :spacing-style 0.4
    :right-edge 700
    :left-offset 30
@@ -3149,6 +3149,14 @@
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
+                                                           [GSHARP-BUFFER:REST
+                                                              :xoffset 0
+                                                              :notehead :FILLED
+                                                              :rbeams 2
+                                                              :lbeams 0
+                                                              :dots 0
+                                                              :staff #2#
+                                                              :staff-pos 4 ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
@@ -3293,36 +3301,29 @@
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]) ]
                                              [GSHARP-BUFFER:MELODY-BAR
-                                                :elements COMMON-LISP:NIL ]) ]
-                             :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
+                                                :elements ([GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
                                                               :rbeams 2
                                                               :lbeams 0
                                                               :dots 0
-                                                              :staff #1#
-                                                              :staff-pos 4 ]
+                                                              :stem-direction :AUTO
+                                                              :notes ([GSHARP-BUFFER:NOTE
+                                                                         :pitch 23
+                                                                         :staff #2#
+                                                                         :head :FILLED
+                                                                         :accidentals :NATURAL
+                                                                         :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
                                                               :rbeams 2
-                                                              :lbeams 0
+                                                              :lbeams 2
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
                                                                          :pitch 28
-                                                                         :staff #1#
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -3334,8 +3335,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 29
-                                                                         :staff #1#
+                                                                         :pitch 24
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -3347,8 +3348,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 30
-                                                                         :staff #1#
+                                                                         :pitch 28
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -3360,8 +3361,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 31
-                                                                         :staff #1#
+                                                                         :pitch 23
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -3373,8 +3374,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 32
-                                                                         :staff #1#
+                                                                         :pitch 28
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -3386,8 +3387,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 33
-                                                                         :staff #1#
+                                                                         :pitch 22
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -3399,8 +3400,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 31
-                                                                         :staff #1#
+                                                                         :pitch 28
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -3410,12 +3411,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
@@ -3425,8 +3426,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 35
-                                                                         :staff #1#
+                                                                         :pitch 28
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -3438,10 +3439,10 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 34
-                                                                         :staff #1#
+                                                                         :pitch 22
+                                                                         :staff #2#
                                                                          :head :FILLED
-                                                                         :accidentals :FLAT
+                                                                         :accidentals :NATURAL
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
@@ -3451,8 +3452,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 33
-                                                                         :staff #1#
+                                                                         :pitch 28
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -3464,8 +3465,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 32
-                                                                         :staff #1#
+                                                                         :pitch 23
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -3477,8 +3478,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 35
-                                                                         :staff #1#
+                                                                         :pitch 28
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -3490,10 +3491,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
@@ -3503,8 +3504,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 35
-                                                                         :staff #1#
+                                                                         :pitch 28
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]) ]
@@ -3512,131 +3513,150 @@
                                                 :elements ([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 27
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
-                                                           [GSHARP-BUFFER:CLUSTER
+                                                           [GSHARP-BUFFER:REST
                                                               :xoffset 0
                                                               :notehead :FILLED
                                                               :rbeams 1
-                                                              :lbeams 1
+                                                              :lbeams 0
+                                                              :dots 0
+                                                              :staff #2#
+                                                              :staff-pos 4 ]
+                                                           [GSHARP-BUFFER:REST
+                                                              :xoffset 0
+                                                              :notehead :FILLED
+                                                              :rbeams 0
+                                                              :lbeams 0
+                                                              :dots 0
+                                                              :staff #2#
+                                                              :staff-pos 4 ]) ]
+                                             [GSHARP-BUFFER:MELODY-BAR
+                                                :elements ([GSHARP-BUFFER:REST
+                                                              :xoffset 0
+                                                              :notehead :FILLED
+                                                              :rbeams 2
+                                                              :lbeams 0
+                                                              :dots 0
+                                                              :staff #2#
+                                                              :staff-pos 4 ]
+                                                           [GSHARP-BUFFER:CLUSTER
+                                                              :xoffset 0
+                                                              :notehead :FILLED
+                                                              :rbeams 2
+                                                              :lbeams 0
                                                               :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 27
+                                                                         :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 29
+                                                                         :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 27
+                                                                         :staff #2#
                                                                          :head :FILLED
-                                                                         :accidentals :NATURAL
+                                                                         :accidentals :FLAT
                                                                          :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 27
+                                                                         :staff #2#
                                                                          :head :FILLED
-                                                                         :accidentals :NATURAL
+                                                                         :accidentals :FLAT
                                                                          :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 29
+                                                                         :staff #2#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL

[6341 lines skipped]




More information about the Gsharp-cvs mailing list