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

my $r2 = sqrt(2);
my $l1 = $r2 + 3/2;
my $l2 = $r2/2 + 2;
my $l3 = $r2/2 + 1;
my $l4 = $r2 - 1/2;

my @v1 = (
	1, 2,
	0, 1,
	$l2 + $l1, 1,
	$l3 + $l1, 0,
	0, 0,
	0, 2,
	1 + $l1 + $l4, 2,
	1 + $l1 + $l4, 1,
);

my @v2 = (
	1 + $l1, 2,
	$l1, 1,
);

my @v3 = (
	$l2, 1,
	$l3, 0,
);

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 + 1] + $ox, $v[$i + 0] + $oy);
	}
	printf("\n\n");
	return 0;
}

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

exit main();