* lily/my-lily-lexer.cc (start_main_input): define input-file-name

[lilypond.git] / ly / property-init.ly

diff --git a/ly/property-init.ly b/ly/property-init.ly
index fcd29dda617e09db749991e4c80043ea25ba3763..5ab7062c3d1738160027fc93df20cfd1c5248873 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -1,6 +1,6 @@
 % property-init.ly
 
-\version "1.5.49"
+\version "1.9.1"
 
 stemUp = \property Voice.Stem \set #'direction = #1
 stemDown = \property Voice.Stem \set #'direction = #-1 
@@ -10,6 +10,15 @@ slurUp   = \property Voice.Slur \set #'direction = #1
 slurDown = \property Voice.Slur \set #'direction = #-1
 slurBoth = \property Voice.Slur \revert #'direction 
 
+% There's also dash, but setting dash period/length should be fixed.
+slurDotted = \property Voice.Slur \set #'dashed = #1
+slurSolid = \property Voice.Slur \revert #'dashed
+
+
+phrasingSlurUp   = \property Voice.PhrasingSlur \set #'direction = #1
+phrasingSlurDown = \property Voice.PhrasingSlur \set #'direction = #-1
+phrasingSlurBoth = \property Voice.PhrasingSlur \revert #'direction 
+
 shiftOn  = \property Voice.NoteColumn \set #'horizontal-shift = #1
 shiftOnn  = \property Voice.NoteColumn \set #'horizontal-shift = #2
 shiftOnnn  = \property Voice.NoteColumn \set #'horizontal-shift = #3
@@ -19,6 +28,10 @@ tieUp = \property Voice.Tie \set #'direction = #1
 tieDown = \property Voice.Tie \set #'direction = #-1
 tieBoth = \property Voice.Tie \revert #'direction 
 
+tieDotted = \property Voice.Tie \set #'dashed = #1
+tieSolid = \property Voice.Tie \revert #'dashed
+
+
 dynamicUp  = {
   \property Voice.DynamicText \set #'direction = #1
   \property Voice.DynamicLineSpanner \set #'direction = #1
@@ -49,45 +62,31 @@ dotsUp = \property Voice.Dots \set #'direction = #1
 dotsDown = \property Voice.Dots \set #'direction = #-1
 dotsBoth = \property Voice.Dots \revert #'direction 
 
-% why doubly?
-tupletUp  = {
-  \property Voice.TupletBracket \set #'direction = #1
-}
-tupletDown = {
-  \property Voice.TupletBracket \set #'direction = #-1
-}
-tupletBoth = {
-  \property Voice.TupletBracket \revert #'direction
-}
-
+tupletUp  =   \property Voice.TupletBracket \set #'direction = #1
+tupletDown =   \property Voice.TupletBracket \set #'direction = #-1
+tupletBoth =   \property Voice.TupletBracket \revert #'direction
 
-
-cadenzaOn = \property Score.timing = ##f
+cadenzaOn = \property Timing.timing = ##f
 cadenzaOff = {
-  \property Score.timing = ##t
-  \property Score.measurePosition = #(make-moment 0 1)
+  \property Timing.timing = ##t
+  \property Timing.measurePosition = #(ly:make-moment 0 1)
 }
 
-newpage = {
+newpage = \notes
+{
   \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?  
+% dynamic ly:dir?  text script, articulation script ly:dir?    
 oneVoice = #(context-spec-music (make-voice-props-revert) "Voice")
 voiceOne = #(context-spec-music (make-voice-props-set 0) "Voice")
 voiceTwo = #(context-spec-music (make-voice-props-set 1) "Voice")
 voiceThree =#(context-spec-music (make-voice-props-set 2) "Voice")
 voiceFour = #(context-spec-music (make-voice-props-set 3) "Voice")
 
-% There's also dash, but setting dash period/length should be fixed.
-slurDotted = \property Voice.Slur \set #'dashed = #1
-slurSolid = \property Voice.Slur \revert #'dashed
-tieDotted = \property Voice.Tie \set #'dashed = #1
-tieSolid = \property Voice.Tie \revert #'dashed
-
        
 tiny  = 
        \property Voice.fontSize= #-2
@@ -95,18 +94,10 @@ tiny  =
 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{
@@ -225,6 +216,8 @@ forgetAccidentals = {
 % To remove a Volta bracket or some other graphical object,
 % set it to turnOff. Example: \property Staff.VoltaBracket = \turnOff
 
+%%
+%% DO NOT USE THIS. IT CAN LEAD TO CRASHES.
 turnOff = #'()
 
 % For drawing vertical chord brackets with \arpeggio
@@ -233,3 +226,39 @@ turnOff = #'()
 % cross-staff brackets are desired. 
 
 arpeggioBracket = #(lambda (grob) (Arpeggio::brew_chord_bracket grob))
+arpeggio = #(make-music-by-name 'ArpeggioEvent)
+glissando = #(make-music-by-name 'GlissandoEvent)
+
+fermataMarkup = \markup { \musicglyph #"scripts-ufermata" } 
+
+setMmRestFermata =
+  \once \property Voice.MultiMeasureRestNumber \override #'text =
+    #fermataMarkup 
+
+
+hideNotes =\sequential {
+                               % hide notes, accidentals, etc.
+    \property Voice.Dots \override #'transparent = ##t
+    \property Voice.NoteHead \override #'transparent = ##t
+    \property Voice.Stem \override #'transparent = ##t
+    \property Voice.Beam \override #'transparent = ##t
+    \property Staff.Accidental \override #'transparent = ##t
+}
+
+
+unHideNotes =  \sequential {
+  \property Staff.Accidental \revert #'transparent
+  \property Voice.Beam \revert #'transparent
+  \property Voice.Stem \revert #'transparent
+  \property Voice.NoteHead \revert #'transparent
+  \property Voice.Dots \revert #'transparent 
+}
+
+germanChords = {
+    \property ChordNames. chordRootNamer = #(chord-name->german-markup #t)
+    \property ChordNames. chordNoteNamer = #note-name->german-markup
+}
+semiGermanChords = {
+    \property ChordNames. chordRootNamer = #(chord-name->german-markup #f)
+    \property ChordNames. chordNoteNamer = #note-name->german-markup
+}