22 interface

    22 interface

    23 uses uFloat;

    23 uses uFloat;

    24 {$INCLUDE "proto.inc"}

    24 {$INCLUDE "proto.inc"}

    25 

    25 

    26 procedure init_uRandom;

    26 procedure init_uRandom;

    27 procedure SetRandomSeed(Seed: shortstring);

    29 procedure SetRandomSeed(Seed: shortstring);

    28 function  GetRandom: hwFloat; overload;

    30 function  GetRandom: hwFloat; overload;

    29 function  GetRandom(m: LongWord): LongWord; overload;

    31 function  GetRandom(m: LongWord): LongWord; overload;

    30 function  rndSign(num: hwFloat): hwFloat;

    32 function  rndSign(num: hwFloat): hwFloat;

    31 {$IFDEF DEBUGFILE}

    33 {$IFDEF DEBUGFILE}

    97 procedure init_uRandom;

    99 procedure init_uRandom;

    98 begin

   100 begin

    99 	n:= 54;

   101 	n:= 54;

   100 end;

   102 end;

   101 

   103 

   102 end.

   109 end.