// This file is a part of the Framsticks GDK.
// Copyright (C) 2002-2014  Maciej Komosinski and Szymon Ulatowski.  See LICENSE.txt for details.
// Refer to http://www.framsticks.com/ for further information.

#include "rndutil.h"
#include <common/nonstd_math.h>
#include <stdlib.h>

unsigned short pseudornd(short x)
{
static long seed=0;
long y;
if (x<=0) {seed=-x; return 0;}
seed=(y=(3677*seed+3680)&0x7fffffff)-1;
return (unsigned short)(((unsigned short)y)%(x));//rzutowanie y->unsigned short to pewnie blad bo zmniejsza wartosc ktorej sie potem robi modulo, ale pseudornd sluzy chyba tylko do generowania randomowych world map? i modulo i tak jest tam bardzo male, lepiej niczego nie zmieniac bo po co maja pliki z ustawieniami zmienic swoje przypadkowe znaczenie
}

double CustomRnd(double *tab)
{
double *range=tab+1+2*randomN((int)(0.5+tab[0]));
return range[0]+rnd0N(range[1]-range[0]);
}

double RandomGener::Uni(double begin, double end)
{
return begin+rnd01*(end-begin);
}

double RandomGener::GaussStd()
{
if (isNextGauss) {isNextGauss=0; return nextGauss;}
double v1,v2,s;
do {
v1=2*rnd01-1; //-1..1
v2=2*rnd01-1; //-1..1
s=v1*v1+v2*v2;
} while (s>=1);
double mult=sqrt(-2*log(s)/s);
nextGauss=v2*mult;
isNextGauss=1;
return v1*mult;
}

double RandomGener::Gauss(double m,double s)
{return m+s*GaussStd();}

RandomGener RndGen;