packages/extra/gtk2/glib/grand.inc


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

{*
 * grand.inc
 *
 * depends on gtypes.inc
 *}


  type
    PGRand = pointer;   // check please

  { GRand - a good and fast random number generator: Mersenne Twister
     see http://www.math.keio.ac.jp/~matumoto/emt.html for more info.
     The range functions return a value in the intervall [begin, end).
     int          -> [0..2^32-1]
     int_range    -> [begin..end-1]
     double       -> [0..1)
     double_range -> [begin..end)
    }

  function  g_rand_new_with_seed(seed:guint32):PGRand;cdecl;external gliblib name 'g_rand_new_with_seed';

  function  g_rand_new:PGRand;cdecl;external gliblib name 'g_rand_new';

  procedure g_rand_free(rand:PGRand);cdecl;external gliblib name 'g_rand_free';

  procedure g_rand_set_seed(rand:PGRand; seed:guint32);cdecl;external gliblib name 'g_rand_set_seed';

  function  g_rand_boolean(rand : PGRand) : gboolean;

  function  g_rand_int(rand:PGRand):guint32;cdecl;external gliblib name 'g_rand_int';

  function  g_rand_int_range(rand:PGRand; _begin:gint32; _end:gint32):gint32;cdecl;external gliblib name 'g_rand_int_range';

  function  g_rand_double(rand:PGRand):gdouble;cdecl;external gliblib name 'g_rand_double';

  function  g_rand_double_range(rand:PGRand; _begin:gdouble; _end:gdouble):gdouble;cdecl;external gliblib name 'g_rand_double_range';

  procedure g_random_set_seed(seed:guint32);cdecl;external gliblib name 'g_random_set_seed';

  function g_random_boolean : gboolean;

  function g_random_int:guint32;cdecl;external gliblib name 'g_random_int';

  function g_random_int_range(_begin:gint32; _end:gint32):gint32;cdecl;external gliblib name 'g_random_int_range';

  function g_random_double:gdouble;cdecl;external gliblib name 'g_random_double';

  function g_random_double_range(_begin:gdouble; _end:gdouble):gdouble;cdecl;external gliblib name 'g_random_double_range';