chris@160: /**
chris@160:  * Copyright (c) 2014, 2015, Enzien Audio Ltd.
chris@160:  *
chris@160:  * Permission to use, copy, modify, and/or distribute this software for any
chris@160:  * purpose with or without fee is hereby granted, provided that the above
chris@160:  * copyright notice and this permission notice appear in all copies.
chris@160:  *
chris@160:  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH
chris@160:  * REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
chris@160:  * AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT,
chris@160:  * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
chris@160:  * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
chris@160:  * OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
chris@160:  * PERFORMANCE OF THIS SOFTWARE.
chris@160:  */
chris@160: 
chris@160: #include "ControlRandom.h"
chris@160: #include "HvBase.h"
chris@160: 
chris@160: // http://www.firstpr.com.au/dsp/rand31
chris@160: // http://en.wikipedia.org/wiki/Lehmer_random_number_generator
chris@160: 
chris@160: hv_size_t cRandom_init(ControlRandom *o, int seed) {
chris@160:   o->state = (seed != 0) ? seed : 1;
chris@160:   return 0;
chris@160: }
chris@160: 
chris@160: void cRandom_onMessage(HvBase *_c, ControlRandom *o, int inletIndex, const HvMessage *m,
chris@160:     void (*sendMessage)(HvBase *, int, const HvMessage *)) {
chris@160:   switch (inletIndex) {
chris@160:     case 0: {
chris@160:       HvMessage *n = HV_MESSAGE_ON_STACK(1);
chris@160:       o->state = (int) ((((unsigned long long) o->state) * 279470273UL) % 4294967291UL);
chris@160:       float f = ((float) (o->state >> 9)) * 0.00000011920929f;
chris@160:       msg_initWithFloat(n, msg_getTimestamp(m), f);
chris@160:       sendMessage(_c, 0, n);
chris@160:       break;
chris@160:     }
chris@160:     case 1: {
chris@160:       if (msg_isFloat(m,0)) {
chris@160:         o->state = (int) msg_getFloat(m,0);
chris@160:       }
chris@160:       break;
chris@160:     }
chris@160:     default: break;
chris@160:   }
chris@160: }