2 line-interface.cc -- implement Line_interface
4 source file of the GNU LilyPond music typesetter
6 (c) 2004 Han-Wen Nienhuys <hanwen@xs4all.nl>
10 #include "line-interface.hh"
11 #include "molecule.hh"
13 #include "staff-symbol-referencer.hh"
15 #include "paper-def.hh"
19 Line_interface::make_dashed_line (Real thick, Offset from, Offset to,
20 Real dash_period, Real dash_fraction)
22 dash_fraction = (dash_fraction >? 0) <? 1.0;
23 Real on = dash_fraction * dash_period + thick;
24 Real off = dash_period - on;
26 SCM at = scm_list_n (ly_symbol2scm ("dashed-line"),
27 gh_double2scm (thick),
30 gh_double2scm (to[X_AXIS] - from[X_AXIS]),
31 gh_double2scm (to[Y_AXIS] - from[Y_AXIS]),
35 box.add_point (Offset (0,0));
36 box.add_point (to - from);
38 box[X_AXIS].widen (thick/2);
39 box[Y_AXIS].widen (thick/2);
41 Molecule m = Molecule (box, at);
47 Line_interface::make_line (Real th, Offset from, Offset to)
49 SCM at = scm_list_n (ly_symbol2scm ("draw-line"),
51 gh_double2scm (from[X_AXIS]),
52 gh_double2scm (from[Y_AXIS]),
53 gh_double2scm (to[X_AXIS]),
54 gh_double2scm (to[Y_AXIS]),
61 box[X_AXIS].widen (th/2);
62 box[Y_AXIS].widen (th/2);
64 return Molecule (box, at);
69 TODO: read THICK from ME
72 Line_interface::line (Grob *me, Offset from, Offset to)
74 Real thick = me->get_paper()->get_realvar (ly_symbol2scm ("linethickness"));
75 thick *= robust_scm2double (me->get_grob_property ("thickness"), 1.0); // todo: staff sym referencer?
77 SCM type = me->get_grob_property ("style");
78 if (type == ly_symbol2scm ("dotted-line")
79 || type == ly_symbol2scm ("dashed-line"))
82 robust_scm2double (me->get_grob_property ("dash-fraction"),
83 (type == ly_symbol2scm ("dotted-line")) ? 0.0 : 0.4);
85 fraction = (fraction >? 0) <? 1.0;
86 Real period = Staff_symbol_referencer::staff_space (me)
87 * robust_scm2double (me->get_grob_property ("dash-period"), 1.0);
92 return make_dashed_line (thick, from, to, period, fraction);
96 return make_line (thick, from, to);
100 ADD_INTERFACE(Line_interface, "line-interface",
101 "Generic line objects. Any object using lines supports this. ",
102 "dash-period dash-fraction thickness style")