1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
/*
misc.cc -- implement various stuff
source file of the GNU LilyPond music typesetter
(c) 1997--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include "misc.hh"
/*
Return the 2-log, rounded down
*/
int
intlog2 (int d)
{
assert (d);
int i = 0;
while ((d != 1))
{
d /= 2;
i++;
}
assert (! (d / 2));
return i;
}
double
log_2 (double x)
{
return log (x) / log (2.0);
}
Real
directed_round (Real f, Direction d)
{
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<char> 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])));
}
string result (&out[0], out.size ());
replace_all (&result, '_', '-');
return result;
}
|
