2 offset.cc -- implement Offset
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
15 Offset::to_string () const
18 s = String (" (") + ::to_string (coordinate_a_[X_AXIS]) + ", "
19 + ::to_string (coordinate_a_[Y_AXIS]) + ")";
28 return (fabs (r) > 1e20);
32 free bsd fix by John Galbraith
36 complex_multiply (Offset z1, Offset z2)
39 if (!isinf_b (z2[Y_AXIS]))
41 z[X_AXIS] = z1[X_AXIS] * z2[X_AXIS] - z1[Y_AXIS]*z2[Y_AXIS];
42 z[Y_AXIS] = z1[X_AXIS] * z2[Y_AXIS] + z1[Y_AXIS] * z2[X_AXIS];
49 complex_conjugate (Offset o)
51 o[Y_AXIS] = - o[Y_AXIS];
56 complex_divide (Offset z1, Offset z2)
58 z2 = complex_conjugate (z2);
59 Offset z = complex_multiply (z1, z2);
67 complex_exp (Offset o)
69 Real s = sin (o[Y_AXIS]);
70 Real c = cos (o[Y_AXIS]);
72 Real r = exp (o[X_AXIS]);
74 return Offset (r*c, r*s);
80 return atan2 (coordinate_a_[Y_AXIS], coordinate_a_[X_AXIS]);
84 euclidian vector length / complex modulus
87 Offset::length () const
89 return sqrt (sqr (coordinate_a_[X_AXIS]) + sqr (coordinate_a_[Y_AXIS]));