src/meta/imPfuncs.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *  imPfuncs - functional interface to imPress, support for imPfuncs.h
 *
 *  Written by William LeFebvre, LCSE, Rice University
 *
 *  This program can be freely redistributed to anyone, with the following
 *  provisions:  that this comment remain intact, and that no money is
 *  charged or collected for that redistribution.
 */

#include <stdio.h>
#include <varargs.h>
#include "imPcodes.h"
#include "imPfuncs.h"

/* commands with byte operands */

/* im_b(code, b) is defined in imPfuncs.h */

/* commands with word operands: */

im_w(code, w)

int code;
unsigned int w;

{
    putc(code, imout);
    im_putword(w);
}

im_www(code, wa, wb, wc)

int code;
unsigned int wa;
unsigned int wb;
unsigned int wc;

{
    putc(code, imout);
    im_putword(wa);
    im_putword(wb);
    im_putword(wc);
}

im_wwwww(code, wa, wb, wc, wd, we)

int code;
unsigned int wa;
unsigned int wb;
unsigned int wc;
unsigned int wd;
unsigned int we;

{
    putc(code, imout);
    im_putword(wa);
    im_putword(wb);
    im_putword(wc);
    im_putword(wd);
    im_putword(we);
}

/* commands with bit operands: */

im_21(code, b2, b1)             /* pads 5 bits on left */

unsigned int b2;
unsigned int b1;

{
    putc(code, imout);
    im_putbyte((b2 << 1) | b1);
}

im_223(code, b2a, b2b, b3)      /* pads 1 bit on left */

unsigned int b2a;
unsigned int b2b;
unsigned int b3;

{
    putc(code, imout);
    im_putbyte((b2a << 5) | (b2b << 3) | b3);
}

im_77(code, b7a, b7b)           /* pads 2 bits on left */

unsigned int b7a;
unsigned int b7b;

{
    putc(code, imout);
    im_putword((b7a << 7) | b7b);
}

im_putstring(string)

char *string;

{
    fputs(string, imout);
    im_putbyte(0);
}

imCreateFamilyTable(va_alist)

va_dcl

{
    va_list vars;
    unsigned int family;
    unsigned int pairs;
    unsigned int map_name;
    char         *font_name;

    va_start(vars);

    /* first arguments are:  family, pairs */
    family = va_arg(vars, unsigned int);
    pairs  = va_arg(vars, unsigned int);

    /* write the first part of the command */
    putc(imP_CREATE_FAMILY_TABLE, imout);
    im_putbyte(family);
    im_putbyte(pairs);

    /* write each map_name, font_name pair */
    while (pairs-- > 0)
    {
        map_name = va_arg(vars, unsigned int);
        im_putbyte(map_name);
        font_name = va_arg(vars, char *);
        im_putstring(font_name);
    }

    va_end(vars);
}

imCreatePath(va_alist)

va_dcl

{
    va_list vars;
    int count;
    int h;
    int v;

    va_start(vars);

    /* first argument is vertex-count */
    count = va_arg(vars, int);

    /* write the first part of the command */
    putc(imP_CREATE_PATH, imout);
    im_putword(count);

    /* write each vertex pair */
    while (count-- > 0)
    {
        h = va_arg(vars, int);
        im_putword(h);
        v = va_arg(vars, int);
        im_putword(v);
    }
}

imCreatePathV(count, vec)

unsigned int count;
unsigned int *vec;

{
    /* write the first part of the command */
    putc(imP_CREATE_PATH, imout);
    im_putword(count);

    /* write each vertex pair */
    while (count-- > 0)
    {
        im_putword(*vec);       /* these are macros... */
        vec++;                  /* so im_putword(*vec++) won't always work */
        im_putword(*vec);
        vec++;
    }    
}

#ifdef notyet
/* stuff we still have to do: */
imBitmap(...)
#endif
Revision:	1.1
Committed:	Sat Feb 22 02:07:26 2003 UTC (22 years, 8 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R5
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2			static const char RCSid[] = "$Id$";
3			#endif
4			/*
5			* imPfuncs - functional interface to imPress, support for imPfuncs.h
6			*
7			* Written by William LeFebvre, LCSE, Rice University
8			*
9			* This program can be freely redistributed to anyone, with the following
10			* provisions: that this comment remain intact, and that no money is
11			* charged or collected for that redistribution.
12			*/
13
14			#include <stdio.h>
15			#include <varargs.h>
16			#include "imPcodes.h"
17			#include "imPfuncs.h"
18
19			/* commands with byte operands */
20
21			/* im_b(code, b) is defined in imPfuncs.h */
22
23			/* commands with word operands: */
24
25			im_w(code, w)
26
27			int code;
28			unsigned int w;
29
30			{
31			putc(code, imout);
32			im_putword(w);
33			}
34
35			im_www(code, wa, wb, wc)
36
37			int code;
38			unsigned int wa;
39			unsigned int wb;
40			unsigned int wc;
41
42			{
43			putc(code, imout);
44			im_putword(wa);
45			im_putword(wb);
46			im_putword(wc);
47			}
48
49			im_wwwww(code, wa, wb, wc, wd, we)
50
51			int code;
52			unsigned int wa;
53			unsigned int wb;
54			unsigned int wc;
55			unsigned int wd;
56			unsigned int we;
57
58			{
59			putc(code, imout);
60			im_putword(wa);
61			im_putword(wb);
62			im_putword(wc);
63			im_putword(wd);
64			im_putword(we);
65			}
66
67			/* commands with bit operands: */
68
69			im_21(code, b2, b1) /* pads 5 bits on left */
70
71			unsigned int b2;
72			unsigned int b1;
73
74			{
75			putc(code, imout);
76			im_putbyte((b2 << 1) \| b1);
77			}
78
79			im_223(code, b2a, b2b, b3) /* pads 1 bit on left */
80
81			unsigned int b2a;
82			unsigned int b2b;
83			unsigned int b3;
84
85			{
86			putc(code, imout);
87			im_putbyte((b2a << 5) \| (b2b << 3) \| b3);
88			}
89
90			im_77(code, b7a, b7b) /* pads 2 bits on left */
91
92			unsigned int b7a;
93			unsigned int b7b;
94
95			{
96			putc(code, imout);
97			im_putword((b7a << 7) \| b7b);
98			}
99
100			im_putstring(string)
101
102			char *string;
103
104			{
105			fputs(string, imout);
106			im_putbyte(0);
107			}
108
109			imCreateFamilyTable(va_alist)
110
111			va_dcl
112
113			{
114			va_list vars;
115			unsigned int family;
116			unsigned int pairs;
117			unsigned int map_name;
118			char *font_name;
119
120			va_start(vars);
121
122			/* first arguments are: family, pairs */
123			family = va_arg(vars, unsigned int);
124			pairs = va_arg(vars, unsigned int);
125
126			/* write the first part of the command */
127			putc(imP_CREATE_FAMILY_TABLE, imout);
128			im_putbyte(family);
129			im_putbyte(pairs);
130
131			/* write each map_name, font_name pair */
132			while (pairs-- > 0)
133			{
134			map_name = va_arg(vars, unsigned int);
135			im_putbyte(map_name);
136			font_name = va_arg(vars, char *);
137			im_putstring(font_name);
138			}
139
140			va_end(vars);
141			}
142
143			imCreatePath(va_alist)
144
145			va_dcl
146
147			{
148			va_list vars;
149			int count;
150			int h;
151			int v;
152
153			va_start(vars);
154
155			/* first argument is vertex-count */
156			count = va_arg(vars, int);
157
158			/* write the first part of the command */
159			putc(imP_CREATE_PATH, imout);
160			im_putword(count);
161
162			/* write each vertex pair */
163			while (count-- > 0)
164			{
165			h = va_arg(vars, int);
166			im_putword(h);
167			v = va_arg(vars, int);
168			im_putword(v);
169			}
170			}
171
172			imCreatePathV(count, vec)
173
174			unsigned int count;
175			unsigned int *vec;
176
177			{
178			/* write the first part of the command */
179			putc(imP_CREATE_PATH, imout);
180			im_putword(count);
181
182			/* write each vertex pair */
183			while (count-- > 0)
184			{
185			im_putword(vec); / these are macros... */
186			vec++; /* so im_putword(vec++) won't always work /
187			im_putword(*vec);
188			vec++;
189			}
190			}
191
192			#ifdef notyet
193			/* stuff we still have to do: */
194			imBitmap(...)
195			#endif