/*
 *	Vdi output functions library interface
 *
 *		v_pline 	polyline
 *		v_pmarker	draw markers
 *		v_gtext 	draw text
 *		v_fillarea	filled area
 *		v_cellarray draw array of rectangles
 *		v_contourfill	flood fill
 *		vr_recfl	fill rect
 *
 *			++jrb	bammi@cadence.com
 *			modified: mj -- ntomczak@vm.ucs.ualberta.ca
 */
#include "common.h"


#ifdef __DEF_ALL__

#define L_v_pline
#define L_v_pmarke
#define L_v_gtext
#define L_v_fillar
#define L_v_cellar
#define L_v_contou
#define L_vr_recfl

#endif /* __DEF_ALL__ */


#ifdef L_v_pline

/* v_pline	polyline
 *	returns void
 */
void v_pline(int handle, int count, int pxyarray[])
{
#ifdef __MSHORT__		/* we have 16 bit ints, just change vdi params */
	_vdiparams[2] = (void *) &pxyarray[0];
#else					/* 32 bit ints - let's copy */
	register short i;
	register short *pts = &_ptsin[0];
	register int   *pxy = &pxyarray[0];

	for(i = count; i != 0; i-- )
	{
		*pts++ = *pxy++;
		*pts++ = *pxy++;
	}
#endif

	__vdi__(VDI_CONTRL_ENCODE(6, count, 0, 0), handle);

#ifdef __MSHORT__
	_vdiparams[2] = (void *)&_ptsin[0]; /* restore vdi parameters */
#endif
}
#endif /* L_v_pline */


#ifdef L_v_pmarke

/* v_pmarker	draw markers
 *	returns void
 */
void v_pmarker(int handle, int count, int pxyarray[])
{
#ifdef __MSHORT__		/* we have 16 bit ints, just change vdi params */
	_vdiparams[2] = (void *) &pxyarray[0];
#else					/* 32 bit ints - let's copy */
	register short i;
	register short *pts = &_ptsin[0];
	register int   *pxy = &pxyarray[0];

	for(i = count; i != 0; i-- )
	{
		*pts++ = *pxy++;
		*pts++ = *pxy++;
	}
#endif

	__vdi__(VDI_CONTRL_ENCODE(7, count, 0, 0), handle);

#ifdef __MSHORT__
	_vdiparams[2] = (void *)&_ptsin[0]; /* restore vdi parameters */
#endif
}
#endif /* L_v_pmarke */


#ifdef L_v_gtext

/* v_gtext	draw text	(extra super slow -- don't ask me why)
 * returns void
 */
v_gtext(int handle, int x, int y, char *str)
{
	unsigned char	ch;
	short *ptr = _intin;

	_ptsin[0] = x;
	_ptsin[1] = y;
	while ( ch	= (unsigned char) *str++)
	*ptr++ = ch;

	__vdi__(VDI_CONTRL_ENCODE(8, 1, (int)(ptr - _intin), 0), handle);
}
#endif /* L_v_gtext */


#ifdef L_v_fillar

/* v_fillarea	filled area
 *	returns void
 */
void v_fillarea(int handle, int count, int pxyarray[])
{
#ifdef __MSHORT__		/* we have 16 bit ints, just change vdi params */
	_vdiparams[2] = (void *) &pxyarray[0];
#else					/* 32 bit ints - let's copy */
	register short i;
	register short *pts = &_ptsin[0];
	register int   *pxy = &pxyarray[0];

	for(i = count; i != 0; i-- )
	{
		*pts++ = *pxy++;
		*pts++ = *pxy++;
	}
#endif

	__vdi__(VDI_CONTRL_ENCODE(9, count, 0, 0), handle);

#ifdef __MSHORT__
	_vdiparams[2] = (void *)&_ptsin[0]; /* restore vdi parameters */
#endif
}
#endif /* L_v_fillar */


#ifdef L_v_cellar

/* v_cellarray	draw array of rectangles
 * returns void
 */
void v_cellarray(int handle, int pxyarray[], int row_length,
		 int elements, int nrows, int write_mode, int colarray[])
{
	short *wptr, *end;

	wptr = _ptsin;
	end  = wptr + 4;
	do {
	*wptr++ = *pxyarray++;
	} while (wptr < end);
	wptr = (short *)&_contrl[7];
	*wptr++ = row_length;
	*wptr++ = elements;
	*wptr++ = nrows;
	*wptr	= write_mode;

	wptr = _intin;
	end = wptr + (short)nrows * (short)elements;
	while (wptr < end)
	*wptr++ = *colarray++;

	__vdi__(VDI_CONTRL_ENCODE(10, 2, (int)(wptr - _intin), 0), handle);
}
#endif /* L_v_cellar */


#ifdef L_v_contou

/* v_contourfill flood fill from seed point to either dsp.edge or colr index
 * returns void
 */
void v_contourfill(int handle, int x, int y, int index)
{
	_ptsin[0] = x;
	_ptsin[1] = y;
	_intin[0] = index;
	__vdi__(VDI_CONTRL_ENCODE(103, 1, 1, 0), handle);
}
#endif /* L_v_contou */


#ifdef L_vr_recfl

/* vr_recfl fill rect
 * returns void
 */
void vr_recfl(int handle, int pxyarray[])
{
#ifdef __MSHORT__		/* we have 16 bit ints, just change vdi params */
	_vdiparams[2] = (void *) &pxyarray[0];
#else					/* 32 bit ints - let's copy */
	short *wptr = _ptsin;

	*wptr++ = *pxyarray++;
	*wptr++ = *pxyarray++;
	*wptr++ = *pxyarray++;
	*wptr =   *pxyarray;
#endif

	__vdi__(VDI_CONTRL_ENCODE(114, 2, 0, 0), handle);

#ifdef __MSHORT__
	_vdiparams[2] = (void *)&_ptsin[0]; /* restore vdi parameters */
#endif
}
#endif /* L_vr_recfl */

/* -eof- */