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" . ((accordion ("accDiscant"  . "accDiscant")) #f 0 1 0))
  11         ("accDiscantF" . ((accordion ("accDiscantF" . "accDiscantF")) #f 0 1 0))
  12         ("accDiscantE" . ((accordion ("accDiscantE" . "accDiscantE")) #f 0 1 0))
  13         ("accDiscantEh" . ((accordion ("accDiscantEh" . "accDiscantEh")) #f 0 1 0))
  14         ("accDiscantFE" . ((accordion ("accDiscantFE" . "accDiscantFE")) #f 0 1 0))
  15         ("accDiscantFEh" . ((accordion ("accDiscantFEh" . "accDiscantFEh")) #f 0 1 0))
  16         ("accDiscantEE" . ((accordion ("accDiscantEE" . "accDiscantEE")) #f 0 1 0))
  17         ("accDiscantFEE" . ((accordion ("accDiscantFEE" . "accDiscantFEE")) #f 0 1 0))
  18         ("accDiscantEEE" . ((accordion ("accDiscantEEE" . "accDiscantEEE")) #f 0 1 0))
  19         ("accDiscantFEEE" . ((accordion ("accDiscantFEEE" . "accDiscantFEEE")) #f 0 1 0))
  20         ("accDiscantS" . ((accordion ("accDiscantS" . "accDiscantS")) #f 0 1 0))
  21         ("accDiscantFS" . ((accordion ("accDiscantFS" . "accDiscantFS")) #f 0 1 0))
  22         ("accDiscantES" . ((accordion ("accDiscantES" . "accDiscantES")) #f 0 1 0))
  23         ("accDiscantEhS" . ((accordion ("accDiscantEhS" . "accDiscantEhS")) #f 0 1 0))
  24         ("accDiscantFES" . ((accordion ("accDiscantFES" . "accDiscantFES")) #f 0 1 0))
  25         ("accDiscantFEhS" . ((accordion ("accDiscantFEhS" . "accDiscantFEhS")) #f 0 1 0))
  26         ("accDiscantEES" . ((accordion ("accDiscantEES" . "accDiscantEES")) #f 0 1 0))
  27         ("accDiscantFEES" . ((accordion ("accDiscantFEES" . "accDiscantFEES")) #f 0 1 0))
  28         ("accDiscantEEES" . ((accordion ("accDiscantEEES" . "accDiscantEEES")) #f 0 1 0))
  29         ("accDiscantFEEES" . ((accordion ("accDiscantFEEES" . "accDiscantFEEES")) #f 0 1 0))
  30         ("accDiscantSS" . ((accordion ("accDiscantSS" . "accDiscantSS")) #f 0 1 0))
  31         ("accDiscantESS" . ((accordion ("accDiscantESS" . "accDiscantESS")) #f 0 1 0))
  32         ("accDiscantEESS" . ((accordion ("accDiscantEESS" . "accDiscantEESS")) #f 0 1 0))
  33         ("accDiscantEEESS" . ((accordion ("accDiscantEEESS" . "accDiscantEEESS")) #f 0 1 0))
  34         ("accFreebase" . ((accordion ("accFreebase" . "accFreebase")) #f 0 1 0))
  35         ("accFreebaseF" . ((accordion ("accFreebaseF" . "accFreebaseF")) #f 0 1 0))
  36         ("accFreebaseE" . ((accordion ("accFreebaseE" . "accFreebaseE")) #f 0 1 0))
  37         ("accFreebaseFE" . ((accordion ("accFreebaseFE" . "accFreebaseFE")) #f 0 1 0))
  38         ("accBayanbase" . ((accordion ("accBayanbase" . "accBayanbase")) #f 0 1 0))
  39         ("accBayanbaseT" . ((accordion ("accBayanbaseT" . "accBayanbaseT")) #f 0 1 0))
  40         ("accBayanbaseE" . ((accordion ("accBayanbaseE" . "accBayanbaseE")) #f 0 1 0))
  41         ("accBayanbaseTE" . ((accordion ("accBayanbaseTE" . "accBayanbaseTE")) #f 0 1 0))
  42         ("accBayanbaseEE" . ((accordion ("accBayanbaseEE" . "accBayanbaseEE")) #f 0 1 0))
  43         ("accBayanbaseTEE" . ((accordion ("accBayanbaseTEE" . "accBayanbaseTEE")) #f 0 1 0))
  44         ("accStdbase" . ((accordion ("accStdbase" . "accStdbase")) #f 0 1 0))
  45         ("accStdbaseTp" . ((accordion ("accStdbaseTp" . "accStdbaseTp")) #f 0 1 0))
  46         ("accStdbaseT" . ((accordion ("accStdbaseT" . "accStdbaseT")) #f 0 1 0))
  47         ("accStdbaseBp" . ((accordion ("accStdbaseBp" . "accStdbaseBp")) #f 0 1 0))
  48         ("accStdbaseM" . ((accordion ("accStdbaseM" . "accStdbaseM")) #f 0 1 0))
  49         ("accSB" . ((accordion ("accSB" . "accSB")) #f 0 1 0))
  50         ("accBB" . ((accordion ("accBB" . "accBB")) #f 0 1 0))
  51         ("accOldEE" . ((accordion ("accOldEE" . "accOldEE")) #f 0 1 0))
  52         ("accOldEES" . ((accordion ("accOldEES" . "accOldEES")) #f 0 1 0)))
  53       script-alist)
  54       )
  55