1
2;;;Accordion 16v
3(d-DirectivePut-score-prefix "Diskant und Punkt" "Diskant=\\markup {
4  \\musicglyph #\"accordion.accDiscant\"
5}
6punkt = \\markup {
7  \\musicglyph #\"accordion.accDot\"
8}
9accBasson = ^\\markup {
10  \\combine
11  \\Diskant
12  \\raise #0.5 \\punkt
13}
14accPiccolo = ^\\markup {
15    \\combine
16       \\Diskant
17       \\raise #2.5 \\punkt
18}
19accBandon = ^\\markup {
20  \\combine
21    \\Diskant
22    \\combine
23      \\raise #0.5 \\punkt
24      \\raise #1.5 \\punkt
25}
26accVCello = ^\\markup {
27  \\combine
28    \\Diskant
29    \\combine
30      \\raise #0.5 \\punkt
31      \\combine
32        \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
33        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
34}
35accHarmon = ^\\markup {
36  \\combine
37    \\Diskant
38    \\combine
39      \\raise #0.5 \\punkt
40      \\combine
41        \\raise #1.5 \\punkt
42        \\raise #2.5 \\punkt
43}
44accOrgel = ^\\markup {
45  \\combine
46   \\Diskant
47    \\combine
48      \\raise #0.5 \\punkt
49      \\raise #2.5 \\punkt
50}
51accHaupt = ^\\markup {
52  \\combine
53    \\Diskant
54    \\combine
55      \\raise #0.5 \\punkt
56      \\combine
57          \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
58          \\combine
59            \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
60            \\raise #2.5 \\punkt
61}
62accCelesta = ^\\markup {
63  \\combine
64    \\Diskant
65    \\combine
66       \\translate #'(0.6 . 0)  \\raise #1.5 \\punkt
67      \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
68}
69accOboe = ^\\markup {
70  \\combine
71    \\Diskant
72    \\combine
73      \\raise #1.5 \\punkt
74      \\raise #2.5 \\punkt
75}
76accClarin = ^\\markup {
77  \\combine
78    \\Diskant
79    \\raise #1.5 \\punkt
80}
81
82accGeige = ^\\markup {
83  \\combine
84    \\Diskant
85    \\combine
86     \\translate #'(-0.6 . 0)  \\raise #1.5 \\punkt
87      \\combine
88        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
89        \\raise #2.5 \\punkt
90}
91")
92(d-DirectivePut-chord-postfix "Accordion16v" "\\accBasson")
93(d-DirectivePut-chord-display "Accordion16v" "Accordion 16v")
94(d-RefreshDisplay)
95;;;End of scheme script
96
97
98;;;Accordion Tremolo
99(d-DirectivePut-score-prefix "Diskant und Punkt" "Diskant=\\markup {
100  \\musicglyph #\"accordion.accDiscant\"
101}
102punkt = \\markup {
103  \\musicglyph #\"accordion.accDot\"
104}
105accBasson = ^\\markup {
106  \\combine
107  \\Diskant
108  \\raise #0.5 \\punkt
109}
110accPiccolo = ^\\markup {
111    \\combine
112       \\Diskant
113       \\raise #2.5 \\punkt
114}
115accBandon = ^\\markup {
116  \\combine
117    \\Diskant
118    \\combine
119      \\raise #0.5 \\punkt
120      \\raise #1.5 \\punkt
121}
122accVCello = ^\\markup {
123  \\combine
124    \\Diskant
125    \\combine
126      \\raise #0.5 \\punkt
127      \\combine
128        \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
129        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
130}
131accHarmon = ^\\markup {
132  \\combine
133    \\Diskant
134    \\combine
135      \\raise #0.5 \\punkt
136      \\combine
137        \\raise #1.5 \\punkt
138        \\raise #2.5 \\punkt
139}
140accOrgel = ^\\markup {
141  \\combine
142   \\Diskant
143    \\combine
144      \\raise #0.5 \\punkt
145      \\raise #2.5 \\punkt
146}
147accHaupt = ^\\markup {
148  \\combine
149    \\Diskant
150    \\combine
151      \\raise #0.5 \\punkt
152      \\combine
153          \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
154          \\combine
155            \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
156            \\raise #2.5 \\punkt
157}
158accCelesta = ^\\markup {
159  \\combine
160    \\Diskant
161    \\combine
162       \\translate #'(0.6 . 0)  \\raise #1.5 \\punkt
163      \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
164}
165accOboe = ^\\markup {
166  \\combine
167    \\Diskant
168    \\combine
169      \\raise #1.5 \\punkt
170      \\raise #2.5 \\punkt
171}
172accClarin = ^\\markup {
173  \\combine
174    \\Diskant
175    \\raise #1.5 \\punkt
176}
177
178accGeige = ^\\markup {
179  \\combine
180    \\Diskant
181    \\combine
182     \\translate #'(-0.6 . 0)  \\raise #1.5 \\punkt
183      \\combine
184        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
185        \\raise #2.5 \\punkt
186}
187")
188(d-DirectivePut-chord-postfix "AccordionTremolo" "\\accCelesta")
189(d-DirectivePut-chord-display "AccordionTremolo" "Accordion Tremolo")
190(d-RefreshDisplay)
191;;;End of scheme script
192
193
194;;;Accordion 4v
195(d-DirectivePut-score-prefix "Diskant und Punkt" "Diskant=\\markup {
196  \\musicglyph #\"accordion.accDiscant\"
197}
198punkt = \\markup {
199  \\musicglyph #\"accordion.accDot\"
200}
201accBasson = ^\\markup {
202  \\combine
203  \\Diskant
204  \\raise #0.5 \\punkt
205}
206accPiccolo = ^\\markup {
207    \\combine
208       \\Diskant
209       \\raise #2.5 \\punkt
210}
211accBandon = ^\\markup {
212  \\combine
213    \\Diskant
214    \\combine
215      \\raise #0.5 \\punkt
216      \\raise #1.5 \\punkt
217}
218accVCello = ^\\markup {
219  \\combine
220    \\Diskant
221    \\combine
222      \\raise #0.5 \\punkt
223      \\combine
224        \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
225        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
226}
227accHarmon = ^\\markup {
228  \\combine
229    \\Diskant
230    \\combine
231      \\raise #0.5 \\punkt
232      \\combine
233        \\raise #1.5 \\punkt
234        \\raise #2.5 \\punkt
235}
236accOrgel = ^\\markup {
237  \\combine
238   \\Diskant
239    \\combine
240      \\raise #0.5 \\punkt
241      \\raise #2.5 \\punkt
242}
243accHaupt = ^\\markup {
244  \\combine
245    \\Diskant
246    \\combine
247      \\raise #0.5 \\punkt
248      \\combine
249          \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
250          \\combine
251            \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
252            \\raise #2.5 \\punkt
253}
254accCelesta = ^\\markup {
255  \\combine
256    \\Diskant
257    \\combine
258       \\translate #'(0.6 . 0)  \\raise #1.5 \\punkt
259      \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
260}
261accOboe = ^\\markup {
262  \\combine
263    \\Diskant
264    \\combine
265      \\raise #1.5 \\punkt
266      \\raise #2.5 \\punkt
267}
268accClarin = ^\\markup {
269  \\combine
270    \\Diskant
271    \\raise #1.5 \\punkt
272}
273
274accGeige = ^\\markup {
275  \\combine
276    \\Diskant
277    \\combine
278     \\translate #'(-0.6 . 0)  \\raise #1.5 \\punkt
279      \\combine
280        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
281        \\raise #2.5 \\punkt
282}
283")
284(d-DirectivePut-chord-postfix "Accordion4v" "\\accPiccolo")
285(d-DirectivePut-chord-display "Accordion4v" "Accordion 4v")
286(d-RefreshDisplay)
287;;;End of scheme script
288
289
290;;;Accordion 4v8v
291(d-DirectivePut-score-prefix "Diskant und Punkt" "Diskant=\\markup {
292  \\musicglyph #\"accordion.accDiscant\"
293}
294punkt = \\markup {
295  \\musicglyph #\"accordion.accDot\"
296}
297accBasson = ^\\markup {
298  \\combine
299  \\Diskant
300  \\raise #0.5 \\punkt
301}
302accPiccolo = ^\\markup {
303    \\combine
304       \\Diskant
305       \\raise #2.5 \\punkt
306}
307accBandon = ^\\markup {
308  \\combine
309    \\Diskant
310    \\combine
311      \\raise #0.5 \\punkt
312      \\raise #1.5 \\punkt
313}
314accVCello = ^\\markup {
315  \\combine
316    \\Diskant
317    \\combine
318      \\raise #0.5 \\punkt
319      \\combine
320        \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
321        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
322}
323accHarmon = ^\\markup {
324  \\combine
325    \\Diskant
326    \\combine
327      \\raise #0.5 \\punkt
328      \\combine
329        \\raise #1.5 \\punkt
330        \\raise #2.5 \\punkt
331}
332accOrgel = ^\\markup {
333  \\combine
334   \\Diskant
335    \\combine
336      \\raise #0.5 \\punkt
337      \\raise #2.5 \\punkt
338}
339accHaupt = ^\\markup {
340  \\combine
341    \\Diskant
342    \\combine
343      \\raise #0.5 \\punkt
344      \\combine
345          \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
346          \\combine
347            \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
348            \\raise #2.5 \\punkt
349}
350accCelesta = ^\\markup {
351  \\combine
352    \\Diskant
353    \\combine
354       \\translate #'(0.6 . 0)  \\raise #1.5 \\punkt
355      \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
356}
357accOboe = ^\\markup {
358  \\combine
359    \\Diskant
360    \\combine
361      \\raise #1.5 \\punkt
362      \\raise #2.5 \\punkt
363}
364accClarin = ^\\markup {
365  \\combine
366    \\Diskant
367    \\raise #1.5 \\punkt
368}
369
370accGeige = ^\\markup {
371  \\combine
372    \\Diskant
373    \\combine
374     \\translate #'(-0.6 . 0)  \\raise #1.5 \\punkt
375      \\combine
376        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
377        \\raise #2.5 \\punkt
378}
379")
380(d-DirectivePut-chord-postfix "Accordion4v8v" "\\accOboe")
381(d-DirectivePut-chord-display "Accordion4v8v" "Accordion 4v8v")
382(d-RefreshDisplay)
383;;;End of scheme script
384
385
386;;;Accordion 4v8vTremolo
387(d-DirectivePut-score-prefix "Diskant und Punkt" "Diskant=\\markup {
388  \\musicglyph #\"accordion.accDiscant\"
389}
390punkt = \\markup {
391  \\musicglyph #\"accordion.accDot\"
392}
393accBasson = ^\\markup {
394  \\combine
395  \\Diskant
396  \\raise #0.5 \\punkt
397}
398accPiccolo = ^\\markup {
399    \\combine
400       \\Diskant
401       \\raise #2.5 \\punkt
402}
403accBandon = ^\\markup {
404  \\combine
405    \\Diskant
406    \\combine
407      \\raise #0.5 \\punkt
408      \\raise #1.5 \\punkt
409}
410accVCello = ^\\markup {
411  \\combine
412    \\Diskant
413    \\combine
414      \\raise #0.5 \\punkt
415      \\combine
416        \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
417        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
418}
419accHarmon = ^\\markup {
420  \\combine
421    \\Diskant
422    \\combine
423      \\raise #0.5 \\punkt
424      \\combine
425        \\raise #1.5 \\punkt
426        \\raise #2.5 \\punkt
427}
428accOrgel = ^\\markup {
429  \\combine
430   \\Diskant
431    \\combine
432      \\raise #0.5 \\punkt
433      \\raise #2.5 \\punkt
434}
435accHaupt = ^\\markup {
436  \\combine
437    \\Diskant
438    \\combine
439      \\raise #0.5 \\punkt
440      \\combine
441          \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
442          \\combine
443            \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
444            \\raise #2.5 \\punkt
445}
446accCelesta = ^\\markup {
447  \\combine
448    \\Diskant
449    \\combine
450       \\translate #'(0.6 . 0)  \\raise #1.5 \\punkt
451      \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
452}
453accOboe = ^\\markup {
454  \\combine
455    \\Diskant
456    \\combine
457      \\raise #1.5 \\punkt
458      \\raise #2.5 \\punkt
459}
460accClarin = ^\\markup {
461  \\combine
462    \\Diskant
463    \\raise #1.5 \\punkt
464}
465
466accGeige = ^\\markup {
467  \\combine
468    \\Diskant
469    \\combine
470     \\translate #'(-0.6 . 0)  \\raise #1.5 \\punkt
471      \\combine
472        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
473        \\raise #2.5 \\punkt
474}
475")
476(d-DirectivePut-chord-postfix "Accordion4v8vTremolo" "\\accGeige")
477(d-DirectivePut-chord-display "Accordion4v8vTremolo" "Accordion 4v8vTremolo")
478(d-RefreshDisplay)
479;;;End of scheme script
480
481
482;;;Accordion 4v8v16v
483(d-DirectivePut-score-prefix "Diskant und Punkt" "Diskant=\\markup {
484  \\musicglyph #\"accordion.accDiscant\"
485}
486punkt = \\markup {
487  \\musicglyph #\"accordion.accDot\"
488}
489accBasson = ^\\markup {
490  \\combine
491  \\Diskant
492  \\raise #0.5 \\punkt
493}
494accPiccolo = ^\\markup {
495    \\combine
496       \\Diskant
497       \\raise #2.5 \\punkt
498}
499accBandon = ^\\markup {
500  \\combine
501    \\Diskant
502    \\combine
503      \\raise #0.5 \\punkt
504      \\raise #1.5 \\punkt
505}
506accVCello = ^\\markup {
507  \\combine
508    \\Diskant
509    \\combine
510      \\raise #0.5 \\punkt
511      \\combine
512        \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
513        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
514}
515accHarmon = ^\\markup {
516  \\combine
517    \\Diskant
518    \\combine
519      \\raise #0.5 \\punkt
520      \\combine
521        \\raise #1.5 \\punkt
522        \\raise #2.5 \\punkt
523}
524accOrgel = ^\\markup {
525  \\combine
526   \\Diskant
527    \\combine
528      \\raise #0.5 \\punkt
529      \\raise #2.5 \\punkt
530}
531accHaupt = ^\\markup {
532  \\combine
533    \\Diskant
534    \\combine
535      \\raise #0.5 \\punkt
536      \\combine
537          \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
538          \\combine
539            \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
540            \\raise #2.5 \\punkt
541}
542accCelesta = ^\\markup {
543  \\combine
544    \\Diskant
545    \\combine
546       \\translate #'(0.6 . 0)  \\raise #1.5 \\punkt
547      \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
548}
549accOboe = ^\\markup {
550  \\combine
551    \\Diskant
552    \\combine
553      \\raise #1.5 \\punkt
554      \\raise #2.5 \\punkt
555}
556accClarin = ^\\markup {
557  \\combine
558    \\Diskant
559    \\raise #1.5 \\punkt
560}
561
562accGeige = ^\\markup {
563  \\combine
564    \\Diskant
565    \\combine
566     \\translate #'(-0.6 . 0)  \\raise #1.5 \\punkt
567      \\combine
568        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
569        \\raise #2.5 \\punkt
570}
571")
572(d-DirectivePut-chord-postfix "Accordion4v8v16v" "\\accHarmon")
573(d-DirectivePut-chord-display "Accordion4v8v16v" "Accordion 4v8v16v")
574(d-RefreshDisplay)
575;;;End of scheme script
576
577
578;;;Accordion 4v8v16vTremolo
579(d-DirectivePut-score-prefix "Diskant und Punkt" "Diskant=\\markup {
580  \\musicglyph #\"accordion.accDiscant\"
581}
582punkt = \\markup {
583  \\musicglyph #\"accordion.accDot\"
584}
585accBasson = ^\\markup {
586  \\combine
587  \\Diskant
588  \\raise #0.5 \\punkt
589}
590accPiccolo = ^\\markup {
591    \\combine
592       \\Diskant
593       \\raise #2.5 \\punkt
594}
595accBandon = ^\\markup {
596  \\combine
597    \\Diskant
598    \\combine
599      \\raise #0.5 \\punkt
600      \\raise #1.5 \\punkt
601}
602accVCello = ^\\markup {
603  \\combine
604    \\Diskant
605    \\combine
606      \\raise #0.5 \\punkt
607      \\combine
608        \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
609        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
610}
611accHarmon = ^\\markup {
612  \\combine
613    \\Diskant
614    \\combine
615      \\raise #0.5 \\punkt
616      \\combine
617        \\raise #1.5 \\punkt
618        \\raise #2.5 \\punkt
619}
620accOrgel = ^\\markup {
621  \\combine
622   \\Diskant
623    \\combine
624      \\raise #0.5 \\punkt
625      \\raise #2.5 \\punkt
626}
627accHaupt = ^\\markup {
628  \\combine
629    \\Diskant
630    \\combine
631      \\raise #0.5 \\punkt
632      \\combine
633          \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
634          \\combine
635            \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
636            \\raise #2.5 \\punkt
637}
638accCelesta = ^\\markup {
639  \\combine
640    \\Diskant
641    \\combine
642       \\translate #'(0.6 . 0)  \\raise #1.5 \\punkt
643      \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
644}
645accOboe = ^\\markup {
646  \\combine
647    \\Diskant
648    \\combine
649      \\raise #1.5 \\punkt
650      \\raise #2.5 \\punkt
651}
652accClarin = ^\\markup {
653  \\combine
654    \\Diskant
655    \\raise #1.5 \\punkt
656}
657
658accGeige = ^\\markup {
659  \\combine
660    \\Diskant
661    \\combine
662     \\translate #'(-0.6 . 0)  \\raise #1.5 \\punkt
663      \\combine
664        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
665        \\raise #2.5 \\punkt
666}
667")
668(d-DirectivePut-chord-postfix "Accordion4v8v16vTremolo" "\\accHaupt")
669(d-DirectivePut-chord-display "Accordion4v8v16vTremolo" "Accordion 4v8v16vTremolo")
670(d-RefreshDisplay)
671;;;End of scheme script
672
673
674;;;Accordion 8v16vTremolo
675(d-DirectivePut-score-prefix "Diskant und Punkt" "Diskant=\\markup {
676  \\musicglyph #\"accordion.accDiscant\"
677}
678punkt = \\markup {
679  \\musicglyph #\"accordion.accDot\"
680}
681accBasson = ^\\markup {
682  \\combine
683  \\Diskant
684  \\raise #0.5 \\punkt
685}
686accPiccolo = ^\\markup {
687    \\combine
688       \\Diskant
689       \\raise #2.5 \\punkt
690}
691accBandon = ^\\markup {
692  \\combine
693    \\Diskant
694    \\combine
695      \\raise #0.5 \\punkt
696      \\raise #1.5 \\punkt
697}
698accVCello = ^\\markup {
699  \\combine
700    \\Diskant
701    \\combine
702      \\raise #0.5 \\punkt
703      \\combine
704        \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
705        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
706}
707accHarmon = ^\\markup {
708  \\combine
709    \\Diskant
710    \\combine
711      \\raise #0.5 \\punkt
712      \\combine
713        \\raise #1.5 \\punkt
714        \\raise #2.5 \\punkt
715}
716accOrgel = ^\\markup {
717  \\combine
718   \\Diskant
719    \\combine
720      \\raise #0.5 \\punkt
721      \\raise #2.5 \\punkt
722}
723accHaupt = ^\\markup {
724  \\combine
725    \\Diskant
726    \\combine
727      \\raise #0.5 \\punkt
728      \\combine
729          \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
730          \\combine
731            \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
732            \\raise #2.5 \\punkt
733}
734accCelesta = ^\\markup {
735  \\combine
736    \\Diskant
737    \\combine
738       \\translate #'(0.6 . 0)  \\raise #1.5 \\punkt
739      \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
740}
741accOboe = ^\\markup {
742  \\combine
743    \\Diskant
744    \\combine
745      \\raise #1.5 \\punkt
746      \\raise #2.5 \\punkt
747}
748accClarin = ^\\markup {
749  \\combine
750    \\Diskant
751    \\raise #1.5 \\punkt
752}
753
754accGeige = ^\\markup {
755  \\combine
756    \\Diskant
757    \\combine
758     \\translate #'(-0.6 . 0)  \\raise #1.5 \\punkt
759      \\combine
760        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
761        \\raise #2.5 \\punkt
762}
763")
764(d-DirectivePut-chord-postfix "Accordion8v16vTremolo" "\\accVCello")
765(d-DirectivePut-chord-display "Accordion8v16vTremolo" "Accordion 8v16vTremolo")
766(d-RefreshDisplay)
767;;;End of scheme script
768
769
770;;;Accordion 8v
771(d-DirectivePut-score-prefix "Diskant und Punkt" "Diskant=\\markup {
772  \\musicglyph #\"accordion.accDiscant\"
773}
774punkt = \\markup {
775  \\musicglyph #\"accordion.accDot\"
776}
777accBasson = ^\\markup {
778  \\combine
779  \\Diskant
780  \\raise #0.5 \\punkt
781}
782accPiccolo = ^\\markup {
783    \\combine
784       \\Diskant
785       \\raise #2.5 \\punkt
786}
787accBandon = ^\\markup {
788  \\combine
789    \\Diskant
790    \\combine
791      \\raise #0.5 \\punkt
792      \\raise #1.5 \\punkt
793}
794accVCello = ^\\markup {
795  \\combine
796    \\Diskant
797    \\combine
798      \\raise #0.5 \\punkt
799      \\combine
800        \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
801        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
802}
803accHarmon = ^\\markup {
804  \\combine
805    \\Diskant
806    \\combine
807      \\raise #0.5 \\punkt
808      \\combine
809        \\raise #1.5 \\punkt
810        \\raise #2.5 \\punkt
811}
812accOrgel = ^\\markup {
813  \\combine
814   \\Diskant
815    \\combine
816      \\raise #0.5 \\punkt
817      \\raise #2.5 \\punkt
818}
819accHaupt = ^\\markup {
820  \\combine
821    \\Diskant
822    \\combine
823      \\raise #0.5 \\punkt
824      \\combine
825          \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
826          \\combine
827            \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
828            \\raise #2.5 \\punkt
829}
830accCelesta = ^\\markup {
831  \\combine
832    \\Diskant
833    \\combine
834       \\translate #'(0.6 . 0)  \\raise #1.5 \\punkt
835      \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
836}
837accOboe = ^\\markup {
838  \\combine
839    \\Diskant
840    \\combine
841      \\raise #1.5 \\punkt
842      \\raise #2.5 \\punkt
843}
844accClarin = ^\\markup {
845  \\combine
846    \\Diskant
847    \\raise #1.5 \\punkt
848}
849
850accGeige = ^\\markup {
851  \\combine
852    \\Diskant
853    \\combine
854     \\translate #'(-0.6 . 0)  \\raise #1.5 \\punkt
855      \\combine
856        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
857        \\raise #2.5 \\punkt
858}
859")
860(d-DirectivePut-chord-postfix "Accordion8v" "\\accClarin")
861(d-DirectivePut-chord-display "Accordion8v" "Accordion 8v")
862(d-RefreshDisplay)
863;;;End of scheme script
864
865
866;;;Accordion 8v16v
867(d-DirectivePut-score-prefix "Diskant und Punkt" "Diskant=\\markup {
868  \\musicglyph #\"accordion.accDiscant\"
869}
870punkt = \\markup {
871  \\musicglyph #\"accordion.accDot\"
872}
873accBasson = ^\\markup {
874  \\combine
875  \\Diskant
876  \\raise #0.5 \\punkt
877}
878accPiccolo = ^\\markup {
879    \\combine
880       \\Diskant
881       \\raise #2.5 \\punkt
882}
883accBandon = ^\\markup {
884  \\combine
885    \\Diskant
886    \\combine
887      \\raise #0.5 \\punkt
888      \\raise #1.5 \\punkt
889}
890accVCello = ^\\markup {
891  \\combine
892    \\Diskant
893    \\combine
894      \\raise #0.5 \\punkt
895      \\combine
896        \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
897        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
898}
899accHarmon = ^\\markup {
900  \\combine
901    \\Diskant
902    \\combine
903      \\raise #0.5 \\punkt
904      \\combine
905        \\raise #1.5 \\punkt
906        \\raise #2.5 \\punkt
907}
908accOrgel = ^\\markup {
909  \\combine
910   \\Diskant
911    \\combine
912      \\raise #0.5 \\punkt
913      \\raise #2.5 \\punkt
914}
915accHaupt = ^\\markup {
916  \\combine
917    \\Diskant
918    \\combine
919      \\raise #0.5 \\punkt
920      \\combine
921          \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
922          \\combine
923            \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
924            \\raise #2.5 \\punkt
925}
926accCelesta = ^\\markup {
927  \\combine
928    \\Diskant
929    \\combine
930       \\translate #'(0.6 . 0)  \\raise #1.5 \\punkt
931      \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
932}
933accOboe = ^\\markup {
934  \\combine
935    \\Diskant
936    \\combine
937      \\raise #1.5 \\punkt
938      \\raise #2.5 \\punkt
939}
940accClarin = ^\\markup {
941  \\combine
942    \\Diskant
943    \\raise #1.5 \\punkt
944}
945
946accGeige = ^\\markup {
947  \\combine
948    \\Diskant
949    \\combine
950     \\translate #'(-0.6 . 0)  \\raise #1.5 \\punkt
951      \\combine
952        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
953        \\raise #2.5 \\punkt
954}
955")
956(d-DirectivePut-chord-postfix "Accordion8v16v" "\\accBandon")
957(d-DirectivePut-chord-display "Accordion8v16v" "Accordion 8v16v")
958(d-RefreshDisplay)
959;;;End of scheme script
960
961
962;;;Accordion 4v16v
963(d-DirectivePut-score-prefix "Diskant und Punkt" "Diskant=\\markup {
964  \\musicglyph #\"accordion.accDiscant\"
965}
966punkt = \\markup {
967  \\musicglyph #\"accordion.accDot\"
968}
969accBasson = ^\\markup {
970  \\combine
971  \\Diskant
972  \\raise #0.5 \\punkt
973}
974accPiccolo = ^\\markup {
975    \\combine
976       \\Diskant
977       \\raise #2.5 \\punkt
978}
979accBandon = ^\\markup {
980  \\combine
981    \\Diskant
982    \\combine
983      \\raise #0.5 \\punkt
984      \\raise #1.5 \\punkt
985}
986accVCello = ^\\markup {
987  \\combine
988    \\Diskant
989    \\combine
990      \\raise #0.5 \\punkt
991      \\combine
992        \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
993        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
994}
995accHarmon = ^\\markup {
996  \\combine
997    \\Diskant
998    \\combine
999      \\raise #0.5 \\punkt
1000      \\combine
1001        \\raise #1.5 \\punkt
1002        \\raise #2.5 \\punkt
1003}
1004accOrgel = ^\\markup {
1005  \\combine
1006   \\Diskant
1007    \\combine
1008      \\raise #0.5 \\punkt
1009      \\raise #2.5 \\punkt
1010}
1011accHaupt = ^\\markup {
1012  \\combine
1013    \\Diskant
1014    \\combine
1015      \\raise #0.5 \\punkt
1016      \\combine
1017          \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
1018          \\combine
1019            \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
1020            \\raise #2.5 \\punkt
1021}
1022accCelesta = ^\\markup {
1023  \\combine
1024    \\Diskant
1025    \\combine
1026       \\translate #'(0.6 . 0)  \\raise #1.5 \\punkt
1027      \\translate #'(-0.6 . 0) \\raise #1.5 \\punkt
1028}
1029accOboe = ^\\markup {
1030  \\combine
1031    \\Diskant
1032    \\combine
1033      \\raise #1.5 \\punkt
1034      \\raise #2.5 \\punkt
1035}
1036accClarin = ^\\markup {
1037  \\combine
1038    \\Diskant
1039    \\raise #1.5 \\punkt
1040}
1041
1042accGeige = ^\\markup {
1043  \\combine
1044    \\Diskant
1045    \\combine
1046     \\translate #'(-0.6 . 0)  \\raise #1.5 \\punkt
1047      \\combine
1048        \\translate #'(0.6 . 0) \\raise #1.5 \\punkt
1049        \\raise #2.5 \\punkt
1050}
1051")
1052(d-DirectivePut-chord-postfix "Accordion4v16v" "\\accOrgel")
1053(d-DirectivePut-chord-display "Accordion4v16v" "Accordion 4v16v")
1054(d-RefreshDisplay)
1055;;;End of scheme script
1056
1057