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

examples: tweak animation demo, add assets for graphbench

Browse source
This commit is contained in:
slederer 2026-03-01 00:25:37 +01:00
parent fdc5d05d64
commit 82749f2b7d
2 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

13
examples/animate.pas
View file

@ -9,7 +9,6 @@ type PictData = record
Sprite = record Sprite = record
x,y:integer; x,y:integer;
oldX,oldY:integer;
xdelta,ydelta:integer; xdelta,ydelta:integer;
curFrame:integer; curFrame:integer;
frameCount:integer; frameCount:integer;
@ -61,7 +60,6 @@ var frameIndex:integer;
frameTime,frameLeft:integer; frameTime,frameLeft:integer;
moveTime,moveLeft:integer; moveTime,moveLeft:integer;
ydelta:integer; ydelta:integer;
oldX,oldY:integer;
begin begin
ydelta := aSprite.ydelta; ydelta := aSprite.ydelta;
frameIndex := aSprite.curFrame; frameIndex := aSprite.curFrame;
@ -69,21 +67,18 @@ begin
frameLeft := aSprite.frameLeft; frameLeft := aSprite.frameLeft;
moveTime := aSprite.moveTime; moveTime := aSprite.moveTime;
moveLeft := aSprite.moveLeft; moveLeft := aSprite.moveLeft;
oldX := aSprite.x; oldY := aSprite.y;
aSprite.oldX := oldX; aSprite.oldY := oldY;
frameLeft := frameLeft - 1; frameLeft := frameLeft - 1;
if frameLeft <= 0 then if frameLeft <= 0 then
begin begin
frameIndex := frameIndex + 1; frameIndex := frameIndex + 1;
frameLeft := aSprite.frameTime; frameLeft := frameTime;
aSprite.frameLeft := frameLeft;
aSprite.curFrame := frameIndex; aSprite.curFrame := frameIndex;
if frameIndex >= aSprite.frameCount then if frameIndex >= aSprite.frameCount then
aSprite.curFrame := 0; aSprite.curFrame := 0;
end; end;
moveLeft := moveLeft -1; moveLeft := moveLeft - 1;
if moveLeft <= 0 then if moveLeft <= 0 then
begin begin
aSprite.x := aSprite.x + aSprite.xdelta; aSprite.x := aSprite.x + aSprite.xdelta;
@ -209,8 +204,8 @@ begin
loadSpriteFrame(rocket, 3, infile, 3); loadSpriteFrame(rocket, 3, infile, 3);
close(infile); close(infile);
rocket2.frame := rocket.frame; rocket2 := rocket; rocket2.curFrame := 1;
rocket3.frame := rocket.frame; rocket3 := rocket; rocket3.curFrame := 2;
animLoop; animLoop;
end. end.

3
utils/tdrimg.py
View file

@ -620,6 +620,9 @@ def create_image_with_stuff(imgfile):
slotnr = putfile("../examples/background.pict", None , f, part, partstart, slotnr) slotnr = putfile("../examples/background.pict", None , f, part, partstart, slotnr)
slotnr = putfile("../examples/walking.sprt", None , f, part, partstart, slotnr) slotnr = putfile("../examples/walking.sprt", None , f, part, partstart, slotnr)
slotnr = putfile("../examples/rocket.sprt", None , f, part, partstart, slotnr) slotnr = putfile("../examples/rocket.sprt", None , f, part, partstart, slotnr)
slotnr = putfile("../examples/sprite-testcard.sprt", None , f, part, partstart, slotnr)
slotnr = putfile("../examples/tiles.inc", None , f, part, partstart, slotnr)
slotnr = putfile("../examples/tiles.s", None , f, part, partstart, slotnr)
listdir(f, part) listdir(f, part)