]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/lookup.cc
release: 1.0.12
[lilypond.git] / lily / lookup.cc
index 1624a42b467f482c1a4b5940f5a2bc166d67fb33..b03cc59de93eb870e2001f9e2944a31e7a37b3c8 100644 (file)
@@ -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
 {