From aa8c2aab9e041033808d453635f804bc8e4e2d32 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Wed, 27 Mar 2002 02:02:43 +0000
Subject: [PATCH] lilypond-1.5.9

---
 ly/a4-init.ly                     |   5 +
 ly/accordion-defs-init.ly         |  56 +++++++++++
 ly/book-init-init.ly              |  14 +++
 ly/center-init.ly                 |  15 +++
 ly/chord-modifiers-init.ly        |  17 ++++
 ly/declarations-init.ly           |  56 +++++++++++
 ly/drumpitch-init.ly              | 160 ++++++++++++++++++++++++++++++
 ly/dynamic-scripts-init.ly        |  27 +++++
 ly/generate-documentation.ly      |   6 ++
 ly/generate-interface-doc-init.ly |   5 +
 ly/generic-paper-init.ly          |   8 ++
 ly/german-chords-init.ly          |  41 ++++++++
 ly/init.ly                        |   8 ++
 ly/ledger-init.ly                 |   8 ++
 ly/legal-init.ly                  |   5 +
 ly/letter-init.ly                 |   7 ++
 ly/midi-init.ly                   |   7 ++
 ly/paper-as5-init.ly              |  17 ++++
 ly/paper-as9-init.ly              |  16 +++
 ly/paper-init.ly                  |  15 +++
 ly/paper11-init.ly                |  12 +++
 ly/paper16-init.ly                |  12 +++
 ly/paper20-init.ly                |  13 +++
 ly/paper23-init.ly                |  12 +++
 ly/paper26-init.ly                |  12 +++
 ly/params-as-init.ly              |  30 ++++++
 ly/part-paper-init.ly             |  10 ++
 ly/scale-definitions-init.ly      | 100 +++++++++++++++++++
 ly/script-init.ly                 |  47 +++++++++
 ly/spanners-init.ly               |  53 ++++++++++
 30 files changed, 794 insertions(+)
 create mode 100644 ly/a4-init.ly
 create mode 100644 ly/accordion-defs-init.ly
 create mode 100644 ly/book-init-init.ly
 create mode 100644 ly/center-init.ly
 create mode 100644 ly/chord-modifiers-init.ly
 create mode 100644 ly/declarations-init.ly
 create mode 100644 ly/drumpitch-init.ly
 create mode 100644 ly/dynamic-scripts-init.ly
 create mode 100644 ly/generate-documentation.ly
 create mode 100644 ly/generate-interface-doc-init.ly
 create mode 100644 ly/generic-paper-init.ly
 create mode 100644 ly/german-chords-init.ly
 create mode 100644 ly/init.ly
 create mode 100644 ly/ledger-init.ly
 create mode 100644 ly/legal-init.ly
 create mode 100644 ly/letter-init.ly
 create mode 100644 ly/midi-init.ly
 create mode 100644 ly/paper-as5-init.ly
 create mode 100644 ly/paper-as9-init.ly
 create mode 100644 ly/paper-init.ly
 create mode 100644 ly/paper11-init.ly
 create mode 100644 ly/paper16-init.ly
 create mode 100644 ly/paper20-init.ly
 create mode 100644 ly/paper23-init.ly
 create mode 100644 ly/paper26-init.ly
 create mode 100644 ly/params-as-init.ly
 create mode 100644 ly/part-paper-init.ly
 create mode 100644 ly/scale-definitions-init.ly
 create mode 100644 ly/script-init.ly
 create mode 100644 ly/spanners-init.ly

diff --git a/ly/a4-init.ly b/ly/a4-init.ly
new file mode 100644
index 0000000000..8c729c5f5b
--- /dev/null
+++ b/ly/a4-init.ly
@@ -0,0 +1,5 @@
+\version "1.3.146"
+% a4.ly
+
+hsize = 210.0 \mm
+vsize = 296.9 \mm
diff --git a/ly/accordion-defs-init.ly b/ly/accordion-defs-init.ly
new file mode 100644
index 0000000000..f363efc71d
--- /dev/null
+++ b/ly/accordion-defs-init.ly
@@ -0,0 +1,56 @@
+\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"
diff --git a/ly/book-init-init.ly b/ly/book-init-init.ly
new file mode 100644
index 0000000000..f12fc8683b
--- /dev/null
+++ b/ly/book-init-init.ly
@@ -0,0 +1,14 @@
+% Toplevel initialisation file. 
+	
+\version "1.3.146"
+
+
+\include "declarations-init.ly"
+\include "paper16-init.ly"
+
+ \paper{
+	\paperSixteen
+}
+
+
+\maininput
diff --git a/ly/center-init.ly b/ly/center-init.ly
new file mode 100644
index 0000000000..72ecace841
--- /dev/null
+++ b/ly/center-init.ly
@@ -0,0 +1,15 @@
+% Toplevel initialisation file. 
+	
+\version "1.3.146"
+
+
+\include "declarations-init.ly"
+\include "paper16-init.ly"
+
+ \paper { 
+  \paperSixteen
+%  linewidth = 7.\cm
+  linewidth = 11.\cm
+}
+
+\maininput
diff --git a/ly/chord-modifiers-init.ly b/ly/chord-modifiers-init.ly
new file mode 100644
index 0000000000..dd82fdb331
--- /dev/null
+++ b/ly/chord-modifiers-init.ly
@@ -0,0 +1,17 @@
+\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 ))
+)
+
diff --git a/ly/declarations-init.ly b/ly/declarations-init.ly
new file mode 100644
index 0000000000..c200465244
--- /dev/null
+++ b/ly/declarations-init.ly
@@ -0,0 +1,56 @@
+
+\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"
+
diff --git a/ly/drumpitch-init.ly b/ly/drumpitch-init.ly
new file mode 100644
index 0000000000..b55e8bb1f4
--- /dev/null
+++ b/ly/drumpitch-init.ly
@@ -0,0 +1,160 @@
+% 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"
diff --git a/ly/dynamic-scripts-init.ly b/ly/dynamic-scripts-init.ly
new file mode 100644
index 0000000000..0f2f3e6b24
--- /dev/null
+++ b/ly/dynamic-scripts-init.ly
@@ -0,0 +1,27 @@
+\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"
+
diff --git a/ly/generate-documentation.ly b/ly/generate-documentation.ly
new file mode 100644
index 0000000000..104d57efeb
--- /dev/null
+++ b/ly/generate-documentation.ly
@@ -0,0 +1,6 @@
+\version "1.3.146"
+
+%
+% Running LilyPond on this file generates the documentation
+%
+#(eval-string (ly-gulp-file "generate-documentation.scm"))
diff --git a/ly/generate-interface-doc-init.ly b/ly/generate-interface-doc-init.ly
new file mode 100644
index 0000000000..a50eeaf3d0
--- /dev/null
+++ b/ly/generate-interface-doc-init.ly
@@ -0,0 +1,5 @@
+
+%
+% Running LilyPond on this file generates the short interface doc
+%
+#(eval-string (ly-gulp-file "generate-interface-doc.scm"))
diff --git a/ly/generic-paper-init.ly b/ly/generic-paper-init.ly
new file mode 100644
index 0000000000..df96f2abcd
--- /dev/null
+++ b/ly/generic-paper-init.ly
@@ -0,0 +1,8 @@
+\version "1.3.146"
+
+\paper {
+	texsetting = ""
+	pssetting = ""
+	scmsetting = "(lilyponddefs.ps) findlibfile {exch pop //systemdict /run get exec} { /undefinedfilename signalerror } ifelse\n"% UGH. 
+
+}
diff --git a/ly/german-chords-init.ly b/ly/german-chords-init.ly
new file mode 100644
index 0000000000..cb741eba14
--- /dev/null
+++ b/ly/german-chords-init.ly
@@ -0,0 +1,41 @@
+\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)))
+	  )
+       )
+     )
+   )
+ )
diff --git a/ly/init.ly b/ly/init.ly
new file mode 100644
index 0000000000..0ddb2db3a9
--- /dev/null
+++ b/ly/init.ly
@@ -0,0 +1,8 @@
+% Toplevel initialisation file. 
+
+
+\version "1.3.146"
+
+\include "declarations-init.ly"
+
+\maininput
diff --git a/ly/ledger-init.ly b/ly/ledger-init.ly
new file mode 100644
index 0000000000..e1b774d343
--- /dev/null
+++ b/ly/ledger-init.ly
@@ -0,0 +1,8 @@
+\version "1.3.146"
+
+% ledger.ly
+
+hsize = 11.0 \in
+vsize = 17.0 \in
+
+
diff --git a/ly/legal-init.ly b/ly/legal-init.ly
new file mode 100644
index 0000000000..47f413c0d3
--- /dev/null
+++ b/ly/legal-init.ly
@@ -0,0 +1,5 @@
+\version "1.3.146"
+% legal-init.ly
+
+hsize = 8.5 \in
+vsize = 14.0 \in
diff --git a/ly/letter-init.ly b/ly/letter-init.ly
new file mode 100644
index 0000000000..1ae8c499db
--- /dev/null
+++ b/ly/letter-init.ly
@@ -0,0 +1,7 @@
+\version "1.3.146"
+% letter-init.ly
+
+hsize = 8.5 \in
+vsize = 11.0 \in
+
+
diff --git a/ly/midi-init.ly b/ly/midi-init.ly
new file mode 100644
index 0000000000..730d92a483
--- /dev/null
+++ b/ly/midi-init.ly
@@ -0,0 +1,7 @@
+\version "1.3.146"
+\midi {
+        \tempo 4=60
+	\include "performer-init.ly"
+%	unfold_all = "1"
+}
+
diff --git a/ly/paper-as5-init.ly b/ly/paper-as5-init.ly
new file mode 100644
index 0000000000..f7f58a3a3d
--- /dev/null
+++ b/ly/paper-as5-init.ly
@@ -0,0 +1,17 @@
+% 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 }
diff --git a/ly/paper-as9-init.ly b/ly/paper-as9-init.ly
new file mode 100644
index 0000000000..86866b0eff
--- /dev/null
+++ b/ly/paper-as9-init.ly
@@ -0,0 +1,16 @@
+% 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 }
diff --git a/ly/paper-init.ly b/ly/paper-init.ly
new file mode 100644
index 0000000000..f6ac488597
--- /dev/null
+++ b/ly/paper-init.ly
@@ -0,0 +1,15 @@
+\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
+
diff --git a/ly/paper11-init.ly b/ly/paper11-init.ly
new file mode 100644
index 0000000000..2cc39133f3
--- /dev/null
+++ b/ly/paper11-init.ly
@@ -0,0 +1,12 @@
+% paper11-init.ly
+
+\version "1.3.146"
+
+paperEleven = \paper {
+	staffheight = 11.0\pt
+	\stylesheet #(make-style-sheet 'paper11)
+
+	\include "params-init.ly"
+}
+
+\paper { \paperEleven }
diff --git a/ly/paper16-init.ly b/ly/paper16-init.ly
new file mode 100644
index 0000000000..c747eac11d
--- /dev/null
+++ b/ly/paper16-init.ly
@@ -0,0 +1,12 @@
+% paper16-init.ly
+
+\version "1.3.146"
+
+paperSixteen = \paper {
+	staffheight = 16.0\pt
+	\stylesheet #(make-style-sheet 'paper16)
+
+	\include "params-init.ly"
+}
+
+\paper {\paperSixteen }
diff --git a/ly/paper20-init.ly b/ly/paper20-init.ly
new file mode 100644
index 0000000000..13a67f0809
--- /dev/null
+++ b/ly/paper20-init.ly
@@ -0,0 +1,13 @@
+% paper20-init.ly
+
+
+\version "1.3.146"
+
+paperTwenty = \paper {
+	staffheight = 20.0\pt
+	\stylesheet #(make-style-sheet 'paper20)
+	
+	\include "params-init.ly"
+}
+
+\paper { \paperTwenty }
diff --git a/ly/paper23-init.ly b/ly/paper23-init.ly
new file mode 100644
index 0000000000..bbb55106e0
--- /dev/null
+++ b/ly/paper23-init.ly
@@ -0,0 +1,12 @@
+% paper23-init.ly
+
+
+\version "1.3.146"
+
+paperTwentythree = \paper {
+	staffheight = 23.0\pt
+	\stylesheet #(make-style-sheet 'paper23)
+	\include "params-init.ly"
+}
+
+\paper { \paperTwentythree }
diff --git a/ly/paper26-init.ly b/ly/paper26-init.ly
new file mode 100644
index 0000000000..e64eba6a54
--- /dev/null
+++ b/ly/paper26-init.ly
@@ -0,0 +1,12 @@
+% paper26-init.ly
+
+\version "1.3.146"
+
+paperTwentysix = \paper {
+	staffheight = 26.0\pt
+	\stylesheet #(make-style-sheet 'paper26)	
+
+	\include "params-init.ly"
+}
+
+\paper { \paperTwentysix }
diff --git a/ly/params-as-init.ly b/ly/params-as-init.ly
new file mode 100644
index 0000000000..b9928df8b1
--- /dev/null
+++ b/ly/params-as-init.ly
@@ -0,0 +1,30 @@
+\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 }
+
+
diff --git a/ly/part-paper-init.ly b/ly/part-paper-init.ly
new file mode 100644
index 0000000000..4e8fea418f
--- /dev/null
+++ b/ly/part-paper-init.ly
@@ -0,0 +1,10 @@
+\version "1.3.146"
+
+% JUNKME
+%part-paper-init.ly
+
+\paper {
+	\translator { \OrchestralPartStaffContext }
+	\translator { \ScoreContext skipBars = ##t }
+}
+
diff --git a/ly/scale-definitions-init.ly b/ly/scale-definitions-init.ly
new file mode 100644
index 0000000000..b3268ffef9
--- /dev/null
+++ b/ly/scale-definitions-init.ly
@@ -0,0 +1,100 @@
+\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)
+  )
+
diff --git a/ly/script-init.ly b/ly/script-init.ly
new file mode 100644
index 0000000000..b0fcedd3dc
--- /dev/null
+++ b/ly/script-init.ly
@@ -0,0 +1,47 @@
+\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"
diff --git a/ly/spanners-init.ly b/ly/spanners-init.ly
new file mode 100644
index 0000000000..3fdf1b7b31
--- /dev/null
+++ b/ly/spanners-init.ly
@@ -0,0 +1,53 @@
+\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."
-- 
2.39.5