Basic undo implemented for simple operations.
[gsharp.git] / Scores / dots.gsh
blob03178d1211fc5220eb99865a9a7012a737ac13f6
1 G#V4
3 [GSHARP-BUFFER:BUFFER
4    :min-width 17
5    :spacing-style 0.4
6    :right-edge 700
7    :left-offset 30
8    :left-margin 20
9    :staves (#1=[GSHARP-BUFFER:FIVELINE-STAFF
10                   :name "default staff"
11                   :clef [GSHARP-BUFFER:CLEF :name :TREBLE :lineno 2 ]
12                   :keysig [GSHARP-BUFFER:KEY-SIGNATURE
13                              :xoffset 0
14                              :staff #1#
15                              :alterations #(:NATURAL :NATURAL :NATURAL :NATURAL
16                                             :NATURAL :NATURAL :NATURAL) ] ]
17             #2=[GSHARP-BUFFER:FIVELINE-STAFF
18                   :name "foo"
19                   :clef [GSHARP-BUFFER:CLEF :name :BASS :lineno 4 ]
20                   :keysig [GSHARP-BUFFER:KEY-SIGNATURE
21                              :xoffset 0
22                              :staff #2#
23                              :alterations #(:NATURAL :NATURAL :NATURAL :NATURAL
24                                             :NATURAL :NATURAL :NATURAL) ] ])
25    :segments ([GSHARP-BUFFER:SEGMENT
26                  :layers ([GSHARP-BUFFER:MELODY-LAYER
27                              :name "default layer"
28                              :staves (#1# #2#)
29                              :head [GSHARP-BUFFER:SLICE
30                                       :bars ([GSHARP-BUFFER:MELODY-BAR
31                                                 :elements COMMON-LISP:NIL ]) ]
32                              :body [GSHARP-BUFFER:SLICE
33                                       :bars ([GSHARP-BUFFER:MELODY-BAR
34                                                 :elements ([GSHARP-BUFFER:CLUSTER
35                                                               :xoffset 0
36                                                               :notehead :FILLED
37                                                               :rbeams 0
38                                                               :lbeams 0
39                                                               :dots 1
40                                                               :stem-direction :AUTO
41                                                               :notes ([GSHARP-BUFFER:NOTE
42                                                                          :pitch 35
43                                                                          :staff #1#
44                                                                          :head :FILLED
45                                                                          :accidentals :NATURAL
46                                                                          :dots 0 ]
47                                                                       [GSHARP-BUFFER:NOTE
48                                                                          :pitch 36
49                                                                          :staff #1#
50                                                                          :head :FILLED
51                                                                          :accidentals :NATURAL
52                                                                          :dots 0 ]
53                                                                       [GSHARP-BUFFER:NOTE
54                                                                          :pitch 37
55                                                                          :staff #1#
56                                                                          :head :FILLED
57                                                                          :accidentals :NATURAL
58                                                                          :dots 0 ]) ]
59                                                            [GSHARP-BUFFER:REST
60                                                               :xoffset 0
61                                                               :notehead :FILLED
62                                                               :rbeams 0
63                                                               :lbeams 0
64                                                               :dots 1
65                                                               :staff #1#
66                                                               :staff-pos 4 ]
67                                                            [GSHARP-BUFFER:CLUSTER
68                                                               :xoffset 0
69                                                               :notehead :FILLED
70                                                               :rbeams 0
71                                                               :lbeams 0
72                                                               :dots 1
73                                                               :stem-direction :AUTO
74                                                               :notes ([GSHARP-BUFFER:NOTE
75                                                                          :pitch 36
76                                                                          :staff #1#
77                                                                          :head :FILLED
78                                                                          :accidentals :NATURAL
79                                                                          :dots 0 ]
80                                                                       [GSHARP-BUFFER:NOTE
81                                                                          :pitch 37
82                                                                          :staff #1#
83                                                                          :head :FILLED
84                                                                          :accidentals :NATURAL
85                                                                          :dots 0 ]
86                                                                       [GSHARP-BUFFER:NOTE
87                                                                          :pitch 38
88                                                                          :staff #1#
89                                                                          :head :FILLED
90                                                                          :accidentals :NATURAL
91                                                                          :dots 0 ]) ]
92                                                            [GSHARP-BUFFER:REST
93                                                               :xoffset 0
94                                                               :notehead :FILLED
95                                                               :rbeams 1
96                                                               :lbeams 0
97                                                               :dots 1
98                                                               :staff #1#
99                                                               :staff-pos 4 ]
100                                                            [GSHARP-BUFFER:CLUSTER
101                                                               :xoffset 0
102                                                               :notehead :FILLED
103                                                               :rbeams 0
104                                                               :lbeams 0
105                                                               :dots 1
106                                                               :stem-direction :AUTO
107                                                               :notes ([GSHARP-BUFFER:NOTE
108                                                                          :pitch 30
109                                                                          :staff #1#
110                                                                          :head :FILLED
111                                                                          :accidentals :NATURAL
112                                                                          :dots 0 ]
113                                                                       [GSHARP-BUFFER:NOTE
114                                                                          :pitch 31
115                                                                          :staff #1#
116                                                                          :head :FILLED
117                                                                          :accidentals :NATURAL
118                                                                          :dots 0 ]
119                                                                       [GSHARP-BUFFER:NOTE
120                                                                          :pitch 32
121                                                                          :staff #1#
122                                                                          :head :FILLED
123                                                                          :accidentals :NATURAL
124                                                                          :dots 0 ]) ]
125                                                            [GSHARP-BUFFER:REST
126                                                               :xoffset 0
127                                                               :notehead :HALF
128                                                               :rbeams 0
129                                                               :lbeams 0
130                                                               :dots 1
131                                                               :staff #1#
132                                                               :staff-pos 4 ]
133                                                            [GSHARP-BUFFER:CLUSTER
134                                                               :xoffset 0
135                                                               :notehead :FILLED
136                                                               :rbeams 0
137                                                               :lbeams 0
138                                                               :dots 1
139                                                               :stem-direction :AUTO
140                                                               :notes ([GSHARP-BUFFER:NOTE
141                                                                          :pitch 31
142                                                                          :staff #1#
143                                                                          :head :FILLED
144                                                                          :accidentals :NATURAL
145                                                                          :dots 0 ]
146                                                                       [GSHARP-BUFFER:NOTE
147                                                                          :pitch 32
148                                                                          :staff #1#
149                                                                          :head :FILLED
150                                                                          :accidentals :NATURAL
151                                                                          :dots 0 ]
152                                                                       [GSHARP-BUFFER:NOTE
153                                                                          :pitch 33
154                                                                          :staff #1#
155                                                                          :head :FILLED
156                                                                          :accidentals :NATURAL
157                                                                          :dots 0 ]) ]) ]
158                                              [GSHARP-BUFFER:MELODY-BAR
159                                                 :elements ([GSHARP-BUFFER:CLUSTER
160                                                               :xoffset 0
161                                                               :notehead :FILLED
162                                                               :rbeams 1
163                                                               :lbeams 0
164                                                               :dots 1
165                                                               :stem-direction :AUTO
166                                                               :notes ([GSHARP-BUFFER:NOTE
167                                                                          :pitch 35
168                                                                          :staff #1#
169                                                                          :head :FILLED
170                                                                          :accidentals :NATURAL
171                                                                          :dots 0 ]
172                                                                       [GSHARP-BUFFER:NOTE
173                                                                          :pitch 36
174                                                                          :staff #1#
175                                                                          :head :FILLED
176                                                                          :accidentals :NATURAL
177                                                                          :dots 0 ]
178                                                                       [GSHARP-BUFFER:NOTE
179                                                                          :pitch 37
180                                                                          :staff #1#
181                                                                          :head :FILLED
182                                                                          :accidentals :NATURAL
183                                                                          :dots 0 ]) ]
184                                                            [GSHARP-BUFFER:CLUSTER
185                                                               :xoffset 0
186                                                               :notehead :FILLED
187                                                               :rbeams 1
188                                                               :lbeams 0
189                                                               :dots 1
190                                                               :stem-direction :AUTO
191                                                               :notes ([GSHARP-BUFFER:NOTE
192                                                                          :pitch 36
193                                                                          :staff #1#
194                                                                          :head :FILLED
195                                                                          :accidentals :NATURAL
196                                                                          :dots 0 ]
197                                                                       [GSHARP-BUFFER:NOTE
198                                                                          :pitch 37
199                                                                          :staff #1#
200                                                                          :head :FILLED
201                                                                          :accidentals :NATURAL
202                                                                          :dots 0 ]
203                                                                       [GSHARP-BUFFER:NOTE
204                                                                          :pitch 38
205                                                                          :staff #1#
206                                                                          :head :FILLED
207                                                                          :accidentals :NATURAL
208                                                                          :dots 0 ]) ]
209                                                            [GSHARP-BUFFER:CLUSTER
210                                                               :xoffset 0
211                                                               :notehead :FILLED
212                                                               :rbeams 1
213                                                               :lbeams 0
214                                                               :dots 1
215                                                               :stem-direction :AUTO
216                                                               :notes ([GSHARP-BUFFER:NOTE
217                                                                          :pitch 30
218                                                                          :staff #1#
219                                                                          :head :FILLED
220                                                                          :accidentals :NATURAL
221                                                                          :dots 0 ]
222                                                                       [GSHARP-BUFFER:NOTE
223                                                                          :pitch 31
224                                                                          :staff #1#
225                                                                          :head :FILLED
226                                                                          :accidentals :NATURAL
227                                                                          :dots 0 ]
228                                                                       [GSHARP-BUFFER:NOTE
229                                                                          :pitch 32
230                                                                          :staff #1#
231                                                                          :head :FILLED
232                                                                          :accidentals :NATURAL
233                                                                          :dots 0 ]) ]
234                                                            [GSHARP-BUFFER:CLUSTER
235                                                               :xoffset 0
236                                                               :notehead :FILLED
237                                                               :rbeams 1
238                                                               :lbeams 0
239                                                               :dots 1
240                                                               :stem-direction :AUTO
241                                                               :notes ([GSHARP-BUFFER:NOTE
242                                                                          :pitch 31
243                                                                          :staff #1#
244                                                                          :head :FILLED
245                                                                          :accidentals :NATURAL
246                                                                          :dots 0 ]
247                                                                       [GSHARP-BUFFER:NOTE
248                                                                          :pitch 32
249                                                                          :staff #1#
250                                                                          :head :FILLED
251                                                                          :accidentals :NATURAL
252                                                                          :dots 0 ]
253                                                                       [GSHARP-BUFFER:NOTE
254                                                                          :pitch 33
255                                                                          :staff #1#
256                                                                          :head :FILLED
257                                                                          :accidentals :NATURAL
258                                                                          :dots 0 ]) ]) ]
259                                              [GSHARP-BUFFER:MELODY-BAR
260                                                 :elements ([GSHARP-BUFFER:KEY-SIGNATURE
261                                                               :xoffset 0
262                                                               :staff #1#
263                                                               :alterations #(:NATURAL
264                                                                              :NATURAL
265                                                                              :NATURAL
266                                                                              :NATURAL
267                                                                              :NATURAL
268                                                                              :NATURAL
269                                                                              :NATURAL) ]
270                                                            [GSHARP-BUFFER:CLUSTER
271                                                               :xoffset 0
272                                                               :notehead :FILLED
273                                                               :rbeams 0
274                                                               :lbeams 0
275                                                               :dots 1
276                                                               :stem-direction :AUTO
277                                                               :notes ([GSHARP-BUFFER:NOTE
278                                                                          :pitch 28
279                                                                          :staff #1#
280                                                                          :head :FILLED
281                                                                          :accidentals :NATURAL
282                                                                          :dots 0 ]) ]
283                                                            [GSHARP-BUFFER:CLUSTER
284                                                               :xoffset 0
285                                                               :notehead :FILLED
286                                                               :rbeams 0
287                                                               :lbeams 0
288                                                               :dots 1
289                                                               :stem-direction :AUTO
290                                                               :notes ([GSHARP-BUFFER:NOTE
291                                                                          :pitch 29
292                                                                          :staff #1#
293                                                                          :head :FILLED
294                                                                          :accidentals :NATURAL
295                                                                          :dots 0 ]) ]
296                                                            [GSHARP-BUFFER:CLUSTER
297                                                               :xoffset 0
298                                                               :notehead :FILLED
299                                                               :rbeams 0
300                                                               :lbeams 0
301                                                               :dots 1
302                                                               :stem-direction :AUTO
303                                                               :notes ([GSHARP-BUFFER:NOTE
304                                                                          :pitch 30
305                                                                          :staff #1#
306                                                                          :head :FILLED
307                                                                          :accidentals :NATURAL
308                                                                          :dots 0 ]) ]
309                                                            [GSHARP-BUFFER:CLUSTER
310                                                               :xoffset 0
311                                                               :notehead :FILLED
312                                                               :rbeams 0
313                                                               :lbeams 0
314                                                               :dots 1
315                                                               :stem-direction :AUTO
316                                                               :notes ([GSHARP-BUFFER:NOTE
317                                                                          :pitch 31
318                                                                          :staff #1#
319                                                                          :head :FILLED
320                                                                          :accidentals :NATURAL
321                                                                          :dots 0 ]) ]
322                                                            [GSHARP-BUFFER:CLUSTER
323                                                               :xoffset 0
324                                                               :notehead :FILLED
325                                                               :rbeams 0
326                                                               :lbeams 0
327                                                               :dots 1
328                                                               :stem-direction :AUTO
329                                                               :notes ([GSHARP-BUFFER:NOTE
330                                                                          :pitch 32
331                                                                          :staff #1#
332                                                                          :head :FILLED
333                                                                          :accidentals :NATURAL
334                                                                          :dots 0 ]) ]
335                                                            [GSHARP-BUFFER:CLUSTER
336                                                               :xoffset 0
337                                                               :notehead :FILLED
338                                                               :rbeams 0
339                                                               :lbeams 0
340                                                               :dots 1
341                                                               :stem-direction :AUTO
342                                                               :notes ([GSHARP-BUFFER:NOTE
343                                                                          :pitch 33
344                                                                          :staff #1#
345                                                                          :head :FILLED
346                                                                          :accidentals :NATURAL
347                                                                          :dots 0 ]) ]
348                                                            [GSHARP-BUFFER:CLUSTER
349                                                               :xoffset 0
350                                                               :notehead :FILLED
351                                                               :rbeams 0
352                                                               :lbeams 0
353                                                               :dots 1
354                                                               :stem-direction :AUTO
355                                                               :notes ([GSHARP-BUFFER:NOTE
356                                                                          :pitch 34
357                                                                          :staff #1#
358                                                                          :head :FILLED
359                                                                          :accidentals :NATURAL
360                                                                          :dots 0 ]) ]
361                                                            [GSHARP-BUFFER:CLUSTER
362                                                               :xoffset 0
363                                                               :notehead :FILLED
364                                                               :rbeams 0
365                                                               :lbeams 0
366                                                               :dots 1
367                                                               :stem-direction :AUTO
368                                                               :notes ([GSHARP-BUFFER:NOTE
369                                                                          :pitch 35
370                                                                          :staff #1#
371                                                                          :head :FILLED
372                                                                          :accidentals :NATURAL
373                                                                          :dots 0 ]) ]) ]
374                                              [GSHARP-BUFFER:MELODY-BAR
375                                                 :elements ([GSHARP-BUFFER:CLUSTER
376                                                               :xoffset 0
377                                                               :notehead :FILLED
378                                                               :rbeams 1
379                                                               :lbeams 0
380                                                               :dots 1
381                                                               :stem-direction :AUTO
382                                                               :notes ([GSHARP-BUFFER:NOTE
383                                                                          :pitch 28
384                                                                          :staff #1#
385                                                                          :head :FILLED
386                                                                          :accidentals :NATURAL
387                                                                          :dots 0 ]
388                                                                       [GSHARP-BUFFER:NOTE
389                                                                          :pitch 29
390                                                                          :staff #1#
391                                                                          :head :FILLED
392                                                                          :accidentals :NATURAL
393                                                                          :dots 0 ]) ]
394                                                            [GSHARP-BUFFER:CLUSTER
395                                                               :xoffset 0
396                                                               :notehead :FILLED
397                                                               :rbeams 1
398                                                               :lbeams 0
399                                                               :dots 1
400                                                               :stem-direction :AUTO
401                                                               :notes ([GSHARP-BUFFER:NOTE
402                                                                          :pitch 29
403                                                                          :staff #1#
404                                                                          :head :FILLED
405                                                                          :accidentals :NATURAL
406                                                                          :dots 0 ]) ]
407                                                            [GSHARP-BUFFER:CLUSTER
408                                                               :xoffset 0
409                                                               :notehead :FILLED
410                                                               :rbeams 1
411                                                               :lbeams 0
412                                                               :dots 1
413                                                               :stem-direction :AUTO
414                                                               :notes ([GSHARP-BUFFER:NOTE
415                                                                          :pitch 21
416                                                                          :staff #2#
417                                                                          :head :FILLED
418                                                                          :accidentals :NATURAL
419                                                                          :dots 0 ]
420                                                                       [GSHARP-BUFFER:NOTE
421                                                                          :pitch 28
422                                                                          :staff #2#
423                                                                          :head :FILLED
424                                                                          :accidentals :NATURAL
425                                                                          :dots 0 ]
426                                                                       [GSHARP-BUFFER:NOTE
427                                                                          :pitch 30
428                                                                          :staff #1#
429                                                                          :head :FILLED
430                                                                          :accidentals :NATURAL
431                                                                          :dots 0 ]
432                                                                       [GSHARP-BUFFER:NOTE
433                                                                          :pitch 31
434                                                                          :staff #1#
435                                                                          :head :FILLED
436                                                                          :accidentals :NATURAL
437                                                                          :dots 0 ]
438                                                                       [GSHARP-BUFFER:NOTE
439                                                                          :pitch 32
440                                                                          :staff #2#
441                                                                          :head :FILLED
442                                                                          :accidentals :NATURAL
443                                                                          :dots 0 ]) ]
444                                                            [GSHARP-BUFFER:CLUSTER
445                                                               :xoffset 0
446                                                               :notehead :FILLED
447                                                               :rbeams 1
448                                                               :lbeams 0
449                                                               :dots 1
450                                                               :stem-direction :AUTO
451                                                               :notes ([GSHARP-BUFFER:NOTE
452                                                                          :pitch 29
453                                                                          :staff #2#
454                                                                          :head :FILLED
455                                                                          :accidentals :NATURAL
456                                                                          :dots 0 ]
457                                                                       [GSHARP-BUFFER:NOTE
458                                                                          :pitch 30
459                                                                          :staff #2#
460                                                                          :head :FILLED
461                                                                          :accidentals :NATURAL
462                                                                          :dots 0 ]
463                                                                       [GSHARP-BUFFER:NOTE
464                                                                          :pitch 31
465                                                                          :staff #1#
466                                                                          :head :FILLED
467                                                                          :accidentals :NATURAL
468                                                                          :dots 0 ]) ]
469                                                            [GSHARP-BUFFER:CLUSTER
470                                                               :xoffset 0
471                                                               :notehead :FILLED
472                                                               :rbeams 1
473                                                               :lbeams 0
474                                                               :dots 1
475                                                               :stem-direction :AUTO
476                                                               :notes ([GSHARP-BUFFER:NOTE
477                                                                          :pitch 32
478                                                                          :staff #1#
479                                                                          :head :FILLED
480                                                                          :accidentals :NATURAL
481                                                                          :dots 0 ]) ]
482                                                            [GSHARP-BUFFER:CLUSTER
483                                                               :xoffset 0
484                                                               :notehead :FILLED
485                                                               :rbeams 1
486                                                               :lbeams 0
487                                                               :dots 1
488                                                               :stem-direction :AUTO
489                                                               :notes ([GSHARP-BUFFER:NOTE
490                                                                          :pitch 33
491                                                                          :staff #1#
492                                                                          :head :FILLED
493                                                                          :accidentals :NATURAL
494                                                                          :dots 0 ]) ]
495                                                            [GSHARP-BUFFER:CLUSTER
496                                                               :xoffset 0
497                                                               :notehead :FILLED
498                                                               :rbeams 1
499                                                               :lbeams 0
500                                                               :dots 1
501                                                               :stem-direction :AUTO
502                                                               :notes ([GSHARP-BUFFER:NOTE
503                                                                          :pitch 34
504                                                                          :staff #1#
505                                                                          :head :FILLED
506                                                                          :accidentals :NATURAL
507                                                                          :dots 0 ]) ]
508                                                            [GSHARP-BUFFER:CLUSTER
509                                                               :xoffset 0
510                                                               :notehead :FILLED
511                                                               :rbeams 1
512                                                               :lbeams 0
513                                                               :dots 1
514                                                               :stem-direction :AUTO
515                                                               :notes ([GSHARP-BUFFER:NOTE
516                                                                          :pitch 35
517                                                                          :staff #1#
518                                                                          :head :FILLED
519                                                                          :accidentals :NATURAL
520                                                                          :dots 0 ]) ]) ]
521                                              [GSHARP-BUFFER:MELODY-BAR
522                                                 :elements ([GSHARP-BUFFER:REST
523                                                               :xoffset 0
524                                                               :notehead :WHOLE
525                                                               :rbeams 0
526                                                               :lbeams 0
527                                                               :dots 3
528                                                               :staff #1#
529                                                               :staff-pos 4 ]) ]) ]
530                              :tail [GSHARP-BUFFER:SLICE
531                                       :bars ([GSHARP-BUFFER:MELODY-BAR
532                                                 :elements COMMON-LISP:NIL ]) ] ])
533                  :tempo 128 ]) ]