Demos/SecondReality
Watch
1
0
Fork
You've already forked SecondReality
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Upload

Browse source
This commit is contained in:
Frater 2017-09-24 01:45:36 +02:00
commit 43352ff262
1291 changed files with 220976 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
TUNNELI/SINGEN.PAS Normal file
View file

@ -0,0 +1,14 @@
var x : word;
sinit : array[0..4096] of word;
cosit : array[0..2048] of word;
f : file;
begin
for x := 0 to 4096 do Sinit[x] := round(sin((x)/128*pi)*((x*3) div 128));
for x := 0 to 2048 do Cosit[x] := round(cos((x)/128*pi)*((x*4) div 64));
assign(f,'sinit.dat');
rewrite(f,2);
blockwrite(f,sinit,4097);
blockwrite(f,cosit,2049);
close(f);
end.