- 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));