[gsharp-cvs] CVS gsharp/Scores

crhodes crhodes at common-lisp.net
Mon May 22 13:40:20 UTC 2006


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

Modified Files:
	cris.gsh 
Log Message:
Make it the first 73 bars, now that scrolling works.  No lyrics yet.


--- /project/gsharp/cvsroot/gsharp/Scores/cris.gsh	2006/05/14 17:49:58	1.1
+++ /project/gsharp/cvsroot/gsharp/Scores/cris.gsh	2006/05/22 13:40:20	1.2
@@ -322,18 +322,8 @@
                                                                          :staff #4#
                                                                          :head :HALF
                                                                          :accidentals :NATURAL
-                                                                         :dots 0 ]) ]) ]) ]
-                             :tail [GSHARP-BUFFER:SLICE
-                                      :bars ([GSHARP-BUFFER:MELODY-BAR
-                                                :elements COMMON-LISP:NIL ]) ] ]
-                          [GSHARP-BUFFER:MELODY-LAYER
-                             :name "ten"
-                             :staves (#3#)
-                             :head [GSHARP-BUFFER:SLICE
-                                      :bars ([GSHARP-BUFFER:MELODY-BAR
-                                                :elements COMMON-LISP:NIL ]) ]
-                             :body [GSHARP-BUFFER:SLICE
-                                      :bars ([GSHARP-BUFFER:MELODY-BAR
+                                                                         :dots 0 ]) ]) ]
+                                             [GSHARP-BUFFER:MELODY-BAR
                                                 :elements ([GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :WHOLE
@@ -343,66 +333,37 @@
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
                                                                          :pitch 25
-                                                                         :staff #3#
-                                                                         :head :WHOLE
+                                                                         :staff #4#
+                                                                         :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0
                                                                          :tie-right COMMON-LISP:T ]) ]) ]
                                              [GSHARP-BUFFER:MELODY-BAR
                                                 :elements ([GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
-                                                              :notehead :WHOLE
+                                                              :notehead :HALF
                                                               :rbeams 0
                                                               :lbeams 0
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
                                                                          :pitch 25
-                                                                         :staff #3#
-                                                                         :head :WHOLE
+                                                                         :staff #4#
+                                                                         :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0
-                                                                         :tie-left COMMON-LISP:T ]) ]) ]
-                                             [GSHARP-BUFFER:MELODY-BAR
-                                                :elements ([GSHARP-BUFFER:CLUSTER
-                                                              :xoffset 0
-                                                              :notehead :WHOLE
-                                                              :rbeams 0
-                                                              :lbeams 0
-                                                              :dots 0
-                                                              :stem-direction :AUTO
-                                                              :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 28
-                                                                         :staff #3#
-                                                                         :head :WHOLE
-                                                                         :accidentals :NATURAL
-                                                                         :dots 0 ]) ]) ]
-                                             [GSHARP-BUFFER:MELODY-BAR
-                                                :elements ([GSHARP-BUFFER:CLUSTER
+                                                                         :tie-left COMMON-LISP:T ]) ]
+                                                           [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
-                                                              :notehead :WHOLE
+                                                              :notehead :FILLED
                                                               :rbeams 0
                                                               :lbeams 0
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 27
-                                                                         :staff #3#
-                                                                         :head :WHOLE
-                                                                         :accidentals :NATURAL
-                                                                         :dots 0 ]) ]) ]
-                                             [GSHARP-BUFFER:MELODY-BAR
-                                                :elements ([GSHARP-BUFFER:CLUSTER
-                                                              :xoffset 0
-                                                              :notehead :HALF
-                                                              :rbeams 0
-                                                              :lbeams 0
-                                                              :dots 1
-                                                              :stem-direction :AUTO
-                                                              :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 26
-                                                                         :staff #3#
-                                                                         :head :WHOLE
+                                                                         :pitch 24
+                                                                         :staff #4#
+                                                                         :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
@@ -413,8 +374,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 25
-                                                                         :staff #3#
+                                                                         :pitch 23
+                                                                         :staff #4#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]) ]
@@ -427,8 +388,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 26
-                                                                         :staff #3#
+                                                                         :pitch 22
+                                                                         :staff #4#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -440,8 +401,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 27
-                                                                         :staff #3#
+                                                                         :pitch 21
+                                                                         :staff #4#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -453,8 +414,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 28
-                                                                         :staff #3#
+                                                                         :pitch 22
+                                                                         :staff #4#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -466,38 +427,41 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 29
-                                                                         :staff #3#
+                                                                         :pitch 23
+                                                                         :staff #4#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]) ]
                                              [GSHARP-BUFFER:MELODY-BAR
                                                 :elements ([GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
-                                                              :notehead :FILLED
+                                                              :notehead :WHOLE
                                                               :rbeams 0
                                                               :lbeams 0
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 30
-                                                                         :staff #3#
+                                                                         :pitch 24
+                                                                         :staff #4#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
-                                                                         :dots 0 ]) ]
-                                                           [GSHARP-BUFFER:CLUSTER
+                                                                         :dots 0
+                                                                         :tie-right COMMON-LISP:T ]) ]) ]
+                                             [GSHARP-BUFFER:MELODY-BAR
+                                                :elements ([GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
-                                                              :notehead :FILLED
+                                                              :notehead :HALF
                                                               :rbeams 0
                                                               :lbeams 0
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 29
-                                                                         :staff #3#
+                                                                         :pitch 24
+                                                                         :staff #4#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
-                                                                         :dots 0 ]) ]
+                                                                         :dots 0
+                                                                         :tie-left COMMON-LISP:T ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
                                                               :notehead :FILLED
@@ -506,8 +470,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 28
-                                                                         :staff #3#
+                                                                         :pitch 23
+                                                                         :staff #4#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
@@ -519,8 +483,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 27
-                                                                         :staff #3#
+                                                                         :pitch 22
+                                                                         :staff #4#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]) ]
@@ -533,8 +497,8 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 26
-                                                                         :staff #3#
+                                                                         :pitch 21
+                                                                         :staff #4#
                                                                          :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]) ]
@@ -545,50 +509,53 @@
                                                               :rbeams 0
                                                               :lbeams 0
                                                               :dots 0
-                                                              :staff #3#
+                                                              :staff #4#
                                                               :staff-pos 4 ]) ]
                                              [GSHARP-BUFFER:MELODY-BAR
-                                                :elements ([GSHARP-BUFFER:CLUSTER
+                                                :elements ([GSHARP-BUFFER:REST
                                                               :xoffset 0
                                                               :notehead :WHOLE
                                                               :rbeams 0
                                                               :lbeams 0
                                                               :dots 0
-                                                              :stem-direction :AUTO
-                                                              :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 26
-                                                                         :staff #3#
-                                                                         :head :WHOLE
-                                                                         :accidentals :NATURAL
-                                                                         :dots 0 ]) ]) ]
+                                                              :staff #4#
+                                                              :staff-pos 4 ]) ]
                                              [GSHARP-BUFFER:MELODY-BAR
-                                                :elements ([GSHARP-BUFFER:CLUSTER
+                                                :elements ([GSHARP-BUFFER:REST
                                                               :xoffset 0
                                                               :notehead :WHOLE
                                                               :rbeams 0
                                                               :lbeams 0
                                                               :dots 0
-                                                              :stem-direction :AUTO
-                                                              :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 26
-                                                                         :staff #3#
-                                                                         :head :WHOLE
-                                                                         :accidentals :NATURAL
-                                                                         :dots 0 ]) ]) ]
+                                                              :staff #4#
+                                                              :staff-pos 4 ]) ]
                                              [GSHARP-BUFFER:MELODY-BAR
-                                                :elements ([GSHARP-BUFFER:CLUSTER
+                                                :elements ([GSHARP-BUFFER:REST
                                                               :xoffset 0
                                                               :notehead :WHOLE
                                                               :rbeams 0
                                                               :lbeams 0
                                                               :dots 0
-                                                              :stem-direction :AUTO
-                                                              :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 26
-                                                                         :staff #3#
-                                                                         :head :WHOLE
-                                                                         :accidentals :NATURAL
-                                                                         :dots 0 ]) ]) ]
+                                                              :staff #4#
+                                                              :staff-pos 4 ]) ]
+                                             [GSHARP-BUFFER:MELODY-BAR
+                                                :elements ([GSHARP-BUFFER:REST
+                                                              :xoffset 0
+                                                              :notehead :WHOLE
+                                                              :rbeams 0
+                                                              :lbeams 0
+                                                              :dots 0
+                                                              :staff #4#
+                                                              :staff-pos 4 ]) ]
+                                             [GSHARP-BUFFER:MELODY-BAR
+                                                :elements ([GSHARP-BUFFER:REST
+                                                              :xoffset 0
+                                                              :notehead :WHOLE
+                                                              :rbeams 0
+                                                              :lbeams 0
+                                                              :dots 0
+                                                              :staff #4#
+                                                              :staff-pos 4 ]) ]
                                              [GSHARP-BUFFER:MELODY-BAR
                                                 :elements ([GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
@@ -598,9 +565,9 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 28
-                                                                         :staff #3#
-                                                                         :head :WHOLE
+                                                                         :pitch 22
+                                                                         :staff #4#
+                                                                         :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]) ]
                                              [GSHARP-BUFFER:MELODY-BAR
@@ -612,9 +579,9 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 27
-                                                                         :staff #3#
-                                                                         :head :HALF
+                                                                         :pitch 19
+                                                                         :staff #4#
+                                                                         :head :FILLED
                                                                          :accidentals :NATURAL
                                                                          :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
@@ -625,79 +592,64 @@
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 26
-                                                                         :staff #3#
-                                                                         :head :HALF
+                                                                         :pitch 22
+                                                                         :staff #4#
+                                                                         :head :FILLED
                                                                          :accidentals :NATURAL
-                                                                         :dots 0
-                                                                         :tie-right COMMON-LISP:T ]) ]) ]
+                                                                         :dots 0 ]) ]) ]
                                              [GSHARP-BUFFER:MELODY-BAR
                                                 :elements ([GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
-                                                              :notehead :HALF
+                                                              :notehead :FILLED
                                                               :rbeams 0
                                                               :lbeams 0
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 26
-                                                                         :staff #3#
-                                                                         :head :HALF
+                                                                         :pitch 21
+                                                                         :staff #4#
+                                                                         :head :FILLED
                                                                          :accidentals :NATURAL
-                                                                         :dots 0
-                                                                         :tie-left COMMON-LISP:T ]) ]
+                                                                         :dots 0 ]) ]
                                                            [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
-                                                              :notehead :HALF
+                                                              :notehead :FILLED
                                                               :rbeams 0
                                                               :lbeams 0
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 25
-                                                                         :staff #3#
-                                                                         :head :HALF
+                                                                         :pitch 20
+                                                                         :staff #4#
+                                                                         :head :FILLED
                                                                          :accidentals :NATURAL
-                                                                         :dots 0 ]) ]) ]
-                                             [GSHARP-BUFFER:MELODY-BAR
-                                                :elements ([GSHARP-BUFFER:CLUSTER
+                                                                         :dots 0 ]) ]
+                                                           [GSHARP-BUFFER:CLUSTER
                                                               :xoffset 0
-                                                              :notehead :WHOLE
+                                                              :notehead :FILLED
                                                               :rbeams 0
                                                               :lbeams 0
                                                               :dots 0
                                                               :stem-direction :AUTO
                                                               :notes ([GSHARP-BUFFER:NOTE
-                                                                         :pitch 26

[5514 lines skipped]




More information about the Gsharp-cvs mailing list