lily/text-item.cc

   1 /*
   2   text-item.cc -- implement Text_item
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1998--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "text-item.hh"
  11 #include "debug.hh"
  12 #include "molecule.hh"
  13 #include "paper-def.hh"
  14 #include "lookup.hh"
  15
  16 Molecule*
  17 Text_item::do_brew_molecule_p () const
  18 {
  19   SCM style = get_elt_property ("style");
  20   String st = (style == SCM_UNDEFINED) ? "" : ly_scm2string (style);
  21
  22   Molecule a= paper_l ()->lookup_l(0)->text (st, text_str_, paper_l ());
  23
  24   return new Molecule (a);
  25 }
  26
  27 void
  28 Text_item::do_print () const
  29 {
  30   DEBUG_OUT <<  "text= " << text_str_;
  31 }
  32