X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmisc.cc;h=f90d641a6040fc3c047d67c9609dfb65860a19b3;hb=eba67a0bc70f38a7847de75c640d7ad19c6fd804;hp=946e27e4bb4025d8c88fc79da6c77e080cdb978f;hpb=1a66290a98e7de8d6d41485b5b71a9f7e1fe35c7;p=lilypond.git diff --git a/lily/misc.cc b/lily/misc.cc index 946e27e4bb..f90d641a60 100644 --- a/lily/misc.cc +++ b/lily/misc.cc @@ -1,45 +1,116 @@ /* - misc.cc -- implement various stuff + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 1997--2012 Han-Wen Nienhuys + Jan Nieuwenhuizen - (c) 1997 Han-Wen Nienhuys + LilyPond is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + LilyPond is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . */ -#include +#include -#include "item.hh" #include "misc.hh" -#include "moment.hh" +#include "offset.hh" +#include "warn.hh" +/* + Return the 2-log, rounded down +*/ int -intlog2(int d) { - int i=0; - while (!(d&1)) { - d/= 2; - i++; +intlog2 (int d) +{ + assert (d); + int i = 0; + while ((d != 1)) + { + d /= 2; + i++; } - assert (!(d/2)); - return i; + + assert (! (d / 2)); + return i; } double -log_2(double x) { - return log (x) /log (2.0); +log_2 (double x) +{ + return log (x) / log (2.0); } -#if 1 -Interval -itemlist_width (const Array &its) +Real +directed_round (Real f, Direction d) { - Interval iv ; - iv.set_empty(); - - for (int j =0; j < its.size(); j++){ - iv.unite (its[j]->width()); + if (d < 0) + return floor (f); + else + return ceil (f); +} + +/* + 0 at threshold, 1 at 0, with 1/x falloff. + */ +Real +peak_around (Real epsilon, Real threshold, Real x) +{ + if (x < 0) + return 1.0; + return max (- epsilon * (x - threshold) / ((x + epsilon) * threshold), 0.0); +} +/* + 0 at 0, 1 at standard_x, and increasing thereafter. + */ +Real +convex_amplifier (Real standard_x, Real increase_factor, Real x) +{ + return (exp (increase_factor * x / standard_x) - 1.0) / (exp (increase_factor) - 1.0); +} + +string +camel_case_to_lisp_identifier (string in) +{ + vector out; + + /* don't add '-' before first character */ + out.push_back (char (tolower (in[0]))); + + for (size_t inpos = 1; inpos < in.size (); inpos++) + { + if (isupper (in[inpos])) + out.push_back ('-'); + out.push_back ( char (tolower (in[inpos]))); } - return iv; + + string result (&out[0], out.size ()); + replace_all (&result, '_', '-'); + + return result; } -#endif +Offset +get_point_in_y_direction (Offset orig, Real slope, Real dist, Direction dir) +{ + 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 orig_c (orig[X_AXIS], orig[Y_AXIS]); + complex to_move = polar (dist, angle); + complex res = orig_c + to_move; + + return Offset (real (res), imag (res)); +} \ No newline at end of file