]> git.donarmstrong.com Git - lilypond.git/blob - lily/g-text-item.cc
release: 1.1.18
[lilypond.git] / lily / g-text-item.cc
1 /*   
2   g-text-item.cc -- implement G_text_item
3
4   source file of the GNU LilyPond music typesetter
5   
6   (c) 1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10 #include "g-text-item.hh"
11 #include "atom.hh"
12 #include "molecule.hh"
13 #include "paper-def.hh"
14 #include "lookup.hh"
15
16 Molecule*
17 G_text_item::do_brew_molecule_p () const
18 {
19   Atom a= paper ()->lookup_l(0)->text (style_str_,text_str_); 
20   return new Molecule (a);
21 }
22
23 G_text_item::G_text_item ()
24 {
25   style_str_ = "roman";
26 }