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