From dfc1df44607288ff29a166b77559ec2014807db8 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Sun, 24 Mar 2002 19:58:38 +0000
Subject: [PATCH] lilypond-0.1.17

---
 lily/lookup.cc | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lily/lookup.cc b/lily/lookup.cc
index a706a36bd8..f67efd08bb 100644
--- a/lily/lookup.cc
+++ b/lily/lookup.cc
@@ -150,7 +150,7 @@ Lookup::flag (int j, Direction d) const
 }
 
 Atom
-Lookup::streepjes (int i) const
+Lookup::streepjes (int type, int i) const
 {
   assert (i);
   
@@ -167,9 +167,14 @@ Lookup::streepjes (int i) const
       arg = i;
       idx = "toplines";
     }
+
+  // ugh
+  Real w = ball (type).dim_[X_AXIS].length ();
+
   Atom ret = (*symtables_)("streepjes")->lookup (idx);
   
   Array<String> a;
+  a.push (String (w) + "pt");
   a.push (arg);
   ret.tex_ = substitute_args (ret.tex_, a);
 
-- 
2.39.5