scm/accordion-script.scm

   1 ;; (name . '((downindexstring . upindexstring)
   2 ;;           follow-into-staff :: bool
   3 ;;           dir-relative-to-stem :: int
   4 ;;           force-dir :: int
   5 ;;           priority :: int
   6
   7
   8 (set! script-alist
   9       (append
  10       '(("accDiscant" . (("accDiscant"  . "accDiscant") #f 0 1 0))
  11         ("accDiscantF" . (("accDiscantF" . "accDiscantF") #f 0 1 0))
  12         ("accDiscantE" . (("accDiscantE" . "accDiscantE") #f 0 1 0))
  13         ("accDiscantEh" . (("accDiscantEh" . "accDiscantEh") #f 0 1 0))
  14         ("accDiscantFE" . (("accDiscantFE" . "accDiscantFE") #f 0 1 0))
  15         ("accDiscantFEh" . (("accDiscantFEh" . "accDiscantFEh") #f 0 1 0))
  16         ("accDiscantEE" . (("accDiscantEE" . "accDiscantEE") #f 0 1 0))
  17         ("accDiscantFEE" . (("accDiscantFEE" . "accDiscantFEE") #f 0 1 0))
  18         ("accDiscantEEE" . (("accDiscantEEE" . "accDiscantEEE") #f 0 1 0))
  19         ("accDiscantFEEE" . (("accDiscantFEEE" . "accDiscantFEEE") #f 0 1 0))
  20         ("accDiscantS" . (("accDiscantS" . "accDiscantS") #f 0 1 0))
  21         ("accDiscantFS" . (("accDiscantFS" . "accDiscantFS") #f 0 1 0))
  22         ("accDiscantES" . (("accDiscantES" . "accDiscantES") #f 0 1 0))
  23         ("accDiscantEhS" . (("accDiscantEhS" . "accDiscantEhS") #f 0 1 0))
  24         ("accDiscantFES" . (("accDiscantFES" . "accDiscantFES") #f 0 1 0))
  25         ("accDiscantFEhS" . (("accDiscantFEhS" . "accDiscantFEhS") #f 0 1 0))
  26         ("accDiscantEES" . (("accDiscantEES" . "accDiscantEES") #f 0 1 0))
  27         ("accDiscantFEES" . (("accDiscantFEES" . "accDiscantFEES") #f 0 1 0))
  28         ("accDiscantEEES" . (("accDiscantEEES" . "accDiscantEEES") #f 0 1 0))
  29         ("accDiscantFEEES" . (("accDiscantFEEES" . "accDiscantFEEES") #f 0 1 0))
  30         ("accDiscantSS" . (("accDiscantSS" . "accDiscantSS") #f 0 1 0))
  31         ("accDiscantESS" . (("accDiscantESS" . "accDiscantESS") #f 0 1 0))
  32         ("accDiscantEESS" . (("accDiscantEESS" . "accDiscantEESS") #f 0 1 0))
  33         ("accDiscantEEESS" . (("accDiscantEEESS" . "accDiscantEEESS") #f 0 1 0))
  34         ("accFreebase" . (("accFreebase" . "accFreebase") #f 0 1 0))
  35         ("accFreebaseF" . (("accFreebaseF" . "accFreebaseF") #f 0 1 0))
  36         ("accFreebaseE" . (("accFreebaseE" . "accFreebaseE") #f 0 1 0))
  37         ("accFreebaseFE" . (("accFreebaseFE" . "accFreebaseFE") #f 0 1 0))
  38         ("accBayanbase" . (("accBayanbase" . "accBayanbase") #f 0 1 0))
  39         ("accBayanbaseT" . (("accBayanbaseT" . "accBayanbaseT") #f 0 1 0))
  40         ("accBayanbaseE" . (("accBayanbaseE" . "accBayanbaseE") #f 0 1 0))
  41         ("accBayanbaseTE" . (("accBayanbaseTE" . "accBayanbaseTE") #f 0 1 0))
  42         ("accBayanbaseEE" . (("accBayanbaseEE" . "accBayanbaseEE") #f 0 1 0))
  43         ("accBayanbaseTEE" . (("accBayanbaseTEE" . "accBayanbaseTEE") #f 0 1 0))
  44         ("accStdbase" . (("accStdbase" . "accStdbase") #f 0 1 0))
  45         ("accStdbaseTp" . (("accStdbaseTp" . "accStdbaseTp") #f 0 1 0))
  46         ("accStdbaseT" . (("accStdbaseT" . "accStdbaseT") #f 0 1 0))
  47         ("accStdbaseBp" . (("accStdbaseBp" . "accStdbaseBp") #f 0 1 0))
  48         ("accStdbaseM" . (("accStdbaseM" . "accStdbaseM") #f 0 1 0))
  49         ("accSB" . (("accSB" . "accSB") #f 0 1 0))
  50         ("accBB" . (("accBB" . "accBB") #f 0 1 0))
  51         ("accOldEE" . (("accOldEE" . "accOldEE") #f 0 1 0))
  52         ("accOldEES" . (("accOldEES" . "accOldEES") #f 0 1 0)))
  53       script-alist)
  54       )