shithub: minivmac

ref: d488fabe62aabd0d42421eb3e423a9308ae1fa13
dir: /src/SCRNMAPR.h/

/*
	SCRNMAPR.h

	Copyright (C) 2012 Paul C. Pratt

	You can redistribute this file and/or modify it under the terms
	of version 2 of the GNU General Public License as published by
	the Free Software Foundation.  You should have received a copy
	of the license along with this file; see the file COPYING.

	This file is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	license for more details.
*/

/*
	SCReeN MAPpeR
*/

/* required arguments for this template */

#ifndef ScrnMapr_DoMap /* procedure to be created by this template */
#error "ScrnMapr_DoMap not defined"
#endif
#ifndef ScrnMapr_Src
#error "ScrnMapr_Src not defined"
#endif
#ifndef ScrnMapr_Dst
#error "ScrnMapr_Dst not defined"
#endif
#ifndef ScrnMapr_SrcDepth
#error "ScrnMapr_SrcDepth not defined"
#endif
#ifndef ScrnMapr_DstDepth
#error "ScrnMapr_DstDepth not defined"
#endif
#ifndef ScrnMapr_Map
#error "ScrnMapr_Map not defined"
#endif

/* optional argument for this template */

#ifndef ScrnMapr_Scale
#define ScrnMapr_Scale 1
#endif

/* check of parameters */

#if (ScrnMapr_SrcDepth < 0) || (ScrnMapr_SrcDepth > 3)
#error "bad ScrnMapr_SrcDepth"
#endif

#if (ScrnMapr_DstDepth < ScrnMapr_SrcDepth)
#error "bad ScrnMapr_Dst"
#endif

/* calculate a few things local to this template */

#define ScrnMapr_MapElSz \
	(ScrnMapr_Scale << (ScrnMapr_DstDepth - ScrnMapr_SrcDepth))

#if 0 == (ScrnMapr_MapElSz & 3)
#define ScrnMapr_TranT ui5b
#define ScrnMapr_TranLn2Sz 2
#elif 0 == (ScrnMapr_MapElSz & 1)
#define ScrnMapr_TranT ui4b
#define ScrnMapr_TranLn2Sz 1
#else
#define ScrnMapr_TranT ui3b
#define ScrnMapr_TranLn2Sz 0
#endif

#define ScrnMapr_TranN (ScrnMapr_MapElSz >> ScrnMapr_TranLn2Sz)

#define ScrnMapr_ScrnWB (vMacScreenWidth >> (3 - ScrnMapr_SrcDepth))

/* now define the procedure */

LOCALPROC ScrnMapr_DoMap(si4b top, si4b left,
	si4b bottom, si4b right)
{
	int i;
	int j;
#if (ScrnMapr_TranN > 4) || (ScrnMapr_Scale > 2)
	int k;
#endif
	ui5r t0;
	ScrnMapr_TranT *pMap;
#if ScrnMapr_Scale > 1
	ScrnMapr_TranT *p3;
#endif

	ui4r leftB = left >> (3 - ScrnMapr_SrcDepth);
	ui4r rightB = (right + (1 << (3 - ScrnMapr_SrcDepth)) - 1)
		>> (3 - ScrnMapr_SrcDepth);
	ui4r jn = rightB - leftB;
	ui4r SrcSkip = ScrnMapr_ScrnWB - jn;
	ui3b *pSrc = ((ui3b *)ScrnMapr_Src)
		+ leftB + ScrnMapr_ScrnWB * (ui5r)top;
	ScrnMapr_TranT *pDst = ((ScrnMapr_TranT *)ScrnMapr_Dst)
		+ ((leftB + ScrnMapr_ScrnWB * ScrnMapr_Scale * (ui5r)top)
			* ScrnMapr_TranN);
	ui5r DstSkip = SrcSkip * ScrnMapr_TranN;

	for (i = bottom - top; --i >= 0; ) {
#if ScrnMapr_Scale > 1
		p3 = pDst;
#endif

		for (j = jn; --j >= 0; ) {
			t0 = *pSrc++;
			pMap =
				&((ScrnMapr_TranT *)ScrnMapr_Map)[t0 * ScrnMapr_TranN];

#if ScrnMapr_TranN > 4
			for (k = ScrnMapr_TranN; --k >= 0; ) {
				*pDst++ = *pMap++;
			}
#else

#if ScrnMapr_TranN >= 2
			*pDst++ = *pMap++;
#endif
#if ScrnMapr_TranN >= 3
			*pDst++ = *pMap++;
#endif
#if ScrnMapr_TranN >= 4
			*pDst++ = *pMap++;
#endif
			*pDst++ = *pMap;

#endif /* ! ScrnMapr_TranN > 4 */

		}
		pSrc += SrcSkip;
		pDst += DstSkip;

#if ScrnMapr_Scale > 1
#if ScrnMapr_Scale > 2
		for (k = ScrnMapr_Scale - 1; --k >= 0; )
#endif
		{
			pMap = p3;
			for (j = ScrnMapr_TranN * jn; --j >= 0; ) {
				*pDst++ = *pMap++;
			}
			pDst += DstSkip;
		}
#endif /* ScrnMapr_Scale > 1 */
	}
}

/* undefine template locals and parameters */

#undef ScrnMapr_ScrnWB
#undef ScrnMapr_TranN
#undef ScrnMapr_TranLn2Sz
#undef ScrnMapr_TranT
#undef ScrnMapr_MapElSz

#undef ScrnMapr_DoMap
#undef ScrnMapr_Src
#undef ScrnMapr_Dst
#undef ScrnMapr_SrcDepth
#undef ScrnMapr_DstDepth
#undef ScrnMapr_Map
#undef ScrnMapr_Scale