1 ;; (name . '((downindexstring . upindexstring)
2 ;; follow-into-staff :: bool
3 ;; dir-relative-to-stem :: int
7 ;; priority :: int -- lower number means closer to the note head.
9 ;; TODO: generate Grob types for this, by prepending appropriate props
10 ;; on top of Script (?)
13 ;; TODO: don't use 2 level indiriection, simply set
14 ;; thumb = \script #'((feta . ( . .. ) (follow-staff . #f))
17 (set! default-script-alist
19 '(("thumb" . ((feta . ("thumb" . "thumb")) #f 0 1 0))
20 ("accent" . ((feta . ("sforzato" . "sforzato")) #f -1 0 0))
21 ("marcato" . ((feta . ("dmarcato" . "umarcato")) #f -1 0 0))
22 ("staccatissimo" . ((feta . ("dstaccatissimo" . "ustaccatissimo")) #f -1 0 0))
23 ("portato" . ((feta . ("dportato" . "uportato")) #f -1 0 0))
24 ("fermata" . ((feta . ("dfermata" . "ufermata")) #f 0 1 0))
25 ("stopped" . ((feta . ("stopped" . "stopped")) #f 0 1 0))
26 ("staccato" . ((feta . ("staccato" . "staccato")) #t -1 0 -100))
27 ("tenuto" . ((feta . ("tenuto" . "tenuto")) #t -1 0 0))
28 ("comma" . ((feta . ("lcomma" . "rcomma")) #t 0 1 0))
29 ("upbow" . ((feta . ("upbow" . "upbow")) #f 0 1 0))
30 ("downbow" . ((feta . ("downbow" . "downbow")) #f 0 1 0))
31 ("lheel" . ((feta . ("upedalheel" . "upedalheel")) #f 0 -1 0))
32 ("rheel" . ((feta . ("dpedalheel" . "dpedalheel")) #f 0 1 0))
33 ("ltoe" . ((feta . ("upedaltoe" . "upedaltoe")) #f 0 -1 0))
34 ("rtoe" . ((feta . ("dpedaltoe" . "dpedaltoe")) #f 0 1 0))
35 ("turn" . ((feta . ("turn" . "turn")) #f 0 1 0))
36 ("open" . ((feta . ("open" . "open")) #f 0 1 0))
37 ("flageolet" . ((feta . ("flageolet" . "flageolet")) #f 0 1 0))
38 ("reverseturn" . ((feta . ("reverseturn" . "reverseturn")) #f 0 1 0))
39 ("trill" . ((feta . ("trill" . "trill")) #f 0 1 2000))
40 ("prall" . ((feta . ("prall" . "prall")) #f 0 1 0))
41 ("mordent" . ((feta . ("mordent" . "mordent")) #f 0 1 0))
42 ("prallprall" . ((feta . ("prallprall" . "prallprall")) #f 0 1 0))
43 ("prallmordent" . ((feta . ("prallmordent" . "prallmordent")) #f 0 1 0))
44 ("upprall" . ((feta . ("upprall" . "upprall")) #f 0 1 0))
45 ("downprall" . ((feta . ("downprall" . "downprall")) #f 0 1 0))
46 ("upmordent" . ((feta . ("upmordent" . "upmordent")) #f 0 1 0))
47 ("downmordent" . ((feta . ("downmordent" . "downmordent")) #f 0 1 0))
48 ("lineprall" . ((feta . ("lineprall" . "lineprall")) #f 0 1 0))
49 ("pralldown" . ((feta . ("pralldown" . "pralldown")) #f 0 1 0))
50 ("prallup" . ((feta . ("prallup" . "prallup")) #f 0 1 0))
51 ("segno" . ((feta . ("segno" . "segno")) #f 0 1 0))
52 ("coda" . ((feta . ("coda" . "coda")) #f 0 1 0)))
56 (set! default-script-alist
58 '(("accDiscant" . ((accordion "Discant" "") #f 0 1 0))
59 ("accDiscantF" . ((accordion "Discant" "F") #f 0 1 0))
60 ("accDiscantE" . ((accordion "Discant" "E") #f 0 1 0))
61 ("accDiscantEh" . ((accordion "Discant" "Eh") #f 0 1 0))
62 ("accDiscantFE" . ((accordion "Discant" "FE") #f 0 1 0))
63 ("accDiscantFEh" . ((accordion "Discant" "FEh") #f 0 1 0))
64 ("accDiscantEE" . ((accordion "Discant" "EE") #f 0 1 0))
65 ("accDiscantFEE" . ((accordion "Discant" "FEE") #f 0 1 0))
66 ("accDiscantEEE" . ((accordion "Discant" "EEE") #f 0 1 0))
67 ("accDiscantFEEE" . ((accordion "Discant" "FEEE") #f 0 1 0))
68 ("accDiscantS" . ((accordion "Discant" "S") #f 0 1 0))
69 ("accDiscantFS" . ((accordion "Discant" "FS") #f 0 1 0))
70 ("accDiscantES" . ((accordion "Discant" "ES") #f 0 1 0))
71 ("accDiscantEhS" . ((accordion "Discant" "EhS") #f 0 1 0))
72 ("accDiscantFES" . ((accordion "Discant" "FES") #f 0 1 0))
73 ("accDiscantFEhS" . ((accordion "Discant" "FEhS") #f 0 1 0))
74 ("accDiscantEES" . ((accordion "Discant" "EES") #f 0 1 0))
75 ("accDiscantFEES" . ((accordion "Discant" "FEES") #f 0 1 0))
76 ("accDiscantEEES" . ((accordion "Discant" "EEES") #f 0 1 0))
77 ("accDiscantFEEES" . ((accordion "Discant" "FEEES") #f 0 1 0))
78 ("accDiscantSS" . ((accordion "Discant" "SS") #f 0 1 0))
79 ("accDiscantESS" . ((accordion "Discant" "ESS") #f 0 1 0))
80 ("accDiscantEESS" . ((accordion "Discant" "EESS") #f 0 1 0))
81 ("accDiscantEEESS" . ((accordion "Discant" "EEESS") #f 0 1 0))
82 ("accFreebase" . ((accordion "Freebase" "") #f 0 -1 0))
83 ("accFreebaseF" . ((accordion "Freebase" "F") #f 0 -1 0))
84 ("accFreebaseE" . ((accordion "Freebase" "E") #f 0 -1 0))
85 ("accFreebaseFE" . ((accordion "Freebase" "FE") #f 0 -1 0))
86 ("accBayanbase" . ((accordion "Bayanbase" "") #f 0 -1 0))
87 ("accBayanbaseT" . ((accordion "Bayanbase" "T") #f 0 -1 0))
88 ("accBayanbaseE" . ((accordion "Bayanbase" "E") #f 0 -1 0))
89 ("accBayanbaseTE" . ((accordion "Bayanbase" "TE") #f 0 -1 0))
90 ("accBayanbaseEE" . ((accordion "Bayanbase" "EE") #f 0 -1 0))
91 ("accBayanbaseTEE" . ((accordion "Bayanbase" "TEE") #f 0 -1 0))
92 ("accStdbase" . ((accordion "Stdbase" "") #f 0 -1 0))
93 ("accStdbaseFE" . ((accordion "Stdbase" "FE") #f 0 -1 0))
94 ("accStdbaseTFE" . ((accordion "Stdbase" "TFE") #f 0 -1 0))
95 ("accStdbaseMES" . ((accordion "Stdbase" "MES") #f 0 -1 0))
96 ("accStdbaseTFMES" . ((accordion "Stdbase" "TFMES") #f 0 -1 0))
97 ("accSB" . ((accordion "SB" "") #f 0 -1 0))
98 ("accBB" . ((accordion "BB" "") #f 0 -1 0))
99 ("accOldEE" . ((accordion "OldEE" "") #f 0 -1 0))
100 ("accOldEES" . ((accordion "OldEES" "") #f 0 -1 0)))
101 default-script-alist)