From ee6a416f9eca948764e02597edd2dd5c9fc69aab Mon Sep 17 00:00:00 2001
From: tTh <tth@redlady.dinorama.fr>
Date: Sun, 21 Jul 2024 01:06:37 +0200
Subject: [PATCH] testing quadtree recurse

---
 Tests/t_recurse.sh | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 Tests/t_recurse.sh

diff --git a/Tests/t_recurse.sh b/Tests/t_recurse.sh
new file mode 100755
index 0000000..72ee3d8
--- /dev/null
+++ b/Tests/t_recurse.sh
@@ -0,0 +1,28 @@
+#!/bin/bash
+
+set -e
+
+source="dauphine2.tga"
+if [ $# -eq 2 ] ; then
+	source="$1"
+fi
+
+identify $source ; echo
+
+rm -f frames/R*.tga
+
+maxidx=250
+
+for idx in $(seq 0 4 $maxidx)
+do
+
+	dst=$(printf "frames/R%03d.tga" $idx)
+	coef=$(( $maxidx - $idx ))
+	echo "======>  "$dst  "    coef " $coef
+
+	../Tools/tga_effects $source recurse $dst $coef
+
+done
+
+convert -delay 10 frames/R*.tga recurse.gif
+wc -c recurse.gif