+++ /dev/null
-\
-cpp -P -traditional -o l-fake.ly -DFAKE_GRACE les-nereides.ly
+++ /dev/null
-\version "1.3.146"
-% a4.ly
-
-hsize = 210.0 \mm
-vsize = 296.9 \mm
+++ /dev/null
-\version "1.3.146"
-% Symbols needed to print accordion music
-%
-% 2' = T
-% 4' = F
-% 8' = E
-% 16' = S
-%
-
-accDiscant = \script "accDiscant"
-accDiscantF = \script "accDiscantF"
-accDiscantE = \script "accDiscantE"
-accDiscantEh = \script "accDiscantEh"
-accDiscantFE = \script "accDiscantFE"
-accDiscantFEh = \script "accDiscantFEh"
-accDiscantEE = \script "accDiscantEE"
-accDiscantFEE = \script "accDiscantFEE"
-accDiscantEEE = \script "accDiscantEEE"
-accDiscantFEEE = \script "accDiscantFEEE"
-accDiscantS = \script "accDiscantS"
-accDiscantFS = \script "accDiscantFS"
-accDiscantES = \script "accDiscantES"
-accDiscantEhS = \script "accDiscantEhS"
-accDiscantFES = \script "accDiscantFES"
-accDiscantFEhS = \script "accDiscantFEhS"
-accDiscantEES = \script "accDiscantEES"
-accDiscantFEES = \script "accDiscantFEES"
-accDiscantEEES = \script "accDiscantEEES"
-accDiscantFEEES = \script "accDiscantFEEES"
-accDiscantSS = \script "accDiscantSS"
-accDiscantESS = \script "accDiscantESS"
-accDiscantEESS = \script "accDiscantEESS"
-accDiscantEEESS = \script "accDiscantEEESS"
-
-accFreebase = \script "accFreebase"
-accFreebaseF = \script "accFreebaseF"
-accFreebaseE = \script "accFreebaseE"
-accFreebaseFE = \script "accFreebaseFE"
-
-accBayanbase = \script "accBayanbase"
-accBayanbaseT = \script "accBayanbaseT"
-accBayanbaseE = \script "accBayanbaseE"
-accBayanbaseTE = \script "accBayanbaseTE"
-accBayanbaseEE = \script "accBayanbaseEE"
-accBayanbaseTEE = \script "accBayanbaseTEE"
-
-accStdbase = \script "accStdbase"
-accStdbaseFE = \script "accStdbaseFE"
-accStdbaseTFE = \script "accStdbaseTFE"
-accStdbaseMES = \script "accStdbaseMES"
-accStdbaseTFMES = \script "accStdbaseTFMES"
-
-accSB = \script "accSB"
-accBB = \script "accBB"
-accOldEE = \script "accOldEE"
-accOldEES = \script "accOldEES"
+++ /dev/null
-% Toplevel initialisation file.
-
-\version "1.3.146"
-
-
-\include "declarations-init.ly"
-\include "paper16-init.ly"
-
- \paper{
- \paperSixteen
-}
-
-
-\maininput
+++ /dev/null
-%{
-
- Common catalan names for notes. "b" means flat (bemoll), "d" means sharp (diesi).
- Also "s" is included for sharp (sostingut). Both "diesi" and "sostingut" are approved
- by "Diccionari de la Llengua Catalana" from "Institut d'Estudis Catalans".
-
- Adapted from italiano.ly.
-
- English: a b c d e f g
- Catalan: la si do re mi fa sol
-
- For spanish naming just use the sharp sign "s" (sostenido) instead of "s"
-(sostenido) .
-%}
-
-% contributed by Jaume Obrador <jobrador@ipc4.uib.es>
-
-
-% For using "sostingut" notation, which is also correct
-\pitchnames #`(
- (dobb . ,(make-pitch -1 0 -2 ))
- (dob . ,(make-pitch -1 0 -1 ))
- (do . ,(make-pitch -1 0 0 ))
- (dod . ,(make-pitch -1 0 1 ))
- (dodd . ,(make-pitch -1 0 2 ))
- (rebb . ,(make-pitch -1 1 -2 ))
- (reb . ,(make-pitch -1 1 -1 ))
- (re . ,(make-pitch -1 1 0 ))
- (red . ,(make-pitch -1 1 1 ))
- (redd . ,(make-pitch -1 1 2 ))
- (mibb . ,(make-pitch -1 2 -2 ))
- (mib . ,(make-pitch -1 2 -1 ))
- (mi . ,(make-pitch -1 2 0 ))
- (mid . ,(make-pitch -1 2 1 ))
- (midd . ,(make-pitch -1 2 2 ))
- (fabb . ,(make-pitch -1 3 -2 ))
- (fab . ,(make-pitch -1 3 -1 ))
- (fa . ,(make-pitch -1 3 0 ))
- (fad . ,(make-pitch -1 3 1 ))
- (fadd . ,(make-pitch -1 3 2 ))
- (solbb . ,(make-pitch -1 4 -2 ))
- (solb . ,(make-pitch -1 4 -1 ))
- (sol . ,(make-pitch -1 4 0 ))
- (sold . ,(make-pitch -1 4 1 ))
- (soldd . ,(make-pitch -1 4 2 ))
- (labb . ,(make-pitch -1 5 -2 ))
- (lab . ,(make-pitch -1 5 -1 ))
- (la . ,(make-pitch -1 5 0 ))
- (lad . ,(make-pitch -1 5 1 ))
- (ladd . ,(make-pitch -1 5 2 ))
- (sibb . ,(make-pitch -1 6 -2 ))
- (sib . ,(make-pitch -1 6 -1 ))
- (si . ,(make-pitch -1 6 0 ))
- (sid . ,(make-pitch -1 6 1 ))
- (sidd . ,(make-pitch -1 6 2 ))
- (dos . ,(make-pitch -1 0 1 ))
- (doss . ,(make-pitch -1 0 2 ))
- (res . ,(make-pitch -1 1 1 ))
- (ress . ,(make-pitch -1 1 2 ))
- (mis . ,(make-pitch -1 2 1 ))
- (miss . ,(make-pitch -1 2 2 ))
- (fas . ,(make-pitch -1 3 1 ))
- (fass . ,(make-pitch -1 3 2 ))
- (sols . ,(make-pitch -1 4 1 ))
- (solss . ,(make-pitch -1 4 2 ))
- (las . ,(make-pitch -1 5 1 ))
- (lass . ,(make-pitch -1 5 2 ))
- (sis . ,(make-pitch -1 6 1 ))
- (siss . ,(make-pitch -1 6 2 ))
-)
-
-
-
-\version "1.3.146"
+++ /dev/null
-% Toplevel initialisation file.
-
-\version "1.3.146"
-
-
-\include "declarations-init.ly"
-\include "paper16-init.ly"
-
- \paper {
- \paperSixteen
-% linewidth = 7.\cm
- linewidth = 11.\cm
-}
-
-\maininput
+++ /dev/null
-\version "1.3.146"
-
-% urg!
-%
-\chordmodifiers #`(
- (m . ,(make-pitch 0 2 -1 ))
- (min . ,(make-pitch 0 2 -1 ))
- (aug . ,(make-pitch 0 4 1 ))
- ;; (dim . ,(make-pitch -100 4 -1 ))
- (dim . ,(make-pitch -100 2 -1 ))
- ;; urg, not actually a chord-modifier, but it works
- ;; c7 -> <c bes>, c 7+ -> c b
- (maj . ,(make-pitch 0 6 1 ))
- ;; sus4 should delete 2 too...
- (sus . ,(make-pitch 0 3 0 ))
-)
-
+++ /dev/null
-
-\version "1.3.146"
-breve = \duration #(make-duration -1 0)
-longa = \duration #(make-duration -2 0 )
-maxima = \duration #(make-duration -3 0)
-
-\include "nederlands.ly" % dutch
-\include "chord-modifiers-init.ly"
-\include "script-init.ly"
-
-% declarations for standard directions
-left = -1
-right = 1
-up = 1
-down = -1
-start = -1
-stop = 1
-smaller = -1
-bigger = 1
-center=0
-
-break = \penalty #-10000
-noBreak = \penalty #10000
-\include "scale-definitions-init.ly"
-
-melisma = \property Staff.melismaBusy = ##t
-melismaEnd = \property Staff.melismaBusy = ##f
-
-
-\include "engraver-init.ly"
-\include "grace-init.ly"
-
-singleLine = \paper { linewidth = 1. }
-
-% ugh
-\include "midi-init.ly"
-
-papersize = "a4"
-paperfile = \papersize + "-init.ly"
-
-\include "generic-paper-init.ly"
-\include "paper20-init.ly"
-
-
-\include "dynamic-scripts-init.ly"
-\include "spanners-init.ly"
-
-\include "property-init.ly"
-
-
-
-% reset default duration
-unusedEntry = \notes { c4 }
-
-% music = "\melodic\relative c"
-
+++ /dev/null
-% common german names for notes. "es" means flat, "is" means sharp
-%
-% by Roland Meier <meier@informatik.th-darmstadt.de>
-% based on swedish.ly by Mats Bengtsson.
-
-% 1999/06/09 Bjoern Jacke <bjoern.jacke@gmx.de>
-% added asas and marked ases as `unusual'
-
-
-\pitchnames #`(
- (ceses . ,(make-pitch -1 0 -2 ))
- (ces . ,(make-pitch -1 0 -1 ))
- (c . ,(make-pitch -1 0 0 ))
- (cis . ,(make-pitch -1 0 1 ))
- (cisis . ,(make-pitch -1 0 2 ))
- (deses . ,(make-pitch -1 1 -2 ))
- (des . ,(make-pitch -1 1 -1 ))
- (d . ,(make-pitch -1 1 0 ))
- (dis . ,(make-pitch -1 1 1 ))
- (disis . ,(make-pitch -1 1 2 ))
- (eses . ,(make-pitch -1 2 -2 ))
- (es . ,(make-pitch -1 2 -1 ))
- (e . ,(make-pitch -1 2 0 ))
- (eis . ,(make-pitch -1 2 1 ))
- (eisis . ,(make-pitch -1 2 2 ))
- (feses . ,(make-pitch -1 3 -2 ))
- (fes . ,(make-pitch -1 3 -1 ))
- (f . ,(make-pitch -1 3 0 ))
- (fis . ,(make-pitch -1 3 1 ))
- (fisis . ,(make-pitch -1 3 2 ))
- (geses . ,(make-pitch -1 4 -2 ))
- (ges . ,(make-pitch -1 4 -1 ))
- (g . ,(make-pitch -1 4 0 ))
- (gis . ,(make-pitch -1 4 1 ))
- (gisis . ,(make-pitch -1 4 2 ))
- (asas . ,(make-pitch -1 5 -2 ))
- (ases . ,(make-pitch -1 5 -2 )) ;;non-standard name for asas
- (as . ,(make-pitch -1 5 -1 ))
- (a . ,(make-pitch -1 5 0 ))
- (ais . ,(make-pitch -1 5 1 ))
- (aisis . ,(make-pitch -1 5 2 ))
- (heses . ,(make-pitch -1 6 -2 ))
- (b . ,(make-pitch -1 6 -1 ))
- (h . ,(make-pitch -1 6 0 ))
- (his . ,(make-pitch -1 6 1 ))
- (hisis . ,(make-pitch -1 6 2 ))
-)
-
-
-
-
-\version "1.3.146"
+++ /dev/null
-% GM drum pitches.
-% I use different accidentals to distinguish drums at the same GM pitch.
-% Always accidental 0 (white keys) or 1 (black keys) to get the "correct" gm name.
-% i.e. fis, for closed highat ges, for highat.
-
-% 2001/03/25 Rune Zedeler <rune@zedeler.dk>
-
-
-%% TODO: don't pollute global namespace in this way .
-
-
-#(define drum-pitch-names `(
- (acousticbassdrum bda ,(make-pitch -3 6 0 ))
- (bassdrum bd ,(make-pitch -2 0 0 ))
- (hisidestick ssh ,(make-pitch -3 6 2))
- (sidestick ss ,(make-pitch -2 0 1))
- (losidestick ssl ,(make-pitch -2 1 -1))
- (acousticsnare sna ,(make-pitch -2 1 0))
- (snare sn ,(make-pitch -2 2 -2))
- (handclap hc ,(make-pitch -2 1 1))
- (electricsnare sne ,(make-pitch -2 2 0))
- (lowfloortom tomfl ,(make-pitch -2 3 0))
- (closedhihat hhc ,(make-pitch -2 3 1))
- (hihat hh ,(make-pitch -2 4 -1))
- (highfloortom tomfh ,(make-pitch -2 4 0))
- (pedalhihat hhp ,(make-pitch -2 4 1))
- (lowtom toml ,(make-pitch -2 5 0))
- (openhihat hho ,(make-pitch -2 5 1))
- (halfopenhihat hhho ,(make-pitch -2 5 1))
- (lowmidtom tomml ,(make-pitch -2 6 0))
- (himidtom tommh ,(make-pitch -1 0 0))
- (crashcymbala cymca ,(make-pitch -1 0 1))
- (crashcymbal cymc ,(make-pitch -1 1 -1))
- (hightom tomh ,(make-pitch -1 1 0))
- (ridecymbala cymra ,(make-pitch -1 1 1))
- (ridecymbal cymr ,(make-pitch -1 2 -1))
- (chinesecymbal cymch ,(make-pitch -1 2 0))
- (ridebell rb ,(make-pitch -1 3 0))
- (tambourine tamb ,(make-pitch -1 3 1))
- (splashcymbal cyms ,(make-pitch -1 4 0))
- (cowbell cb ,(make-pitch -1 4 1))
- (crashcymbalb cymcb ,(make-pitch -1 5 0))
- (vibraslap vibs ,(make-pitch -1 5 1))
- (ridecymbalb cymrb ,(make-pitch -1 6 0))
- (hibongo boh ,(make-pitch 0 0 0))
- (lobongo bol ,(make-pitch 0 0 1))
- (mutehiconga cghm ,(make-pitch 0 1 0))
- (openhiconga cgho ,(make-pitch 0 1 1))
- (hiconga cgh ,(make-pitch 0 2 -1))
- (openloconga cglo ,(make-pitch 0 1 2))
- (loconga cgl ,(make-pitch 0 2 0))
- (hitimbale timh ,(make-pitch 0 3 0))
- (lotimbale timl ,(make-pitch 0 3 1))
- (hiagogo agh ,(make-pitch 0 4 0))
- (loagogo agl ,(make-pitch 0 4 1))
- (cabasa cab ,(make-pitch 0 5 0))
- (maracas mar ,(make-pitch 0 5 1))
- (shortwhistle whs ,(make-pitch 0 6 0))
- (longwhistle whl ,(make-pitch 1 0 0))
- (shortguiro guis ,(make-pitch 1 0 1))
- (longguiro guil ,(make-pitch 1 1 0))
- (guiro gui ,(make-pitch 1 0 2))
- (claves cl ,(make-pitch 1 1 1))
- (hiwoodblock wbh ,(make-pitch 1 2 0))
- (lowoodblock wbl ,(make-pitch 1 3 0))
- (mutecuica cuim ,(make-pitch 1 3 1))
- (opencuica cuio ,(make-pitch 1 4 0))
- (mutetriangle trim ,(make-pitch 1 4 1))
- (triangle tri ,(make-pitch 1 4 2))
- (opentriangle trio ,(make-pitch 1 5 0))
- ;; "transposing" pitches:
- (oneup ua ,(make-pitch 0 1 0))
- (twoup ub ,(make-pitch 0 2 0))
- (threeup uc ,(make-pitch 0 3 0))
- (fourup ud ,(make-pitch 0 4 0))
- (fiveup ue ,(make-pitch 0 5 0))
- (onedown da ,(make-pitch -1 6 0))
- (twodown db ,(make-pitch -1 5 0))
- (threedown dc ,(make-pitch -1 4 0))
- (fourdown dd ,(make-pitch -1 3 0))
- (fivedown de ,(make-pitch -1 2 0))
-))
-
-#(define drums `(
- (acousticbassdrum default ,#f ,(make-pitch -1 4 0))
- (bassdrum default ,#f ,(make-pitch -1 4 0))
- (sidestick cross ,#f ,(make-pitch 0 1 0))
- (acousticsnare default ,#f ,(make-pitch 0 1 0))
- (snare default ,#f ,(make-pitch 0 1 0))
- (handclap triangle ,#f ,(make-pitch 0 1 0))
- (electricsnare default ,#f ,(make-pitch 0 1 0))
- (lowfloortom default ,#f ,(make-pitch -1 3 0))
- (closedhihat cross "stopped" ,(make-pitch 0 3 0))
- (hihat cross ,#f ,(make-pitch 0 3 0))
- (highfloortom default ,#f ,(make-pitch -1 5 0))
- (pedalhihat cross ,#f ,(make-pitch -1 2 0))
- (lowtom default ,#f ,(make-pitch 0 0 0))
- (openhihat cross "open" ,(make-pitch 0 3 0))
- (halfopenhihat xcircle ,#f ,(make-pitch 0 3 0))
- (lowmidtom default ,#f ,(make-pitch 0 1 0))
- (himidtom default ,#f ,(make-pitch 0 2 0))
- (crashcymbala xcircle ,#f ,(make-pitch 0 5 0))
- (crashcymbal xcircle ,#f ,(make-pitch 0 5 0))
- (hightom default ,#f ,(make-pitch 0 4 0))
- (ridecymbala cross ,#f ,(make-pitch 0 5 0))
- (ridecymbal cross ,#f ,(make-pitch 0 5 0))
- (chinesecymbal mensural ,#f ,(make-pitch 0 5 0))
- (ridebell default ,#f ,(make-pitch 0 5 0))
- (splashcymbal diamond ,#f ,(make-pitch 0 5 0))
- (cowbell triangle ,#f ,(make-pitch 0 5 0))
- (crashcymbalb cross ,#f ,(make-pitch 0 5 0))
- (vibraslap diamond ,#f ,(make-pitch 0 4 0))
- (ridecymbalb cross ,#f ,(make-pitch 0 5 0))
- ))
-
-#(define timbales `(
- (losidestick cross ,#f ,(make-pitch -1 6 0))
- (lotimbale default ,#f ,(make-pitch -1 6 0))
- (cowbell triangle ,#f ,(make-pitch 0 0 0))
- (hisidestick cross ,#f ,(make-pitch 0 1 0))
- (hitimbale default ,#f ,(make-pitch 0 1 0))
- ))
-
-#(define congas `(
- (losidestick cross ,#f ,(make-pitch -1 6 0))
- (loconga default ,#f ,(make-pitch -1 6 0))
- (openloconga default ,"open" ,(make-pitch -1 6 0))
- (hisidestick cross ,#f ,(make-pitch 0 1 0))
- (hiconga default ,#f ,(make-pitch 0 1 0))
- (openhiconga default "open" ,(make-pitch 0 1 0))
- (mutehiconga default "stopped" ,(make-pitch 0 1 0))
-
- ))
-
-#(define bongos `(
- (lobongo default ,#f ,(make-pitch -1 6 0))
- (hibongo default ,#f ,(make-pitch 0 1 0))
- ))
-
-#(define guiro `(
- (shortguiro default "staccato",(make-pitch 0 0 0))
- (longguiro default "tenuto" ,(make-pitch 0 0 0))
- (guiro default ,#f ,(make-pitch 0 0 0))
- ))
-
-#(define triangle `(
- (opentriangle cross "open" ,(make-pitch 0 0 0))
- (mutetriangle cross "stopped" ,(make-pitch 0 0 0))
- (triangle cross ,#f ,(make-pitch 0 0 0))
- ))
-
-
-
-\pitchnames
-#(append (map (lambda (x) (cons (car x) (caddr x))) drum-pitch-names)
- (map (lambda (x) (cons (cadr x) (caddr x))) drum-pitch-names)
- )
-
-
-\version "1.3.146"
+++ /dev/null
-\version "1.3.146"
-
-%
-% declare the standard dynamic identifiers.
-%
-ppppp = \dynamicscript #"ppppp"
-pppp = \dynamicscript #"pppp"
-ppp = \dynamicscript #"ppp"
-pp = \dynamicscript #"pp"
-p = \dynamicscript #"p"
-mp = \dynamicscript #"mp"
-mf = \dynamicscript #"mf"
-f = \dynamicscript #"e" % see feta-din layout
-ff = \dynamicscript #"ff"
-fff = \dynamicscript #"fff"
-ffff = \dynamicscript #"ffff"
-fp = \dynamicscript #"fp"
-
-sf = \dynamicscript #"sf"
-sfp = \dynamicscript #"sfp"
-sff = \dynamicscript #"sff"
-sfz = \dynamicscript #"sfz"
-fz = \dynamicscript #"fz"
-sp = \dynamicscript #"sp"
-spp = \dynamicscript #"spp"
-rfz = \dynamicscript #"rfz"
-
+++ /dev/null
-%{
- English note names spelled out in full, and abbreviated
- with s for sharp and f for flat.
-%}
-
-\pitchnames #`(
- (cflatflat . ,(make-pitch -1 0 -2 ))
- (cflat . ,(make-pitch -1 0 -1 ))
- (c . ,(make-pitch -1 0 0 ))
- (csharp . ,(make-pitch -1 0 1 ))
- (csharpsharp . ,(make-pitch -1 0 2 ))
- (dflatflat . ,(make-pitch -1 1 -2 ))
- (dflat . ,(make-pitch -1 1 -1 ))
- (d . ,(make-pitch -1 1 0 ))
- (dsharp . ,(make-pitch -1 1 1 ))
- (dsharpsharp . ,(make-pitch -1 1 2 ))
- (eflatflat . ,(make-pitch -1 2 -2 ))
- (eflat . ,(make-pitch -1 2 -1 ))
- (e . ,(make-pitch -1 2 0 ))
- (esharp . ,(make-pitch -1 2 1 ))
- (esharpsharp . ,(make-pitch -1 2 2 ))
- (fflatflat . ,(make-pitch -1 3 -2 ))
- (fflat . ,(make-pitch -1 3 -1 ))
- (f . ,(make-pitch -1 3 0 ))
- (fsharp . ,(make-pitch -1 3 1 ))
- (fsharpsharp . ,(make-pitch -1 3 2 ))
- (gflatflat . ,(make-pitch -1 4 -2 ))
- (gflat . ,(make-pitch -1 4 -1 ))
- (g . ,(make-pitch -1 4 0 ))
- (gsharp . ,(make-pitch -1 4 1 ))
- (gsharpsharp . ,(make-pitch -1 4 2 ))
- (aflatflat . ,(make-pitch -1 5 -2 ))
- (aflat . ,(make-pitch -1 5 -1 ))
- (a . ,(make-pitch -1 5 0 ))
- (asharp . ,(make-pitch -1 5 1 ))
- (asharpsharp . ,(make-pitch -1 5 2 ))
- (bflatflat . ,(make-pitch -1 6 -2 ))
- (bflat . ,(make-pitch -1 6 -1 ))
- (b . ,(make-pitch -1 6 0 ))
- (bsharp . ,(make-pitch -1 6 1 ))
- (bsharpsharp . ,(make-pitch -1 6 2 ))
-
- (cff . ,(make-pitch -1 0 -2 ))
- (cf . ,(make-pitch -1 0 -1 ))
- (c . ,(make-pitch -1 0 0 ))
- (cs . ,(make-pitch -1 0 1 ))
- (css . ,(make-pitch -1 0 2 ))
- (dff . ,(make-pitch -1 1 -2 ))
- (df . ,(make-pitch -1 1 -1 ))
- (d . ,(make-pitch -1 1 0 ))
- (ds . ,(make-pitch -1 1 1 ))
- (dss . ,(make-pitch -1 1 2 ))
- (eff . ,(make-pitch -1 2 -2 ))
- (ef . ,(make-pitch -1 2 -1 ))
- (e . ,(make-pitch -1 2 0 ))
-
- (es . ,(make-pitch -1 2 1 ))
- (ess . ,(make-pitch -1 2 2 ))
- (fff . ,(make-pitch -1 3 -2 ))
- (ff . ,(make-pitch -1 3 -1 ))
- (f . ,(make-pitch -1 3 0 ))
- (fs . ,(make-pitch -1 3 1 ))
- (fss . ,(make-pitch -1 3 2 ))
- (gff . ,(make-pitch -1 4 -2 ))
- (gf . ,(make-pitch -1 4 -1 ))
- (g . ,(make-pitch -1 4 0 ))
- (gs . ,(make-pitch -1 4 1 ))
- (gss . ,(make-pitch -1 4 2 ))
- (aff . ,(make-pitch -1 5 -2 ))
- (af . ,(make-pitch -1 5 -1 ))
- (a . ,(make-pitch -1 5 0 ))
- (as . ,(make-pitch -1 5 1 ))
- (ass . ,(make-pitch -1 5 2 ))
- (bff . ,(make-pitch -1 6 -2 ))
- (bf . ,(make-pitch -1 6 -1 ))
- (b . ,(make-pitch -1 6 0 ))
- (bs . ,(make-pitch -1 6 1 ))
- (bss . ,(make-pitch -1 6 2 ))
-)
-
-\version "1.3.146"
-
+++ /dev/null
-\version "1.3.146"
-
-%
-% setup for Request->Element conversion. Guru-only
-%
-
-StaffContext=\translator {
- \type "Engraver_group_engraver"
- \name Staff
- \consists "Output_property_engraver"
- Generic_property_list = #generic-staff-properties
-
- \consists "Bar_engraver"
- % Bar_engraver must be first so default bars aren't overwritten
-% with empty ones.
- \consists "Font_size_engraver"
-
-% \consists "Repeat_engraver"
- \consists "Volta_engraver"
- \consists "Separating_line_group_engraver"
-
-
-
- \consists "Clef_engraver"
- \consists "Key_engraver"
- \consists "Time_signature_engraver"
- \consists "Staff_symbol_engraver"
- \consists "Collision_engraver"
- \consists "Rest_collision_engraver"
- \consists "Local_key_engraver"
- \consists "Piano_pedal_engraver"
- \consists "Instrument_name_engraver"
-
- \consistsend "Axis_group_engraver"
-
- MinimumVerticalExtent = #'(-4 . 4)
- ExtraVerticalExtent = ##f
- VerticalExtent = ##f
-
- % explicitly set instrument, so we don't get
- % weird effects when doing instrument names for
- % piano staves
-
- instrument = ##f
- instr = ##f
-
- \accepts "Voice"
-}
-
-
-StaffContainerContext = \translator {
- \type Engraver_group_engraver
- \consists "Axis_group_engraver"
- MinimumVerticalExtent = ##f
- ExtraVerticalExtent = ##f
- VerticalExtent = ##f
-
- \accepts Staff
- \name StaffContainer
-}
-
-InnerChoirStaffContext = \translator {
- \type "Engraver_group_engraver"
- \name InnerChoirStaff
- alignmentReference = #0
- \consists "System_start_delimiter_engraver"
- SystemStartDelimiter \override #'glyph = #'bracket
-
- \accepts "Staff"
- \accepts "RhythmicStaff"
- \accepts "GrandStaff"
- \accepts "PianoStaff"
- \accepts "Lyrics"
- \accepts "ChordNames"
-}
-ChoirStaffContext = \translator {
- \InnerChoirStaffContext
- \name ChoirStaff
- \accepts "InnerChoirStaff"
- \accepts "InnerStaffGroup"
-}
-
-
-RhythmicStaffContext=\translator{
- \type "Engraver_group_engraver"
-
- \consists "Output_property_engraver"
-
- Generic_property_list = #generic-staff-properties
- MinimumVerticalExtent = ##f
- ExtraVerticalExtent = ##f
- VerticalExtent = ##f
-
- \consists "Pitch_squash_engraver"
- \consists "Separating_line_group_engraver"
- \name RhythmicStaff
- \alias "Staff"
-
- Bar \override #'bar-size = #4
- VoltaBracket \override #'minimum-space = #15 % urg, in \pt
- VoltaBracket \override #'padding = #5 % urg, in \pt
- StaffSymbol \override #'line-count = #1
-
-% \consists "Repeat_engraver"
- \consists "Volta_engraver"
- \consists "Bar_engraver"
- \consists "Time_signature_engraver"
- \consists "Staff_symbol_engraver"
- \consistsend "Axis_group_engraver"
- \accepts "Voice"
-}
-
-
-VoiceContext = \translator {
- \type "Engraver_group_engraver"
- \name Voice
-
- Generic_property_list = #generic-voice-properties
- \consists "Font_size_engraver"
-
- % must come before all
- \consists "Voice_devnull_engraver"
- \consists "Output_property_engraver"
- \consists "Arpeggio_engraver"
- \consists "Multi_measure_rest_engraver"
- \consists "Text_spanner_engraver"
-
- \consists "Breathing_sign_engraver"
- % \consists "Rest_engraver"
- \consists "Dot_column_engraver"
- \consists "Stem_engraver"
- \consists "Beam_engraver"
- \consists "Auto_beam_engraver"
-
- \consists "Chord_tremolo_engraver"
- \consists "Percent_repeat_engraver"
- \consists "Melisma_engraver"
-
-%{
- Must come before text_engraver, but after note_column engraver.
-
-%}
- \consists "Dynamic_engraver"
- \consists "Text_engraver"
-
- \consists "Script_engraver"
- \consists "Script_column_engraver"
- \consists "Rhythmic_column_engraver"
- \consists "Phrasing_slur_engraver"
- \consists "Slur_engraver"
- \consists "Tie_engraver"
- \consists "Tuplet_engraver"
- \consists "A2_engraver"
-
- \consists "Skip_req_swallow_translator"
- \accepts Thread % bug if you leave out this!
-}
-
-ThreadContext = \translator{
- \type Engraver_group_engraver
- \name Thread
-
- \consists "Font_size_engraver"
- \consists "Thread_devnull_engraver"
- \consists "Note_heads_engraver"
- \consists "Rest_engraver"
- \consists "Note_head_line_engraver"
- \consists "Output_property_engraver"
- Generic_property_list = #generic-thread-properties
-}
-
-GrandStaffContext=\translator{
- \type "Engraver_group_engraver"
- \name GrandStaff
- \consists "Span_bar_engraver"
- \consists "Span_arpeggio_engraver"
- \consists "System_start_delimiter_engraver"
- SystemStartDelimiter \override #'glyph = #'brace
-
- Generic_property_list = #generic-grand-staff-properties
- \accepts "Staff"
-}
-
-PianoStaffContext = \translator{
- \GrandStaffContext
- \name "PianoStaff"
-
- \consists "Vertical_align_engraver"
- \consists "Instrument_name_engraver"
-
- instrument = ##f
- instr = ##f
-
- verticalAlignmentChildCallback = #Align_interface::fixed_distance_alignment_callback
- VerticalAlignment \override #'forced-distance = #12
- VerticalAlignment \override #'self-alignment-Y = #0
-% \consistsend "Axis_group_engraver"
-}
-
-InnerStaffGroupContext= \translator {
- \type "Engraver_group_engraver"
- \name InnerStaffGroup
-
- \consists "Span_bar_engraver"
- \consists "Span_arpeggio_engraver"
- \consists "Output_property_engraver"
- SystemStartDelimiter \override #'glyph = #'bracket
-
- \consists "System_start_delimiter_engraver"
- \accepts "Staff"
- \accepts "RhythmicStaff"
- \accepts "GrandStaff"
- \accepts "PianoStaff"
-
- \accepts "Lyrics"
- \accepts "ChordNames"
-}
-StaffGroupContext = \translator {
- \InnerStaffGroupContext
- \name StaffGroup
- \accepts "InnerChoirStaff"
- \accepts "ChoirStaff"
- \accepts "InnerStaffGroup"
-}
-
-
-% UGH! JUNKME
-LyricsVoiceContext= \translator{
- \type "Engraver_group_engraver"
- \consistsend "Axis_group_engraver"
- MinimumVerticalExtent = #(cons -1.2 1.2)
- ExtraVerticalExtent = ##f
- VerticalExtent = ##f
- \name LyricsVoice
- \consists "Separating_line_group_engraver"
- \consists "Lyric_engraver"
- \consists "Extender_engraver"
- \consists "Hyphen_engraver"
- \consists "Stanza_number_engraver"
- phrasingPunctuation = #".,:!?\""
-
-}
-NoteNamesContext = \translator {
- \type "Engraver_group_engraver"
- \name NoteNames
- \consistsend "Axis_group_engraver"
-
- MinimumVerticalExtent = ##f
- ExtraVerticalExtent = ##f
- VerticalExtent = ##f
-
-
- \consists "Note_name_engraver"
- \consists "Separating_line_group_engraver"
-}
-
-LyricsContext = \translator {
- \type "Engraver_group_engraver"
- \name Lyrics
- \consists Vertical_align_engraver %need this for getting folded repeats right.
- Generic_property_list = #generic-lyrics-properties
-
- \consistsend "Axis_group_engraver"
- MinimumVerticalExtent = ##f
- ExtraVerticalExtent = ##f
- VerticalExtent = ##f
-
- \accepts "LyricsVoice"
-}
-
-
-ChordNamesContext = \translator {
- \type "Engraver_group_engraver"
- \name ChordNames
-
- Generic_property_list = #generic-chord-staff-properties
-
-
- \consists "Output_property_engraver"
- \consists "Separating_line_group_engraver"
- \consists "Chord_name_engraver"
- \consists "Skip_req_swallow_translator"
- \consistsend "Axis_group_engraver"
- MinimumVerticalExtent = ##f
- ExtraVerticalExtent = ##f
- VerticalExtent = ##f
-
- VerticalAxisGroup \override #'invisible-staff = ##t
- }
-
-
-
-StupidScore = \translator {
- \type "Score_engraver"
- \name Score
- \consists "Note_heads_engraver"
-}
-
-
-
-
-HaraKiriStaffContext = \translator {
- \StaffContext
- \remove "Axis_group_engraver"
- \consistsend "Hara_kiri_engraver"
- \consists "Instrument_name_engraver"
- \accepts "Voice"
-}
-%{
- The HaraKiriStaffContexts doesn't override \name,
- so it is still named `Staff'.
-
- %\translator { \HaraKiriStaffContext }
-%}
-
-
-
-
-ScoreContext = \translator {
- \type Score_engraver
- \name Score
-
-
- \consists "Repeat_acknowledge_engraver"
- \consists "Timing_engraver"
- \consists "Output_property_engraver"
- \consists "System_start_delimiter_engraver"
- \consists "Mark_engraver"
- \consists "Break_align_engraver"
- \consists "Spacing_engraver"
- \consists "Vertical_align_engraver"
-
- \consists "Lyric_phrasing_engraver"
- \consists "Bar_number_engraver"
- \consists "Span_arpeggio_engraver"
-
- \accepts "Staff"
- \accepts "StaffContainer"
- \accepts "StaffGroup"
- \accepts "RhythmicStaff"
- \accepts "Lyrics"
- \accepts "ChordNames"
- \accepts "GrandStaff"
- \accepts "ChoirStaff"
- \accepts "PianoStaff"
- \accepts "NoteNames"
-
- soloText = #"Solo"
- soloIIText = #"Solo II"
- aDueText = #"a2"
- soloADue = ##t
- splitInterval = #'(0 . 1)
- changeMoment = #`(,(make-moment 0 0) . ,(make-moment 1 512))
-
- barAuto = ##t
- voltaVisibility = ##t
- % name, glyph id, clef position
- % where is c0 in this clef?
-
- clefGlyph = #"clefs-G"
- clefPosition = #-2
- centralCPosition = #-6
-
- automaticPhrasing = ##t
- alignmentReference = #-1 % \down
- defaultBarType = #"|"
-
- explicitClefVisibility = #all-visible
- explicitKeySignatureVisibility = #all-visible
-
- scriptDefinitions = #default-script-alist
-
- verticalAlignmentChildCallback = #Align_interface::alignment_callback
-
- pedalSustainStrings = #'("Ped." "*Ped." "*")
- pedalUnaCordaStrings = #'("una corda" "" "tre corde")
- pedalSostenutoStrings = #'() % FIXME
-
- tupletNumberFormatFunction = #denominator-tuplet-formatter
-
- keyAccidentalOrder = #'(
- (6 . -1) (2 . -1) (5 . -1 ) (1 . -1) (4 . -1) (0 . -1) (3 . -1)
- (3 . 1) (0 . 1) (4 . 1) (1 . 1) (5 . 1) (2 . 1) (6 . 1)
- (6 . -2) (2 . -2) (5 . -2 ) (1 . -2) (4 . -2) (0 . -2) (3 . -2)
- (3 . 2) (0 . 2) (4 . 2) (2 . 2) (5 . 2) (2 . 2) (6 . 2)
- )
- breakAlignOrder = #'(
- Instrument_name
- Left_edge_item
- Span_bar
- Breathing_sign
- Clef_item
- Key_item
- Staff_bar
- Time_signature
- Custos
- )
-
-
- \elementdescriptions #all-grob-descriptions
-}
-
-OrchestralScoreContext= \translator {
- \ScoreContext
-}
-EasyNotation = \translator {
- \ScoreContext
- NoteHead \override #'molecule-callback = #Note_head::brew_ez_molecule
- easyPlay = ##t
-}
-
-% retain for compatibility reasons (FIXME: convert-ly)
-GraceContext = \translator {
- \type "Engraver_group_engraver"
-}
+++ /dev/null
-\version "1.3.146"
-
-%
-% Running LilyPond on this file generates the documentation
-%
-#(eval-string (ly-gulp-file "generate-documentation.scm"))
+++ /dev/null
-
-%
-% Running LilyPond on this file generates the short interface doc
-%
-#(eval-string (ly-gulp-file "generate-interface-doc.scm"))
+++ /dev/null
-\version "1.3.146"
-
-\paper {
- texsetting = ""
- pssetting = ""
- scmsetting = "(lilyponddefs.ps) findlibfile {exch pop //systemdict /run get exec} { /undefinedfilename signalerror } ifelse\n"% UGH.
-
-}
+++ /dev/null
-\version "1.3.148"
-
-% german-chords.ly:
-% german/norwegian/danish?
-
-% To get Bb instead of B, use
-% \include "german-chords.ly"
-% #(set! german-Bb #t)
-
-#(define german-Bb #f)
-
-#(define (pitch->chord-name-text-banter pitch steps)
- (let ((dopitch (if (member (cdr pitch) '((6 -1) (6 -2)))
- (list 7 (+ (if german-Bb 0 1) (caddr pitch)))
- (cdr pitch)
- )))
- (cons
- (list-ref '("C" "D" "E" "F" "G" "A" "H" "B") (car dopitch))
- (accidental->text-super (cadr dopitch))
- )
- )
- )
-
-
-
-#(define (pitch->note-name-text-banter pitch)
- (let ((dopitch (if (member (cdr pitch) '((6 -1) (6 -2)))
- (list 7 (+ 1 (caddr pitch)))
- (cdr pitch)
- )))
- (list
- (string-append
- (list-ref '("c" "d" "e" "f" "g" "a" "h" "b") (car dopitch))
- (if (or (equal? (car dopitch) 2) (equal? (car dopitch) 5))
- (list-ref '( "ses" "s" "" "is" "isis") (+ 2 (cadr dopitch)))
- (list-ref '("eses" "es" "" "is" "isis") (+ 2 (cadr dopitch)))
- )
- )
- )
- )
- )
+++ /dev/null
-
-#(define (grace-beam-space-function multiplicity)
- (* (if (<= multiplicity 3) 0.816 0.844) 0.8))
-
-
-startGraceMusic = {
- \property Voice.Stem \override #'direction = #1
- \property Voice.Stem \override #'length = #6
- \property Voice.Stem \override #'lengths =
- #(map (lambda (x) (* 0.8 x)) '(3.5 3.5 3.5 4.5 5.0))
- \property Voice.Stem \override #'beamed-lengths =
- #(map (lambda (x) (* 0.8 x)) '(0.0 2.5 2.0 1.5))
- \property Voice.Stem \override #'beamed-minimum-lengths =
- #(map (lambda (x) (* 0.8 x)) '(0.0 1.5 1.25 1.0))
- \property Voice.Stem \override #'no-stem-extend = ##t
- \property Voice.Stem \override #'flag-style = #"grace"
-
- \property Voice.Beam \override #'space-function = #grace-beam-space-function
- \property Voice.Beam \override #'thickness = #0.384
-
- % Can't use Staff.fontSize, since time sigs, keys sigs, etc. will
- % be smaller as well.
-
- \property Voice.fontSize = #-2
- \property Staff.Accidentals \override #'font-relative-size = #-2
-}
-
-stopGraceMusic = {
- \property Voice.Beam \revert #'space-function
- \property Voice.Beam \revert #'thickness
-
- \property Voice.Stem \revert #'flag-style
- \property Voice.Stem \revert #'no-stem-extend
- \property Voice.Stem \revert #'beamed-lengths
- \property Voice.Stem \revert #'beamed-minimum-lengths
- \property Voice.Stem \revert #'lengths
- \property Voice.Stem \revert #'length
- \property Voice.Stem \revert #'direction
-
- % Can't use Staff.fontSize, since time sigs, keys sigs, etc. will
- % be smaller as well.
-
- \property Voice.fontSize \unset
- \property Staff.LocalKeyItem \revert #'font-relative-size
-}
+++ /dev/null
-% Toplevel AsciiScript initialisation file.
-
-\version "1.3.146"
-
-\include "declarations-as.ly"
-
-% burp. need to override lily.scm
-#(define cmr-alist
- '(("bold" . "as-dummy")
- ("brace" . "as-braces")
- ("default" . "as-dummy")
- ("dynamic" . "as-dummy")
- ("feta" . "feta")
- ("feta-1" . "feta")
- ("feta-2" . "feta")
- ("finger" . "as-number")
- ("typewriter" . "as-dummy")
- ("italic" . "as-dummy")
- ("roman" . "as-dummy")
- ("script" . "as-dummy")
- ("large" . "as-dummy")
- ("Large" . "as-dummy")
- ("mark" . "as-number")
- ("number" . "as-number")
- ("timesig" . "as-number")
- ("volta" . "as-number"))
-)
-
-\score {
- \context Voice \notes\relative c {
- \maininput
- }
- \paper {
- \paper_as_nine
- %linewidth=-1.0
- %indent = 0.0
- \translator { \StaffContext barSize = \staffheight }
-
- % no beam-slope
- %\translator { \VoiceContext beamHeight = #0 }
- }
- %\midi{ }
-}
+++ /dev/null
-% Toplevel initialisation file.
-
-
-\version "1.3.146"
-
-\include "declarations-init.ly"
-
-\maininput
+++ /dev/null
-%{
- Common italian names for notes. "b" means flat (bemolle), "d" means sharp (diesis)
- Adapted from dutch.ly.
-
- English: a b c d e f g
- Italian: la si do re mi fa sol
-
- For french naming just change 'do' in 'ut'.
-%}
-
-% contributed by Paolo Zuliani <zuliap@easynet.it>
-
-\pitchnames #`(
- (dobb . ,(make-pitch -1 0 -2 ))
- (dob . ,(make-pitch -1 0 -1 ))
- (do . ,(make-pitch -1 0 0 ))
- (dod . ,(make-pitch -1 0 1 ))
- (dodd . ,(make-pitch -1 0 2 ))
- (rebb . ,(make-pitch -1 1 -2 ))
- (reb . ,(make-pitch -1 1 -1 ))
- (re . ,(make-pitch -1 1 0 ))
- (red . ,(make-pitch -1 1 1 ))
- (redd . ,(make-pitch -1 1 2 ))
- (mibb . ,(make-pitch -1 2 -2 ))
- (mib . ,(make-pitch -1 2 -1 ))
- (mi . ,(make-pitch -1 2 0 ))
- (mid . ,(make-pitch -1 2 1 ))
- (midd . ,(make-pitch -1 2 2 ))
- (fabb . ,(make-pitch -1 3 -2 ))
- (fab . ,(make-pitch -1 3 -1 ))
- (fa . ,(make-pitch -1 3 0 ))
- (fad . ,(make-pitch -1 3 1 ))
- (fadd . ,(make-pitch -1 3 2 ))
- (solbb . ,(make-pitch -1 4 -2 ))
- (solb . ,(make-pitch -1 4 -1 ))
- (sol . ,(make-pitch -1 4 0 ))
- (sold . ,(make-pitch -1 4 1 ))
- (soldd . ,(make-pitch -1 4 2 ))
- (labb . ,(make-pitch -1 5 -2 ))
- (lab . ,(make-pitch -1 5 -1 ))
- (la . ,(make-pitch -1 5 0 ))
- (lad . ,(make-pitch -1 5 1 ))
- (ladd . ,(make-pitch -1 5 2 ))
- (sibb . ,(make-pitch -1 6 -2 ))
- (sib . ,(make-pitch -1 6 -1 ))
- (si . ,(make-pitch -1 6 0 ))
- (sid . ,(make-pitch -1 6 1 ))
- (sidd . ,(make-pitch -1 6 2 ))
-)
-
-\version "1.3.146"
+++ /dev/null
-\version "1.3.146"
-
-% ledger.ly
-
-hsize = 11.0 \in
-vsize = 17.0 \in
-
-
+++ /dev/null
-\version "1.3.146"
-% legal-init.ly
-
-hsize = 8.5 \in
-vsize = 14.0 \in
+++ /dev/null
-\version "1.3.146"
-% letter-init.ly
-
-hsize = 8.5 \in
-vsize = 11.0 \in
-
-
+++ /dev/null
-\version "1.3.146"
-\midi {
- \tempo 4=60
- \include "performer-init.ly"
-% unfold_all = "1"
-}
-
+++ /dev/null
-\version "1.3.146"
-%{
- common dutch names for notes. es means flat, is means sharp
-%}
-
-\pitchnames #`(
- (ceses . ,(make-pitch -1 0 -2))
- (ces . ,(make-pitch -1 0 -1 ))
- (c . ,(make-pitch -1 0 0 ))
- (cis . ,(make-pitch -1 0 1 ))
- (cisis . ,(make-pitch -1 0 2 ))
- (deses . ,(make-pitch -1 1 -2 ))
- (des . ,(make-pitch -1 1 -1 ))
- (d . ,(make-pitch -1 1 0 ))
- (dis . ,(make-pitch -1 1 1 ))
- (disis . ,(make-pitch -1 1 2 ))
- (eeses . ,(make-pitch -1 2 -2 ))
- (eses . ,(make-pitch -1 2 -2 ))
- (ees . ,(make-pitch -1 2 -1 ))
- (es . ,(make-pitch -1 2 -1 ))
- (e . ,(make-pitch -1 2 0 ))
- (eis . ,(make-pitch -1 2 1 ))
- (eisis . ,(make-pitch -1 2 2 ))
- (feses . ,(make-pitch -1 3 -2 ))
- (fes . ,(make-pitch -1 3 -1 ))
- (f . ,(make-pitch -1 3 0 ))
- (fis . ,(make-pitch -1 3 1 ))
- (fisis . ,(make-pitch -1 3 2 ))
- (geses . ,(make-pitch -1 4 -2 ))
- (ges . ,(make-pitch -1 4 -1 ))
- (g . ,(make-pitch -1 4 0 ))
- (gis . ,(make-pitch -1 4 1 ))
- (gisis . ,(make-pitch -1 4 2 ))
- (aeses . ,(make-pitch -1 5 -2 ))
- (ases . ,(make-pitch -1 5 -2 ))
- (aes . ,(make-pitch -1 5 -1 ))
- (as . ,(make-pitch -1 5 -1 ))
- (a . ,(make-pitch -1 5 0 ))
- (ais . ,(make-pitch -1 5 1 ))
- (aisis . ,(make-pitch -1 5 2 ))
- (beses . ,(make-pitch -1 6 -2 ))
- (bes . ,(make-pitch -1 6 -1 ))
- (b . ,(make-pitch -1 6 0 ))
- (bis . ,(make-pitch -1 6 1 ))
- (bisis . ,(make-pitch -1 6 2 ))
-)
-
-
-
+++ /dev/null
-
-% Idx norsk.ly,v 1.1 1998/03/25 11:38:28 arvidg Exp arvidg $
-
-%{
-
- Common norwegian names for notes, including versions without the
- double s-es to save typing, as well as the traditional names with
- them not to confuse musicians. "es" or "ess" means flat, "is" or
- "iss" means sharp.
-
- Otherwise, the main difference from the dutch names is the that the
- "b" is called "h" in norwegian, while the dutch "bes" is a norwegian
- "b".
-
- Staying within the (proud?) naming convention for norwegian language
- setup used in LaTeX, this file is called "norsk.ly" instead of
- "norwegian.ly", even if all other languages' files use the english
- name.
-
- This file is based on "dutch.ly". Basically, I copied "dutch.ly",
- duplicated all lines containing at least one "is" or "es", changed
- every other "is" into an "iss" and every other "es" into an "ess",
- added "ass" et al, and made some b->h-related changes. There may be
- bugs in here please tell me (or send patches) if you find any.
-
- Arvid Gr=F8tting <arvidg@ifi.uio.no>
-
-%}
-
-\pitchnames #`(
- (ceses . ,(make-pitch -1 0 -2 ))
- (cessess . ,(make-pitch -1 0 -2 ))
- (ces . ,(make-pitch -1 0 -1 ))
- (cess . ,(make-pitch -1 0 -1 ))
- (c . ,(make-pitch -1 0 0 ))
- (cis . ,(make-pitch -1 0 1 ))
- (ciss . ,(make-pitch -1 0 1 ))
- (cisis . ,(make-pitch -1 0 2 ))
- (cississ . ,(make-pitch -1 0 2 ))
- (deses . ,(make-pitch -1 1 -2 ))
- (dessess . ,(make-pitch -1 1 -2 ))
- (des . ,(make-pitch -1 1 -1 ))
- (dess . ,(make-pitch -1 1 -1 ))
- (d . ,(make-pitch -1 1 0 ))
- (dis . ,(make-pitch -1 1 1 ))
- (diss . ,(make-pitch -1 1 1 ))
- (disis . ,(make-pitch -1 1 2 ))
- (dississ . ,(make-pitch -1 1 2 ))
- (eeses . ,(make-pitch -1 2 -2 ))
- (eessess . ,(make-pitch -1 2 -2 ))
- (eses . ,(make-pitch -1 2 -2 ))
- (essess . ,(make-pitch -1 2 -2 ))
- (ees . ,(make-pitch -1 2 -1 ))
- (eess . ,(make-pitch -1 2 -1 ))
- (es . ,(make-pitch -1 2 -1 ))
- (ess . ,(make-pitch -1 2 -1 ))
- (e . ,(make-pitch -1 2 0 ))
- (eis . ,(make-pitch -1 2 1 ))
- (eiss . ,(make-pitch -1 2 1 ))
- (eisis . ,(make-pitch -1 2 2 ))
- (eississ . ,(make-pitch -1 2 2 ))
- (feses . ,(make-pitch -1 3 -2 ))
- (fessess . ,(make-pitch -1 3 -2 ))
- (fes . ,(make-pitch -1 3 -1 ))
- (fess . ,(make-pitch -1 3 -1 ))
- (f . ,(make-pitch -1 3 0 ))
- (fis . ,(make-pitch -1 3 1 ))
- (fiss . ,(make-pitch -1 3 1 ))
- (fisis . ,(make-pitch -1 3 2 ))
- (fississ . ,(make-pitch -1 3 2 ))
- (geses . ,(make-pitch -1 4 -2 ))
- (gessess . ,(make-pitch -1 4 -2 ))
- (ges . ,(make-pitch -1 4 -1 ))
- (gess . ,(make-pitch -1 4 -1 ))
- (g . ,(make-pitch -1 4 0 ))
- (g . ,(make-pitch -1 4 0 ))
- (gis . ,(make-pitch -1 4 1 ))
- (giss . ,(make-pitch -1 4 1 ))
- (gisis . ,(make-pitch -1 4 2 ))
- (gississ . ,(make-pitch -1 4 2 ))
- (aeses . ,(make-pitch -1 5 -2 ))
- (aessess . ,(make-pitch -1 5 -2 ))
- (ases . ,(make-pitch -1 5 -2 ))
- (assess . ,(make-pitch -1 5 -2 ))
- (aes . ,(make-pitch -1 5 -1 ))
- (aess . ,(make-pitch -1 5 -1 ))
- (as . ,(make-pitch -1 5 -1 ))
- (ass . ,(make-pitch -1 5 -1 ))
- (a . ,(make-pitch -1 5 0 ))
- (ais . ,(make-pitch -1 5 1 ))
- (aiss . ,(make-pitch -1 5 1 ))
- (aisis . ,(make-pitch -1 5 2 ))
- (aississ . ,(make-pitch -1 5 2 ))
- (bes . ,(make-pitch -1 6 -2 ))
- (bess . ,(make-pitch -1 6 -2 ))
- (b . ,(make-pitch -1 6 -1 ))
- (b . ,(make-pitch -1 6 -1 ))
- (h . ,(make-pitch -1 6 0 ))
- (his . ,(make-pitch -1 6 1 ))
- (hiss . ,(make-pitch -1 6 1 ))
- (hisis . ,(make-pitch -1 6 2 ))
- (hississ . ,(make-pitch -1 6 2 ))
-)
-
-
-
-\version "1.3.146"
+++ /dev/null
-% paper-as5-init.ly
-
-\version "1.3.146"
-
-paperAsFive = \paper {
- staffheight = 5.\char
-
- \stylesheet #(as-make-style-sheet 'as5)
-
- \translator { \StaffContext barSize = #5 }
-
- % no beam-slope
- %\translator { \VoiceContext beamHeight = #0 }
- \include "params-as-init.ly"
-}
-
-\paper { \paperAsFive }
+++ /dev/null
-% paper-as9-init.ly
-
-\version "1.3.146"
-
-paperAsNine = \paper {
- staffheight = 9.\char
-
- %\translator { \StaffContext barSize = \staffheight }
-
- \stylesheet #(as-make-style-sheet 'as9)
-
- \include "params-as-init.ly"
-
-}
-
-\paper { \paperAsNine }
+++ /dev/null
-\version "1.3.146"
-% paper-init.ly
-
-%% Why som complicated? /MB
-%linewidth20 = \hsize - 2.5 * \staffheight
-%textheight20 = \vsize - 5.0 * \staffheight
-%linewidth = \staffheight/20.0 * \linewidth20
-%textheight = \staffheight/20.0 * \textheight20
-
-linewidth = \hsize - 2.\cm
-% Leave the textheight calculation to the geometry package. /MB
-%textheight = \vsize - 4.\cm
-
-indent = \linewidth / 14.0
-
+++ /dev/null
-% paper11-init.ly
-
-\version "1.3.146"
-
-paperEleven = \paper {
- staffheight = 11.0\pt
- \stylesheet #(make-style-sheet 'paper11)
-
- \include "params-init.ly"
-}
-
-\paper { \paperEleven }
+++ /dev/null
-
-\include "paper11-init.ly"
+++ /dev/null
-% paper13-init.ly
-
-
-\version "1.3.146"
-
-paperThirteen = \paper {
- staffheight = 13.0\pt
-
- \stylesheet #(make-style-sheet 'paper13)
-
- \include "params-init.ly"
-}
-
-\paper { \paperThirteen }
+++ /dev/null
-
-\include "paper13-init.ly"
+++ /dev/null
-% paper16-init.ly
-
-\version "1.3.146"
-
-paperSixteen = \paper {
- staffheight = 16.0\pt
- \stylesheet #(make-style-sheet 'paper16)
-
- \include "params-init.ly"
-}
-
-\paper {\paperSixteen }
+++ /dev/null
-
-\include "paper16-init.ly"
+++ /dev/null
-% paper20-init.ly
-
-
-\version "1.3.146"
-
-paperTwenty = \paper {
- staffheight = 20.0\pt
- \stylesheet #(make-style-sheet 'paper20)
-
- \include "params-init.ly"
-}
-
-\paper { \paperTwenty }
+++ /dev/null
-
-\include "paper20-init.ly"
+++ /dev/null
-% paper23-init.ly
-
-
-\version "1.3.146"
-
-paperTwentythree = \paper {
- staffheight = 23.0\pt
- \stylesheet #(make-style-sheet 'paper23)
- \include "params-init.ly"
-}
-
-\paper { \paperTwentythree }
+++ /dev/null
-
-\include "paper23-init.ly"
+++ /dev/null
-% paper26-init.ly
-
-\version "1.3.146"
-
-paperTwentysix = \paper {
- staffheight = 26.0\pt
- \stylesheet #(make-style-sheet 'paper26)
-
- \include "params-init.ly"
-}
-
-\paper { \paperTwentysix }
+++ /dev/null
-
-\include "paper26-init.ly"
+++ /dev/null
-\version "1.3.146"
-% params-as-init.ly
-% generic paper parameters
-
-outputscale = \staffheight / 4.0
-
-linewidth = 60.0 \char
-textheight = 60.0 \char
-indent = 8.0\char
-
-staffspace = (\staffheight - 1.0 ) / 4.0
-stafflinethickness = \staffspace / 2.0
-
-\translator { \NoteNamesContext }
-\translator { \ScoreContext }
-\translator { \ChoirStaffContext }
-\translator { \GraceContext }
-\translator { \RhythmicStaffContext}
-\translator { \StaffContext }
-\translator { \VoiceContext }
-\translator { \StaffGroupContext }
-\translator { \ChordNamesContext }
-\translator { \GrandStaffContext }
-\translator { \LyricsContext }
-\translator { \ThreadContext }
-\translator { \PianoStaffContext }
-\translator { \LyricsVoiceContext }
-\translator { \StaffContainerContext }
-
-
+++ /dev/null
-\version "1.3.146"
-% JUNKME.
-
-%% deprecated
-papersizename = \papersize
-
-% ly2dvi now uses `papersize' internally (and on cmd line)
-papersize = \papersize
-
-% FIXME
-% direct PostScript line height for single line staves
-lineheight = 14
-
-paperfile = \papersize + "-init.ly"
-
-% paperfile = "a4-init.ly"
-
-\include \paperfile
-\include "paper-init.ly"
-
-staffspace = \staffheight / 4.0
-stafflinethickness = \staffspace / 10.0
-outputscale = \staffheight / 4.0
-
-blotdiameter = 0.4 / \outputscale
-
-\translator { \NoteNamesContext }
-\translator { \ScoreContext }
-\translator { \ChoirStaffContext}
-\translator { \InnerChoirStaffContext}
-
-\translator { \RhythmicStaffContext}
-\translator { \StaffContext }
-\translator { \VoiceContext}
-\translator { \StaffGroupContext }
-\translator { \InnerStaffGroupContext }
-\translator { \ChordNamesContext }
-\translator { \GrandStaffContext}
-\translator { \LyricsContext }
-\translator { \ThreadContext}
-\translator { \PianoStaffContext}
-\translator { \LyricsVoiceContext }
-\translator { \StaffContainerContext }
-
-
-
-
-
+++ /dev/null
-\version "1.3.146"
-
-% JUNKME
-%part-paper-init.ly
-
-\paper {
- \translator { \OrchestralPartStaffContext }
- \translator { \ScoreContext skipBars = ##t }
-}
-
+++ /dev/null
-\version "1.3.146"
-%
-% setup for Request->Element conversion. Guru-only
-%
-StaffContext = \translator {
- \type "Staff_performer"
- \name Staff
- \accepts Voice
-
- \consists "Key_performer"
- \consists "Tempo_performer"
- \consists "Time_signature_performer"
- dynamicStyle = #"dynamic"
-}
-\translator { \StaffContext }
-\translator { \StaffContext
- \name RhythmicStaff
-}
-
-
-VoiceContext = \translator {
- \type "Performer_group_performer"
- \name Voice
- \consists "Dynamic_performer"
- \consists "Span_dynamic_performer"
- \consists "Piano_pedal_performer"
- \accepts "Thread"
-}
-\translator { \VoiceContext }
-
-ThreadContext = \translator {
- \type "Performer_group_performer"
- \name Thread
- \consists "Note_performer"
- \consists "Tie_performer"
-}
-\translator { \ThreadContext }
-
-% retain for compatibility reasons (FIXME: convert-ly)
-\translator {
- \type "Performer_group_performer"
- \name Grace
-}
-
-\translator
-{
- \type "Performer_group_performer"
- \name VoiceTwo\consists "Note_performer"
-
-}
-
-GrandStaffContext = \translator {
- \type "Performer_group_performer"
- \name GrandStaff
- \accepts RhythmicStaff
- \accepts Staff
-}
-\translator { \GrandStaffContext }
-
-PianoStaffContext = \translator {
- \type "Performer_group_performer"
- \name "PianoStaff"
- \accepts Staff
-}
-\translator { \PianoStaffContext }
-
-\translator {
- \type "Performer_group_performer"
- \consists "Lyric_performer"
- \name LyricsVoice
-}
-
-\translator{
- \type "Performer_group_performer"
- \name ChoirStaff
- \accepts Staff
-}
-\translator {
- \type "Staff_performer"
- \accepts LyricsVoice
- \name Lyrics
- \consists "Time_signature_performer"
- \consists "Tempo_performer"
-}
-
-\translator {
- \type "Staff_performer"
- \accepts ChordNameVoice
- \name ChordNames
-}
-
-\translator {
- \type Performer_group_performer
- \consists Note_performer
- \name ChordNameVoice
-}
-
-\translator {
- \type Performer_group_performer
-
- \name StaffGroup
- \accepts Staff
-}
-
-ScoreContext = \translator {
- \type "Score_performer"
-
- \name Score
- instrument = #"bright acoustic"
- \accepts Staff
- \accepts GrandStaff
- \accepts PianoStaff
- \accepts Lyrics
- \accepts StaffGroup
- \accepts ChoirStaff
- \accepts RhythmicStaff
- \accepts ChordNames
- \consists "Swallow_performer"
-
- dynamicAbsoluteVolumeFunction = #default-dynamic-absolute-volume
- instrumentEqualizer = #default-instrument-equalizer
-}
-\translator { \ScoreContext }
-
+++ /dev/null
-% property-init.ly
-
-\version "1.3.146"
-
-stemUp = \property Voice.Stem \set #'direction = #1
-stemDown = \property Voice.Stem \set #'direction = #-1
-stemBoth= \property Voice.Stem \revert #'direction
-
-slurUp = \property Voice.Slur \override #'direction = #1
-slurDown = \property Voice.Slur \override #'direction = #-1
-slurBoth = \property Voice.Slur \revert #'direction
-shiftOn = \property Voice.NoteColumn \override #'horizontal-shift = #1
-shiftOnn = \property Voice.NoteColumn \override #'horizontal-shift = #2
-shiftOnnn = \property Voice.NoteColumn \override #'horizontal-shift = #3
-shiftOff = \property Voice.NoteColumn \revert #'horizontal-shift
-
-tieUp = \property Voice.Tie \override #'direction = #1
-tieDown = \property Voice.Tie \override #'direction = #-1
-tieBoth = \property Voice.Tie \revert #'direction
-
-dynamicUp = {
- \property Voice.DynamicText \override #'direction = #1
- \property Voice.DynamicLineSpanner \override #'direction = #1
-}
-dynamicDown = {
- \property Voice.DynamicText \override #'direction = #-1
- \property Voice.DynamicLineSpanner \override #'direction = #-1
-}
-dynamicBoth = {
- \property Voice.DynamicText \revert #'direction
- \property Voice.DynamicLineSpanner \revert #'direction
-}
-
-scriptUp = {
- \property Voice.TextScript \override #'direction = #1
- \property Voice.Script \override #'direction = #1
-}
-scriptDown = {
- \property Voice.TextScript \override #'direction = #-1
- \property Voice.Script \override #'direction = #-1
-}
-scriptBoth = {
- \property Voice.TextScript \revert #'direction
- \property Voice.Script \revert #'direction
-}
-
-dotsUp = \property Voice.Dots \override #'direction = #1
-dotsDown = \property Voice.Dots \override #'direction = #-1
-dotsBoth = \property Voice.Dots \revert #'direction
-
-% why doubly?
-tupletUp = {
- \property Voice.TupletBracket \override #'direction = #1
- \property Voice.TupletBracket \override #'direction = #1
-}
-tupletDown = {
- \property Voice.TupletBracket \override #'direction = #-1
- \property Voice.TupletBracket \override #'direction = #-1
-}
-tupletBoth = {
- \property Voice.TupletBracket \revert #'direction
- \property Voice.TupletBracket \revert #'direction
-}
-
-
-
-cadenzaOn = \property Score.timing = ##f
-cadenzaOff = {
- \property Score.timing = ##t
- \property Score.measurePosition = #(make-moment 0 1)
-}
-
-newpage = {
- \break
- % urg, only works for TeX output
- \context Score \outputproperty #(make-type-checker 'paper-column-interface)
- #'between-system-string = #"\\newpage"
-}
-
-% dynamic dir? text script, articulation script dir?
-oneVoice = {
- \stemBoth
- \slurBoth
- \tieBoth
- \shiftOff
-}
-
-voiceOne = {
- \stemUp
- \slurUp
- \tieUp
- \dotsUp
-}
-
-voiceTwo = {
- \stemDown
- \slurDown
- \tieDown
- \dotsDown
-
-}
-
-voiceThree = {
- \stemUp
- \slurUp
- \tieUp
- \shiftOn
- \dotsUp
-}
-
-voiceFour = {
- \stemDown
- \slurDown
- \tieDown
- \shiftOn
- \dotsDown
-}
-
-% There's also dash, but setting dash period/length should be fixed.
-slurDotted = \property Voice.Slur \override #'dashed = #1
-slurSolid = \property Voice.Slur \revert #'dashed
-tieDotted = \property Voice.Tie \override #'dashed = #1
-tieSolid = \property Voice.Tie \revert #'dashed
-
-
-tiny =
- \property Voice.fontSize= -2
-
-
-small =
- \property Voice.fontSize= -1
-
-
-normalsize = {
- \property Voice.fontSize= 0
-}
-
-normalkey = {
- \property Staff.keyOctaviation = ##f
-}
-
-specialkey = {
- \property Staff.keyOctaviation = ##t
-}
-
-% End the incipit and print a ``normal line start''.
-endincipit = \notes{
- \partial 16 s16 % Hack to handle e.g. \bar ".|" \endincipit
- \context Staff \outputproperty #(make-type-checker 'clef-interface) #'full-size-change = ##t
- \context Staff \outputproperty #(make-type-checker 'clef-interface) #'non-default = ##t
- \bar ""
-}
-
-autoBeamOff = \property Voice.noAutoBeaming = ##t
-autoBeamOn = \property Voice.noAutoBeaming = ##f
-
-emptyText = \property Voice.textNonEmpty = ##f
-fatText = \property Voice.textNonEmpty = ##t
-
-showStaffSwitch = \property PianoStaff.followVoice = ##t
-hideStaffSwitch = \property PianoStaff.followVoice = ##f
-
-
-% To remove a Volta bracet or some other graphical object,
-% set it to turnOff. Example: \property Staff.VoltaBracket = \turnOff
-
-turnOff = #'((meta . ((interfaces . ()))))
+++ /dev/null
-\version "1.3.146"
-
-
-major = #'(
- (0 . 0)
- (1 . 0)
- (2 . 0)
- (3 . 0)
- (4 . 0)
- (5 . 0)
- (6 . 0)
- )
-
-minor = #'(
- (0 . 0)
- (1 . 0)
- (2 . -1)
- (3 . 0)
- (4 . 0)
- (5 . -1)
- (6 . -1)
- )
-
-
-ionian = #'(
- (0 . 0)
- (1 . 0)
- (2 . 0)
- (3 . 0)
- (4 . 0)
- (5 . 0)
- (6 . 0)
- )
-
-
-locrian = #'(
- (0 . 0)
- (1 . -1)
- (2 . -1)
- (3 . 0)
- (4 . -1)
- (5 . -1)
- (6 . -1)
- )
-
-
-aeolian = #'(
- (0 . 0)
- (1 . 0)
- (2 . -1)
- (3 . 0)
- (4 . 0)
- (5 . -1)
- (6 . -1)
- )
-
-
-mixolydian = #'(
- (0 . 0)
- (1 . 0)
- (2 . 0)
- (3 . 0)
- (4 . 0)
- (5 . 0)
- (6 . -1)
- )
-
-
-lydian = #'(
- (0 . 0)
- (1 . 0)
- (2 . 0)
- (3 . 1)
- (4 . 0)
- (5 . 0)
- (6 . 0)
- )
-
-
-phrygian = #'(
- (0 . 0)
- (1 . -1)
- (2 . -1)
- (3 . 0)
- (4 . 0)
- (5 . -1)
- (6 . -1)
-)
-
-
-dorian = #'(
- (0 . 0)
- (1 . 0)
- (2 . -1)
- (3 . 0)
- (4 . 0)
- (5 . 0)
- (6 . -1)
- )
-
+++ /dev/null
-\version "1.3.146"
-
-
-dashHat= "marcato"
-dashPlus= "stopped"
-dashDash= "tenuto"
-dashBar= "staccatissimo"
-dashLarger= "accent"
-dashDot= "staccato"
-
-
-thumb = \script "thumb"
-accent = \script "accent"
-marcato = \script "marcato"
-staccatissimo = \script "staccatissimo"
-
-% portato is indicated
-% either by
-% * slurred & dotted notes.
-%or by
-% * slur and dash notes.
-% Neither are really supported, but c4-.-- should work.
-% portato = \script "portato"
-
-fermata = \script "fermata"
-stopped = \script "stopped"
-staccato = \script "staccato"
-tenuto = \script "tenuto"
-upbow = \script "upbow"
-downbow = \script "downbow"
-lheel = \script "lheel"
-rheel = \script "rheel"
-ltoe = \script "ltoe"
-rtoe = \script "rtoe"
-turn = \script "turn"
-open = \script "open"
-flageolet = \script "flageolet"
-reverseturn = \script "reverseturn"
-trill = \script "trill"
-prall = \script "prall"
-mordent = \script "mordent"
-prallprall = \script "prallprall"
-prallmordent = \script "prallmordent"
-upprall = \script "upprall"
-downprall = \script "downprall"
-segno = \script "segno"
-coda = \script "coda"
+++ /dev/null
-\version "1.3.146"
-
-cr = \spanrequest \start "crescendo"
-decr = \spanrequest \start "decrescendo"
-rc = \spanrequest \stop "crescendo"
-rced = \spanrequest \stop "decrescendo"
-
-cresc = \notes {
- \commandspanrequest \start "crescendo"
- \property Voice.crescendoText = #"cresc."
- \property Voice.crescendoSpanner = #'dashed-line
-}
-
-% ah, this is handy: maybe drop resetting of properties in
-% dynamic-engraver ?
-endcresc = \notes {
- \commandspanrequest \stop "crescendo"
- \property Voice.crescendoText \unset
- \property Voice.crescendoSpanner \unset
-}
-
-dim = \notes {
- \commandspanrequest \start "decrescendo"
- \property Voice.decrescendoText = #"dim."
- \property Voice.decrescendoSpanner = #'dashed-line
-}
-
-enddim = \notes {
- \commandspanrequest \stop "decrescendo"
- \property Voice.decrescendoText \unset
- \property Voice.decrescendoSpanner \unset
-}
-
-%{
-
-cresc = \spanrequest \start "crescendo"
-endcresc = \spanrequest \stop "crescendo"
-
-%}
-
-% better name sustainstart/stop?
-sustainDown = \spanrequest \start "Sustain"
-sustainUp = \spanrequest \stop "Sustain"
-
-unaCorda = \spanrequest \start "UnaCorda"
-treCorde = \spanrequest \stop "UnaCorda"
-
-sostenutoDown = \spanrequest \start "Sostenuto"
-sostenutoUp = \spanrequest \stop "Sostenuto"
-
-%crescpoco = \property Voice.crescendoText = "cresc. poco a poco"
-%decresc = \property Voice.crescendoText = "decr."
-%dim = \property Voice.crescendoText = "dim."
+++ /dev/null
-%
-% common Swedish names for notes. "ess" means flat, "iss" means sharp
-%
-% by Mats Bengtsson.
-
-\pitchnames #`(
- (cessess . ,(make-pitch -1 0 -2 ))
- (cess . ,(make-pitch -1 0 -1 ))
- (c . ,(make-pitch -1 0 0 ))
- (ciss . ,(make-pitch -1 0 1 ))
- (cississ . ,(make-pitch -1 0 2 ))
- (dessess . ,(make-pitch -1 1 -2 ))
- (dess . ,(make-pitch -1 1 -1 ))
- (d . ,(make-pitch -1 1 0 ))
- (diss . ,(make-pitch -1 1 1 ))
- (dississ . ,(make-pitch -1 1 2 ))
- (essess . ,(make-pitch -1 2 -2 ))
- (ess . ,(make-pitch -1 2 -1 ))
- (e . ,(make-pitch -1 2 0 ))
- (eiss . ,(make-pitch -1 2 1 ))
- (eississ . ,(make-pitch -1 2 2 ))
- (fessess . ,(make-pitch -1 3 -2 ))
- (fess . ,(make-pitch -1 3 -1 ))
- (f . ,(make-pitch -1 3 0 ))
- (fiss . ,(make-pitch -1 3 1 ))
- (fississ . ,(make-pitch -1 3 2 ))
- (gessess . ,(make-pitch -1 4 -2 ))
- (gess . ,(make-pitch -1 4 -1 ))
- (g . ,(make-pitch -1 4 0 ))
- (giss . ,(make-pitch -1 4 1 ))
- (gississ . ,(make-pitch -1 4 2 ))
- (assess . ,(make-pitch -1 5 -2 ))
- (ass . ,(make-pitch -1 5 -1 ))
- (a . ,(make-pitch -1 5 0 ))
- (aiss . ,(make-pitch -1 5 1 ))
- (aississ . ,(make-pitch -1 5 2 ))
- (hessess . ,(make-pitch -1 6 -2 ))
- (b . ,(make-pitch -1 6 -1 ))
- (h . ,(make-pitch -1 6 0 ))
- (hiss . ,(make-pitch -1 6 1 ))
- (hississ . ,(make-pitch -1 6 2 ))
-)
-\version "1.3.146"