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

11
examples/animate.pas
View file

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