#!/bin/sh
awk '
BEGIN {
	i=0;
	print "bg black"
	print "macro rect1 rect -0.5 -0.5 - 0.5 0.5 endmacro"
	print "macro rect2 rect -0.5 -0.5 1 1 endmacro"
	print "macro rect3 fillrect -0.5 -0.5 - 0.5 0.5 endmacro"
	print "macro rect4 fillrect -0.5 -0.5 1 1 endmacro"
	for(;;) {
		print "frame"

		print "alpha 255"
		print "color darkcyan"
		print "apoly -0.5 -0.5 0.5 -0.5 0.5 0.5 -0.5 0.5"
		print "color cyan"
		print "lines -0.5 -0.5 0.5 -0.5 0.5 0.5 -0.5 0.5 -0.5 -0.5"
		print "alpha", (i/60)%1.0

		print "push"
		print "rotate", i/3

		print "color pink dash 0x3333"
		print "thick 1.5"
		print "lines 0 0 0.1 0.05 0.2 -0.1 0.3 0.1 0.4 -0.1 0.5 0.1 0.7 -0.1 0.9 0.1 1.1 0"
		print "color white dash 0xffff"
		print "dot 1.1 0"

		print "push"
			print "thick 1"
			print "color cyan dash 0x1111"
			print "rotate 45"
			print "arrow 0 0 0.3 0"
			print "shift 0.3 0"
			print "scale 0.3 0.3"
			print "rotate", i
			print "invoke rect1"
			print "dash 0xffff text center bottom 0 0 \"center\\nbottom\""
		print "pop"

		print "push"
			print "thick 2"
			print "color green"
			print "rotate 45"
			print "rotate 90"
			print "arrow 0 0 0.4 0"
			print "shift 0.4 0"
			print "scale 0.4 0.4"
			print "rotate", i
			print "invoke rect2"
			print "text center center 0 0 \"center\\ncenter\""
		print "pop"

		print "push"
			print "thick 3"
			print "color red"
			print "rotate 45"
			print "rotate 270"
			print "arrow 0 0 0.6 0"
			print "shift 0.6 0"
			print "scale 0.6 0.6"
			print "rotate", i
			print "invoke rect3"
			print "text right top 0 0 \"right\\ntop\""
		print "pop"

		print "push"
			print "rotate 45"
			print "rotate 180"
			print "push"
			print "color white"
			print "shift 0.5 0"
			print "scale 0.7 0.7"
			print "rotate", i
			print "invoke rect4"
			print "color black"
			print "text left center 0 0 \"left\\ncenter\""
			print "pop"

			print "arrow 0 0 0.5 0"
		print "pop"

		print "pop"

		print "flush"
		print "sleep 0.016"
		fflush()
		i+=1
	}
}
'