34 procedure DumpBuffer;

    34 procedure DumpBuffer;

    35 {$ENDIF}

    35 {$ENDIF}

    36 

    36 

    37 implementation

    37 implementation

    38 {$IFDEF DEBUGFILE}

    38 {$IFDEF DEBUGFILE}

    40 {$ENDIF}

    40 {$ENDIF}

    41 var cirbuf: array[0..63] of Longword;

    41 var cirbuf: array[0..63] of Longword;

    42     n: byte;

    42     n: byte;

    43 

    43 

    44 function GetNext: Longword;

    44 function GetNext: Longword;

    75 GetRandom.QWordValue:= GetNext

    75 GetRandom.QWordValue:= GetNext

    76 end;

    76 end;

    77 

    77 

    78 function GetRandom(m: LongWord): LongWord;

    78 function GetRandom(m: LongWord): LongWord;

    79 begin

    79 begin

    80 GetNext;

    86 GetNext;

    81 GetRandom:= GetNext mod m

    87 GetRandom:= GetNext mod m

    82 end;

    88 end;

    83 

    89 

    84 function rndSign(num: hwFloat): hwFloat;

    90 function rndSign(num: hwFloat): hwFloat;