chris@160
|
1 /**
|
chris@160
|
2 * Copyright (c) 2014, 2015, Enzien Audio Ltd.
|
chris@160
|
3 *
|
chris@160
|
4 * Permission to use, copy, modify, and/or distribute this software for any
|
chris@160
|
5 * purpose with or without fee is hereby granted, provided that the above
|
chris@160
|
6 * copyright notice and this permission notice appear in all copies.
|
chris@160
|
7 *
|
chris@160
|
8 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH
|
chris@160
|
9 * REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
|
chris@160
|
10 * AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT,
|
chris@160
|
11 * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
|
chris@160
|
12 * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
|
chris@160
|
13 * OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
chris@160
|
14 * PERFORMANCE OF THIS SOFTWARE.
|
chris@160
|
15 */
|
chris@160
|
16
|
chris@160
|
17 #include "ControlRandom.h"
|
chris@160
|
18 #include "HvBase.h"
|
chris@160
|
19
|
chris@160
|
20 // http://www.firstpr.com.au/dsp/rand31
|
chris@160
|
21 // http://en.wikipedia.org/wiki/Lehmer_random_number_generator
|
chris@160
|
22
|
chris@160
|
23 hv_size_t cRandom_init(ControlRandom *o, int seed) {
|
chris@160
|
24 o->state = (seed != 0) ? seed : 1;
|
chris@160
|
25 return 0;
|
chris@160
|
26 }
|
chris@160
|
27
|
chris@160
|
28 void cRandom_onMessage(HvBase *_c, ControlRandom *o, int inletIndex, const HvMessage *m,
|
chris@160
|
29 void (*sendMessage)(HvBase *, int, const HvMessage *)) {
|
chris@160
|
30 switch (inletIndex) {
|
chris@160
|
31 case 0: {
|
chris@160
|
32 HvMessage *n = HV_MESSAGE_ON_STACK(1);
|
chris@160
|
33 o->state = (int) ((((unsigned long long) o->state) * 279470273UL) % 4294967291UL);
|
chris@160
|
34 float f = ((float) (o->state >> 9)) * 0.00000011920929f;
|
chris@160
|
35 msg_initWithFloat(n, msg_getTimestamp(m), f);
|
chris@160
|
36 sendMessage(_c, 0, n);
|
chris@160
|
37 break;
|
chris@160
|
38 }
|
chris@160
|
39 case 1: {
|
chris@160
|
40 if (msg_isFloat(m,0)) {
|
chris@160
|
41 o->state = (int) msg_getFloat(m,0);
|
chris@160
|
42 }
|
chris@160
|
43 break;
|
chris@160
|
44 }
|
chris@160
|
45 default: break;
|
chris@160
|
46 }
|
chris@160
|
47 }
|