#!/usr/bin/perl -w
# gen_test_template.pl - Don Yang (uguu.org)
#
# 07/01/07

use strict;
die "$0 <width> <height>\n" unless $#ARGV == 1;

my ($width, $height) = @ARGV;
my $rx = $width / 2;
my $ry = $height / 2;

for(my $y = 0; $y < $height; $y++)
{
   my $dy = ($y - $ry) / $ry;
   my $line = '';
   for(my $x = 0; $x < $width; $x++)
   {
      my $dx = ($x - $rx) / $rx;
      $line .= ($dx * $dx + $dy * $dy <= 1.0 ? 'X' : ' ');
   }
   $line =~ s/\s*$//;
   print "$line\n";
}