equal
deleted
inserted
replaced
17 *) |
17 *) |
18 |
18 |
19 unit uRandom; |
19 unit uRandom; |
20 interface |
20 interface |
21 uses uFloat; |
21 uses uFloat; |
22 {$INCLUDE options.inc} |
22 {$INCLUDE "options.inc"} |
23 {$INCLUDE proto.inc} |
23 {$INCLUDE "proto.inc"} |
24 |
24 |
25 procedure SetRandomSeed(Seed: shortstring); |
25 procedure SetRandomSeed(Seed: shortstring); |
26 function GetRandom: hwFloat; overload; |
26 function GetRandom: hwFloat; overload; |
27 function GetRandom(m: LongWord): LongWord; overload; |
27 function GetRandom(m: LongWord): LongWord; overload; |
28 function rndSign(num: hwFloat): hwFloat; |
28 function rndSign(num: hwFloat): hwFloat; |