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

examples/animate: cleaning up a bit

Browse source
This commit is contained in:
slederer 2026-03-30 01:08:18 +02:00
parent 0d9db023a1
commit 72b6ab6a30
1 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

21
examples/animate.pas
View file

@ -21,7 +21,6 @@ type PictData = record
end;
var pic:PictData;
filename:string;
infile:file;
ch:char;
stickMan:Sprite;
@ -50,7 +49,7 @@ begin
readAudioFile := buf;
end;
procedure loadPalette(var pic:PictData);
procedure changePalette(var pic:PictData);
var i:integer;
begin
for i := 0 to 15 do
@ -62,6 +61,16 @@ begin
PutScreen(pic.pixeldata);
end;
procedure loadPic(filename:string;var pic:PictData);
var infile:file;
begin
open(infile, filename, ModeReadonly);
read(infile, pic);
close(infile);
writeln('magic: ', pic.magic, ' mode:', pic.mode);
end;
procedure loadSpriteFrame(var aSprite:Sprite;spriteIndex:integer;
var sheetFile:file;sheetIndex:integer);
begin
@ -202,13 +211,7 @@ begin
end;
begin
filename := 'background.pict';
open(infile, filename, ModeReadonly);
read(infile, pic);
close(infile);
writeln('magic: ', pic.magic, ' mode:', pic.mode);
loadPic('background.pict', pic);
loadPalette(pic);
showPic(pic);