From 8b3f3d71d618c70836c7a18bd5a5a48a759fe4a8 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 22:48:12 +0000
Subject: [PATCH] lilypond-1.3.113

---
 input/test/follow-thread.ly     | 20 ++++++-----
 input/test/metronome.ly         | 32 ++++++++++++++++++
 lily/note-head-line-engraver.cc | 59 ++++++++++++++++++++++-----------
 mf/feta-banier.mf               | 15 +++++++++
 4 files changed, 99 insertions(+), 27 deletions(-)
 create mode 100644 input/test/metronome.ly

diff --git a/input/test/follow-thread.ly b/input/test/follow-thread.ly
index d0df4d3873..d22f1fcf9b 100644
--- a/input/test/follow-thread.ly
+++ b/input/test/follow-thread.ly
@@ -4,21 +4,25 @@
     \context PianoStaff <
         \context Staff=one \notes\relative c''{
 	    \context Thread
-            a
+%{	    
+            d,
 	    \translator Staff=two
-	    a,
+	    c
 
-% smaller = easier to debug.
-%{	a
+	    b
 	    \translator Staff=one
-	    a''
+	    a'
 %}
-		s2
+	    [c,8
+	    \translator Staff=two
+	    c]
+	    s2.
+
 	}
-	\context Staff=two { \clef bass; \skip 1; }
+	\context Staff=two { \clef bass; \skip 1*2; }
     >
     \paper{
-        linewidth = 70.\mm;
+        linewidth = 90.\mm;
 	\translator {
 	    \ScoreContext
 	    followThread = ##t
diff --git a/input/test/metronome.ly b/input/test/metronome.ly
new file mode 100644
index 0000000000..431799d719
--- /dev/null
+++ b/input/test/metronome.ly
@@ -0,0 +1,32 @@
+
+\version "1.3.110";
+
+% Test scm markup text and kerning
+
+% Warning
+%  
+% This is not a feature, it is a hack.  If you change anything,
+% it will probably break (that's because scm markup text is a
+% bit broken and needs fixing).  Chances are, it's already
+% broken by the time you read this.  Don't complain.
+%
+% FIXME: put in an item, and typeset by an engraver.
+
+#(define note '(rows (music "noteheads-2" ((kern . -0.1) "flags-stem"))))
+#(define eight-note `(rows ,note ((kern . -0.1) (music ((raise . 3.5) "flags-u3")))))
+#(define dotted-eight-note `(rows ,eight-note (music "dots-dot")))
+
+
+\score{
+	\notes\relative c''{
+		a1-#`(rows ,dotted-eight-note " = 64")
+		}
+	\paper{
+		linewidth = -1.\mm;
+		\translator{
+			\ScoreContext
+			TextScript \override #'font-shape = #'upright
+			TextScript \override #'direction = #1
+		}
+	}
+}
diff --git a/lily/note-head-line-engraver.cc b/lily/note-head-line-engraver.cc
index 57e62f5e6d..9ca614859b 100644
--- a/lily/note-head-line-engraver.cc
+++ b/lily/note-head-line-engraver.cc
@@ -11,6 +11,7 @@
 #include "item.hh"
 #include "musical-request.hh"
 #include "spanner.hh"
+#include "stem.hh"
 #include "rhythmic-head.hh"
 #include "side-position-interface.hh"
 #include "staff-symbol-referencer.hh"
@@ -38,6 +39,7 @@ private:
   Request* req_;
   Request* last_req_;
   Translator* last_staff_;
+  bool follow_;
   Grob* head_;
   Grob* last_head_;
 };
@@ -47,6 +49,7 @@ Note_head_line_engraver::Note_head_line_engraver ()
   line_ = 0;
   req_ = 0;
   last_req_ = 0;
+  follow_ = false;
   head_ = 0;
   last_head_ = 0;
   last_staff_ = 0;
@@ -80,36 +83,55 @@ Note_head_line_engraver::acknowledge_grob (Grob_info info)
 	  if (staff != last_staff_)
 	    {
 	      if (last_head_)
-		last_req_ = (Request*)1; // ugh
+		follow_ = true;
 	      last_staff_ = staff;
 	    }
 	}
     }
 }
 
+static Grob*
+beam_l (Grob *h)
+{
+  if (Grob *s = Rhythmic_head::stem_l (h))
+    return Stem::beam_l (s);
+  return 0;
+}
+
 void
 Note_head_line_engraver::create_grobs ()
 {
-  if (!line_ && last_req_ && last_head_ && head_)
+  if (!line_ && (follow_ || last_req_) && last_head_ && head_
+      && (last_head_ != head_))
     {
-      /* type Glissando? */
-      line_ = new Spanner (get_property ("NoteHeadLine"));
-      line_->set_bound (RIGHT, head_);
-      line_->set_bound (LEFT, last_head_);
-
-      line_->set_parent (head_, X_AXIS);
-      line_->set_parent (head_, Y_AXIS);
+      /* Don't follow if there's a beam.
 
-      line_->set_parent (last_head_, X_AXIS);
-      line_->set_parent (last_head_, Y_AXIS);
-
-      if ((int)last_req_ == 1) // ugh
-	last_req_ = 0;
+	 Hmm, this doesn't work, as head_ does not yet have a beam.
+	 Should probably store follow_ in line_, and suicide at some
+	 later point */
+      if (!(follow_
+	    && beam_l (last_head_) && beam_l (last_head_) == beam_l (head_)))
+	{
+	  if (follow_)
+	    line_ = new Spanner (get_property ("FollowThread"));
+	  else
+	    line_ = new Spanner (get_property ("Glissando"));
+	  
+	  line_->set_bound (LEFT, last_head_);
+	  line_->set_bound (RIGHT, head_);
+	  
+	  /* Note, mustn't set y-parent of breakable symbol to simple item:
+	     one of the two broken parts won't have an y-parent! */
+	  /* X parent is set by set_bound */
+	  line_->set_parent (Staff_symbol_referencer::staff_symbol_l (last_head_),
+			     Y_AXIS);
+	  
+	  announce_grob (line_, last_req_);
+	}
       
-      announce_grob (line_, last_req_);
       last_req_ = 0;
-      last_head_ = head_;
-      head_ = 0;
+      follow_ = false;
+      last_head_ = 0;
     }
 }
 
@@ -121,8 +143,7 @@ Note_head_line_engraver::stop_translation_timestep ()
       typeset_grob (line_);
       line_ = 0;
     }
-  if (req_)
-    last_req_ = req_;
+  last_req_ = req_;
   req_ = 0;
 }
 
diff --git a/mf/feta-banier.mf b/mf/feta-banier.mf
index 246f599bfe..8f68b5f5cf 100644
--- a/mf/feta-banier.mf
+++ b/mf/feta-banier.mf
@@ -432,4 +432,19 @@ fet_beginchar("grace dash (down)", "dgrace", "dgracedash")
 	y_mirror_char;
 fet_endchar;
 
+% ustem?
+fet_beginchar("stem (up)", "stem", "stem")
+	set_char_box(stemthickness#/2, 0, 3.5staff_space#, stemthickness#/2);
+	pickup pencircle scaled stemthickness;
+	draw (0, 0.2staff_space) .. (0, 3.5staff_space);
+fet_endchar;
+
+% do we want this?
+fet_beginchar("stem (down)", "dstem", "dstem")
+	set_char_box(stemthickness#/2, -3.5staff_space#, 0, stemthickness#/2);
+	pickup pencircle scaled stemthickness;
+	draw (0, -0.2staff_space) .. (-3.5staff_space, 0);
+fet_endchar;
+
+
 fet_endgroup("flags");
-- 
2.39.5