extern "C" {

#include "th01/formats/ptn.hpp"

void ptn_snap_8(int left, int top, int ptn_id)
{
	unsigned int vram_offset = vram_offset_muldiv(left, top);
	ptn_t *ptn = ptn_with_id(ptn_id);
	for(int y = 0; y < PTN_H; y++) {
		#define snap(ptn, vram_offset, w) \
			ptn->planes.B[y] = VRAM_CHUNK(B, vram_offset, w); \
			ptn->planes.R[y] = VRAM_CHUNK(R, vram_offset, w); \
			ptn->planes.G[y] = VRAM_CHUNK(G, vram_offset, w); \
			ptn->planes.E[y] = VRAM_CHUNK(E, vram_offset, w);
		snap(ptn, vram_offset, PTN_W);
		#undef snap
		vram_offset += ROW_SIZE;
	}
}

static inline ptn_dots_t dot_mask(int x, int w)
{
	return static_cast<ptn_dots_t>((1u << w) - 1u) << (w - x);
}

void ptn_snap_quarter_8(int left, int top, int ptn_id, int quarter)
{
	int y;
	unsigned int vram_offset = vram_offset_muldiv(left, top);
	int q_y;
	ptn_dots_t q_mask;
	long q_x;
	ptn_t *ptn = ptn_with_id(ptn_id);

	q_y = ptn_quarter_y(quarter);
	q_mask = (quarter & 1)
		? dot_mask(PTN_QUARTER_W, PTN_QUARTER_W)
		: dot_mask(            0, PTN_QUARTER_W);
	q_x = ptn_quarter_x(quarter);

	for(y = q_y; y < (q_y + PTN_QUARTER_H); y++) {
		#define snap_quarter_plane(P, offset, w) \
			ptn->planes.P[y] &= q_mask; \
			ptn->planes.P[y] |= (VRAM_CHUNK(P, offset, w) << q_x) & ~q_mask;

		#define snap_quarter(offset, w) \
			snap_quarter_plane(B, offset, w); \
			snap_quarter_plane(R, offset, w); \
			snap_quarter_plane(G, offset, w); \
			snap_quarter_plane(E, offset, w);

		snap_quarter(vram_offset, PTN_W);

		#undef snap_quarter
		#undef snap_quarter_plane
		vram_offset += ROW_SIZE;
	}
}

}