* tex/lily-ps-defs.tex: remove lilypondblotdiam def.
* lily/book-paper-def.cc (Book_paper_def): add copy ctor.
2004-05-18 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * scm/stencil.scm (fontify-text): reinstate function
+
+ * tex/lily-ps-defs.tex: remove lilypondblotdiam def.
+
* lily/book-paper-def.cc (Book_paper_def): add copy ctor.
* lily/parser.yy (book_paper_head): \bookpaper {}
SCM_ASSERT_TYPE (b, bp, SCM_ARG1, __FUNCTION__, "bookpaper");
return scm_make_real (b->output_scale_);
}
+
+
+SCM
+Book_paper_def::lookup_variable (SCM sym) const
+{
+ SCM var = ly_module_lookup (scope_, sym);
+
+ return scm_variable_ref (var);
+}
+
+SCM
+Book_paper_def::c_variable (String s) const
+{
+ return lookup_variable (ly_symbol2scm (s.to_str0 ()));
+}
Real output_scale_;
Book_paper_def ();
+ SCM c_variable (String id) const;
+ SCM lookup_variable (SCM sym) const;
Font_metric *find_scaled_font (Font_metric *f, Real m, SCM input_enc_name);
Paper_def *scale_paper (Paper_def *pd) const;
(set! stil (ly:stencil-combine-at-edge stil Y -1 x-rule 0.0))
stil))
+
+(define-public (fontify-text font-metric text)
+ "Set TEXT with font FONT-METRIC, returning a stencil."
+ (let* ((b (ly:text-dimension font-metric text)))
+ (ly:make-stencil
+ `(text ,font-metric ,text) (car b) (cdr b))))
+
\string"
lyscale\lilypondpaperoutputscale\lilypondspace ##1}
}
-
- \lilypondifundefined{lilypondpaperblotdiameterps}
- {\lilypondsetdimen{lilypondpaperblotdiameter}}
- {}
}
\gdef\lilypondexperimentalfeatures{}