### Makefile --- Make a nice grid block overlay
## Given a pole number region.
## Author: Dan Jacobson https://www.jidanni.org/
## Copyright: https://www.gnu.org/licenses/gpl.html
## Created: 2024-04-19T02:32:46+0000
## Last-Updated: 2024-04-19T04:16:52+0000
##     Update #: 26
tpg=../taipowergrid
f:p
	./p|$(tpg)|perl -nawle 'BEGIN{use strict; our @d=(800,500)};$(\
	)if(/#\d+\s*([A-Z]\d{4})/){$$name=$$1; next;} my @o=($$F[0], $$F[1], $$F[0]+$$d[0], $$F[1],$(\
	)$$F[0]+$$d[0], $$F[1]+$$d[1], $$F[0], $$F[1]+$$d[1], $$F[0], $$F[1]);$(\
	)print "POLYGON $$name pairs @o";'