#!/bin/awk -f
function alloc(id, r, b, g){
	printf "b%s%c%c%c%c%c%c%c%c%c%c" \
		"%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c" \
		"%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c" \
		"%c%c%c%c", \
			id, 0, 0, 0, 0, 0, 8, 24, 40, 0, 1, \
			0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, \
			0, 0, 0, 255, 0, 0, 0, 255, 0, 0, 0, 1, 0, 0, 0, 1, \
			255, g, b, r \
		>data
}
function draw(src, mask){
	printf "dscrn%s%s%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c" \
		"%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c", \
			src, mask, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, 0, 0, 8, 0, 0, \
			0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 \
		>data
}
function b0(n){return n % 256}
function b1(n){return int(n / 256)}
function load(c){
	printf "ypixl%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c", \
		0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 255, c, 0 >data
}
function blob(r, a, c){
	load(c)
	x = cx + int(s[a] * (maxr - r));
	y = cy + int(s[a+2] * (maxr - r));
	printf "Escrnpixl%c%c%c%c%c%c%c%c" \
		"%c%c%c%c%c%c%c%c" \
		"%c%c%c%c%c%c%c%c%c%c%c%c" \
		"%c%c%c%c%c%c%c%c", \
			b0(x), b1(x), 0, 0, b0(y), b1(y), 0, 0, \
			b0(r), b1(r), 0, 0, b0(r), b1(r), 0, 0, \
			1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \
			0, 0, 0, 0, 0, 0, 0, 0 \
		>data
}
BEGIN{
	print "resize -r 0 0 9999 9999" >"/dev/wctl"
	getline <"/dev/draw/new"
	data = "/dev/draw/" $1 "/data"
	ctl = "/dev/draw/" $1 "/ctl"
	getline name <"/dev/winname"
	printf "nscrn%c%s", length(name), name >data
	getline <ctl
	getline <ctl
	cx = ($7 - $5) / 2
	cy = ($8 - $6) / 2
	maxr = cx < cy ? cx : cy
	cx += $5
	cy += $6
	alloc("mask", 255, 255, 255)
	alloc("pixl", 0, 0, 0)
	s[0] = s[4] = s[8] = s[12] = s[16] = 0
	s[1] = s[3] = s[9] = s[11] = s[17] = 0.707106781187
	s[2] = s[10] = 1
	s[5] = s[7] = s[13] = s[15] = -0.707106781187
	s[6] = s[14] = -1
	while(9)
		for(a = 0; a < 8; a++)
			for(c = 0; c < 32; c++){
				load(0)
				draw("pixl", "mask")
				for(i = 0; i < 8; i++)
					blob(maxr * ((7 - i) * 0.125 + c * 0.00390625), i + a, i * 32 + 31 - c)
				printf "v" >data
				system("sleep .001")
			}
}