equal
deleted
inserted
replaced
21 unit uRandom; |
21 unit uRandom; |
22 interface |
22 interface |
23 uses uFloat; |
23 uses uFloat; |
24 {$INCLUDE "config.inc"} |
24 {$INCLUDE "config.inc"} |
25 |
25 |
26 procedure init_uRandom; |
26 procedure initModule; |
27 procedure free_uRandom; |
27 procedure freeModule; |
28 |
28 |
29 procedure SetRandomSeed(Seed: shortstring); |
29 procedure SetRandomSeed(Seed: shortstring); |
30 function GetRandom: hwFloat; overload; |
30 function GetRandom: hwFloat; overload; |
31 function GetRandom(m: LongWord): LongWord; overload; |
31 function GetRandom(m: LongWord): LongWord; overload; |
32 function rndSign(num: hwFloat): hwFloat; |
32 function rndSign(num: hwFloat): hwFloat; |
94 for i:= 0 to 63 do |
94 for i:= 0 to 63 do |
95 AddFileLog('[' + inttostr(i) + '] = ' + inttostr(cirbuf[i])) |
95 AddFileLog('[' + inttostr(i) + '] = ' + inttostr(cirbuf[i])) |
96 end; |
96 end; |
97 {$ENDIF} |
97 {$ENDIF} |
98 |
98 |
99 procedure init_uRandom; |
99 procedure initModule; |
100 begin |
100 begin |
101 n:= 54; |
101 n:= 54; |
102 end; |
102 end; |
103 |
103 |
104 procedure free_uRandom; |
104 procedure freeModule; |
105 begin |
105 begin |
106 |
106 |
107 end; |
107 end; |
108 |
108 |
109 end. |
109 end. |