fixed 4 uses of un-inirialized vars + some compiler warnings.
[blender.git] / source / blender / blenlib / intern / rand.c
1 /*
2  * $Id$
3  *
4  * ***** BEGIN GPL LICENSE BLOCK *****
5  *
6  * This program is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU General Public License
8  * as published by the Free Software Foundation; either version 2
9  * of the License, or (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software Foundation,
18  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
19  *
20  * The Original Code is Copyright (C) 2001-2002 by NaN Holding BV.
21  * All rights reserved.
22  *
23  * The Original Code is: all of this file.
24  *
25  * Contributor(s): none yet.
26  *
27  * ***** END GPL LICENSE BLOCK *****
28  */
29
30 /** \file blender/blenlib/intern/rand.c
31  *  \ingroup bli
32  */
33
34
35 #include <stdlib.h>
36 #include <string.h>
37
38 #include "MEM_guardedalloc.h"
39
40 #include "PIL_time.h"
41
42 #include "BLI_threads.h"
43 #include "BLI_rand.h"
44
45 #if defined(WIN32) && !defined(FREE_WINDOWS)
46 typedef unsigned __int64        r_uint64;
47
48 #define MULTIPLIER      0x5DEECE66Di64 
49 #define MASK            0x0000FFFFFFFFFFFFi64
50 #else
51 typedef unsigned long long      r_uint64;
52
53 #define MULTIPLIER      0x5DEECE66Dll
54 #define MASK            0x0000FFFFFFFFFFFFll
55 #endif
56
57 #define ADDEND          0xB
58
59 #define LOWSEED         0x330E
60
61 /***/
62
63 struct RNG {
64         r_uint64 X;
65 };
66
67 RNG     *rng_new(unsigned int seed)
68 {
69         RNG *rng = MEM_mallocN(sizeof(*rng), "rng");
70
71         rng_seed(rng, seed);
72
73         return rng;
74 }
75
76 void rng_free(RNG* rng)
77 {
78         MEM_freeN(rng);
79 }
80
81 void rng_seed(RNG *rng, unsigned int seed) {
82         rng->X= (((r_uint64) seed)<<16) | LOWSEED;
83 }
84
85 void rng_srandom(RNG *rng, unsigned int seed) {
86         extern unsigned char hash[];    // noise.c
87         
88         rng_seed(rng, seed + hash[seed & 255]);
89         seed= rng_getInt(rng);
90         rng_seed(rng, seed + hash[seed & 255]);
91         seed= rng_getInt(rng);
92         rng_seed(rng, seed + hash[seed & 255]);
93 }
94
95 int rng_getInt(RNG *rng) {
96         rng->X= (MULTIPLIER*rng->X + ADDEND)&MASK;
97         return (int) (rng->X>>17);
98 }
99
100 double rng_getDouble(RNG *rng) {
101         return (double) rng_getInt(rng)/0x80000000;
102 }
103
104 float rng_getFloat(RNG *rng) {
105         return (float) rng_getInt(rng)/0x80000000;
106 }
107
108 void rng_shuffleArray(RNG *rng, void *data, int elemSize, int numElems)
109 {
110         int i = numElems;
111         void *temp = malloc(elemSize);
112
113         while (--i) {
114                 int j = rng_getInt(rng)%numElems;
115                 if(i!=j) {
116                         void *iElem = (unsigned char*)data + i*elemSize;
117                         void *jElem = (unsigned char*)data + j*elemSize;
118                         memcpy(temp, iElem, elemSize);
119                         memcpy(iElem, jElem, elemSize);
120                         memcpy(jElem, temp, elemSize);
121                 }
122         }
123
124         free(temp);
125 }
126
127 void rng_skip(RNG *rng, int n)
128 {
129         int i;
130
131         for(i=0; i<n; i++)
132                 rng_getInt(rng);
133 }
134
135 /***/
136
137 static RNG theBLI_rng = {0};
138
139 /* note, this one creates periodical patterns */
140 void BLI_srand(unsigned int seed) {
141         rng_seed(&theBLI_rng, seed);
142 }
143
144 /* using hash table to create better seed */
145 void BLI_srandom(unsigned int seed) {
146         rng_srandom(&theBLI_rng, seed);
147 }
148
149 int BLI_rand(void) {
150         return rng_getInt(&theBLI_rng);
151 }
152
153 double BLI_drand(void) {
154         return rng_getDouble(&theBLI_rng);
155 }
156
157 float BLI_frand(void) {
158         return rng_getFloat(&theBLI_rng);
159 }
160
161 void BLI_fillrand(void *addr, int len) {
162         RNG rng;
163         unsigned char *p= addr;
164
165         rng_seed(&rng, (unsigned int) (PIL_check_seconds_timer()*0x7FFFFFFF));
166         while (len--) *p++= rng_getInt(&rng)&0xFF;
167 }
168
169 void BLI_array_randomize(void *data, int elemSize, int numElems, unsigned int seed)
170 {
171         RNG rng;
172
173         rng_seed(&rng, seed);
174         rng_shuffleArray(&rng, data, elemSize, numElems);
175 }
176
177 /* ********* for threaded random ************** */
178
179 static RNG rng_tab[BLENDER_MAX_THREADS];
180
181 void BLI_thread_srandom(int thread, unsigned int seed)
182 {
183         extern unsigned char hash[];    // noise.c
184         
185         if(thread >= BLENDER_MAX_THREADS)
186                 thread= 0;
187         
188         rng_seed(&rng_tab[thread], seed + hash[seed & 255]);
189         seed= rng_getInt(&rng_tab[thread]);
190         rng_seed(&rng_tab[thread], seed + hash[seed & 255]);
191         seed= rng_getInt(&rng_tab[thread]);
192         rng_seed(&rng_tab[thread], seed + hash[seed & 255]);
193 }
194
195 int BLI_thread_rand(int thread) {
196         return rng_getInt(&rng_tab[thread]);
197 }
198
199 float BLI_thread_frand(int thread) {
200         return rng_getFloat(&rng_tab[thread]);
201 }
202