#!/usr/bin/perl -w
my $depth = -0.3;
foreach my $xc (0..19) {
	foreach my $yc (0..19) {
		my ($x, $y) = ($xc * 2 + 1, $yc * 2 + 1);
		printf "(Circle at %d,%d)\n", $x, $y;
		printf "G0 Z1\n";
		printf "G0 X%f Y%f\n", $x - 1, $y;
		printf "G0 Z0\n";
		printf "G1 Z%f F200\n", $depth;
		my $arc = ($xc + $yc) % 2 ? "G2" : "G3";
		printf "%s X%f I1 F200\n", $arc, $x + 1;
		printf "%s X%f I-1 F200\n", $arc, $x - 1;

		printf "(Mark at %d,%d)\n", $x, $y;
		printf "G0 Z0.3\n";
		printf "G0 X%d Y%d\n", $x, $y;
		printf "G0 Z0\n";
		printf "G1 Z%f F200\n", $depth;
		printf "G0 Z1\n";
		printf "\n";
	}
}
printf "G0 Z5\n";