1 files changed, 111 insertions, 0 deletions
diff --git a/rasodmg/test/init_fast_collection.pl b/rasodmg/test/init_fast_collection.pl
new file mode 100644
index 0000000..63b29da
--- /dev/null
+++ b/rasodmg/test/init_fast_collection.pl
@@ -0,0 +1,111 @@
+#!/usr/bin/perl -w
+
+my $COLLECTION="orthorgb";
+my $SERVER="zombie";
+my $YMIN=0;
+my $YMAX=4999;
+my $XMIN=0;
+my $XMAX=4999;
+my $SCALELEVELS=8;
+my $IMGTYPE="RGB";#or "GREY"
+my $STORAGEFORMAT="Array";
+my $TRANSFERFORMAT="Array";
+my $transferWidth=2000;
+$transferWidth=int($transferWidth/(2**$SCALELEVELS))*(2**$SCALELEVELS);
+print "#transfer width $transferWidth\n";
+my $transferHeight=2000;
+$transferHeight=int($transferHeight/(2**$SCALELEVELS))*(2**$SCALELEVELS);
+print "#transfer height $transferHeight\n";
+my $i=0;
+my $currentCollection=$COLLECTION;
+my $currentXMin=$XMIN;
+my $currentYMin=$YMIN;
+my $currentXMax=$XMIN + $transferWidth;
+$currentXMax=min($XMAX, $currentXMax);
+my $currentYMax=$YMIN + $transferHeight;
+$currentYMax=min($YMAX, $currentYMax);
+my $colltype;
+my $mddtype;
+my $conversiontype;
+my $scaleLevel=2;
+my $command;
+my $scaleString;
+my $domain;
+
+sub max {
+	my $currentMax = shift;
+	my $next = shift;
+	if ($currentMax > $next)
+		{
+		return $currentMax;
+		}
+	else	{
+		return $next;
+		}
+	};
+
+sub min {
+	my $currentMax = shift;
+	my $next = shift;
+	if ($currentMax > $next)
+		{
+		return $next;
+		}
+	else	{
+		return $currentMax;
+		}
+	};
+
+if ($IMGTYPE eq "RGB")
+	{
+	$colltype="RGBSet";
+	$mddtype="RGBImage";
+	$conversiontype="RGBPixel";
+	}
+else	{
+	if ($IMGTYPE eq "RGB")
+		{
+		$colltype="GreySet";
+		$mddtype="GreyImage";
+		$conversiontype="char";
+		}
+	else	{
+		die "Unknown image type: $IMGTYPE\n";
+		}
+	}
+for ($i=1; $i < $SCALELEVELS + 1; $i++)
+	{
+	$currentCollection = $COLLECTION . "_" . int($i);
+	$scaleString .= "$currentCollection:$scaleLevel";
+	if ($i != $SCALELEVELS)
+		{
+		$scaleString .= ";";
+		}
+	$scaleLevel *= 2;
+	}
+while ($currentXMax <= $XMAX)
+	{
+	while ($currentYMax <= $YMAX)
+		{
+		$domain = "[$currentXMin:" . ($currentXMax - 1) . ",$currentYMin:" . ($currentYMax - 1) . "]";
+		$command = "system_update -s $SERVER --collection $COLLECTION -t --colltype $colltype --mddtype $mddtype --storageformat $STORAGEFORMAT --transferformat $TRANSFERFORMAT --scalelevels \"$scaleString\" --mdddomain \"$domain\"";
+		print "$command\n";
+		if ($currentYMax == $YMAX)
+			{
+			last;
+			}
+		$currentYMax += $transferHeight;
+		$currentYMax = min($currentYMax, $YMAX);
+		$currentYMin += $transferHeight;
+		};
+	if ($currentXMax == $XMAX)
+		{
+		last;
+		}
+	$currentXMin += $transferWidth;
+	$currentXMax += $transferWidth;
+	$currentXMax = min($currentXMax, $XMAX);
+	$currentYMin = $YMIN;
+	$currentYMax = $YMIN + $transferHeight;
+	$currentYMax = min($YMAX, $currentYMax);
+	};