1 | /*
|
---|
2 | =============================================================================
|
---|
3 | vspray4.c -- spray a pattern onto a graphics screen using tsplot4()
|
---|
4 | Version 5 -- 1987-10-09 -- D.N. Lynx Crowe
|
---|
5 | =============================================================================
|
---|
6 | */
|
---|
7 |
|
---|
8 | #include "stddefs.h"
|
---|
9 | #include "vsddsw.h"
|
---|
10 |
|
---|
11 | static char cl[81];
|
---|
12 |
|
---|
13 | /*
|
---|
14 | =============================================================================
|
---|
15 | vspray4(vobj, vwid, fg, ml, vb, pitch) -- spray a pattern on the screen
|
---|
16 |
|
---|
17 | Uses 'vobj' of width 'vwid' as the screen, 'fg' as the color, 'vb' as
|
---|
18 | the bank, 'pitch' as the vertical pitch, and 'ml' as the pattern.
|
---|
19 |
|
---|
20 | If 'vb' EQ -1, the bank is not set. The color in 'fg' will be taken
|
---|
21 | from the lower 4 bits.
|
---|
22 |
|
---|
23 | The list 'ml' points at pairs of counts and characters. The last count
|
---|
24 | is -1, and the list terminates with a null pointer.
|
---|
25 | =============================================================================
|
---|
26 | */
|
---|
27 |
|
---|
28 | /* |
---|
29 |
|
---|
30 | */
|
---|
31 |
|
---|
32 | vspray4(vobj, vwid, fg, ml, vb, pitch)
|
---|
33 | unsigned *vobj;
|
---|
34 | short vwid, fg, vb, pitch;
|
---|
35 | char *ml[];
|
---|
36 | {
|
---|
37 | register char *cp, *lp, c;
|
---|
38 | register short j, k, row;
|
---|
39 |
|
---|
40 | row = 0;
|
---|
41 |
|
---|
42 | fg &= 0x000F;
|
---|
43 | fg |= fg << 4;
|
---|
44 | fg |= fg << 8;
|
---|
45 |
|
---|
46 | if (-1 NE vb)
|
---|
47 | vbank(vb);
|
---|
48 |
|
---|
49 | while (NULL NE (cp = *ml++)) {
|
---|
50 |
|
---|
51 | lp = cl;
|
---|
52 |
|
---|
53 | while (-1 NE (j = *cp++)) {
|
---|
54 |
|
---|
55 | j &= 0x00FF;
|
---|
56 | c = *cp++;
|
---|
57 |
|
---|
58 | for (k = 0; k < j; k++)
|
---|
59 | *lp++ = c;
|
---|
60 | }
|
---|
61 |
|
---|
62 | *lp = '\0';
|
---|
63 |
|
---|
64 | tsplot4(vobj, vwid, fg, row++, 0, cl, pitch);
|
---|
65 | }
|
---|
66 | }
|
---|