{*************************************************************************}
{                                                                         }
{ Bradis.pas - sinuses & cosinuses tables                                 }
{                                                                         }
{ © Parfenov Alexey Andreevich, 2007                                      }
{                                                                         }
{ e-mail: AlkatrazStudio@yandex.ru                                        }
{                                                                         }
{ This library is free software; you can redistribute it and/or           }
{ modify it under the terms of the GNU General Public License             }
{ as published by the Free Software Foundation; either version 2.1 of     }
{ the License, or (at your option) any later version.                     }
{                                                                         }
{ This library is distributed in the hope that it will be useful,         }
{ but WITHOUT ANY WARRANTY; without even the implied warranty of          }
{ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU        }
{ General Public License for more details.                                }
{                                                                         }
{ You may read GNU General Public License at:                             }
{   http://www.gnu.org/copyleft/gpl.html                                  }
{                                                                         }
{ last modified: 25.04.2009                                               }
{*************************************************************************}
unit Bradis;

interface

var _sin,_cos:array[0..359]of single;

implementation

uses math;

procedure InitBradis;
var
  a:integer;
  SinVal,CosVal:Extended;
begin
  for a:=0 to 359 do
  begin
    SinCos(DegToRad(a),SinVal,CosVal);
    _sin[a]:=SinVal;_cos[a]:=CosVal;
  end;
end;

initialization

  InitBradis;

end.
