2 molecule.cc -- implement Molecule
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include <libc-extension.hh>
12 #include "font-metric.hh"
13 #include "dimensions.hh"
14 #include "interval.hh"
16 #include "molecule.hh"
18 #include "killing-cons.tcc"
20 #include "ly-smobs.icc"
24 Molecule::smobbed_copy () const
26 Molecule
* m
= new Molecule (*this);
28 return m
->smobbed_self ();
32 Molecule::extent (Axis a
) const
37 Molecule::Molecule (Box b
, SCM func
)
50 Molecule::translate (Offset o
)
55 if (abs (o
[a
]) > 30 CM
56 || isinf (o
[a
]) || isnan (o
[a
]))
58 programming_error ("Improbable offset for translation: setting to zero");
64 expr_
= gh_list (ly_symbol2scm ("translate-molecule"),
66 expr_
, SCM_UNDEFINED
);
73 Molecule::translate_axis (Real x
,Axis a
)
83 Molecule::add_molecule (Molecule
const &m
)
85 expr_
= gh_list (ly_symbol2scm ("combine-molecule"),
87 expr_
, SCM_UNDEFINED
);
92 Molecule::set_empty (bool e
)
96 dim_
[X_AXIS
].set_empty ();
97 dim_
[Y_AXIS
].set_empty ();
101 dim_
[X_AXIS
] = Interval (0,0);
102 dim_
[Y_AXIS
] = Interval (0,0);
108 Molecule::align_to (Axis a
, Direction d
)
110 Interval
i (extent (a
));
111 Real r
= (d
== CENTER
) ? i
.center () : i
[d
];
112 translate_axis (-r
, a
);
116 Molecule::add_at_edge (Axis a
, Direction d
, Molecule
const &m
, Real padding
)
118 Real my_extent
= empty_b () ? 0.0 : dim_
[a
][d
];
119 Interval
i (m
.extent (a
));
123 programming_error ("Molecule::add_at_edge: adding empty molecule.");
129 Real offset
= my_extent
- his_extent
;
131 toadd
.translate_axis (offset
+ d
* padding
, a
);
132 add_molecule (toadd
);
139 number_pair_p (SCM p
)
141 return gh_pair_p (p
) && gh_number_p (gh_car (p
)) && gh_number_p (gh_cdr (p
));
147 return gh_number_p (a
) && (gh_scm2int (a
) == 0 || gh_scm2int (a
) == 1);
151 Molecule::ly_set_molecule_extent_x (SCM mol
, SCM axis
, SCM np
)
153 Molecule
* m
= unsmob_molecule (mol
);
154 if (m
&& axis_p (axis
) && number_pair_p (np
))
156 Interval iv
= ly_scm2interval (np
);
157 m
->dim_
[Axis (gh_scm2int (axis
))] = ly_scm2interval (np
);
160 warning ("ly-set-molecule-extent!: invalid arguments");
161 return SCM_UNDEFINED
;
165 Molecule::ly_get_molecule_extent (SCM mol
, SCM axis
)
167 Molecule
*m
= unsmob_molecule (mol
);
169 if (!m
|| !axis_p (axis
))
171 warning ("ly-get-molecule-extent: invalid arguments");
172 return ly_interval2scm (Interval (0,0));
175 return ly_interval2scm (m
->extent (Axis (gh_scm2int (axis
))));
180 Molecule::ly_molecule_combined_at_edge (SCM first
, SCM axis
, SCM direction
,
181 SCM second
, SCM padding
)
184 Molecule
* m1
= unsmob_molecule (first
);
185 Molecule
* m2
= unsmob_molecule (second
);
188 if (!m1
|| !m2
|| !isdir_b (direction
) || !axis_p (axis
) || !gh_number_p (padding
))
190 warning ("ly-combine-molecule-at-edge: invalid arguments");
192 return r
.smobbed_copy ();
197 result
.add_at_edge (Axis (gh_scm2int (axis
)), Direction (gh_scm2int (direction
)),
198 *m2
, gh_scm2double (padding
));
200 return result
.smobbed_copy ();
205 make_molecule (SCM expr
, SCM xext
, SCM yext
)
210 Box
b (ly_scm2interval (xext
), ly_scm2interval(yext
));
211 Molecule
m (b
, expr
);
212 return m
.smobbed_copy ();
219 scm_make_gsubr ("ly-make-molecule", 3, 0, 0, (Scheme_function_unknown
) make_molecule
);
220 scm_make_gsubr ("ly-combine-molecule-at-edge", 5 , 0, 0, (Scheme_function_unknown
) Molecule::ly_molecule_combined_at_edge
);
221 scm_make_gsubr ("ly-set-molecule-extent!", 3 , 0, 0, (Scheme_function_unknown
) Molecule::ly_set_molecule_extent_x
);
222 scm_make_gsubr ("ly-get-molecule-extent", 2 , 0, 0, (Scheme_function_unknown
) Molecule::ly_get_molecule_extent
);
224 ADD_SCM_INIT_FUNC (molecule
,molecule_init
);
228 Molecule::empty_b () const
230 return expr_
== SCM_EOL
;
234 fontify_atom (Font_metric
* met
, SCM f
)
239 return gh_list (ly_symbol2scm ("fontify"),
240 ly_quote_scm (met
->description_
), f
, SCM_UNDEFINED
);
244 Molecule::get_expr () const
252 Molecule::extent_box () const
256 IMPLEMENT_SIMPLE_SMOBS (Molecule
);
260 Molecule::print_smob (SCM s
, SCM port
, scm_print_state
*)
262 Molecule
*r
= (Molecule
*) gh_cdr (s
);
264 scm_puts ("#<Molecule ", port
);
265 /* String str (r->str ());
266 scm_puts ((char *)str.ch_C (), port);*/
267 scm_puts (" >", port
);
274 Molecule::mark_smob (SCM s
)
276 Molecule
*r
= (Molecule
*) gh_cdr (s
);
281 IMPLEMENT_TYPE_P (Molecule
, "molecule?");
282 IMPLEMENT_DEFAULT_EQUAL_P (Molecule
);
283 IMPLEMENT_UNSMOB (Molecule
, molecule
);