From 72b6ab6a307018a24e82744efc91b0272f883e5f Mon Sep 17 00:00:00 2001
From: slederer <dev@insignificance.de>
Date: Mon, 30 Mar 2026 01:08:18 +0200
Subject: [PATCH] examples/animate: cleaning up a bit

---
 examples/animate.pas | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/examples/animate.pas b/examples/animate.pas
index 6bf834c..6ef73be 100644
--- a/examples/animate.pas
+++ b/examples/animate.pas
@@ -21,7 +21,6 @@ type PictData = record
     end;
 
 var pic:PictData;
-    filename:string;
     infile:file;
     ch:char;
     stickMan:Sprite;
@@ -50,7 +49,7 @@ begin
 	readAudioFile := buf;	
 end;
 
-procedure loadPalette(var pic:PictData);
+procedure changePalette(var pic:PictData);
 var i:integer;
 begin
 	for i := 0 to 15 do
@@ -62,6 +61,16 @@ begin
 	PutScreen(pic.pixeldata);
 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;
 		var sheetFile:file;sheetIndex:integer);
 begin
@@ -202,13 +211,7 @@ begin
 end;
 
 begin
-	filename := 'background.pict';
-	open(infile, filename, ModeReadonly);
-	read(infile, pic);
-	close(infile);
-
-	writeln('magic: ', pic.magic, ' mode:', pic.mode);
-
+	loadPic('background.pict', pic);
 	loadPalette(pic);
 	showPic(pic);