# /* vim: set filetype=awk : */ -*- awk -*-

# #---- [maker.awk] ------------------------------------------
function defineTables() {
	table(_Fx,  # top left
			"tl,vl, l,n,  h,vh",
			"vl, 2, 1, 0, 0, 0,"\
			" l, 1, 0, 0, 0, 0");
	table(_Fx,  # top right
			"tr,vl, l, n, h,vh",
			"vl, 0, 0, 0, 1, 2,"\
			" l, 0, 0, 0, 0, 1");
	table(_Fx,  # top right, strong
			"TR,vl, l, n, h,vh",
			"vl, 0, 0, 1, 2, 4,"\
			" l, 0, 0, 0, 1, 2,"\
			" n, 0, 0, 0, 0, 1");
	table(_Fx,  # top left, strong
			"TL,vl, l, n, h,vh",
			"vl, 4, 2, 1, 0, 0,"\
			" l, 2, 1, 0, 0, 0,"\
			" n, 1, 0, 0, 0, 0");
	table(_Fx,  # bottom left, strong
			"BL,vl,  l,  n,  h, vh",
			"n,  1,  0,  0,  0,  0,"\
			"h,  2,  1,  0,  0,  0,"\
			"vh, 4,  2,  1,  0,  0");
	table(_Fx,  # bottom left
			"bl,vl,  l,  n,  h, vh",
			"h,  1,  0,  0,  0,  0,"\
			"vh, 2,  1,  0,  0,  0");
	table(_Fx,  # bottom right, strong
			"BR,vl,  l,  n,  h, vh",
			"n,  0,  0,  0,  0,  1,"\
			"h,  0,  0,  0,  1,  2,"\
			"vh, 0,  0,  1,  2,  4");
	table(_Fx,  # bottom right
			"br,vl,  l,  n,  h, vh",
			"h,  0,  0,  0,  0,  1,"\
			"vh, 0,  0,  0,  1,  2");
}

function tl(a,b) { deffx("tl",a ,b) }
function Tl(a,b) { deffx("TL",a ,b) }
function tr(a,b) { deffx("tr",a ,b) }
function Tr(a,b) { deffx("TR",a ,b) }

function bl(a,b) { deffx("bl",a ,b) }
function Bl(a,b) { deffx("BL",a ,b) }
function br(a,b) { deffx("tr",a ,b) }
function Br(a,b) { deffx("BR",a ,b) }

function deffx(goal,a,b,    i,j) {
	for(i in _Fx) {
		j=i;
		if (sub("^" goal,a SUBSEP b,j))  {
			Fx[j]=_Fx[i] 
		} 
	}
}