#! /usr/local/bin/perl

while (<>) {
	if (/^SWIDTH/) {
		@x = split;
		printf "SWIDTH %d 0\n", $x[1] * 1.5; 
	}
	elsif (/^DWIDTH/) {
		@x = split;
		printf "DWIDTH %d 0\n", $x[1] * 1.5; 
	}
	elsif (/^BBX/) {
		@x = split;
		printf "BBX %d %d 0 -2\n", $x[1] * 1.5, $x[2] * 1.5; 
	}
	elsif (/^FONT_ASCENT/) {
		@x = split;
		printf "FONT_ASCENT %d\n", ($x[1] + 2) * 1.5 - 2; 
	}
	elsif (/^AVERAGE_WIDTH/) {
		@x = split;
		printf "AVERAGE_WIDTH %d\n", $x[1] * 1.5;
	}
	elsif (/^PIXEL_SIZE/) {
		@x = split;
		printf "PIXEL_SIZE %d\n", $x[1] * 1.5;
	}
	elsif (/^POINT_SIZE/) {
		@x = split;
		printf "PIXEL_SIZE %d\n", ($x[1] + 10) * 1.5 - 10;
	}
	elsif (/^FONTBOUNDINGBOX/) {
		@x = split;
		printf "FONTBOUNDINGBOX %d %d 0 -2\n", $x[1] * 1.5, $x[2] * 1.5; 
	}
	elsif (/^SIZE/) {
		@x = split;
		printf "SIZE %d 75 75\n", $x[1] * 1.5;
	}
	elsif (/^FONT -/) {
		@x = split;
		@y = split("-", $x[1]);
		print "FONT ";
		print "$y[0]-";
		print "$y[1]-";
		print "$y[2]-";
		print "$y[3]-";
		print "$y[4]-";
		print "$y[5]-";
		print "$y[6]-";
		printf "%d-", $y[7] * 1.5;
		printf "%d-", ($y[8] + 10) * 1.5 -10;
		print "$y[9]-";
		print "$y[10]-";
		print "$y[11]-";
		printf "%d-", $y[12] * 1.5;
		print "$y[13]-";
		print "$y[14]";
		print "\n";
	}
	else {
		print;
	}
}