DataMuseum.dk

top - metrics - download

    Length: 4050 (0xfd2)
    Types: TextFile
    Notes: UNIX file
    Names: »cattribute.c«

└─⟦26887b7e0⟧ Bits:30009717 Comet 32 harddisk image
    └─⟦28c352965⟧ »/a« UNIX Filesystem
        └─⟦this⟧ »usr/src/gks/comet/cattribute.c« 

TextFile

#include "../h/vdi.h"
#include "../h/vdii.h"

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* dt1cht      - SET CHARACTER HEIGHT.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
dt1cht(ht)		/* SET CHARACTER HEIGHT */
Charhtn	 ht;
{	Int	acht;	/* AC character height.*/
	int	i;	/* Index to available character sizes.*/
	char	ch;	/* Command character to select hardware char. size.*/

	/* Save value of height.*/
	ws->ncht = ht;

	/* Transform height to AC.*/
	acht = (Int)(ht * ws->wtr.ym);

	/* Find the closest hardware character size <= the requested size.*/
	for (i = 1; i < ws->ws_wsd->wd_ncht; i++)
		if (acht < ws->ws_wsd->wd_lacsz[i].a_y)
			break;
	i = i - 1;
#if DBG > 0
	printf("set character height i=%d,acht=%d\n",i,acht);
#endif
	/* Send character size to device.*/
	putcharsize(i);

	/* Set current character spacing and size.*/
	ws->csp = ws->ws_wsd->wd_lacsp[i];
	ws->csz = ws->ws_wsd->wd_lacsz[i];
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* dt1cal      - SET CHARACTER ALIGNMENT.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
dt1cal(ha, va)		/* SET CHARACTER ALIGNMENT. */
Horal	ha;	/* Horizontal alignment.*/
Veral   va;     /* Vertical alignment.*/
{	ws->cha = ha;
	ws->cva = va;
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* dt1ltp      - SET POLYLINE LINETYPE.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
dt1ltp(lt)		/* SET POLYLINE LINETYPE.*/
Ltype	lt;		/* linetype.*/
{	/* Check for valid linetype.*/
	if (lt >= 1)
		lt = 1;
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* dt1lco      - SET POLYLINE COLOR INDEX.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
dt1lco(ci)		/* SET POLYLINE COLOUR INDEX.*/
Cindex	ci;		/* colour index.*/
{
	/* Check for valid colour index.*/
	if (ci >= 9)
		ci = 1;

	ws->plci = ci;

	/* Send colour index to device.*/
	putpcindex(ci);
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* dt1mco      - SET POLYMARKER COLOR INDEX.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
dt1mco(ci)		/* SET POLYMARKER COLOUR INDEX.*/
Cindex	ci;		/* colour index.*/
{
	/* Check for valid colour index.*/
	if (ci >= 8)
		ci = 1;

	ws->macol = ci;

	/* Send colour index to device.*/
	putmcindex(ci);
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* dt1tco      - SET TEXT COLOR INDEX.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
dt1tco(ci)		/* SET TEXT COLOUR INDEX.*/
Cindex	ci;		/* colour index.*/
{
	/* Check for valid colour index.*/
	if (ci >= 8)
		ci = 1;

	ws->txcol = ci;
	/* Send colour index to device.*/
	puttcindex(ci);
}


/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* dt1mtp      - SET MARKER TYPE.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
dt1mtp(mt)
Mtype	mt;
{	if (mt > ws->ws_wsd->wd_nmty)
		mt = 1;
	ws->mtyp = mt;
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* dt1fis      - SET FILL AREA INTERIOR STYLE.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
dt1fis(is)
Istyle	is;
{
	ws->fis = is;
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* dt1fco      - SET FILL AREA COLOR INDEX.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
dt1fco(ci)
Cindex	ci;
{
	if (ci > 8) ci = 1;

	ws->fcol = ci;
	putfcindex(ci);
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* dt1col      - SET COLOUR REPRESENTATION.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
dt1col(ci, col)
Cindex	ci;
Colour	*col;
{
}

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* dt1tpa      - SET TEXT PATH.
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
dt1tpa(pa)	
Int	pa;	/* Text path.*/
{
	ws->tpa = pa;
}