#!/usr/local/bin/perl -w
use strict;

my @v1 = (
	0, 0,
	3, 0,
	3, 1,
	0, 1,
	0, 0,
	1, 1,
	0, 0,
);

my $r2 = sqrt(2);

my @v2 = (
	2 - $r2, 0,
	0, 0,
	0, 1,
	3, 1,
	2 + 1/$r2, 1/$r2,
	2 + $r2, 0,
	2 - $r2, 0,
	3 - $r2, 1,
);


sub pp($$@) {
	my ($ox, $oy, @v) = @_;
	my $j;
	for ($j = 0; $j < (@v)/2; $j++) {
		my $i = $j * 2;
		printf("%f\t%f\n", $v[$i] + $ox, $v[$i + 1] + $oy);
	}
	printf("\n\n");
	return 0;
}

sub main() {
	pp(0, 0, @v1);
	pp(0, 2, @v2);
}

exit main();