From 9caf860a0d0de0867a0db36407b3c7beb3a79953 Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Thu, 23 May 2002 22:14:49 +0000
Subject: [PATCH] *** empty log message ***

---
 ChangeLog                        |  5 ++++
 input/bugs/grace-fold-spacing.ly | 19 +++++++++++++
 input/bugs/tremolo.ly            | 12 --------
 ly/property-init.ly              | 47 +++++++++++++++-----------------
 4 files changed, 46 insertions(+), 37 deletions(-)
 create mode 100644 input/bugs/grace-fold-spacing.ly
 delete mode 100644 input/bugs/tremolo.ly

diff --git a/ChangeLog b/ChangeLog
index 03e5f94918..25534d9db8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-24  Han-Wen  <hanwen@cs.uu.nl>
+
+	* lily/stem-tremolo.cc (brew_molecule): clean up and fix stem
+	tremolo placement.
+
 2002-05-22  Han-Wen  <hanwen@cs.uu.nl>
 
 	* VERSION: 1.5.58
diff --git a/input/bugs/grace-fold-spacing.ly b/input/bugs/grace-fold-spacing.ly
new file mode 100644
index 0000000000..d45074f1ad
--- /dev/null
+++ b/input/bugs/grace-fold-spacing.ly
@@ -0,0 +1,19 @@
+\score{<
+  \notes \relative c'' \context Staff=violin{
+    \time 3/4
+    b4. b8 a g |
+    \grace a g8.^\trill fis32 g fis4 a8. a16 |
+  }
+  \notes \relative c'' \context Staff=violoncello{
+    \time 3/4
+    \clef tenor
+
+    g8 d^\trill [g d c b] |
+    \clef bass b8.^\trill a32 b a4 r |
+  }
+>
+\paper{
+  linewidth=-1
+}
+}
+
diff --git a/input/bugs/tremolo.ly b/input/bugs/tremolo.ly
deleted file mode 100644
index 0b9b70755b..0000000000
--- a/input/bugs/tremolo.ly
+++ /dev/null
@@ -1,12 +0,0 @@
-
-
-%{
-
-Hi,
-
-In the following example, the tremolo beams are too 
-close to the long beam.
-
-%}
-
-\score{\notes\relative c'{ c8:32 d:32 e:32 f:32 }}
diff --git a/ly/property-init.ly b/ly/property-init.ly
index ae9359906c..ba3c230fad 100644
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -6,25 +6,26 @@ 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
+slurUp   = \property Voice.Slur \set #'direction = #1
+slurDown = \property Voice.Slur \set #'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
+
+shiftOn  = \property Voice.NoteColumn \set #'horizontal-shift = #1
+shiftOnn  = \property Voice.NoteColumn \set #'horizontal-shift = #2
+shiftOnnn  = \property Voice.NoteColumn \set #'horizontal-shift = #3
 shiftOff  = \property Voice.NoteColumn \revert #'horizontal-shift 
 
-tieUp = \property Voice.Tie \override #'direction = #1
-tieDown = \property Voice.Tie \override #'direction = #-1
+tieUp = \property Voice.Tie \set #'direction = #1
+tieDown = \property Voice.Tie \set #'direction = #-1
 tieBoth = \property Voice.Tie \revert #'direction 
 
 dynamicUp  = {
-  \property Voice.DynamicText \override #'direction = #1
-  \property Voice.DynamicLineSpanner \override #'direction = #1
+  \property Voice.DynamicText \set #'direction = #1
+  \property Voice.DynamicLineSpanner \set #'direction = #1
 }
 dynamicDown = {
-  \property Voice.DynamicText \override #'direction = #-1
-  \property Voice.DynamicLineSpanner \override #'direction = #-1
+  \property Voice.DynamicText \set #'direction = #-1
+  \property Voice.DynamicLineSpanner \set #'direction = #-1
 }
 dynamicBoth = {
   \property Voice.DynamicText \revert #'direction
@@ -32,34 +33,31 @@ dynamicBoth = {
 }
 
 scriptUp  = {
-  \property Voice.TextScript \override #'direction = #1
-  \property Voice.Script \override #'direction = #1
+  \property Voice.TextScript \set #'direction = #1
+  \property Voice.Script \set #'direction = #1
 }
 scriptDown = {
-  \property Voice.TextScript \override #'direction = #-1
-  \property Voice.Script \override #'direction = #-1
+  \property Voice.TextScript \set #'direction = #-1
+  \property Voice.Script \set #'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
+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 \override #'direction = #1
-  \property Voice.TupletBracket \override #'direction = #1
+  \property Voice.TupletBracket \set #'direction = #1
 }
 tupletDown = {
-  \property Voice.TupletBracket \override #'direction = #-1
-  \property Voice.TupletBracket \override #'direction = #-1
+  \property Voice.TupletBracket \set #'direction = #-1
 }
 tupletBoth = {
   \property Voice.TupletBracket \revert #'direction
-  \property Voice.TupletBracket \revert #'direction
 }
 
 
@@ -85,16 +83,15 @@ 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 \override #'dashed = #1
+slurDotted = \property Voice.Slur \set #'dashed = #1
 slurSolid = \property Voice.Slur \revert #'dashed
-tieDotted = \property Voice.Tie \override #'dashed = #1
+tieDotted = \property Voice.Tie \set #'dashed = #1
 tieSolid = \property Voice.Tie \revert #'dashed
 
 	
 tiny  = 
 	\property Voice.fontSize= -2
 
-
 small  = 
 	\property Voice.fontSize= -1
 
-- 
2.39.5