]> git.donarmstrong.com Git - lilypond.git/blob - lily/g-text-item.cc
1854e96c5b3de513f80cdfe5af6ffb8a6a86a8c3
[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--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10 #include "g-text-item.hh"
11
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   Molecule a= paper_l ()->lookup_l(0)->text (style_str_,text_str_); 
20
21   return new Molecule (a);
22 }
23
24 G_text_item::G_text_item ()
25 {
26   style_str_ = "roman";
27 }