]> git.donarmstrong.com Git - lilypond.git/blob - lily/tex-lookup.cc
patch::: 1.0.12.jcn2: opniewvisite
[lilypond.git] / lily / tex-lookup.cc
1 /*
2   tex-lookup.cc -- implement Tex_lookup
3
4   source file of the GNU LilyPond music typesetter
5
6   (c)  1997--1998 Jan Nieuwenhuizen <janneke@gnu.org>
7   Jan Nieuwenhuizen <janneke@gnu.org>
8 */
9
10 #include "tex-lookup.hh"
11 #include "debug.hh"
12 #include "symtable.hh"
13 #include "dimension.hh"
14 #include "tex.hh"
15 #include "scalar.hh"
16 #include "paper-def.hh"
17 #include "string-convert.hh"
18 #include "main.hh"
19
20 Tex_lookup::Tex_lookup ()
21   : Ps_lookup ()
22 {
23 }
24
25 Tex_lookup::Tex_lookup (Lookup const& s)
26   : Ps_lookup (s)
27 {
28 }
29
30 Tex_lookup::Tex_lookup (Symtables const& s)
31   : Ps_lookup (s)
32 {
33 }
34
35 Tex_lookup::~Tex_lookup()
36 {
37 }
38
39 Atom
40 Tex_lookup::afm_find (String s) const
41 {
42   return Lookup::afm_find (s, String ("\\char%d"));
43 }
44
45 Atom
46 Tex_lookup::dashed_slur (Array<Offset> controls, Real thick, Real dash) const
47 {
48   return embed (Ps_lookup::dashed_slur (controls, thick, dash));
49 }
50
51 Atom
52 Tex_lookup::embed (Atom a) const
53 {
54   a.str_ = "\\embeddedps{\n" + a.str_ + "}";
55   return a;
56 }
57
58 Atom
59 Tex_lookup::hairpin (Real width, bool decresc, bool continued) const
60 {
61   return embed (Ps_lookup::hairpin (width, decresc, continued));
62 }
63
64 Atom
65 Tex_lookup::plet (Real dy , Real dx, Direction dir) const
66 {
67   return embed (Ps_lookup::plet (dy, dx, dir));
68 }
69
70 Atom
71 Tex_lookup::ps_beam (Real slope, Real width, Real thick) const
72 {
73   return embed (Ps_lookup::ps_beam (slope, width, thick));
74 }
75
76 Atom
77 Tex_lookup::slur (Array<Offset> controls) const
78 {
79   return embed (Ps_lookup::slur (controls));
80 }
81
82 Atom
83 Tex_lookup::stem (Real y1, Real y2) const
84 {
85   return Lookup::stem (y1, y2, "\\kern %\\vrule width % height % depth %");
86 }
87
88 Atom
89 Tex_lookup::vbracket (Real &y) const
90 {
91   return embed (Ps_lookup::vbracket (y));
92 }
93