diff --git a/examples/animate.pas b/examples/animate.pas
index 92888a2..f262c46 100644
--- a/examples/animate.pas
+++ b/examples/animate.pas
@@ -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,21 +67,18 @@ 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;
 	end;
 
-	moveLeft := moveLeft -1;
+	moveLeft := moveLeft - 1;
 	if moveLeft <= 0 then
 	begin
 		aSprite.x := aSprite.x + aSprite.xdelta;
@@ -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.
diff --git a/utils/tdrimg.py b/utils/tdrimg.py
index 4eeaead..c03e59b 100644
--- a/utils/tdrimg.py
+++ b/utils/tdrimg.py
@@ -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)