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