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 "Discant" "") #f 0 1 0))
  11         ("accDiscantF" . ((accordion "Discant" "F") #f 0 1 0))
  12         ("accDiscantE" . ((accordion "Discant" "E") #f 0 1 0))
  13         ("accDiscantEh" . ((accordion "Discant" "Eh") #f 0 1 0))
  14         ("accDiscantFE" . ((accordion "Discant" "FE") #f 0 1 0))
  15         ("accDiscantFEh" . ((accordion "Discant" "FEh") #f 0 1 0))
  16         ("accDiscantEE" . ((accordion "Discant" "EE") #f 0 1 0))
  17         ("accDiscantFEE" . ((accordion "Discant" "FEE") #f 0 1 0))
  18         ("accDiscantEEE" . ((accordion "Discant" "EEE") #f 0 1 0))
  19         ("accDiscantFEEE" . ((accordion "Discant" "FEEE") #f 0 1 0))
  20         ("accDiscantS" . ((accordion "Discant" "S") #f 0 1 0))
  21         ("accDiscantFS" . ((accordion "Discant" "FS") #f 0 1 0))
  22         ("accDiscantES" . ((accordion "Discant" "ES") #f 0 1 0))
  23         ("accDiscantEhS" . ((accordion "Discant" "EhS") #f 0 1 0))
  24         ("accDiscantFES" . ((accordion "Discant" "FES") #f 0 1 0))
  25         ("accDiscantFEhS" . ((accordion "Discant" "FEhS") #f 0 1 0))
  26         ("accDiscantEES" . ((accordion "Discant" "EES") #f 0 1 0))
  27         ("accDiscantFEES" . ((accordion "Discant" "FEES") #f 0 1 0))
  28         ("accDiscantEEES" . ((accordion "Discant" "EEES") #f 0 1 0))
  29         ("accDiscantFEEES" . ((accordion "Discant" "FEEES") #f 0 1 0))
  30         ("accDiscantSS" . ((accordion "Discant" "SS") #f 0 1 0))
  31         ("accDiscantESS" . ((accordion "Discant" "ESS") #f 0 1 0))
  32         ("accDiscantEESS" . ((accordion "Discant" "EESS") #f 0 1 0))
  33         ("accDiscantEEESS" . ((accordion "Discant" "EEESS") #f 0 1 0))
  34         ("accFreebase" . ((accordion "Freebase" "") #f 0 -1 0))
  35         ("accFreebaseF" . ((accordion "Freebase" "F") #f 0 -1 0))
  36         ("accFreebaseE" . ((accordion "Freebase" "E") #f 0 -1 0))
  37         ("accFreebaseFE" . ((accordion "Freebase" "FE") #f 0 -1 0))
  38         ("accBayanbase" . ((accordion "Bayanbase" "") #f 0 -1 0))
  39         ("accBayanbaseT" . ((accordion "Bayanbase" "T") #f 0 -1 0))
  40         ("accBayanbaseE" . ((accordion "Bayanbase" "E") #f 0 -1 0))
  41         ("accBayanbaseTE" . ((accordion "Bayanbase" "TE") #f 0 -1 0))
  42         ("accBayanbaseEE" . ((accordion "Bayanbase" "EE") #f 0 -1 0))
  43         ("accBayanbaseTEE" . ((accordion "Bayanbase" "TEE") #f 0 -1 0))
  44         ("accStdbase" . ((accordion "Stdbase" "") #f 0 -1 0))
  45         ("accStdbaseFE" . ((accordion "Stdbase" "FE") #f 0 -1 0))
  46         ("accStdbaseTFE" . ((accordion "Stdbase" "TFE") #f 0 -1 0))
  47         ("accStdbaseMES" . ((accordion "Stdbase" "MES") #f 0 -1 0))
  48         ("accStdbaseTFMES" . ((accordion "Stdbase" "TFMES") #f 0 -1 0))
  49
  50         ("accSB" . ((accordion "SB" "") #f 0 -1 0))
  51         ("accBB" . ((accordion "BB" "") #f 0 -1 0))
  52         ("accOldEE" . ((accordion "OldEE" "") #f 0 -1 0))
  53         ("accOldEES" . ((accordion "OldEES" "") #f 0 -1 0)))
  54       script-alist)
  55       )
  56