]> git.donarmstrong.com Git - lilypond.git/blob - lily/ps-plet.cc
release: 1.0.1
[lilypond.git] / lily / ps-plet.cc
1 /*
2   ps-plet.cc -- implement Lookup::*plet
3
4   source file of the GNU LilyPond music typesetter
5
6   (c)  1997--1998 Jan Nieuwenhuizen <janneke@gnu.org>
7 */
8
9 #include <math.h>
10 #include "main.hh"
11 #include "misc.hh"
12 #include "lookup.hh"
13 #include "molecule.hh"
14 #include "dimension.hh"
15 #include "debug.hh"
16 #include "paper-def.hh"
17 #include "string-convert.hh"
18
19 Atom
20 Lookup::plet (Real dy , Real dx, Direction dir) const
21 {
22   String ps = "\\embeddedps{\n";
23   
24   ps += String_convert::double_str (dx) + " " 
25     + String_convert::double_str (dy) + " "
26     + String_convert::int_str ((int)dir) +
27     " draw_plet}";
28
29   Atom s;
30   s.tex_ = ps;
31   return s;
32 }