home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / asm_programming / GLOBESRC.ZIP / GENCOS.PAS < prev    next >
Pascal/Delphi Source File  |  1993-05-29  |  446b  |  20 lines
  1.  
  2. VAR
  3.    fo : TEXT;
  4.    i  : INTEGER;
  5.  
  6. BEGIN
  7.    Assign(fo, 'COSTBL.INC');
  8.    ReWrite(fo);
  9.    WriteLn(fo, ';   Costable, angles 0-1023, Modulo 32767+32767 ------------');
  10.    FOR i := 0 TO 1023 DO BEGIN
  11.       IF (i MOD 12) = 0 THEN BEGIN
  12.          WriteLn(fo);
  13.          Write(fo, '        DW ');
  14.       END ELSE
  15.          Write(fo, ', ');
  16.       Write(fo, WORD(ROUND(32767.0*Cos(i*PI/512.0))))
  17.    END;
  18.    WriteLn(fo);
  19.    Close(fo)
  20. END.