1 /* Copyright (C) 2020 SovietPony
3 * This program is free software: you can redistribute it and/or modify
4 * it under the terms of the GNU General Public License as published by
5 * the Free Software Foundation, version 3 of the License ONLY.
7 * This program is distributed in the hope that it will be useful,
8 * but WITHOUT ANY WARRANTY; without even the implied warranty of
9 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
10 * GNU General Public License for more details.
12 * You should have received a copy of the GNU General Public License
13 * along with this program. If not, see <http://www.gnu.org/licenses/>.
38 #include "switch.h" // sw_secrets
41 #include "common/endianness.h"
44 # include <OpenGL/gl.h>
54 #define VGA_TRANSPARENT_COLOR 0
55 #define DEFAULT_SKY_COLOR 0x97
57 #define PLAYER_COLOR_OFFSET 7
63 typedef struct vgaimg
{
80 struct node
*left
, *right
;
86 typedef struct cache
{
92 typedef struct image
{
102 static float screen_scale
;
103 static int screen_width
= 320;
104 static int screen_height
= 200;
105 static byte screen_full
= 0;
106 static int init_screen_width
= 0;
107 static int init_screen_height
= 0;
108 static byte init_screen_full
= 0xFF;
109 static rgb playpal
[256];
110 static byte bright
[256];
111 static GLuint lastTexture
;
115 static image scrnh
[3]; // TITLEPIC INTERPIC ENDPIC
116 static image ltn
[2][2];
119 static image smk_spr
[SMSN
];
120 static image smk_fspr
[FLSN
];
123 static image fx_spr
[15];
124 static char fx_sprd
[15];
127 static image wp_spr
[49*2];
128 static char wp_sprd
[49*2];
131 static image item_spr
[58];
132 static char item_sprd
[58];
135 static image plr_spr
[27*2];
136 static image plr_msk
[27*2];
137 static char plr_sprd
[27*2];
138 static image plr_wpn
[11][6];
141 static image pl_spr
[2];
142 static image pl_msk
[2];
143 static image mn_spr
[MN_TN
][29*2];
144 static image mn_man_msk
[29*2];
145 static char mn_sprd
[MN_TN
][29*2];
146 static image mn_fspr
[8];
147 static image mn_sgun
[2];
150 static image sth
[22];
151 static image bfh
[160 - '!'];
152 static image sfh
[160 - '!'];
155 static image keys
[3];
161 static image msklh
[2];
171 static const char *anm
[ANIT
- 1][5] = {
172 {"WALL22_1", "WALL23_1", "WALL23_2", NULL
, NULL
},
173 {"WALL58_1", "WALL58_2", "WALL58_3", NULL
, NULL
},
174 {"W73A_1", "W73A_2", NULL
, NULL
, NULL
},
175 {"RP2_1", "RP2_2", "RP2_3", "RP2_4", NULL
}
177 static byte w_horiz
= 1;
178 static int max_wall_width
;
179 static int max_wall_height
;
180 static int max_textures
;
181 static image walp
[256];
182 static byte walswp
[256];
183 static byte walani
[256];
184 static image anip
[ANIT
][5];
185 static byte anic
[ANIT
];
190 // https://blackpawn.com/texts/lightmaps/
191 static node
*R_node_alloc (node
*p
, int w
, int h
) {
197 node
*n
= R_node_alloc(p
->left
, w
, h
);
198 return n
? n
: R_node_alloc(p
->right
, w
, h
);
200 int pw
= p
->r
- p
->l
+ 1;
201 int ph
= p
->b
- p
->t
+ 1;
202 if (p
->leaf
|| pw
< w
|| ph
< h
) {
204 } else if (pw
== w
&& ph
== h
) {
208 p
->left
= malloc(sizeof(node
));
209 p
->right
= malloc(sizeof(node
));
210 if (pw
- w
> ph
- h
) {
241 return R_node_alloc(p
->left
, w
, h
);
246 static int R_node_have_leaf (node
*n
) {
247 return n
&& (n
->leaf
|| R_node_have_leaf(n
->left
) || R_node_have_leaf(n
->right
));
250 static void R_node_free_recursive (node
*n
) {
252 R_node_free_recursive(n
->left
);
253 R_node_free_recursive(n
->right
);
258 static void R_node_free (node
*n
) {
260 //logo("free node %p {%i:%i:%i:%i}\n", n, n->l, n->t, n->r, n->b);
262 assert(n
->left
== NULL
);
263 assert(n
->right
== NULL
);
268 assert(p
->leaf
== 0);
271 if (R_node_have_leaf(p
) == 0) {
272 R_node_free_recursive(p
->left
);
274 R_node_free_recursive(p
->right
);
284 static void R_cache_get_max_texture_size (int *w
, int *h
) {
286 glGetIntegerv(GL_MAX_TEXTURE_SIZE
, &size
);
287 size
= min(max(size
, 0), 512); // more can be buggy on older hardware
292 static void R_gl_bind_texture (GLuint id
) {
293 if (id
!= lastTexture
) {
294 glBindTexture(GL_TEXTURE_2D
, id
);
298 static cache
*R_cache_new (void) {
302 R_cache_get_max_texture_size(&w
, &h
);
304 glGenTextures(1, &id
);
306 R_gl_bind_texture(id
);
307 glTexParameteri(GL_TEXTURE_2D
, GL_TEXTURE_MIN_FILTER
, GL_NEAREST
);
308 glTexParameteri(GL_TEXTURE_2D
, GL_TEXTURE_MAG_FILTER
, GL_NEAREST
);
309 glTexImage2D(GL_TEXTURE_2D
, 0, GL_RGBA
, w
, h
, 0, GL_RGBA
, GL_UNSIGNED_BYTE
, NULL
);
310 c
= malloc(sizeof(cache
));
318 glDeleteTextures(1, &id
);
322 //logo("new cache %p\n", c);
326 static void R_cache_free (cache
*root
, int freetexture
) {
331 R_node_free_recursive(c
->root
.left
);
332 R_node_free_recursive(c
->root
.right
);
333 if (freetexture
&& c
->id
!= 0) {
334 glDeleteTextures(1, &c
->id
);
341 static node
*R_cache_alloc (cache
*root
, int w
, int h
) {
343 assert(w
> 0 && h
> 0);
348 R_cache_get_max_texture_size(&maxw
, &maxh
);
349 if (w
<= maxw
&& h
<= maxh
) {
351 n
= R_node_alloc(&c
->root
, w
, h
);
363 n
= R_node_alloc(&c
->root
, w
, h
);
372 //logo("new node %p {%i:%i:%i:%i}\n", n, n->l, n->t, n->r, n->b);
374 logo("new node failed {%i:%i}\n", w
, h
);
379 static void R_cache_update (node
*n
, const void *data
, int x
, int y
, int w
, int h
) {
386 assert(n
->l
+ x
+ w
- 1 <= n
->r
);
387 assert(n
->t
+ y
+ h
- 1 <= n
->b
);
388 R_gl_bind_texture(n
->base
->id
);
389 glTexSubImage2D(GL_TEXTURE_2D
, 0, n
->l
+ x
, n
->t
+ y
, w
, h
, GL_RGBA
, GL_UNSIGNED_BYTE
, data
);
392 /* Generic helpers */
394 static void R_init_playpal (void) {
396 byte
*vgapal
= M_lock(F_getresid("PLAYPAL"));
397 for (i
= 0; i
< 256; i
++) {
399 .r
= vgapal
[i
* 3 + 0] * 255 / 63,
400 .g
= vgapal
[i
* 3 + 1] * 255 / 63,
401 .b
= vgapal
[i
* 3 + 2] * 255 / 63,
403 bright
[i
] = ((int)vgapal
[i
* 3 + 0] + vgapal
[i
* 3 + 1] + vgapal
[i
* 3 + 2]) * 8 / (63 * 3);
408 static vgaimg
*R_getvga (int id
) {
409 int loaded
= M_was_locked(id
);
410 vgaimg
*v
= M_lock(id
);
411 if (v
!= NULL
&& !loaded
) {
412 v
->w
= short2host(v
->w
);
413 v
->h
= short2host(v
->h
);
414 v
->x
= short2host(v
->x
);
415 v
->y
= short2host(v
->y
);
420 static rgba
*R_extract_flame_spr (vgaimg
*v
) {
421 static const byte flametab
[16] = {
422 0xBC, 0xBA, 0xB8, 0xB6, 0xB4, 0xB2, 0xB0, 0xD5,
423 0xD6, 0xD7, 0xA1, 0xA0, 0xE3, 0xE2, 0xE1, 0xE0
426 rgba
*s
= malloc(v
->w
* v
->h
* sizeof(rgba
));
428 for (j
= 0; j
< v
->h
; j
++) {
429 for (i
= 0; i
< v
->w
; i
++) {
430 int k
= j
* v
->w
+ i
;
431 byte c
= v
->data
[k
] + bright
[DEFAULT_SKY_COLOR
];
433 .r
= playpal
[flametab
[c
]].r
,
434 .g
= playpal
[flametab
[c
]].g
,
435 .b
= playpal
[flametab
[c
]].b
,
436 .a
= v
->data
[k
] == VGA_TRANSPARENT_COLOR
? 0x00 : 0xFF,
444 static rgba
*R_extract_smoke_spr (vgaimg
*v
) {
446 rgba
*s
= malloc(v
->w
* v
->h
* sizeof(rgba
));
448 for (j
= 0; j
< v
->h
; j
++) {
449 for (i
= 0; i
< v
->w
; i
++) {
450 int k
= j
* v
->w
+ i
;
451 byte c
= ((v
->data
[k
] + bright
[DEFAULT_SKY_COLOR
]) + 0x60) ^ 0x0F;
452 byte a
= 0xFF - ((int)playpal
[c
].r
+ playpal
[c
].g
+ playpal
[c
].b
) / 3;
457 .a
= v
->data
[k
] == VGA_TRANSPARENT_COLOR
? 0x00 : a
,
465 static rgba
*R_extract_mask_spr (vgaimg
*v
) {
467 rgba
*s
= malloc(v
->w
* v
->h
* sizeof(rgba
));
469 for (j
= 0; j
< v
->h
; j
++) {
470 for (i
= 0; i
< v
->w
; i
++) {
471 int k
= j
* v
->w
+ i
;
473 if (c
>= 0x70 && c
<= 0x7F) {
474 byte mask
= c
- 0x70;
475 mask
= 0xFF - ((mask
<< 4) | mask
);
496 static rgba
*R_extract_rgba_spr (vgaimg
*v
) {
498 rgba
*s
= malloc(v
->w
* v
->h
* sizeof(rgba
));
500 for (j
= 0; j
< v
->h
; j
++) {
501 for (i
= 0; i
< v
->w
; i
++) {
502 int k
= j
* v
->w
+ i
;
508 .a
= c
== VGA_TRANSPARENT_COLOR
? 0x00 : 0xFF,
518 static image
R_gl_create_image (const rgba
*buf
, int w
, int h
) {
519 node
*n
= R_cache_alloc(root
, w
, h
);
521 R_cache_update(n
, buf
, 0, 0, w
, h
);
531 static image
R_gl_get_special_image (int id
, rgba
*(*fn
)(vgaimg
*)) {
534 //F_getresname(name, id);
535 //logo("load image: %.8s\n", name);
536 vgaimg
*v
= R_getvga(id
);
538 rgba
*buf
= (*fn
)(v
);
539 img
= R_gl_create_image(buf
, v
->w
, v
->h
);
553 static image
R_gl_getimage (int id
) {
554 return R_gl_get_special_image(id
, &R_extract_rgba_spr
);
557 static image
R_gl_loadimage (const char name
[8]) {
558 return R_gl_getimage(F_getresid(name
));
561 static image
R_gl_get_special_spr (const char n
[4], int s
, int d
, rgba
*(*fn
)(vgaimg
*)) {
562 return R_gl_get_special_image(F_getsprid(n
, s
, d
, NULL
), fn
);
565 static void R_gl_free_image (image
*img
) {
566 if (img
->n
!= NULL
&& img
->res
>= 0) {
573 static void R_gl_draw_quad (int x
, int y
, int w
, int h
) {
575 glVertex2i(x
+ w
, y
);
577 glVertex2i(x
, y
+ h
);
578 glVertex2i(x
+ w
, y
+ h
);
582 static void R_gl_draw_textured (image
*img
, int x
, int y
, int w
, int h
, int flip
) {
584 GLfloat nw
= img
->n
->base
->root
.r
+ 1;
585 GLfloat nh
= img
->n
->base
->root
.b
+ 1;
586 GLfloat ax
= (flip
? img
->n
->l
: img
->n
->r
+ 1) / nw
;
587 GLfloat bx
= (flip
? img
->n
->r
+ 1 : img
->n
->l
) / nh
;
588 GLfloat ay
= (img
->n
->t
) / nw
;
589 GLfloat by
= (img
->n
->b
+ 1) / nh
;
590 R_gl_bind_texture(img
->n
->base
->id
);
591 glEnable(GL_TEXTURE_2D
);
593 glTexCoord2f(ax
, ay
); glVertex2i(x
+ w
, y
);
594 glTexCoord2f(bx
, ay
); glVertex2i(x
, y
);
595 glTexCoord2f(bx
, by
); glVertex2i(x
, y
+ h
);
596 glTexCoord2f(ax
, by
); glVertex2i(x
+ w
, y
+ h
);
599 glColor3ub(255, 0, 0);
601 glBlendFunc(GL_SRC_ALPHA
, GL_ONE_MINUS_SRC_ALPHA
);
602 glDisable(GL_TEXTURE_2D
);
603 R_gl_draw_quad(x
, y
, w
, h
);
607 /* fit image into rectangle without applying offset and transparency */
608 static void R_gl_draw_image_ext (image
*img
, int x
, int y
, int w
, int h
) {
610 glColor3ub(255, 255, 255);
611 glBlendFunc(GL_SRC_ALPHA
, GL_ONE_MINUS_SRC_ALPHA
);
612 R_gl_draw_textured(img
, x
, y
, w
, h
, 0);
615 /* draw sprite with offset and coloring */
616 static void R_gl_draw_image_color (image
*img
, int x
, int y
, int flip
) {
617 int xx
= flip
? x
- img
->w
+ img
->x
: x
- img
->x
;
619 glBlendFunc(GL_SRC_ALPHA
, GL_ONE_MINUS_SRC_ALPHA
);
620 R_gl_draw_textured(img
, xx
, y
- img
->y
, img
->w
, img
->h
, flip
);
623 /* draw sprite with offset */
624 static void R_gl_draw_image (image
*img
, int x
, int y
, int flip
) {
625 glColor3ub(255, 255, 255);
626 R_gl_draw_image_color(img
, x
, y
, flip
);
629 static void R_gl_set_color (byte c
) {
630 glColor3ub(playpal
[c
].r
, playpal
[c
].g
, playpal
[c
].b
);
633 static void R_gl_setclip (int x
, int y
, int w
, int h
) {
634 glScissor(x
* screen_scale
, (SCRH
- h
- y
) * screen_scale
, w
* screen_scale
, h
* screen_scale
);
637 static void R_gl_setmatrix (void) {
638 SCRW
= screen_width
/ screen_scale
;
639 SCRH
= screen_height
/ screen_scale
;
640 glScissor(0, 0, screen_width
, screen_height
);
641 glViewport(0, 0, screen_width
, screen_height
);
642 glMatrixMode(GL_PROJECTION
);
644 glOrtho(0, SCRW
, SCRH
, 0, 0, 1);
645 glMatrixMode(GL_MODELVIEW
);
651 static image
Z_getspr (const char n
[4], int s
, int d
, char *dir
) {
652 int h
= F_getsprid(n
, s
, d
, dir
);
653 return R_gl_getimage(h
);
656 static image
*Z_get_char_image (image
*img
, int ch
) {
658 ch
= cp866_toupper(ch
);
659 if (ch
> 32 && ch
< 160) {
665 static int Z_get_char_width_generic (image
*img
, int off
, int ch
) {
666 image
*p
= Z_get_char_image(img
, ch
);
667 return p
== NULL
? off
: p
->w
- 1;
670 static int Z_putch_generic (image
*img
, int off
, int ch
) {
671 image
*p
= Z_get_char_image(img
, ch
);
672 int w
= p
== NULL
? off
: p
->w
- 1;
673 if (p
!= NULL
&& p
->n
!= NULL
) {
674 R_gl_draw_image(p
, prx
, pry
, 0);
680 static int Z_get_string_width_generic (image
*img
, int off
, const char *fmt
, va_list ap
) {
683 vsprintf(buf
, fmt
, ap
);
684 for (i
= w
= ww
= 0; buf
[i
]; ++i
) {
692 w
+= Z_get_char_width_generic(img
, off
, (byte
)buf
[i
]);
698 static int Z_printf_generic (image
*img
, int off
, const char *fmt
, va_list ap
) {
701 vsprintf(buf
, fmt
, ap
);
702 for (i
= w
= ww
= 0; buf
[i
]; ++i
) {
712 w
+= Z_putch_generic(img
, off
, (byte
)buf
[i
]);
718 static void Z_gotoxy (int x
, int y
) {
723 static int Z_get_big_string_width (const char *fmt
, ...) {
726 int w
= Z_get_string_width_generic(bfh
, 12, fmt
, a
);
731 static int Z_printbf (const char *fmt
, ...) {
734 int w
= Z_printf_generic(bfh
, 12, fmt
, a
);
739 static int Z_get_small_string_width (const char *fmt
, ...) {
742 int w
= Z_get_string_width_generic(sfh
, 7, fmt
, a
);
747 static int Z_printsf (const char *fmt
, ...) {
750 int w
=Z_printf_generic(sfh
, 7, fmt
, a
);
755 static void Z_printhf (const char *fmt
, ...) {
760 vsprintf(buf
, fmt
, a
);
762 for (i
= 0; buf
[i
]; ++i
) {
793 R_gl_draw_image(&sth
[c
], prx
, pry
, 0);
801 static image
*PL_getspr (int s
, int d
, int msk
) {
802 int i
= (s
- 'A') * 2 + d
;
803 return msk
? &plr_msk
[i
] : &plr_spr
[i
];
806 #define SCROLLER_MIDDLE 10
807 #define TEXTFIELD_MIDDLE 2
809 static void get_entry_size (const menu_t
*m
, int i
, int *w
, int *h
) {
818 msg
.type
= GM_GETENTRY
;
819 if (GM_send(m
, i
, &msg
)) {
820 type
= msg
.integer
.i
;
825 case GM_TEXTFIELD_BUTTON
:
826 msg
.type
= GM_GETCAPTION
;
827 if (GM_send(m
, i
, &msg
)) {
828 x
= Z_get_big_string_width("%.*s", msg
.string
.maxlen
, msg
.string
.s
);
831 case GM_SMALL_BUTTON
:
832 msg
.type
= GM_GETCAPTION
;
833 if (GM_send(m
, i
, &msg
)) {
834 x
= Z_get_small_string_width("%.*s", msg
.string
.maxlen
, msg
.string
.s
);
842 msg
.type
= GM_GETSTR
;
843 if (GM_send(m
, i
, &msg
)) {
844 x
+= Z_get_big_string_width("%.*s", msg
.string
.maxlen
, msg
.string
.s
);
848 case GM_SMALL_BUTTON
:
849 msg
.type
= GM_GETSTR
;
850 if (GM_send(m
, i
, &msg
)) {
851 x
+= Z_get_big_string_width("%.*s", msg
.string
.maxlen
, msg
.string
.s
);
856 x
+= (SCROLLER_MIDDLE
+ 2) * 8;
860 case GM_TEXTFIELD_BUTTON
:
861 msg
.type
= GM_GETSTR
;
862 if (GM_send(m
, i
, &msg
)) {
863 x
+= (msg
.string
.maxlen
+ 2) * 8;
865 x
+= (TEXTFIELD_MIDDLE
+ 2) * 8;
877 static void get_menu_size (const menu_t
*m
, int *w
, int *h
) {
881 int i
, n
, x
, y
, xx
, yy
, type
;
884 if (GM_send_this(m
, &msg
)) {
886 type
= msg
.integer
.s
;
889 msg
.type
= GM_GETTITLE
;
890 if (GM_send_this(m
, &msg
)) {
892 case GM_BIG
: x
= Z_get_big_string_width("%.*s", msg
.string
.maxlen
, msg
.string
.s
); break;
893 case GM_SMALL
: x
= Z_get_small_string_width("%.*s", msg
.string
.maxlen
, msg
.string
.s
); break;
897 for (i
= 0; i
< n
; i
++) {
898 get_entry_size(m
, i
, &xx
, &yy
);
910 static int GM_draw (void) {
911 int i
, j
, n
, x
, y
, xoff
, yoff
, cur
, w
, type
, recv
;
912 const menu_t
*m
= GM_get();
915 get_menu_size(m
, &x
, &y
);
916 x
= SCRW
/ 2 - x
/ 2;
917 y
= SCRH
/ 2 - y
/ 2;
920 if (GM_send_this(m
, &msg
)) {
923 type
= msg
.integer
.s
;
924 msg
.type
= GM_GETTITLE
;
925 if (GM_send_this(m
, &msg
)) {
928 case GM_SMALL
: yoff
= 8; Z_printsf("%.*s", msg
.string
.maxlen
, msg
.string
.s
); break;
929 case GM_BIG
: yoff
= 20; Z_printbf("%.*s", msg
.string
.maxlen
, msg
.string
.s
); break;
935 for (i
= 0; i
< n
; i
++) {
936 msg
.type
= GM_GETENTRY
;
937 if (GM_send(m
, i
, &msg
)) {
938 type
= msg
.integer
.i
;
940 if (type
== GM_SMALL_BUTTON
) {
941 Z_gotoxy(x
- 8, y
+ yoff
);
944 R_gl_draw_image(&msklh
[(gm_tm
/ 6) & 1], x
- 25, y
+ yoff
- 8, 0);
947 msg
.type
= GM_GETCAPTION
;
948 if (GM_send(m
, i
, &msg
)) {
949 Z_gotoxy(x
, y
+ yoff
);
950 if (type
== GM_SMALL_BUTTON
) {
951 xoff
= Z_printsf("%.*s", msg
.string
.maxlen
, msg
.string
.s
);
953 xoff
= Z_printbf("%.*s", msg
.string
.maxlen
, msg
.string
.s
);
960 case GM_SMALL_BUTTON
:
961 msg
.type
= GM_GETSTR
;
962 if (GM_send(m
, i
, &msg
)) {
963 Z_gotoxy(x
+ xoff
, y
+ yoff
);
964 if (type
== GM_SMALL_BUTTON
) {
965 Z_printsf("%.*s", msg
.string
.maxlen
, msg
.string
.s
);
967 Z_printbf("%.*s", msg
.string
.maxlen
, msg
.string
.s
);
970 yoff
+= type
== GM_BUTTON
? 16 : 12;
973 case GM_TEXTFIELD_BUTTON
:
975 msg
.type
= GM_GETSTR
;
976 recv
= GM_send(m
, i
, &msg
);
977 w
= recv
? msg
.string
.maxlen
: TEXTFIELD_MIDDLE
;
978 R_gl_draw_image(&mslotl
, x
+ xoff
, y
+ yoff
, 0);
979 for (j
= 1; j
<= w
; j
++) {
980 R_gl_draw_image(&mslotm
, x
+ xoff
+ j
* 8, y
+ yoff
, 0);
982 R_gl_draw_image(&mslotr
, x
+ xoff
+ j
* 8, y
+ yoff
, 0);
983 Z_gotoxy(x
+ xoff
+ 4, y
+ yoff
- 7);
984 if (input
&& i
== cur
) {
985 Z_printsf("%.*s_", imax
, ibuf
);
987 Z_printsf("%.*s", msg
.string
.maxlen
, msg
.string
.s
);
992 R_gl_draw_image(&mbarl
, x
+ xoff
, y
+ yoff
, 0);
993 for (j
= 1; j
< SCROLLER_MIDDLE
; j
++) {
994 R_gl_draw_image(&mbarm
, x
+ xoff
+ j
* 8, y
+ yoff
, 0);
996 R_gl_draw_image(&mbarr
, x
+ xoff
+ j
* 8, y
+ yoff
, 0);
997 msg
.type
= GM_GETINT
;
998 if (GM_send(m
, i
, &msg
)) {
999 int lev
= (msg
.integer
.i
- msg
.integer
.a
) * ((SCROLLER_MIDDLE
- 2) * 8) / msg
.integer
.b
;
1000 R_gl_draw_image(&mbaro
, x
+ xoff
+ lev
+ 8, y
+ yoff
, 0);
1016 static void R_draw_fld (byte
*fld
, int minx
, int miny
, int maxx
, int maxy
, int fg
) {
1018 assert(minx
>= 0 && minx
<= FLDW
);
1019 assert(miny
>= 0 && miny
<= FLDH
);
1020 assert(maxx
>= 0 && maxx
<= FLDW
);
1021 assert(maxy
>= 0 && maxy
<= FLDH
);
1022 for (j
= miny
; j
< maxy
; j
++) {
1023 for (i
= minx
; i
< maxx
; i
++) {
1024 byte id
= fld
[j
* FLDW
+ i
];
1026 if (walp
[id
].res
< 0) {
1028 switch (R_get_special_id(id
)) {
1030 glColor4ub(0, 0, 255, 127);
1033 glColor4ub(0, 127, 0, 127);
1036 glColor4ub(127, 0, 0, 127);
1039 glColor4ub(0, 0, 0, 127);
1043 glBlendFunc(GL_DST_COLOR
, GL_SRC_COLOR
);
1044 glDisable(GL_TEXTURE_2D
);
1045 R_gl_draw_quad(i
* CELW
, j
* CELW
, CELW
, CELH
);
1048 R_gl_draw_image(&walp
[id
], i
* CELW
, j
* CELH
, 0);
1055 static void R_draw_dots (void) {
1057 glDisable(GL_BLEND
);
1058 glBlendFunc(GL_SRC_ALPHA
, GL_ONE_MINUS_SRC_ALPHA
);
1059 glDisable(GL_TEXTURE_2D
);
1061 for (i
= 0; i
< MAXDOT
; i
++) {
1062 if (dot
[i
].t
!= 0) {
1065 R_gl_set_color(dot
[i
].c
); glVertex2i(x
+ 1, y
);
1066 R_gl_set_color(dot
[i
].c
); glVertex2i(x
, y
);
1067 R_gl_set_color(dot
[i
].c
); glVertex2i(x
, y
+ 1);
1068 R_gl_set_color(dot
[i
].c
); glVertex2i(x
+ 1, y
+ 1);
1074 static void R_draw_items (void) {
1076 for (i
= 0; i
< MAXITEM
; ++i
) {
1078 if (it
[i
].t
&& it
[i
].s
>= 0) {
1079 switch (it
[i
].t
& 0x7FFF) {
1081 s
= it
[i
].s
/ 9 + 18;
1084 s
= it
[i
].s
/ 9 + 20;
1087 s
= it
[i
].s
/ 2 + 22;
1090 s
= it
[i
].s
/ 2 + 26;
1096 s
= it
[i
].s
/ 2 + (it
[i
].t
- I_SUPER
) * 4 + 35;
1098 case I_GOR1
: case I_FCAN
:
1099 s
= it
[i
].s
/ 2 + (it
[i
].t
- I_GOR1
) * 3 + 51;
1110 s
= (it
[i
].t
& 0x7FFF) - I_KEYR
+ 31;
1116 s
= (it
[i
].t
& 0x7FFF) - 1;
1120 R_gl_draw_image(&item_spr
[s
], it
[i
].o
.x
, it
[i
].o
.y
, item_sprd
[s
]);
1125 static int standspr (player_t
*p
) {
1126 if (p
->f
& PLF_UP
) {
1128 } else if (p
->f
& PLF_DOWN
) {
1135 static int wpnspr (player_t
*p
) {
1136 if (p
->f
& PLF_UP
) {
1138 } else if(p
->f
& PLF_DOWN
) {
1145 static void R_draw_player (player_t
*p
) {
1146 enum {STAND
, GO
, DIE
, SLOP
, DEAD
, MESS
, OUT_
, FALL
}; // copypasted from player.c!
1147 static const int wytab
[] = {-1, -2, -1, 0};
1154 if (p
->f
& PLF_FIRE
) {
1155 s
= standspr(p
) + 1;
1157 } else if (p
->pain
) {
1180 s
= plr_goanim
[p
->s
/ 8];
1181 w
= (p
->f
& PLF_FIRE
) ? 'B' : 'A';
1183 wy
= 1 + wytab
[s
- 'A'];
1187 s
= plr_dieanim
[p
->s
];
1190 s
= plr_slopanim
[p
->s
];
1200 R_gl_draw_image(&plr_wpn
[(int)p
->wpn
][w
-'A'], p
->o
.x
+ wx
, p
->o
.y
+ wy
, p
->d
);
1203 R_gl_draw_image(&plr_spr
[(s
- 'A') * 2 + p
->d
], p
->o
.x
, p
->o
.y
, plr_sprd
[(s
- 'A') * 2 + p
->d
]);
1204 R_gl_set_color(p
->color
+ PLAYER_COLOR_OFFSET
);
1205 R_gl_draw_image_color(&plr_msk
[(s
- 'A') * 2 + p
->d
], p
->o
.x
, p
->o
.y
, plr_sprd
[(s
- 'A') * 2 + p
->d
]);
1209 static void R_draw_monsters (void) {
1210 enum {SLEEP
, GO
, RUN
, CLIMB
, DIE
, DEAD
, ATTACK
, SHOOT
, PAIN
, WAIT
, REVIVE
, RUNOUT
}; // copypasted from monster.c!
1212 for (i
= 0; i
< MAXMN
; i
++) {
1213 if (mn
[i
].t
!= MN_NONE
) {
1216 if (mn
[i
].t
< MN__LAST
) {
1217 if ((mn
[i
].t
!= MN_SOUL
&& mn
[i
].t
!= MN_PAIN
) || mn
[i
].st
!= DEAD
) {
1218 int ap
= mn
[i
].ap
[mn
[i
].ac
];
1219 int d
= (ap
- 'A') * 2 + mn
[i
].d
;
1220 int dir
= mn_sprd
[mn
[i
].t
- 1][d
];
1221 if (mn
[i
].t
== MN_MAN
&& (ap
== 'E' || ap
== 'F')) {
1222 R_gl_draw_image(&mn_sgun
[ap
- 'E'], x
, y
, mn
[i
].d
);
1224 R_gl_draw_image(&mn_spr
[mn
[i
].t
- 1][d
], x
, y
, dir
);
1225 if (mn
[i
].t
== MN_MAN
) {
1226 R_gl_set_color(MANCOLOR
+ PLAYER_COLOR_OFFSET
);
1227 R_gl_draw_image_color(&mn_man_msk
[d
], x
, y
, dir
);
1230 if (mn
[i
].t
== MN_VILE
&& mn
[i
].st
== SHOOT
) {
1231 R_gl_draw_image(&mn_fspr
[mn
[i
].ac
/ 3], mn
[i
].tx
, mn
[i
].ty
, 0);
1233 } else if (mn
[i
].t
== MN_PL_DEAD
|| mn
[i
].t
== MN_PL_MESS
) {
1234 int type
= mn
[i
].t
- MN_PL_DEAD
;
1235 R_gl_draw_image(&pl_spr
[type
], x
, y
, 0);
1236 R_gl_set_color(mn
[i
].d
);
1237 R_gl_draw_image_color(&pl_msk
[type
], x
, y
, 0);
1243 static void R_draw_weapons (void) {
1244 enum {NONE
, ROCKET
, PLASMA
, APLASMA
, BALL1
, BALL2
, BALL7
, BFGBALL
, BFGHIT
, MANF
, REVF
, FIRE
}; // copypasted from weapons.c!
1246 for (i
= 0; i
< MAXWPN
; ++i
) {
1254 d
= wp
[i
].o
.xv
> 0 ? 1 : 0;
1255 x
= abs(wp
[i
].o
.xv
);
1268 s
= (d
- 2) / 2 + 1;
1302 d
= wp
[i
].o
.xv
>= 0 ? 1 : 0;
1306 d
= wp
[i
].o
.xv
>=0 ? 1 : 0;
1318 s
= wp
[i
].s
/ 2 + 26;
1322 R_gl_draw_image(&wp_spr
[s
* 2 + d
], wp
[i
].o
.x
, wp
[i
].o
.y
, wp_sprd
[s
* 2 + d
]);
1327 static void R_draw_smoke (void) {
1329 for (i
= 0; i
< MAXSMOK
; ++i
) {
1334 if (s
>= (SMSN
- 1) * 3) {
1337 s
= SMSN
- 1 - s
/ 3;
1339 R_gl_draw_image(&smk_spr
[s
], sm
[i
].x
>> 8, (sm
[i
].y
>> 8) + 1, 0);
1343 if (s
>= FLSN
- 1) {
1348 R_gl_draw_image(&smk_fspr
[s
], sm
[i
].x
>> 8, (sm
[i
].y
>> 8) + 1, 0);
1355 static void R_draw_effects (void) {
1356 enum {NONE
, TFOG
, IFOG
, BUBL
}; // copypasted from fx.c
1358 for (i
= 0; i
< MAXFX
; ++i
) {
1362 R_gl_draw_image(&fx_spr
[s
], fx
[i
].x
, fx
[i
].y
, fx_sprd
[s
]);
1365 s
= fx
[i
].s
/ 2 + 10;
1366 R_gl_draw_image(&fx_spr
[s
], fx
[i
].x
, fx
[i
].y
, fx_sprd
[s
]);
1369 glDisable(GL_BLEND
);
1370 glBlendFunc(GL_SRC_ALPHA
, GL_ONE_MINUS_SRC_ALPHA
);
1371 glDisable(GL_TEXTURE_2D
);
1372 R_gl_set_color(0xC0 + fx
[i
].s
);
1373 R_gl_draw_quad(fx
[i
].x
>> 8, fx
[i
].y
>> 8, 1, 1);
1379 static int get_pu_st (int t
) {
1380 if (t
>= PL_FLASH
) {
1382 } else if((t
/ 9) & 1) {
1389 static void R_draw_view (int x
, int y
, int w
, int h
, int camx
, int camy
) {
1391 R_gl_setclip(x
, y
, w
, h
);
1392 glTranslatef(x
, y
, 0);
1393 if (w_horiz
&& horiz
.n
!= NULL
) {
1394 R_gl_draw_image_ext(&horiz
, 0, 0, w
, h
);
1395 if (sky_type
== 2 && lt_time
< 0) {
1396 image
*tanderbolt
= <n
[lt_type
][lt_time
< -5 ? 0 : 1];
1398 R_gl_draw_image(tanderbolt
, 0, lt_ypos
, 0);
1400 R_gl_draw_image(tanderbolt
, w
- 1, lt_ypos
, 1);
1404 glDisable(GL_BLEND
);
1405 glBlendFunc(GL_SRC_ALPHA
, GL_ONE_MINUS_SRC_ALPHA
);
1406 glDisable(GL_TEXTURE_2D
);
1407 R_gl_set_color(DEFAULT_SKY_COLOR
);
1408 R_gl_draw_quad(0, 0, w
, h
);
1410 int maxx
= min((camx
+ w
) / CELW
+ 1, FLDW
);
1411 int maxy
= min((camy
+ h
) / CELH
+ 1, FLDH
);
1412 int minx
= max((camx
- max_wall_width
) / CELW
, 0);
1413 int miny
= max((camy
- max_wall_height
) / CELH
, 0);
1414 glTranslatef(-camx
, -camy
, 0);
1415 R_draw_fld((byte
*)fldb
, minx
, miny
, maxx
, maxy
, 0);
1418 R_draw_player(&pl1
);
1420 R_draw_player(&pl2
);
1426 R_draw_fld((byte
*)fldf
, minx
, miny
, maxx
, maxy
, 1);
1427 glTranslatef(camx
, camy
, 0);
1428 if (sky_type
== 2 && (lt_time
== -4 || lt_time
== -2)) {
1429 glColor4ub(255, 255, 255, 255);
1431 glBlendFunc(GL_DST_COLOR
, GL_SRC_COLOR
);
1432 glDisable(GL_TEXTURE_2D
);
1433 R_gl_draw_quad(0, 0, w
, h
);
1438 static void R_draw_player_view (player_t
*p
, int x
, int y
, int w
, int h
) {
1439 p
->looky
= min(max(p
->looky
, -SCRH
/ 4), SCRH
/ 4); // TODO remove writeback
1442 int cx
= min(max(p
->o
.x
, cw
/ 2), FLDW
* CELW
- cw
/ 2);
1443 int cy
= min(max(p
->o
.y
- 12 + p
->looky
, h
/ 2), FLDH
* CELH
- h
/ 2);
1444 int camx
= max(cx
- cw
/ 2, 0);
1445 int camy
= max(cy
- h
/ 2, 0);
1447 R_draw_view(x
, y
+ 1, cw
, h
- 2, camx
, camy
);
1448 glTranslatef(x
, y
, 0);
1450 if (get_pu_st(p
->invl
)) {
1452 glBlendFunc(GL_ONE_MINUS_DST_COLOR
, GL_ZERO
);
1453 glDisable(GL_TEXTURE_2D
);
1454 glColor4ub(191, 191, 191, 255);
1455 R_gl_draw_quad(0, 0, cw
, h
);
1458 if (p
->suit
&& get_pu_st(p
->suit
)) {
1460 glBlendFunc(GL_SRC_ALPHA
, GL_ONE_MINUS_SRC_ALPHA
);
1461 glDisable(GL_TEXTURE_2D
);
1462 glColor4ub(0, 255, 0, 192);
1463 R_gl_draw_quad(0, 0, cw
, h
);
1465 int f
= min(max(p
->pain
* 3, 0), 255);
1468 glBlendFunc(GL_SRC_ALPHA
, GL_ONE_MINUS_SRC_ALPHA
);
1469 glDisable(GL_TEXTURE_2D
);
1470 glColor4ub(255, 0, 0, f
);
1471 R_gl_draw_quad(0, 0, cw
, h
);
1474 R_gl_setclip(x
, y
, w
, h
);
1475 glTranslatef(-x
+ cw
, 0, 0);
1476 R_gl_draw_image(&stone
, 0, 0, 0);
1479 R_gl_draw_image(&stone2
, 0, i
, 0);
1482 if (p
->drawst
& PL_DRAWAIR
) {
1483 if (p
->air
< PL_AIR
) {
1484 int a
= min(max(p
->air
, 0), MAXAIR
) * 100 / MAXAIR
;
1485 glDisable(GL_BLEND
);
1486 glBlendFunc(GL_SRC_ALPHA
, GL_ONE_MINUS_SRC_ALPHA
);
1487 glDisable(GL_TEXTURE_2D
);
1488 R_gl_set_color(0xC8);
1489 R_gl_draw_quad(10, 49, a
, 2);
1492 if (p
->drawst
& PL_DRAWLIFE
) {
1494 Z_printhf("%3d%%", p
->life
);
1496 if (p
->drawst
& PL_DRAWARMOR
) {
1497 Z_gotoxy(10, 7 + 19);
1498 Z_printhf("%3d%%", p
->armor
);
1500 if (p
->drawst
& PL_DRAWWPN
) {
1527 R_gl_draw_image(&sth
[12 + p
->wpn
], st
- 88, 58 + 19, 0);
1531 Z_gotoxy(st
- 10 - 5 * 14, 58 + 2);
1532 Z_printhf("%5d", i
);
1535 if (p
->drawst
& PL_DRAWFRAG
&& g_dm
) {
1536 Z_gotoxy(st
- 5 - 5 * 14, 77 + 5);
1537 Z_printhf("%5d", p
->frag
);
1539 if (p
->drawst
& PL_DRAWKEYS
) {
1541 for (k
= p
->keys
>> 4, n
= 0, x
= st
- 75; n
< 3; n
++, k
>>= 1, x
+= 9) {
1543 R_gl_draw_image(&keys
[n
], x
, 91, 0);
1547 if (p
->drawst
& PL_DRAWLIVES
&& !_2pl
) {
1548 Z_gotoxy(st
- 35, 17);
1549 Z_printhf("%d", p
->lives
);
1556 static void pl_info (player_t
*p
, int x
, int y
) {
1557 dword t
= p
->kills
* 10920 / g_time
;
1558 Z_gotoxy(x
+ 25, y
); Z_printbf("KILLS");
1559 Z_gotoxy(x
+ 25, y
+ 15); Z_printbf("KPM");
1560 Z_gotoxy(x
+ 25, y
+ 30); Z_printbf("SECRETS %u / %u", p
->secrets
, sw_secrets
);
1561 Z_gotoxy(x
+ 255, y
); Z_printbf("%u", p
->kills
);
1562 Z_gotoxy(x
+ 255, y
+ 15); Z_printbf("%u.%u", t
/ 10, t
% 10);
1565 static void R_draw_intermission (void) {
1568 Z_gotoxy(cx
- 14*12/2, 20);
1569 Z_printbf("LEVEL COMPLETE");
1570 Z_calc_time(g_time
, &hr
, &mn
, &sc
);
1571 Z_gotoxy(cx
- 12*12/2, 40);
1572 Z_printbf("TIME %u:%02u:%02u", hr
, mn
, sc
);
1575 Z_gotoxy(cx
- 10*12/2, h
);
1576 Z_printbf("PLAYER ONE");
1579 pl_info(&pl1
, cx
- 160, h
);
1581 h
+= 30 + SCRH
/ 10;
1582 Z_gotoxy(cx
- 10*12/2, h
);
1583 Z_printbf("PLAYER TWO");
1585 pl_info(&pl2
, cx
- 160, h
);
1589 static void W_act (void) {
1591 if (g_time
% 3 == 0) {
1592 for (i
= 1; i
< max_textures
; i
++) {
1596 if (anip
[a
][anic
[a
]].res
== -1) {
1599 walp
[i
] = anip
[a
][anic
[a
]];
1605 void R_draw (void) {
1607 glClearColor(0, 0, 0, 1);
1608 glClear(GL_COLOR_BUFFER_BIT
);
1609 glEnable(GL_SCISSOR_TEST
);
1620 R_gl_draw_image_ext(&scrnh
[0], 0, 0, SCRW
, SCRH
);
1623 R_gl_draw_image_ext(&scrnh
[1], 0, 0, SCRW
, SCRH
);
1624 R_draw_intermission();
1627 R_gl_draw_image_ext(&scrnh
[2], 0, 0, SCRW
, SCRH
);
1631 R_draw_player_view(&pl1
, 0, 0, SCRW
, SCRH
/ 2);
1632 R_draw_player_view(&pl2
, 0, SCRH
/ 2, SCRW
, SCRH
/ 2);
1634 R_draw_player_view(&pl1
, 0, 0, SCRW
, SCRH
);
1636 R_gl_setclip(0, 0, SCRW
, SCRH
);
1643 static void R_alloc (void) {
1646 logo("R_alloc: load graphics\n");
1648 scrnh
[0] = R_gl_loadimage("TITLEPIC");
1649 scrnh
[1] = R_gl_loadimage("INTERPIC");
1650 scrnh
[2] = R_gl_loadimage("ENDPIC");
1651 for (i
= 0; i
< 2; i
++) {
1652 sprintf(s
, "LTN%c", '1' + i
);
1653 for (j
= 0; j
< 2; j
++) {
1654 ltn
[i
][j
] = Z_getspr(s
, j
, 0, NULL
);
1658 for (i
= 0; i
< SMSN
; i
++) {
1659 smk_spr
[i
] = R_gl_get_special_spr("SMOK", i
, 0, &R_extract_smoke_spr
);
1661 for (i
= 0; i
< FLSN
; i
++) {
1662 smk_fspr
[i
] = R_gl_get_special_spr("SMOK", i
, 0, &R_extract_flame_spr
);
1665 for (i
= 0; i
< 10; i
++) {
1666 fx_spr
[i
] = Z_getspr("TFOG", i
, 0, fx_sprd
+ i
);
1668 for (; i
< 15; i
++) {
1669 fx_spr
[i
] = Z_getspr("IFOG", i
- 10, 0, fx_sprd
+ i
);
1672 for (i
= 0; i
< 4; i
++) {
1673 wp_spr
[i
* 2] = Z_getspr("MISL", i
, 1, wp_sprd
+ i
* 2);
1674 wp_spr
[i
* 2 + 1] = Z_getspr("MISL", i
, 2, wp_sprd
+ i
* 2 + 1);
1676 for (; i
< 6; i
++) {
1677 wp_spr
[i
* 2] = Z_getspr("PLSS", i
- 4, 1, wp_sprd
+ i
* 2);
1678 wp_spr
[i
* 2 + 1] = Z_getspr("PLSS", i
- 4, 2, wp_sprd
+ i
* 2 + 1);
1680 for (; i
< 11; i
++) {
1681 wp_spr
[i
* 2] = Z_getspr("PLSE", i
- 6, 1, wp_sprd
+ i
* 2);
1682 wp_spr
[i
* 2 + 1] = Z_getspr("PLSE", i
- 6, 2, wp_sprd
+ i
* 2 + 1);
1684 for (; i
< 13; i
++) {
1685 wp_spr
[i
* 2] = Z_getspr("APLS", i
- 11, 1, wp_sprd
+ i
* 2);
1686 wp_spr
[i
* 2 + 1] = Z_getspr("APLS", i
- 11, 2, wp_sprd
+ i
* 2 + 1);
1688 for (; i
< 18; i
++) {
1689 wp_spr
[i
* 2] = Z_getspr("APBX", i
- 13, 1, wp_sprd
+ i
* 2);
1690 wp_spr
[i
* 2 + 1] = Z_getspr("APBX", i
- 13, 2, wp_sprd
+ i
* 2 + 1);
1692 for(; i
< 20; i
++) {
1693 wp_spr
[i
* 2] = Z_getspr("BFS1", i
- 18, 1, wp_sprd
+ i
* 2);
1694 wp_spr
[i
* 2 + 1] = Z_getspr("BFS1", i
- 18, 2, wp_sprd
+ i
* 2 + 1);
1696 for (; i
< 26; i
++) {
1697 wp_spr
[i
* 2] = Z_getspr("BFE1", i
- 20, 1, wp_sprd
+ i
* 2);
1698 wp_spr
[i
* 2 + 1] = Z_getspr("BFE1", i
- 20, 2, wp_sprd
+ i
* 2 + 1);
1700 for (; i
< 30; i
++) {
1701 wp_spr
[i
* 2] = Z_getspr("BFE2", i
- 26, 1, wp_sprd
+ i
* 2);
1702 wp_spr
[i
* 2 + 1] = Z_getspr("BFE2", i
- 26, 2, wp_sprd
+ i
* 2 + 1);
1704 for (; i
< 32; i
++) {
1705 wp_spr
[i
* 2] = Z_getspr("MISL", i
- 30 + 4, 1, wp_sprd
+ i
* 2);
1706 wp_spr
[i
* 2 + 1] = Z_getspr("MISL", i
- 30 + 4, 2, wp_sprd
+ i
* 2 + 1);
1708 for (; i
< 37; i
++) {
1709 wp_spr
[i
* 2] = Z_getspr("BAL1", i
- 32, 1, wp_sprd
+ i
* 2);
1710 wp_spr
[i
* 2 + 1] = Z_getspr("BAL1", i
- 32, 2, wp_sprd
+ i
* 2 + 1);
1712 for (; i
< 42; i
++) {
1713 wp_spr
[i
* 2] = Z_getspr("BAL7", i
- 37, 1, wp_sprd
+ i
* 2);
1714 wp_spr
[i
* 2 + 1] = Z_getspr("BAL7", i
- 37, 2, wp_sprd
+ i
* 2 + 1);
1716 for (; i
< 47; i
++) {
1717 wp_spr
[i
* 2] = Z_getspr("BAL2", i
- 42, 1, wp_sprd
+ i
* 2);
1718 wp_spr
[i
* 2 + 1] = Z_getspr("BAL2", i
- 42, 2, wp_sprd
+ i
* 2 + 1);
1720 for (; i
< 49; i
++) {
1721 wp_spr
[i
* 2] = Z_getspr("MANF", i
- 47, 1, wp_sprd
+ i
* 2);
1722 wp_spr
[i
* 2 + 1] = Z_getspr("MANF", i
- 47, 2, wp_sprd
+ i
* 2 + 1);
1725 static const char snm
[18][4] = {
1726 "CLIP", "SHEL", "ROCK", "CELL", "AMMO", "SBOX", "BROK", "CELP",
1727 "STIM", "MEDI", "BPAK",
1728 "CSAW", "SHOT", "SGN2", "MGUN", "LAUN", "PLAS", "BFUG"
1730 static const char n4
[4][4] = {
1731 "SOUL", "SMRT", "SMGT", "SMBT"
1733 static const char n3
[2][4] = {
1736 for (i
= 0; i
< 18; i
++) {
1737 item_spr
[i
] = Z_getspr(snm
[i
], 0, 0, item_sprd
+ i
);
1739 for (; i
< 20; i
++) {
1740 item_spr
[i
] = Z_getspr("ARM1", i
- 18, 0, item_sprd
+ i
);
1741 item_spr
[i
+ 2] = Z_getspr("ARM2", i
- 18, 0, item_sprd
+ i
);
1744 for (; i
< 26; i
++) {
1745 item_spr
[i
] = Z_getspr("MEGA", i
- 22, 0, item_sprd
+ i
);
1747 for (; i
< 30; i
++) {
1748 item_spr
[i
] = Z_getspr("PINV", i
- 26, 0, item_sprd
+ i
);
1750 item_spr
[30] = Z_getspr("AQUA", 0, 0, item_sprd
+ 30);
1751 item_spr
[31] = Z_getspr("KEYR", 0, 0, item_sprd
+ 31);
1752 item_spr
[32] = Z_getspr("KEYG", 0, 0, item_sprd
+ 32);
1753 item_spr
[33] = Z_getspr("KEYB", 0, 0, item_sprd
+ 33);
1754 item_spr
[34] = Z_getspr("SUIT", 0, 0, item_sprd
+ 34);
1755 for (n
= 35, j
= 0; j
< 4; j
++) {
1756 for (i
= 0; i
< 4; i
++, n
++) {
1757 item_spr
[n
] = Z_getspr(n4
[j
], i
, 0, item_sprd
+ n
);
1760 for (j
= 0; j
< 2; j
++) {
1761 for (i
= 0; i
< 3; i
++, n
++) {
1762 item_spr
[n
] = Z_getspr(n3
[j
], i
, 0, item_sprd
+ n
);
1765 item_spr
[57] = Z_getspr("GUN2", 0, 0, item_sprd
+ 57);
1767 for (i
= 0; i
< 27; i
++) {
1768 plr_spr
[i
* 2] = Z_getspr("PLAY", i
, 1, plr_sprd
+ i
* 2);
1769 plr_msk
[i
* 2] = R_gl_get_special_spr("PLAY", i
, 1, &R_extract_mask_spr
);
1770 plr_spr
[i
* 2 + 1] = Z_getspr("PLAY", i
, 2, plr_sprd
+ i
* 2 + 1);
1771 plr_msk
[i
* 2 + 1] = R_gl_get_special_spr("PLAY", i
, 2, &R_extract_mask_spr
);
1773 strncpy(s
, "PWPx", 4);
1774 for (i
= 1; i
< 11; i
++) {
1775 s
[3] = (i
< 10 ? '0' : 'A' - 10) + i
;
1776 for (j
= 0; j
< 6; j
++) {
1777 plr_wpn
[i
][j
] = Z_getspr(s
, j
, 1, NULL
);
1781 static const char msn
[MN_TN
][4] = {
1782 "SARG", "TROO", "POSS", "SPOS", "CYBR", "CPOS", "BOSS", "BOS2", "HEAD", "SKUL",
1783 "PAIN", "SPID", "BSPI", "FATT", "SKEL", "VILE", "FISH", "BAR1", "ROBO", "PLAY"
1785 static const int mms
[MN_TN
] = {
1786 14*2, 21*2, 21*2, 21*2, 16*2, 20*2, 15*2, 15*2, 12*2, 11*2,
1787 13*2, 19*2, 16*2, 20*2, 17*2, 29*2, 6*2, 2*2, 17*2, 23*2
1789 mn_sgun
[0] = Z_getspr("PWP4", 0, 1, NULL
);
1790 mn_sgun
[1] = Z_getspr("PWP4", 1, 1, NULL
);
1791 for (j
= 0; j
< MN_TN
; j
++) {
1792 for (i
= 0; i
< mms
[j
]; i
++) {
1793 mn_spr
[j
][i
] = Z_getspr(msn
[j
], i
/ 2, (i
& 1) + 1, &mn_sprd
[j
][i
]);
1794 if (j
== MN_MAN
- 1) {
1795 mn_man_msk
[i
] = R_gl_get_special_spr(msn
[j
], i
/ 2, (i
& 1) + 1, &R_extract_mask_spr
);
1798 if (j
== MN_BARREL
- 1) {
1799 for (i
= 4; i
< 14; i
++) {
1800 mn_spr
[j
][i
] = Z_getspr("BEXP", i
/ 2 - 2, (i
& 1) + 1, &mn_sprd
[j
][i
]);
1804 for (i
= 0; i
< 8; i
++) {
1805 mn_fspr
[i
] = Z_getspr("FIRE", i
, 0, NULL
);
1807 pl_spr
[0] = Z_getspr("PLAY", 'N' - 'A', 0, NULL
);
1808 pl_msk
[0] = R_gl_get_special_spr("PLAY", 'N' - 'A', 0, &R_extract_mask_spr
);
1809 pl_spr
[1] = Z_getspr("PLAY", 'W' - 'A', 0, NULL
);
1810 pl_msk
[1] = R_gl_get_special_spr("PLAY", 'W' - 'A', 0, &R_extract_mask_spr
);
1812 static const char mnm
[22][8]={
1813 "STTNUM0", "STTNUM1", "STTNUM2", "STTNUM3", "STTNUM4",
1814 "STTNUM5", "STTNUM6", "STTNUM7", "STTNUM8", "STTNUM9",
1815 "STTMINUS", "STTPRCNT",
1816 "FISTA0", "CSAWA0", "PISTA0", "SHOTA0", "SGN2A0", "MGUNA0", "LAUNA0",
1817 "PLASA0", "BFUGA0", "GUN2A0"
1819 stone
= R_gl_loadimage("STONE");
1820 stone2
= R_gl_loadimage("STONE2");
1821 keys
[0] = R_gl_loadimage("KEYRA0");
1822 keys
[1] = R_gl_loadimage("KEYGA0");
1823 keys
[2] = R_gl_loadimage("KEYBA0");
1824 for (i
= 0; i
< 22; i
++) {
1825 sth
[i
] = R_gl_loadimage(mnm
[i
]);
1827 strcpy(s
, "STBF_*");
1828 for (i
= '!'; i
< 160; i
++) {
1830 bfh
[i
- '!'] = R_gl_getimage(F_findres(s
));
1832 for (i
= '!'; i
< 160; i
++) {
1833 sprintf(s
, "STCFN%03d", i
);
1834 sfh
[i
- '!'] = R_gl_getimage(F_findres(s
));
1836 strcpy(s
, "WINUM*");
1837 for (i
= '0'; i
<= '9'; i
++) {
1839 bfh
[i
- '!'] = R_gl_loadimage(s
);
1841 bfh
[':' - '!'] = R_gl_loadimage("WICOLON");
1843 msklh
[0] = R_gl_loadimage("M_SKULL1");
1844 msklh
[1] = R_gl_loadimage("M_SKULL2");
1845 mbarl
= R_gl_loadimage("M_THERML");
1846 mbarm
= R_gl_loadimage("M_THERMM");
1847 mbarr
= R_gl_loadimage("M_THERMR");
1848 mbaro
= R_gl_loadimage("M_THERMO");
1849 mslotl
= R_gl_loadimage("M_LSLEFT");
1850 mslotm
= R_gl_loadimage("M_LSCNTR");
1851 mslotr
= R_gl_loadimage("M_LSRGHT");
1853 for (i
= 1; i
< ANIT
; i
++) {
1854 for (j
= 0; j
< 5 && anm
[i
- 1][j
]; j
++) {
1855 anip
[i
][j
] = R_gl_loadimage(anm
[i
- 1][j
]);
1858 anip
[i
][j
] = (image
) {
1868 static void R_reload_textures (void);
1870 void R_set_videomode (int w
, int h
, int fullscreen
) {
1873 int was
= Y_videomode_setted();
1875 R_cache_free(root
, 0);
1878 int res
= Y_set_videomode_opengl(w
, h
, fullscreen
);
1881 ERR_failinit("Unable to set video mode\n");
1884 Y_get_videomode(&screen_width
, &screen_height
);
1885 screen_full
= Y_get_fullscreen();
1886 screen_scale
= max(1, screen_width
/ 320);
1887 root
= R_cache_new();
1890 R_reload_textures();
1893 static int video_menu_handler (menu_msg_t
*msg
, const menu_t
*m
, int i
) {
1895 static int w
, h
, fullscreen
;
1896 static char buf
[16];
1899 const videomode_t
*v
;
1900 enum { VIDEOMODE
, FULLSCREEN
, APPLY
, __NUM__
};
1901 static const simple_menu_t sm
= {
1902 GM_BIG
, "Video", NULL
,
1905 { "Fullscreen: ", NULL
},
1909 if (msg
->type
== GM_ENTER
) {
1910 Y_get_videomode(&w
, &h
);
1911 fullscreen
= Y_get_fullscreen();
1912 v
= Y_get_videomode_list_opengl(fullscreen
);
1914 while (vmode
< v
->n
&& v
->modes
[vmode
].w
!= w
&& v
->modes
[vmode
].h
!= h
) {
1918 w
= v
->modes
[vmode
].w
;
1919 h
= v
->modes
[vmode
].h
;
1921 snprintf(buf
, 16, "%ix%i", w
, h
);
1922 buflen
= strlen(buf
);
1925 if (i
== VIDEOMODE
) {
1926 switch (msg
->type
) {
1927 case GM_GETSTR
: return GM_init_str(msg
, buf
, buflen
);
1929 v
= Y_get_videomode_list_opengl(fullscreen
);
1930 vmode
= vmode
+ 1 >= v
->n
? 0 : vmode
+ 1;
1932 w
= v
->modes
[vmode
].w
;
1933 h
= v
->modes
[vmode
].h
;
1935 Y_get_videomode(&w
, &h
);
1937 snprintf(buf
, 16, "%ix%i", w
, h
);
1938 buflen
= strlen(buf
);
1941 } else if (i
== FULLSCREEN
) {
1942 switch (msg
->type
) {
1943 case GM_GETSTR
: return GM_init_str(msg
, fullscreen
? "Yes" : "No ", 3);
1944 case GM_SELECT
: fullscreen
= !fullscreen
; return 1;
1946 } else if (i
== APPLY
) {
1947 switch (msg
->type
) {
1948 case GM_SELECT
: R_set_videomode(w
, h
, fullscreen
); return 1;
1951 return simple_menu_handler(msg
, i
, __NUM__
, &sm
, &cur
);
1954 const menu_t
*R_menu (void) {
1955 static const menu_t m
= { video_menu_handler
};
1959 const cfg_t
*R_args (void) {
1960 static const cfg_t args
[] = {
1961 { "fullscr", &init_screen_full
, Y_SW_ON
},
1962 { "window", &init_screen_full
, Y_SW_OFF
},
1963 { "width", &init_screen_width
, Y_DWORD
},
1964 { "height", &init_screen_height
, Y_DWORD
},
1965 { NULL
, NULL
, 0 } // end
1970 const cfg_t
*R_conf (void) {
1971 static const cfg_t conf
[] = {
1972 { "sky", &w_horiz
, Y_SW_ON
},
1973 { "fullscreen", &screen_full
, Y_SW_ON
},
1974 { "screen_width", &screen_width
, Y_DWORD
},
1975 { "screen_height", &screen_height
, Y_DWORD
},
1976 { NULL
, NULL
, 0 } // end
1981 void R_init (void) {
1982 logo("R_init: intialize opengl render\n");
1984 init_screen_width
= init_screen_width
> 0 ? init_screen_width
: screen_width
;
1985 init_screen_height
= init_screen_height
> 0 ? init_screen_height
: screen_height
;
1986 init_screen_full
= init_screen_full
!= 0xFF ? init_screen_full
: screen_full
;
1987 R_set_videomode(init_screen_width
, init_screen_height
, init_screen_full
);
1990 void R_done (void) {
1991 R_cache_free(root
, 1);
1992 Y_unset_videomode();
1996 void R_get_name (int n
, char s
[8]) {
1997 assert(n
>= 0 && n
< 256);
1998 if (walp
[n
].res
== -1) {
2000 } else if (walp
[n
].res
== -2) {
2001 memcpy(s
, "_WATER_", 8);
2002 s
[7] = '0' + (intptr_t)walp
[n
].n
- 1;
2003 } else if (walani
[n
] > 0) {
2004 memcpy(s
, anm
[walani
[n
] - 1][0], 8);
2006 F_getresname(s
, walp
[n
].res
& 0x7FFF);
2010 static short getani (char n
[8]) {
2012 while (i
< ANIT
- 1 && cp866_strncasecmp(n
, anm
[i
][0], 8) != 0) {
2015 return i
< ANIT
- 1 ? i
+ 1 : 0;
2018 int R_get_special_id (int n
) {
2019 assert(n
>= 0 && n
<= 256);
2020 return walp
[n
].res
== -2 ? (intptr_t)walp
[n
].n
: -1;
2023 static void R_reload_textures (void) {
2026 for (i
= 0; i
< max_textures
; i
++) {
2028 if (walp
[i
].res
>= 0) {
2029 walp
[i
] = R_gl_getimage(walp
[i
].res
);
2033 horiz
= R_gl_getimage(horiz
.res
);
2037 void R_begin_load (void) {
2039 for (i
= 0; i
< 256; i
++) {
2040 if (walp
[i
].n
!= NULL
&& walp
[i
].res
>= 0 && walani
[i
] == 0) {
2041 R_gl_free_image(&walp
[i
]);
2043 memset(&walp
[i
], 0, sizeof(image
));
2048 memset(anic
, 0, sizeof(anic
));
2050 max_wall_height
= 0;
2054 void R_load (char s
[8]) {
2055 assert(max_textures
< 256);
2057 walp
[max_textures
] = (image
) {
2065 } else if (cp866_strncasecmp(s
, "_WATER_", 7) == 0) {
2066 walp
[max_textures
] = (image
) {
2067 .n
= (void*)((intptr_t)s
[7] - '0' + 1),
2075 walp
[max_textures
] = R_gl_loadimage(s
);
2076 if (s
[0] == 'S' && s
[1] == 'W' && s
[4] == '_') {
2077 walswp
[max_textures
] = 0;
2079 walani
[max_textures
] = getani(s
);
2081 max_wall_width
= max(max_wall_width
, walp
[max_textures
].w
);
2082 max_wall_height
= max(max_wall_height
, walp
[max_textures
].h
);
2086 void R_end_load (void) {
2090 for (i
= 1; i
< 256 && j
< 256; i
++) {
2091 if (walswp
[i
] == 0) {
2096 while (k
< 256 && walp
[k
].res
!= g
) {
2103 walp
[k
] = R_gl_getimage(g
);
2112 void R_loadsky (int sky
) {
2116 R_gl_free_image(&horiz
);
2117 horiz
= R_gl_loadimage(s
);
2120 void R_switch_texture (int x
, int y
) {
2121 assert(x
>= 0 && x
< FLDW
);
2122 assert(y
>= 0 && y
< FLDH
);
2123 fldb
[y
][x
] = walswp
[fldb
[y
][x
]];
2126 int R_get_swp (int n
) {
2127 assert(n
>= 0 && n
< 256);