134d7bad3065ff5d76d90762329d9776acb24e43
[crow/jumpnbump.git] / dos / gfx.c
1 #include "globals.h"
2
3
4 void open_screen(void)
5 {
6         __dpmi_regs regs;
7         char *ptr1;
8
9         regs.x.ax = 0x13;
10         __dpmi_int(0x10, &regs);
11
12         outportw(0x3c4, 0x0604);
13         outportw(0x3c4, 0x0100);
14         outportb(0x3c2, 0xe7);
15         outportw(0x3c4, 0x0300);
16
17         outportb(0x3d4, 0x11);
18         outportb(0x3d5, inportb(0x3d5) & 0x7f);
19
20         outportw(0x3d4, 0x7100);
21         outportw(0x3d4, 0x6301);
22         outportw(0x3d4, 0x6402);
23         outportw(0x3d4, 0x9203);
24         outportw(0x3d4, 0x6604);
25         outportw(0x3d4, 0x8205);
26         outportw(0x3d4, 0x2b06);
27         outportw(0x3d4, 0xb207);
28         outportw(0x3d4, 0x0008);
29         outportw(0x3d4, 0x6109);
30         outportw(0x3d4, 0x1310);
31         outportw(0x3d4, 0xac11);
32         outportw(0x3d4, 0xff12);
33         outportw(0x3d4, 0x3213);
34         outportw(0x3d4, 0x0014);
35         outportw(0x3d4, 0x0715);
36         outportw(0x3d4, 0x1a16);
37         outportw(0x3d4, 0xe317);
38
39         outportw(0x3d4, 0x3213);
40
41         ptr1 = (char *) (0xa0000 + __djgpp_conventional_base);
42         outportw(0x3c4, 0x0f02);
43         memset(ptr1, 0, 65535);
44
45 }
46
47
48 void wait_vrt(int mix)
49 {
50         if (mix) {
51                 while ((inportb(0x3da) & 8) == 0)
52                         dj_mix();
53                 while ((inportb(0x3da) & 8) == 8)
54                         dj_mix();
55         } else {
56                 while ((inportb(0x3da) & 8) == 0);
57                 while ((inportb(0x3da) & 8) == 8);
58         }
59 }
60
61 void clear_page(int page, int color)
62 {
63         outportw(0x3c4, 0x0f02);
64         memset((char *) (0xa0000 - __djgpp_base_address), 0, 32768);
65 }
66
67 void clear_lines(int page, int y, int count, int color)
68 {
69         int i;
70
71         outportw(0x3c4, 0x0f02);
72         for (i=0; i<count; i++)
73                 if ((i+y)<256)
74                         memset((char *) (0xa0000 + (i+y) * 100 + __djgpp_conventional_base), 0, 100);
75 }
76
77 int get_pixel(int page, int x, int y)
78 {
79         outportw(0x3ce, (((x) & 3) << 8) + 0x04);
80         //outportw(0x3c4, ((1 << ((x) & 3)) << 8) + 0x02);
81         return *(char *) (0xa0000 + (y * 100 + (x >> 2)) + ((long) page << 15) - __djgpp_base_address);
82 }
83
84 void set_pixel(int page, int x, int y, int color)
85 {
86         //outportw(0x3ce, (((x) & 3) << 8) + 0x04);
87         outportw(0x3c4, ((1 << ((x) & 3)) << 8) + 0x02);
88         *(char *) (0xa0000 + (y * 100 + (x >> 2)) + ((long) page << 15) - __djgpp_base_address) = color;
89 }
90
91 void flippage(int page)
92 {
93         outportw(0x3d4, (page << 23) + 0x0d);
94         outportw(0x3d4, ((page << 15) & 0xff00) + 0x0c);
95 }
96
97 #if 0
98 void get_block(char page, short x, short y, short width, short height, char *buffer)
99 {
100         short c1, c2, c3;
101         char *buffer_ptr, *vga_ptr;
102
103         for (c3 = 0; c3 < 4; c3++) {
104                 outportw(0x3ce, (((x + c3) & 3) << 8) + 0x04);
105                 for (c1 = 0; (c1 + c3) < width; c1 += 4) {
106                         buffer_ptr = &buffer[(c1 + c3) * height];
107                         vga_ptr = (char *) (0xa0000 + ((long) page << 15) + (long) y * 100 + ((x + c1 + c3) >> 2) + __djgpp_conventional_base);
108                         for (c2 = 0; c2 < height; c2++) {
109                                 *buffer_ptr = *vga_ptr;
110                                 buffer_ptr++;
111                                 vga_ptr += 100;
112                         }
113                 }
114         }
115
116 }
117 #endif
118
119 #if 0
120 void put_block(char page, short x, short y, short width, short height, char *buffer)
121 {
122         short c1, c2, c3;
123         char *vga_ptr, *buffer_ptr;
124
125         for (c3 = 0; c3 < 4; c3++) {
126                 outportw(0x3c4, ((1 << ((x + c3) & 3)) << 8) + 0x02);
127                 for (c1 = 0; (c1 + c3) < width; c1 += 4) {
128                         vga_ptr = (char *) (0xa0000 + ((long) page << 15) + (long) y * 100 + ((x + c1 + c3) >> 2) + __djgpp_conventional_base);
129                         buffer_ptr = &buffer[(c1 + c3) * height];
130                         for (c2 = 0; c2 < height; c2++) {
131                                 *vga_ptr = *buffer_ptr;
132                                 vga_ptr += 100;
133                                 buffer_ptr++;
134                         }
135                 }
136         }
137
138 }
139 #endif
140
141 void put_text(char page, int x, int y, char *text, char align)
142 {
143         int c1;
144         int t1;
145         int width;
146         int cur_x;
147         int image;
148
149         if (text == NULL || strlen(text) == 0)
150                 return;
151         if (font_gobs == NULL)
152                 return;
153
154         width = 0;
155         c1 = 0;
156         while (text[c1] != 0) {
157                 t1 = text[c1];
158                 c1++;
159                 if (t1 == ' ') {
160                         width += 5;
161                         continue;
162                 }
163                 if (t1 >= 33 && t1 <= 34)
164                         image = t1 - 33;
165                 else if (t1 >= 39 && t1 <= 41)
166                         image = t1 - 37;
167                 else if (t1 >= 44 && t1 <= 59)
168                         image = t1 - 39;
169                 else if (t1 >= 64 && t1 <= 90)
170                         image = t1 - 43;
171                 else if (t1 >= 97 && t1 <= 122)
172                         image = t1 - 49;
173                 else if (t1 == '~')
174                         image = 74;
175                 else if (t1 == 0x84)
176                         image = 75;
177                 else if (t1 == 0x86)
178                         image = 76;
179                 else if (t1 == 0x8e)
180                         image = 77;
181                 else if (t1 == 0x8f)
182                         image = 78;
183                 else if (t1 == 0x94)
184                         image = 79;
185                 else if (t1 == 0x99)
186                         image = 80;
187                 else
188                         continue;
189                 width += pob_width(image, font_gobs) + 1;
190         }
191
192         switch (align) {
193         case 0:
194                 cur_x = x;
195                 break;
196         case 1:
197                 cur_x = x - width;
198                 break;
199         case 2:
200                 cur_x = x - width / 2;
201                 break;
202         }
203         c1 = 0;
204         while (text[c1] != 0) {
205                 t1 = text[c1];
206                 c1++;
207                 if (t1 == ' ') {
208                         cur_x += 5;
209                         continue;
210                 }
211                 if (t1 >= 33 && t1 <= 34)
212                         image = t1 - 33;
213                 else if (t1 >= 39 && t1 <= 41)
214                         image = t1 - 37;
215                 else if (t1 >= 44 && t1 <= 59)
216                         image = t1 - 39;
217                 else if (t1 >= 64 && t1 <= 90)
218                         image = t1 - 43;
219                 else if (t1 >= 97 && t1 <= 122)
220                         image = t1 - 49;
221                 else if (t1 == '~')
222                         image = 74;
223                 else if (t1 == 0x84)
224                         image = 75;
225                 else if (t1 == 0x86)
226                         image = 76;
227                 else if (t1 == 0x8e)
228                         image = 77;
229                 else if (t1 == 0x8f)
230                         image = 78;
231                 else if (t1 == 0x94)
232                         image = 79;
233                 else if (t1 == 0x99)
234                         image = 80;
235                 else
236                         continue;
237                 put_pob(page, cur_x, y, image, font_gobs, 1, mask_pic);
238                 cur_x += pob_width(image, font_gobs) + 1;
239         }
240
241 }
242
243
244 void put_pob(char page, short x, short y, short image, char *pob_data, char mask, char *mask_pic)
245 {
246         long c1, c2, c3;
247         long pob_offset;
248         char *pob_ptr, *vga_ptr, *mask_ptr;
249         long width, height;
250         long draw_width, draw_height;
251         char colour;
252
253         if (image < 0 || image >= *(short *) (pob_data))
254                 return;
255
256         pob_offset = *(long *) (pob_data + image * 4 + 2);
257
258         width = draw_width = *(short *) (pob_data + pob_offset);
259         height = draw_height = *(short *) (pob_data + pob_offset + 2);
260         x -= *(short *) (pob_data + pob_offset + 4);
261         y -= *(short *) (pob_data + pob_offset + 6);
262
263         pob_offset += 8;
264
265         if ((x + width) <= 0 || x >= 400)
266                 return;
267         if ((y + height) <= 0 || y >= 256)
268                 return;
269         if (x < 0) {
270                 pob_offset -= x;
271                 draw_width += x;
272                 x = 0;
273         }
274         if ((x + width) > 400)
275                 draw_width -= x + width - 400;
276         if (y < 0) {
277                 pob_offset += -y * width;
278                 draw_height -= -y;
279                 y = 0;
280         }
281         if ((y + height) > 256)
282                 draw_height -= y + height - 256;
283
284         for (c3 = 0; c3 < 4; c3++) {
285                 outportw(0x3c4, ((1 << ((x + c3) & 3)) << 8) + 0x02);
286                 pob_ptr = &pob_data[pob_offset + c3];
287                 vga_ptr = (char *) (0xa0000 + (long) (page << 15) + (long) y * 100L + ((x + c3) >> 2) + __djgpp_conventional_base);
288                 mask_ptr = (char *) (mask_pic + (long) y * 400L + x + c3);
289                 for (c1 = 0; c1 < draw_height; c1++) {
290                         for (c2 = c3; c2 < draw_width; c2 += 4) {
291                                 colour = *mask_ptr;
292                                 if (mask == 0 || (mask == 1 && colour == 0)) {
293                                         colour = *pob_ptr;
294                                         if (colour != 0)
295                                                 *vga_ptr = colour;
296                                 }
297                                 pob_ptr += 4;
298                                 vga_ptr++;
299                                 mask_ptr += 4;
300                         }
301                         pob_ptr += width - c2 + c3;
302                         vga_ptr += (400 - c2 + c3) >> 2;
303                         mask_ptr += 400 - c2 + c3;
304                 }
305         }
306
307 }
308
309
310 char pob_col(short x1, short y1, short image1, char *pob_data1, short x2, short y2, short image2, char *pob_data2)
311 {
312         short c1, c2;
313         long pob_offset1, pob_offset2;
314         short width1, width2;
315         short height1, height2;
316         short check_width, check_height;
317         char *pob_ptr1, *pob_ptr2;
318
319         pob_offset1 = *(long *) (pob_data1 + image1 * 4 + 2);
320         width1 = *(short *) (pob_data1 + pob_offset1);
321         height1 = *(short *) (pob_data1 + pob_offset1 + 2);
322         x1 -= *(short *) (pob_data1 + pob_offset1 + 4);
323         y1 -= *(short *) (pob_data1 + pob_offset1 + 6);
324         pob_offset1 += 8;
325
326         pob_offset2 = *(long *) (pob_data2 + image2 * 4 + 2);
327         width2 = *(short *) (pob_data2 + pob_offset2);
328         height2 = *(short *) (pob_data2 + pob_offset2 + 2);
329         x2 -= *(short *) (pob_data2 + pob_offset2 + 4);
330         y2 -= *(short *) (pob_data2 + pob_offset2 + 6);
331         pob_offset2 += 8;
332
333         if (x1 < x2) {
334                 if ((x1 + width1) <= x2)
335                         return 0;
336                 else if ((x1 + width1) <= (x2 + width2)) {
337                         pob_offset1 += x2 - x1;
338                         check_width = x1 + width1 - x2;
339                 } else {
340                         pob_offset1 += x2 - x1;
341                         check_width = width2;
342                 }
343         } else {
344                 if ((x2 + width2) <= x1)
345                         return 0;
346                 else if ((x2 + width2) <= (x1 + width1)) {
347                         pob_offset2 += x1 - x2;
348                         check_width = x2 + width2 - x1;
349                 } else {
350                         pob_offset2 += x1 - x2;
351                         check_width = width1;
352                 }
353         }
354         if (y1 < y2) {
355                 if ((y1 + height1) <= y2)
356                         return 0;
357                 else if ((y1 + height1) <= (y2 + height2)) {
358                         pob_offset1 += (y2 - y1) * width1;
359                         check_height = y1 + height1 - y2;
360                 } else {
361                         pob_offset1 += (y2 - y1) * width1;
362                         check_height = height2;
363                 }
364         } else {
365                 if ((y2 + height2) <= y1)
366                         return 0;
367                 else if ((y2 + height2) <= (y1 + height1)) {
368                         pob_offset2 += (y1 - y2) * width2;
369                         check_height = y2 + height2 - y1;
370                 } else {
371                         pob_offset2 += (y1 - y2) * width2;
372                         check_height = height1;
373                 }
374         }
375
376         pob_ptr1 = (char *) (pob_data1 + pob_offset1);
377         pob_ptr2 = (char *) (pob_data2 + pob_offset2);
378         for (c1 = 0; c1 < check_height; c1++) {
379                 for (c2 = 0; c2 < check_width; c2++) {
380                         if (*pob_ptr1 != 0 && *pob_ptr2 != 0)
381                                 return 1;
382                         pob_ptr1++;
383                         pob_ptr2++;
384                 }
385                 pob_ptr1 += width1 - check_width;
386                 pob_ptr2 += width2 - check_width;
387         }
388
389         return 0;
390
391 }
392
393
394 short pob_width(short image, char *pob_data)
395 {
396         return *(short *) (pob_data + *(long *) (pob_data + image * 4 + 2));
397 }
398
399
400 short pob_height(short image, char *pob_data)
401 {
402         return *(short *) (pob_data + *(long *) (pob_data + image * 4 + 2) + 2);
403 }
404
405
406 short pob_hs_x(short image, char *pob_data)
407 {
408         return *(short *) (pob_data + *(long *) (pob_data + image * 4 + 2) + 4);
409 }
410
411
412 short pob_hs_y(short image, char *pob_data)
413 {
414         return *(short *) (pob_data + *(long *) (pob_data + image * 4 + 2) + 6);
415 }
416
417
418 char read_pcx(FILE * handle, char *buffer, long buf_len, char *pal)
419 {
420         short c1;
421         short a, b;
422         long ofs1;
423
424         if (buffer != 0) {
425                 fseek(handle, 128, SEEK_CUR);
426
427                 ofs1 = 0;
428
429                 while (ofs1 < buf_len) {
430                         a = fgetc(handle);
431                         if ((a & 0xc0) == 0xc0) {
432                                 b = fgetc(handle);
433                                 a &= 0x3f;
434                                 for (c1 = 0; c1 < a; c1++)
435                                         buffer[ofs1++] = b;
436                         } else
437                                 buffer[ofs1++] = a;
438                 }
439
440                 if (pal != 0) {
441                         fseek(handle, 1, SEEK_CUR);
442                         for (c1 = 0; c1 < 768; c1++)
443                                 pal[c1] = fgetc(handle) >> 2;
444                 }
445
446         }
447
448         fclose(handle);
449         return 0;
450 }