## draw the diagonals
for( my $x=0, my $y=0;     $i < $xMax; $x++, $y++ ) { draw( $x, $y ); }
for( my $x=0, my $y=$yMax; $i < $xMax; $x++, $y-- ) { draw( $x, $y ); }