/* See LICENSE file for copyright and license details. */
#include "common.h"

USAGE("[-F pixel-format] block-width block-height")

#define SET_XYZA(TYPE)\
	(colours = alloca(4 * stream.pixel_size),\
	 ((TYPE *)colours)[ 0] = (TYPE)0.412457445582367600,\
	 ((TYPE *)colours)[ 1] = (TYPE)0.212673370378408280,\
	 ((TYPE *)colours)[ 2] = (TYPE)0.019333942761673460,\
	 ((TYPE *)colours)[ 3] = (TYPE)1,\
	 ((TYPE *)colours)[ 4] = (TYPE)0.770033310827883400,\
	 ((TYPE *)colours)[ 5] = (TYPE)0.927825100869440000,\
	 ((TYPE *)colours)[ 6] = (TYPE)0.138525897843512050,\
	 ((TYPE *)colours)[ 7] = (TYPE)1,\
	 ((TYPE *)colours)[ 8] = (TYPE)0.357575865245515900,\
	 ((TYPE *)colours)[ 9] = (TYPE)0.715151730491031800,\
	 ((TYPE *)colours)[10] = (TYPE)0.119191955081838600,\
	 ((TYPE *)colours)[11] = (TYPE)1,\
	 ((TYPE *)colours)[12] = (TYPE)D65_XYZ_X,\
	 ((TYPE *)colours)[13] = (TYPE)1.0000,\
	 ((TYPE *)colours)[14] = (TYPE)D65_XYZ_Z,\
	 ((TYPE *)colours)[15] = (TYPE)1)

static struct stream stream = { .width = 0, .height = 0, .frames = 1 };

int
main(int argc, char *argv[])
{
	size_t width, height;
	const char *pixfmt = "xyza";
	char *colours;
	size_t x1, y1, x2, y2;

	ARGBEGIN {
	case 'F':
		pixfmt = UARGF();
		break;
	default:
		usage();
	} ARGEND;

	if (argc != 2)
		usage();

	width  = etozu_arg("block-width", argv[0], 1, SIZE_MAX);
	height = etozu_arg("block-height", argv[1], 1, SIZE_MAX);

	eset_pixel_format(&stream, pixfmt);
	if (stream.encoding == DOUBLE)
		SET_XYZA(double);
	else
		SET_XYZA(float);

	stream.width  = 2 * width;
	stream.height = 2 * height;
	fprint_stream_head(stdout, &stream);
	efflush(stdout, "<stdout>");

	for (y1 = 0; y1 < 2; y1++)
		for (y2 = 0; y2 < height; y2++)
			for (x1 = 0; x1 < 2; x1++)
				for (x2 = 0; x2 < width; x2++)
					ewriteall(STDOUT_FILENO, colours + (y1 * 2 + x1) * stream.pixel_size,
					          stream.pixel_size, "<stdout>");

	return 0;
}