*** empty log message ***

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

diff --git a/ly/property-init.ly b/ly/property-init.ly
index d3a8767fca4f9317587e90f2b6f1c3d03fb7e810..0f4d2c1901854e3dc2406dfafc8e0bcb684fdf6c 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -1,6 +1,6 @@
 % property-init.ly
 
-\version "1.5.68"
+\version "1.9.1"
 
 stemUp = \property Voice.Stem \set #'direction = #1
 stemDown = \property Voice.Stem \set #'direction = #-1 
@@ -10,6 +10,11 @@ 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 
@@ -23,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
@@ -53,23 +62,14 @@ 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 Timing.timing = ##f
 cadenzaOff = {
   \property Timing.timing = ##t
-  \property Timing.measurePosition = #(make-moment 0 1)
+  \property Timing.measurePosition = #(ly:make-moment 0 1)
 }
 
 newpage = \notes
@@ -80,18 +80,12 @@ newpage = \notes
     #'between-system-string = #"\\newpage"
 }
 
-% dynamic dir?  text script, articulation script 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
+% 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)
 
        
 tiny  = 
@@ -100,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{
@@ -230,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
@@ -240,3 +228,37 @@ turnOff = #'()
 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
+}