From: fred <fred>
Date: Tue, 26 Mar 2002 21:26:38 +0000 (+0000)
Subject: lilypond-1.0.12
X-Git-Tag: release/1.5.59~2866
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6819f66971b16d92311fec9c521add652eacdc40;p=lilypond.git

lilypond-1.0.12
---

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
 {