From 6819f66971b16d92311fec9c521add652eacdc40 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 21:26:38 +0000
Subject: [PATCH] lilypond-1.0.12

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

diff --git a/lily/lookup.cc b/lily/lookup.cc
index 1624a42b46..b03cc59de9 100644
--- a/lily/lookup.cc
+++ b/lily/lookup.cc
@@ -260,7 +260,7 @@ Lookup::streepje (int type) const
   if (type > 2)
     type = 2;
 
-  return  afm_find ("balls" + String ("-") +to_str (type) + "l");
+  return  afm_find ("balls-" + to_str (type) + "l");
 }
 
 Atom
@@ -293,6 +293,16 @@ Lookup::time_signature (Array<Scalar> a) const
 }
 
 
+
+Atom
+Lookup::special_time_signature (String s) const
+{
+  Atom a (afm_find ("timesig-"+ s));
+  return a;
+}
+
+
+
 Atom
 Lookup::stem (Real y1,Real y2) const
 {
-- 
2.39.5