/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1997--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 1997--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
Jan Nieuwenhuizen <janneke@gnu.org>
LilyPond is free software: you can redistribute it and/or modify
along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
*/
+#include <complex>
+
#include "misc.hh"
+#include "offset.hh"
#include "warn.hh"
/*
}
string
-camel_case_to_lisp_identifier (string in)
+camel_case_to_lisp_identifier (const string &in)
{
vector<char> out;
return result;
}
-vsize
-utf8_char_len (char current)
+Offset
+get_point_in_y_direction (Offset orig, Real slope, Real dist, Direction dir)
{
- vsize char_len = 1;
-
- // U+10000 - U+10FFFF
- if ((current & 0xF0) == 0xF0)
- char_len = 4;
- // U+0800 - U+FFFF
- else if ((current & 0xE0) == 0xE0)
- char_len = 3;
- // U+0080 - U+07FF
- else if ((current & 0xC0) == 0xC0)
- char_len = 2;
- else if (current & 0x80)
- programming_error ("invalid UTF-8 string");
-
- return char_len;
+ if (slope == infinity_f)
+ return orig + Offset (dir * dist, 0.0);
+
+ Real x = slope == 0.0 ? 1.0 * dir : 1.0 * sign (slope) * dir;
+ Real y = slope * x;
+ Real angle = atan2 (y, x);
+
+ complex<Real> orig_c (orig[X_AXIS], orig[Y_AXIS]);
+ complex<Real> to_move = polar (dist, angle);
+ complex<Real> res = orig_c + to_move;
+
+ return Offset (real (res), imag (res));
}