Update of /project/gsharp/cvsroot/gsharp/Scores In directory clnet:/tmp/cvs-serv11794/Scores
Modified Files: dots.gsh Log Message: MORE DOTS
Well, actually, fix the dots that we already have. Rests have dots too, but fortunately the computation for their dot's offset is slightly easier.
--- /project/gsharp/cvsroot/gsharp/Scores/dots.gsh 2006/06/21 16:31:54 1.1 +++ /project/gsharp/cvsroot/gsharp/Scores/dots.gsh 2006/06/26 16:37:43 1.2 @@ -56,6 +56,14 @@ :head :FILLED :accidentals :NATURAL :dots 0 ]) ] + [GSHARP-BUFFER:REST + :xoffset 0 + :notehead :FILLED + :rbeams 0 + :lbeams 0 + :dots 1 + :staff #1# + :staff-pos 4 ] [GSHARP-BUFFER:CLUSTER :xoffset 0 :notehead :FILLED @@ -81,6 +89,14 @@ :head :FILLED :accidentals :NATURAL :dots 0 ]) ] + [GSHARP-BUFFER:REST + :xoffset 0 + :notehead :FILLED + :rbeams 1 + :lbeams 0 + :dots 1 + :staff #1# + :staff-pos 4 ] [GSHARP-BUFFER:CLUSTER :xoffset 0 :notehead :FILLED @@ -106,6 +122,14 @@ :head :FILLED :accidentals :NATURAL :dots 0 ]) ] + [GSHARP-BUFFER:REST + :xoffset 0 + :notehead :HALF + :rbeams 0 + :lbeams 0 + :dots 1 + :staff #1# + :staff-pos 4 ] [GSHARP-BUFFER:CLUSTER :xoffset 0 :notehead :FILLED @@ -493,7 +517,16 @@ :staff #1# :head :FILLED :accidentals :NATURAL - :dots 0 ]) ]) ]) ] + :dots 0 ]) ]) ] + [GSHARP-BUFFER:MELODY-BAR + :elements ([GSHARP-BUFFER:REST + :xoffset 0 + :notehead :WHOLE + :rbeams 0 + :lbeams 0 + :dots 3 + :staff #1# + :staff-pos 4 ]) ]) ] :tail [GSHARP-BUFFER:SLICE :bars ([GSHARP-BUFFER:MELODY-BAR :elements COMMON-LISP:NIL ]) ] ])