X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmisc.cc;h=6cafa2b50b3669fac258e5d2b1d3e51cdb737db1;hb=b872748c6aa8bb721ced458691b38ac2fac5dfc8;hp=aa49a697a6e990bac32fc78e76cd3ace09dd66ef;hpb=9e69cb84d6ee5b0a861cd97869b10e3bdf0c833c;p=lilypond.git diff --git a/lily/misc.cc b/lily/misc.cc index aa49a697a6..6cafa2b50b 100644 --- a/lily/misc.cc +++ b/lily/misc.cc @@ -1,32 +1,26 @@ /* - misc.cc -- implement various stuff + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter - - (c) 1997--2006 Han-Wen Nienhuys + Copyright (C) 1997--2015 Han-Wen Nienhuys Jan Nieuwenhuizen -*/ + 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. -#include "misc.hh" + 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. -/* - Return the 2-log, rounded down + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . */ -int -intlog2 (int d) -{ - assert (d); - int i = 0; - while ((d != 1)) - { - d /= 2; - i++; - } - assert (! (d / 2)); - return i; -} +#include "misc.hh" +#include "offset.hh" +#include "warn.hh" double log_2 (double x) @@ -43,38 +37,43 @@ directed_round (Real f, Direction d) return ceil (f); } - - /* 0 at threshold, 1 at 0, with 1/x falloff. */ Real -peak_around (Real epsilon, Real threshold, Real x) +peak_around (Real epsilon, Real threshold, Real x) { if (x < 0) return 1.0; - return max (- epsilon * (x - threshold) / ((x + epsilon) * threshold), 0.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) +camel_case_to_lisp_identifier (const string &in) { vector out; - + /* don't add '-' before first character */ - out.push_back (tolower (in[0])); - + 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 (tolower (in[inpos])); + out.push_back ('-'); + out.push_back ( char (tolower (in[inpos]))); } - + string result (&out[0], out.size ()); - replace_all (result, '_', '-'); + replace_all (&result, '_', '-'); return result; } -