slederer/Tridora-CPU
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 3 Wiki Activity Actions

pcmaudio: add routine/external procedure to read sample file

Browse source
This commit is contained in:
slederer 2026-03-30 00:43:31 +02:00
parent 819c808c50
commit 0d9db023a1
3 changed files with 23 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

12
examples/animate.pas
View file

@ -35,8 +35,7 @@ var pic:PictData;
procedure WaitVSync; external;
function readAudioFile(fname:string):SndBufPtr;
var i,size:integer;
c:char;
var size:integer;
buf:SndBufPtr;
f:file;
begin
@ -44,13 +43,8 @@ begin
size := FileSize(f);
new(buf, size);
buf^ := '';
write('Reading ', size, ' bytes from ', fname);
for i := 1 to size do
begin
read(f,c);
AppendChar(buf^,c);
end;
ReadSample(f, buf);
writeln;
close(f);
readAudioFile := buf;