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" "TFEE") #f 0 -1 0))
  44 ;; I don't know what naming of standard base registers is best?
  45 ;; The 'tenor-piano' style of names has been used in some old accordion
  46 ;; scores I have seen. But you never name the registers. These four are
  47 ;; the symbols that are most used then typesetting music, but in the real
  48 ;; world it differs a lot from instrument to instrument what registers
  49 ;; are available.
  50         ("accStdbase" . ((accordion "Stdbase" "") #f 0 -1 0))
  51 ;; tenor-piano
  52         ("accStdbaseTp" . ((accordion "Stdbase" "FE") #f 0 -1 0))
  53 ;; tenor
  54         ("accStdbaseT" . ((accordion "Stdbase" "TFE") #f 0 -1 0))
  55 ;; bass-piano
  56         ("accStdbaseBp" . ((accordion "Stdbase" "MES") #f 0 -1 0))
  57 ;; master  (changed from accStdbaseM)
  58         ("accStdbaseMa" . ((accordion "Stdbase" "TFMES") #f 0 -1 0))
  59
  60         ("accStdbaseFE" . ((accordion "Stdbase" "FE") #f 0 -1 0))
  61         ("accStdbaseTFE" . ((accordion "Stdbase" "TFE") #f 0 -1 0))
  62         ("accStdbaseMES" . ((accordion "Stdbase" "MES") #f 0 -1 0))
  63         ("accStdbaseTFMES" . ((accordion "Stdbase" "TFMES") #f 0 -1 0))
  64
  65         ("accSB" . ((accordion "SB" "") #f 0 -1 0))
  66         ("accBB" . ((accordion "BB" "") #f 0 -1 0))
  67         ("accOldEE" . ((accordion "OldEE" "") #f 0 -1 0))
  68         ("accOldEES" . ((accordion "OldEES" "") #f 0 -1 0)))
  69       script-alist)
  70       )
  71