#!/usr/bin/perl
use strict;

my $move;
my %rots;

$rots{'r0'} = '=r270';
$rots{'r90'} = '=r0';
$rots{'r180'} = '=r90';
$rots{'r270'} = '=r180';

if ($#ARGV > -1)
{
	$move = 1;
}

unless ($move) {
	print "grid inch .05;\n";
} else {
	print "grid mm 1;\n";
}

my $i=1;
while (chomp ($_ = <STDIN>))
{
	my $res = 7;
	my $xoff = 20;
	my $yoff = 500;
	my ($x, $y, $r) = split(/,/,$_);
	my $xpos = ($xoff + $x)/$res;
	my $ypos = ($yoff - $y)/$res;
	unless ($move) {
		$xpos = int($xpos)/20;
		$ypos = int($ypos)/20;
		print ("add 'd$i' led5mm $r ($xpos $ypos);\n");
	} else {
		$xpos = int(100*($xpos+.005))/100;
		$ypos = int(100*($ypos+.005))/100;
		print ("move 'd$i' ($xpos $ypos);\n");
		print ("rotate ", $rots{lc($r)}, " 'd$i';\n");
	}
	$i++;
}