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

examples/animate: update animation demo

Browse source
This commit is contained in:
slederer 2026-02-23 00:37:32 +01:00
parent 6c27b78c4a
commit fdc5d05d64
4 changed files with 60 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

68
examples/animate.pas
View file

@ -15,6 +15,8 @@ type PictData = record
frameCount:integer;
frameTime:integer;
frameLeft:integer;
moveTime:integer;
moveLeft:integer;
changed:boolean;
frame:array [0..3] of SpritePixels;
end;
@ -25,6 +27,8 @@ var pic:PictData;
ch:char;
stickMan:Sprite;
rocket:Sprite;
rocket2:Sprite;
rocket3:Sprite;
procedure WaitVSync; external;
@ -55,6 +59,7 @@ end;
procedure animateSprite(var aSprite:Sprite);
var frameIndex:integer;
frameTime,frameLeft:integer;
moveTime,moveLeft:integer;
ydelta:integer;
oldX,oldY:integer;
begin
@ -62,6 +67,8 @@ begin
frameIndex := aSprite.curFrame;
frameTime := aSprite.frameTime;
frameLeft := aSprite.frameLeft;
moveTime := aSprite.moveTime;
moveLeft := aSprite.moveLeft;
oldX := aSprite.x; oldY := aSprite.y;
aSprite.oldX := oldX; aSprite.oldY := oldY;
@ -69,16 +76,19 @@ begin
if frameLeft <= 0 then
begin
frameIndex := frameIndex + 1;
frameLeft := aSPrite.frameTime;
frameLeft := aSprite.frameTime;
aSprite.frameLeft := frameLeft;
aSprite.curFrame := frameIndex;
if frameIndex >= aSprite.frameCount then
aSprite.curFrame := 0;
end;
aSprite.frameLeft := frameLeft;
moveLeft := moveLeft -1;
if moveLeft <= 0 then
begin
aSprite.x := aSprite.x + aSprite.xdelta;
aSprite.y := aSprite.y + aSprite.ydelta;
moveLeft := moveTime;
if aSprite.x > 608 then aSprite.x := 0;
@ -88,30 +98,57 @@ begin
aSprite.x := 0;
end;
end;
aSprite.frameLeft := frameLeft;
aSprite.moveLeft := moveLeft;
end;
procedure animLoop;
var i:integer;
oldX,oldY:integer;
roldX,roldY:integer;
r2oldX,r2oldY:integer;
r3oldX,r3oldY:integer;
begin
stickMan.x := 0;
stickMan.y := 310;
stickMan.y := 322;
stickMan.frameTime := 6;
stickMan.frameLeft := stickMan.frameTime;
stickMan.curFrame := 0;
stickMan.xdelta := 2;
stickMan.ydelta := 0;
stickMan.moveTime := 2;
stickman.moveLeft := stickMan.moveTime;
rocket.x := 0;
rocket.y := 200;
rocket.frameTime := 1;
rocket.frameTime := 5;
rocket.frameLeft := rocket.frameTime;
rocket.curFrame := 0;
rocket.xdelta := 2;
rocket.xdelta := 3;
rocket.ydelta := -1;
rocket.moveTime := 1;
rocket.moveLeft := rocket.moveTime;
rocket2.x := 50;
rocket2.y := 100;
rocket2.frameTime := 5;
rocket2.frameLeft := rocket2.frameTime;
rocket2.curFrame := 0;
rocket2.xdelta := 3;
rocket2.ydelta := -1;
rocket2.moveTime := 1;
rocket2.moveLeft := rocket2.moveTime;
rocket3.x :=100;
rocket3.y := 50;
rocket3.frameTime := 5;
rocket3.frameLeft := rocket3.frameTime;
rocket3.curFrame := 0;
rocket3.xdelta := 3;
rocket3.ydelta := -1;
rocket3.moveTime := 1;
rocket3.moveLeft := rocket3.moveTime;
while not ConAvail do
begin
@ -121,17 +158,29 @@ begin
roldX := rocket.x;
roldY := rocket.y;
r2oldX := rocket2.x;
r2oldY := rocket2.y;
r3oldX := rocket3.x;
r3oldY := rocket3.y;
PutSprite(roldX, roldY, rocket.frame[rocket.curFrame]);
PutSprite(r2oldX, r2oldY, rocket2.frame[rocket2.curFrame]);
PutSprite(r3oldX, r3oldY, rocket3.frame[rocket3.curFrame]);
PutSprite(oldX, oldY, stickMan.frame[stickMan.curFrame]);
animateSprite(rocket);
animateSprite(rocket2);
animateSprite(rocket3);
animateSprite(stickMan);
{Delay(1);}
Delay(10);
WaitVSync;
UndrawSprite(oldX, oldY, pic.pixeldata);
UndrawSprite(roldX, roldY, pic.pixeldata);
UndrawSprite(r2oldX, r2oldY, pic.pixeldata);
UndrawSprite(r3oldX, r3oldY, pic.pixeldata);
end;
end;
@ -160,5 +209,8 @@ begin
loadSpriteFrame(rocket, 3, infile, 3);
close(infile);
rocket2.frame := rocket.frame;
rocket3.frame := rocket.frame;
animLoop;
end.