DEADSOFTWARE

menu: change videomode at runtime
[flatwaifu.git] / src / gl / render.c
index 01e40146833ca4d31835c113e65c8cf0d0b3b7c4..c057b90e4fa84bc6d0d1a7d3647089995c33c047 100644 (file)
@@ -1,5 +1,6 @@
 #include "glob.h"
 #include "render.h"
+#include "system.h"
 #include "files.h"
 #include "memory.h"
 #include "misc.h"
 #include "view.h"
 #include "switch.h" // sw_secrets
 
-#include <OpenGL/GL.h>
-#include <stdlib.h> // malloc free abs
-#include <assert.h> // assert
-#include <SDL.h>
+#ifdef __APPLE__
+#  include <OpenGL/gl.h>
+#else
+#  include <GL/gl.h>
+#endif
+#include <stdarg.h>
+#include <stdlib.h>
+#include <string.h>
+#include <ctype.h>
+#include <assert.h>
 
 #define VGA_TRANSPARENT_COLOR 0
 #define DEFAULT_SKY_COLOR 0x97
@@ -50,8 +57,22 @@ typedef struct rgba {
 } rgba;
 #pragma pack()
 
-typedef struct image {
+typedef struct node {
+  struct cache *base;
+  struct node *left, *right;
+  struct node *up;
+  int l, t, r, b;
+  int leaf;
+} node;
+
+typedef struct cache {
+  struct cache *next;
+  struct node root;
   GLuint id;
+} cache;
+
+typedef struct image {
+  node *n;
   GLint x, y;
   GLuint w, h;
   int res;
@@ -60,11 +81,10 @@ typedef struct image {
 /* Render Specific */
 int SCRW = 320; // public
 int SCRH = 200; // public
-static int gamma;
-static int fullscreen;
-static SDL_Surface *surf;
 static rgb playpal[256];
 static byte bright[256];
+static GLuint lastTexture;
+static cache *root;
 
 /* Game */
 static image scrnh[3]; // TITLEPIC INTERPIC ENDPIC
@@ -138,6 +158,210 @@ static image anip[ANIT][5];
 static byte anic[ANIT];
 static image horiz;
 
+/* Texture cache */
+
+// https://blackpawn.com/texts/lightmaps/
+static node *R_node_alloc (node *p, int w, int h) {
+  assert(p);
+  assert(w > 0);
+  assert(h > 0);
+  if (p->left) {
+    assert(p->right);
+    node *n = R_node_alloc(p->left, w, h);
+    return n ? n : R_node_alloc(p->right, w, h);
+  } else {
+    int pw = p->r - p->l + 1;
+    int ph = p->b - p->t + 1;
+    if (p->leaf || pw < w || ph < h) {
+      return NULL;
+    } else if (pw == w && ph == h) {
+      p->leaf = 1;
+      return p;
+    } else {
+      p->left = malloc(sizeof(node));
+      p->right = malloc(sizeof(node));
+      if (pw - w > ph - h) {
+        *p->left = (node) {
+          .up = p,
+          .l = p->l,
+          .t = p->t,
+          .r = p->l + w - 1,
+          .b = p->b
+        };
+        *p->right = (node) {
+          .up = p,
+          .l = p->l + w,
+          .t = p->t,
+          .r = p->r,
+          .b = p->b
+        };
+      } else {
+        *p->left = (node) {
+          .up = p,
+          .l = p->l,
+          .t = p->t,
+          .r = p->r,
+          .b = p->t + h - 1
+        };
+        *p->right = (node) {
+          .up = p,
+          .l = p->l,
+          .t = p->t + h,
+          .r = p->r,
+          .b = p->b
+        };
+      }
+      return R_node_alloc(p->left, w, h);
+    }
+  }
+}
+
+static int R_node_have_leaf (node *n) {
+  return n && (n->leaf || R_node_have_leaf(n->left) || R_node_have_leaf(n->right));
+}
+
+static void R_node_free_recursive (node *n) {
+  if (n) {
+    R_node_free_recursive(n->left);
+    R_node_free_recursive(n->right);
+    free(n);
+  }
+}
+
+static void R_node_free (node *n) {
+  if (n) {
+    //logo("free node %p {%i:%i:%i:%i}\n", n, n->l, n->t, n->r, n->b);
+    assert(n->leaf);
+    assert(n->left == NULL);
+    assert(n->right == NULL);
+    n->leaf = 0;
+    n->base = NULL;
+    node *p = n->up;
+    while (p != NULL) {
+      assert(p->leaf == 0);
+      assert(p->left);
+      assert(p->right);
+      if (R_node_have_leaf(p) == 0) {
+        R_node_free_recursive(p->left);
+        p->left = NULL;
+        R_node_free_recursive(p->right);
+        p->right = NULL;
+        p = p->up;
+      } else {
+        p = NULL;
+      }
+    }
+  }
+}
+
+static void R_cache_get_max_texture_size (int *w, int *h) {
+  GLint size = 0;
+  glGetIntegerv(GL_MAX_TEXTURE_SIZE, &size);
+  size = min(max(size, 0), 512); // more can be buggy on older hardware
+  *w = size;
+  *h = size;
+}
+
+static void R_gl_bind_texture (GLuint id) {
+  if (id != lastTexture) {
+    glBindTexture(GL_TEXTURE_2D, id);
+  }
+}
+
+static cache *R_cache_new (void) {
+  int w, h;
+  GLuint id;
+  cache *c = NULL;
+  R_cache_get_max_texture_size(&w, &h);
+  if (w && h) {
+    glGenTextures(1, &id);
+    if (id) {
+      R_gl_bind_texture(id);
+      glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
+      glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
+      glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, w, h, 0, GL_RGBA, GL_UNSIGNED_BYTE, NULL);
+      c = malloc(sizeof(cache));
+      if (c != NULL) {
+        *c = (cache) {
+          .id = id,
+          .root.r = w - 1,
+          .root.b = h - 1
+        };
+      } else {
+        glDeleteTextures(1, &id);
+      }
+    }
+  }
+  //logo("new cache %p\n", c);
+  return c;
+}
+
+static void R_cache_free (cache *root, int freetexture) {
+  cache *next;
+  cache *c = root;
+  while (c != NULL) {
+    next = c->next;
+    R_node_free_recursive(c->root.left);
+    R_node_free_recursive(c->root.right);
+    if (freetexture && c->id != 0) {
+      glDeleteTextures(1, &c->id);
+    }
+    free(c);
+    c = next;
+  }
+}
+
+static node *R_cache_alloc (cache *root, int w, int h) {
+  assert(root);
+  assert(w > 0 && h > 0);
+  node *n = NULL;
+  cache *p = NULL;
+  cache *c = root;
+  int maxw, maxh;
+  R_cache_get_max_texture_size(&maxw, &maxh);
+  if (w <= maxw && h <= maxh) {
+    while (c && !n) {
+      n = R_node_alloc(&c->root, w, h);
+      if (n) {
+        assert(n->leaf);
+        n->base = c;
+      }
+      p = c;
+      c = c->next;
+    }
+    if (!n) {
+      c = R_cache_new();
+      if (c) {
+        p->next = c;
+        n = R_node_alloc(&c->root, w, h);
+        if (n) {
+          assert(n->leaf);
+          n->base = c;
+        }
+      }
+    }
+  }
+  if (n) {
+    //logo("new node %p {%i:%i:%i:%i}\n", n, n->l, n->t, n->r, n->b);
+  } else {
+    logo("new node failed {%i:%i}\n", w, h);
+  }
+  return n;
+}
+
+static void R_cache_update (node *n, const void *data, int x, int y, int w, int h) {
+  assert(n);
+  assert(n->leaf);
+  assert(n->base);
+  assert(data);
+  assert(x >= 0);
+  assert(y >= 0);
+  assert(n->l + x + w - 1 <= n->r);
+  assert(n->t + y + h - 1 <= n->b);
+  R_gl_bind_texture(n->base->id);
+  glTexSubImage2D(GL_TEXTURE_2D, 0, n->l + x, n->t + y, w, h, GL_RGBA, GL_UNSIGNED_BYTE, data);
+}
+
 /* Generic helpers */
 
 static void R_init_playpal (void) {
@@ -265,24 +489,23 @@ static rgba *R_extract_rgba_spr (vgaimg *v) {
 /* OpenGL helpers */
 
 static image R_gl_create_image (const rgba *buf, int w, int h) {
-  GLuint tex = 0;
-  glGenTextures(1, &tex);
-  if (tex != 0) {
-    glBindTexture(GL_TEXTURE_2D, tex);
-    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST);
-    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
-    glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, w, h, 0, GL_RGBA, GL_UNSIGNED_BYTE, buf);
-    glBindTexture(GL_TEXTURE_2D, 0);
+  node *n = R_cache_alloc(root, w, h);
+  if (n) {
+    R_cache_update(n, buf, 0, 0, w, h);
   }
   return (image) {
-    .id = tex,
+    .n = n,
     .w = w,
     .h = h,
+    .res = -1
   };
 }
 
 static image R_gl_get_special_image (int id, rgba *(*fn)(vgaimg*)) {
-  image img = (image) { .res = -1 };
+  image img;
+  //char name[8];
+  //F_getresname(name, id);
+  //logo("load image: %.8s\n", name);
   vgaimg *v = R_getvga(id);
   if (v != NULL) {
     rgba *buf = (*fn)(v);
@@ -292,6 +515,10 @@ static image R_gl_get_special_image (int id, rgba *(*fn)(vgaimg*)) {
     img.res = id;
     M_unlock(v);
     free(buf);
+  } else {
+    img = (image) {
+      .res = id
+    };
   }
   return img;
 }
@@ -309,10 +536,11 @@ static image R_gl_get_special_spr (const char n[4], int s, int d, rgba *(*fn)(vg
 }
 
 static void R_gl_free_image (image *img) {
-  if (img->id != 0 && img->res >= 0) {
-    glDeleteTextures(1, &img->id);
+  if (img->n != NULL && img->res >= 0) {
+    R_node_free(img->n);
   }
-  img->id = 0;
+  img->n = NULL;
+  img->res = -1;
 }
 
 static void R_gl_draw_quad (int x, int y, int w, int h) {
@@ -325,18 +553,28 @@ static void R_gl_draw_quad (int x, int y, int w, int h) {
 }
 
 static void R_gl_draw_textured (image *img, int x, int y, int w, int h, int flip) {
-  int ax = flip == 0;
-  int bx = !ax;
-  glBindTexture(GL_TEXTURE_2D, img->id);
-  glEnable(GL_TEXTURE_2D);
-  glBegin(GL_QUADS);
-  glTexCoord2f(ax, 0); glVertex2i(x + w, y);
-  glTexCoord2f(bx, 0); glVertex2i(x,     y);
-  glTexCoord2f(bx, 1); glVertex2i(x,     y + h);
-  glTexCoord2f(ax, 1); glVertex2i(x + w, y + h);
-  glEnd();
-  glDisable(GL_TEXTURE_2D);
-  glBindTexture(GL_TEXTURE_2D, 0);
+  if (img->n) {
+    GLfloat nw = img->n->base->root.r + 1;
+    GLfloat nh = img->n->base->root.b + 1;
+    GLfloat ax = (flip ? img->n->l : img->n->r + 1) / nw;
+    GLfloat bx = (flip ? img->n->r + 1 : img->n->l) / nh;
+    GLfloat ay = (img->n->t) / nw;
+    GLfloat by = (img->n->b + 1) / nh;
+    R_gl_bind_texture(img->n->base->id);
+    glEnable(GL_TEXTURE_2D);
+    glBegin(GL_QUADS);
+    glTexCoord2f(ax, ay); glVertex2i(x + w, y);
+    glTexCoord2f(bx, ay); glVertex2i(x,     y);
+    glTexCoord2f(bx, by); glVertex2i(x,     y + h);
+    glTexCoord2f(ax, by); glVertex2i(x + w, y + h);
+    glEnd();
+  } else {
+    glColor3ub(255, 0, 0);
+    glDisable(GL_BLEND);
+    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+    glDisable(GL_TEXTURE_2D);
+    R_gl_draw_quad(x, y, w, h);
+  }
 }
 
 /* fit image into rectangle without applying offset and transparency */
@@ -353,16 +591,12 @@ static void R_gl_draw_image_color (image *img, int x, int y, int flip) {
   glEnable(GL_BLEND);
   glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
   R_gl_draw_textured(img, xx, y - img->y, img->w, img->h, flip);
-  glDisable(GL_BLEND);
 }
 
 /* draw sprite with offset */
 static void R_gl_draw_image (image *img, int x, int y, int flip) {
-  int xx = flip ? x - img->w + img->x : x - img->x;
-  glEnable(GL_BLEND);
   glColor3ub(255, 255, 255);
-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-  R_gl_draw_textured(img, xx, y - img->y, img->w, img->h, flip);
+  R_gl_draw_image_color(img, x, y, flip);
 }
 
 static void R_gl_set_color (byte c) {
@@ -393,34 +627,68 @@ static image Z_getspr (const char n[4], int s, int d, char *dir) {
   return R_gl_getimage(h);
 }
 
-static void Z_putch_generic (image img[], int off, int ch) {
+static image *Z_get_char_image (image *img, int ch) {
   image *p = NULL;
   if (ch > 32 && ch < 160) {
     p = &img[ch - '!'];
+    if (p->n == NULL) {
+      p = &img[toupper(ch) - '!'];
+    }
   }
-  if (p != NULL) {
+  return p;
+}
+
+static int Z_get_char_width_generic (image *img, int off, int ch) {
+  image *p = Z_get_char_image(img, ch);
+  return p == NULL ? off : p->w - 1;
+}
+
+static int Z_putch_generic (image *img, int off, int ch) {
+  image *p = Z_get_char_image(img, ch);
+  int w = p == NULL ? off : p->w - 1;
+  if (p != NULL && p->n != NULL) {
     R_gl_draw_image(p, prx, pry, 0);
-    prx += p->w - 1;
-  } else {
-    prx += off;
   }
+  prx += w;
+  return w;
 }
 
-static void Z_printf_generic (image img[], int off, const char *fmt, va_list ap) {
-  int i;
+static int Z_get_string_width_generic (image *img, int off, const char *fmt, va_list ap) {
+  int i, w, ww;
   char buf[80];
   vsprintf(buf, fmt, ap);
-  for (i = 0; buf[i]; ++i) {
+  for (i = w = ww = 0; buf[i]; ++i) {
+    switch (buf[i]) {
+      case '\n':
+      case '\r':
+        ww = max(w, ww);
+        w = 0;
+        break;
+      default:
+        w += Z_get_char_width_generic(img, off, (byte)buf[i]);
+    }
+  }
+  return max(w, ww);
+}
+
+static int Z_printf_generic (image *img, int off, const char *fmt, va_list ap) {
+  int i, w, ww;
+  char buf[80];
+  vsprintf(buf, fmt, ap);
+  for (i = w = ww = 0; buf[i]; ++i) {
     switch (buf[i]) {
       case '\n':
         pry += off + 1;
       case '\r':
+        w = max(w, ww);
         prx = 0;
+        w = 0;
         break;
       default:
-        Z_putch_generic(img, off, (byte)buf[i]);
+        w += Z_putch_generic(img, off, (byte)buf[i]);
     }
   }
+  return w;
 }
 
 static void Z_gotoxy (int x, int y) {
@@ -428,18 +696,36 @@ static void Z_gotoxy (int x, int y) {
   pry = y;
 }
 
-static void Z_printbf (const char *fmt, ...) {
+static int Z_get_big_string_width (const char *fmt, ...) {
+  va_list a;
+  va_start(a, fmt);
+  int w = Z_get_string_width_generic(bfh, 12, fmt, a);
+  va_end(a);
+  return w;
+}
+
+static int Z_printbf (const char *fmt, ...) {
   va_list a;
   va_start(a, fmt);
-  Z_printf_generic(bfh, 12, fmt, a);
+  int w = Z_printf_generic(bfh, 12, fmt, a);
   va_end(a);
+  return w;
 }
 
-static void Z_printsf (const char *fmt, ...) {
+static int Z_get_small_string_width (const char *fmt, ...) {
   va_list a;
   va_start(a, fmt);
-  Z_printf_generic(sfh, 7, fmt, a);
+  int w = Z_get_string_width_generic(sfh, 7, fmt, a);
   va_end(a);
+  return w;
+}
+
+static int Z_printsf (const char *fmt, ...) {
+  va_list a;
+  va_start(a, fmt);
+  int w =Z_printf_generic(sfh, 7, fmt, a);
+  va_end(a);
+  return w;
 }
 
 static void Z_printhf (const char *fmt, ...) {
@@ -493,96 +779,195 @@ static image *PL_getspr (int s, int d, int msk) {
   return msk ? &plr_msk[i] : &plr_spr[i];
 }
 
-static void GM_draw (void) {
-  enum {MENU, MSG}; // copypasted from menu.c!
-  enum {
-    CANCEL, NEWGAME, LOADGAME, SAVEGAME, OPTIONS, QUITGAME, QUIT, ENDGAME, ENDGM,
-    PLR1, PLR2, COOP, DM, VOLUME, GAMMA, LOAD, SAVE, PLCOLOR, PLCEND, MUSIC, INTERP,
-    SVOLM, SVOLP, MVOLM, MVOLP, GAMMAM, GAMMAP, PL1CM, PL1CP, PL2CM, PL2CP
-  }; // copypasted from menu.c!
-  int i, j, k, x, y, cx, cy;
-  image *img;
-  gm_tm += 1;
-  if (mnu != NULL) {
-    cx = SCRW / 2;
-    cy = SCRH / 2;
-    if (mnu->type == MENU) {
-      y = cy - (mnu->n * 16 - 20) / 2;
-      Z_gotoxy(cx - mnu->x, y - 10); Z_printbf("%s", mnu->ttl);
-      for (i = 0; i < mnu->n; i++) {
-        if (mnu->t[i] == LOAD || mnu->t[i] == SAVE) {
-          j = y + i * 16 + 29;
-          R_gl_draw_image(&mslotl, cx - mnu->x, j, 0);
-          for (k = 8; k < 184; k += 8) {
-            R_gl_draw_image(&mslotm, cx - mnu->x + k, j, 0);
+static int count_menu_entries (const new_menu_t *m) {
+  assert(m != NULL);
+  int i = 0;
+  while (m->entries[i].type != 0) {
+    i += 1;
+  }
+  return i;
+}
+
+#define SCROLLER_MIDDLE 10
+#define TEXTFIELD_MIDDLE 2
+
+static void get_entry_size (const new_menu_t *m, int i, int *w, int *h) {
+  assert(m != NULL);
+  assert(i >= 0);
+  assert(w != NULL);
+  assert(h != NULL);
+  int x, y;
+  new_msg_t msg;
+  switch (m->entries[i].type) {
+    case GM_BUTTON:
+    case GM_SCROLLER:
+    case GM_TEXTFIELD:
+    case GM_TEXTFIELD_BUTTON:
+      x = Z_get_big_string_width("%s", m->entries[i].caption);
+      break;
+    case GM_SMALL_BUTTON:
+      x = Z_get_small_string_width("%s", m->entries[i].caption);
+      break;
+    default:
+      assert(0);
+  }
+  switch (m->entries[i].type) {
+    case GM_BUTTON:
+      msg.type = GM_GETSTR;
+      if (GM_send(m, i, &msg)) {
+        x += Z_get_big_string_width("%.*s", msg.string.maxlen, msg.string.s);
+      }
+      y = 16;
+      break;
+    case GM_SMALL_BUTTON:
+      msg.type = GM_GETSTR;
+      if (GM_send(m, i, &msg)) {
+        x += Z_get_big_string_width("%.*s", msg.string.maxlen, msg.string.s);
+      }
+      y = 12;
+      break;
+    case GM_SCROLLER:
+      x += (SCROLLER_MIDDLE + 2) * 8;
+      y = 16;
+      break;
+    case GM_TEXTFIELD:
+    case GM_TEXTFIELD_BUTTON:
+      msg.type = GM_GETSTR;
+      if (GM_send(m, i, &msg)) {
+        x += (msg.string.maxlen + 2) * 8;
+      } else {
+        x += (TEXTFIELD_MIDDLE + 2) * 8;
+      }
+      y = 16;
+      break;
+    default:
+      assert(0);
+  }
+  *w = x;
+  *h = y;
+}
+
+static void get_menu_size (const new_menu_t *m, int *w, int *h) {
+  assert(m != NULL);
+  assert(w != NULL);
+  assert(h != NULL);
+  int i, x, y, xx, yy;
+  int n = count_menu_entries(m);
+  switch (m->type) {
+    case GM_BIG: x = Z_get_big_string_width("%s", m->title); break;
+    case GM_SMALL: x = Z_get_small_string_width("%s", m->title); break;
+    default: assert(0);
+  }
+  y = 0;
+  for (i = 0; i < n; i++) {
+    get_entry_size(m, i, &xx, &yy);
+    x = max(x, xx);
+    y += yy;
+  }
+  *w = x;
+  *h = y;
+}
+
+static int GM_draw (void) {
+  int i, j, xoff, yoff, n, x, y, cur, curoff, w, recv;
+  const new_menu_t *m = GM_get();
+  new_msg_t msg;
+  if (m != NULL) {
+    get_menu_size(m, &x, &y);
+    x = SCRW / 2 - x / 2;
+    y = SCRH / 2 - y / 2;
+    // --- title ---
+    switch (m->type) {
+      case GM_BIG:
+        yoff = 20;
+        Z_gotoxy(x, y - 10);
+        Z_printbf("%s", m->title);
+        break;
+      case GM_SMALL:
+        yoff = 8;
+        Z_gotoxy(x, y - 10);
+        Z_printsf("%s", m->title);
+        break;
+      default:
+        assert(0);
+    }
+    // --- entries ---
+    curoff = yoff;
+    cur = GM_geti();
+    n = count_menu_entries(m);
+    for (i = 0; i < n; i++) {
+      if (i == cur) {
+        curoff = yoff;
+        if (m->entries[cur].type == GM_SMALL_BUTTON) {
+          Z_gotoxy(x - 8, y + curoff);
+          Z_printsf(">");
+        } else {
+          R_gl_draw_image(&msklh[(gm_tm / 6) & 1], x - 25, y + curoff - 8, 0);
+        }
+      }
+      switch (m->entries[i].type) {
+        case GM_BUTTON:
+          Z_gotoxy(x, y + yoff);
+          w = Z_printbf("%s", m->entries[i].caption);
+          msg.type = GM_GETSTR;
+          if (GM_send(m, i, &msg)) {
+            Z_gotoxy(x + w, y + yoff);
+            Z_printbf("%.*s", msg.string.maxlen, msg.string.s);
           }
-          R_gl_draw_image(&mslotr, cx - mnu->x + 184, j, 0);
-          Z_gotoxy(cx - mnu->x + 4, j - 8);
-          if (input && i == save_mnu.cur) {
-            Z_printsf("%s_", ibuf);
-          } else {
-            Z_printsf("%s", savname[i]);
+          yoff += 16;
+          break;
+        case GM_SMALL_BUTTON:
+          Z_gotoxy(x, y + yoff);
+          w = Z_printsf("%s", m->entries[i].caption);
+          msg.type = GM_GETSTR;
+          if (GM_send(m, i, &msg)) {
+            Z_gotoxy(x + w, y + yoff);
+            Z_printsf("%.*s", msg.string.maxlen, msg.string.s);
           }
-        } else {
-          x = mnu->t[i] >= SVOLM ? (mnu->t[i] >= PL1CM ? 50 : 152) : 0;
-          Z_gotoxy(cx - mnu->x + x, y + i * 16 + 20);
-          Z_printbf("%s", mnu->m[i]);
-          switch (mnu->t[i]) {
-            case MUSIC:
-              Z_printbf(" '%s'", g_music);
-              break;
-            case INTERP:
-              Z_printbf("%s", fullscreen ? "ON" : "OFF");
-              break;
-            case PL1CM:
-            case PL1CP:
-            case PL2CM:
-            case PL2CP:
-              img = PL_getspr(*panimp, 0, 0);
-              R_gl_draw_image(img, cx - mnu->x + (mnu->t[i] == PL1CM ? 15 : 35), y + i * 16 + 20 + 14, 0);
-              img = PL_getspr(*panimp, 0, 1);
-              R_gl_set_color(pcolortab[(mnu->t[i] == PL1CM) ? p1color : p2color] + PLAYER_COLOR_OFFSET);
-              R_gl_draw_image_color(img, cx - mnu->x + (mnu->t[i] == PL1CM ? 15 : 35), y + i * 16 + 20 + 14, 0);
-              break;
-            case SVOLM:
-            case SVOLP:
-            case MVOLM:
-            case MVOLP:
-            case GAMMAM:
-            case GAMMAP:
-              j = y + i * 16 + 20;
-              R_gl_draw_image(&mbarl, cx - mnu->x, j, 0);
-              for (k = 8; k < 144; k += 8) {
-                R_gl_draw_image(&mbarm, cx - mnu->x + k, j, 0);
-              }
-              R_gl_draw_image(&mbarr, cx - mnu->x + 144, j, 0);
-              switch (mnu->t[i]) {
-                case SVOLM:
-                  k = snd_vol;
-                  break;
-                case MVOLM:
-                  k = mus_vol;
-                  break;
-                case GAMMAM:
-                  k = gamma << 5;
-                  break;
-                default:
-                  k = 0;
-                  break;
-              }
-              R_gl_draw_image(&mbaro, cx - mnu->x + 8 + k, j, 0);
-              break;
+          yoff += 12;
+          break;
+        case GM_TEXTFIELD:
+        case GM_TEXTFIELD_BUTTON:
+          msg.type = GM_GETSTR;
+          recv = GM_send(m, i, &msg);
+          Z_gotoxy(x, y + yoff);
+          xoff = Z_printbf("%s", m->entries[i].caption);
+          yoff += 9;
+          w = (recv ? msg.string.maxlen : TEXTFIELD_MIDDLE) + 1;
+          R_gl_draw_image(&mslotl, x + xoff, y + yoff, 0);
+          for (j = 1; j < w; j++) {
+            R_gl_draw_image(&mslotm, x + xoff + j * 8, y + yoff, 0);
           }
-        }
+          R_gl_draw_image(&mslotr, x + xoff + j * 8, y + yoff, 0);
+          Z_gotoxy(x + xoff + 4, y + yoff - 7);
+          if (input && i == cur) {
+            Z_printsf("%.*s_", imax, ibuf);
+          } else if (recv) {
+            Z_printsf("%.*s", msg.string.maxlen, msg.string.s);
+          }
+          yoff += 7;
+          break;
+        case GM_SCROLLER:
+          Z_gotoxy(x, y + yoff);
+          xoff = Z_printbf("%s", m->entries[i].caption);
+          R_gl_draw_image(&mbarl, x + xoff, y + yoff, 0);
+          for (j = 1; j < SCROLLER_MIDDLE + 1; j++) {
+            R_gl_draw_image(&mbarm, x + xoff + j * 8, y + yoff, 0);
+          }
+          R_gl_draw_image(&mbarr, x + xoff + j * 8, y + yoff, 0);
+          msg.type = GM_GETINT;
+          if (GM_send(m, i, &msg)) {
+            int lev = (msg.integer.i - msg.integer.a) * ((SCROLLER_MIDDLE - 1) * 8) / msg.integer.b;
+            R_gl_draw_image(&mbaro, x + xoff + lev + 8, y + yoff, 0);
+          }
+          yoff += 16;
+          break;
+        default:
+          assert(0);
       }
-      R_gl_draw_image(&msklh[(gm_tm / 6) & 1], cx - mnu->x - 25, y + mnu->cur * 16 + 20 - 8, 0);
-    } else if (mnu->type == MSG) {
-      Z_gotoxy(cx - strlen(mnu->ttl) * 7 / 2, cy - 10); Z_printsf(mnu->ttl);
-      Z_gotoxy(cx - 24, SCRH / 2); Z_printsf("(Y/N)");
-    } else {
-      ERR_fatal("Unknown menu type %i\n", mnu->type);
     }
   }
+  return m != NULL;
 }
 
 /* --- View --- */
@@ -599,7 +984,7 @@ static void R_draw_fld (byte *fld, int minx, int miny, int maxx, int maxy, int f
       if (id != 0) {
         if (walp[id].res < 0) {
           if (fg) {
-            switch (walp[id].id) {
+            switch (R_get_special_id(id)) {
               case 1:
                 glColor4ub(0, 0, 255, 127);
                 break;
@@ -615,6 +1000,7 @@ static void R_draw_fld (byte *fld, int minx, int miny, int maxx, int maxy, int f
             }
             glEnable(GL_BLEND);
             glBlendFunc(GL_DST_COLOR, GL_SRC_COLOR);
+            glDisable(GL_TEXTURE_2D);
             R_gl_draw_quad(i * CELW, j * CELW, CELW, CELH);
           }
         } else {
@@ -627,6 +1013,9 @@ static void R_draw_fld (byte *fld, int minx, int miny, int maxx, int maxy, int f
 
 static void R_draw_dots (void) {
   int i;
+  glDisable(GL_BLEND);
+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+  glDisable(GL_TEXTURE_2D);
   glBegin(GL_POINTS);
   for (i = 0; i < MAXDOT; i++) {
     if (dot[i].t != 0) {
@@ -932,6 +1321,9 @@ static void R_draw_effects (void) {
         R_gl_draw_image(&fx_spr[s], fx[i].x, fx[i].y, fx_sprd[s]);
         break;
       case BUBL:
+        glDisable(GL_BLEND);
+        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+        glDisable(GL_TEXTURE_2D);
         glBegin(GL_POINTS);
         R_gl_set_color(0xC0 + fx[i].s);
         glVertex2i(fx[i].x >> 8, (fx[i].y >> 8) + 1);
@@ -955,7 +1347,7 @@ static void R_draw_view (int x, int y, int w, int h, int camx, int camy) {
   glPushMatrix();
   R_gl_setclip(x, y, w, h);
   glTranslatef(x, y, 0);
-  if (w_horiz && horiz.id != 0) {
+  if (w_horiz && horiz.n != NULL) {
     R_gl_draw_image_ext(&horiz, 0, 0, w, h);
     if (sky_type == 2 && lt_time < 0) {
       image *tanderbolt = &ltn[lt_type][lt_time < -5 ? 0 : 1];
@@ -967,6 +1359,8 @@ static void R_draw_view (int x, int y, int w, int h, int camx, int camy) {
     }
   } else {
     glDisable(GL_BLEND);
+    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+    glDisable(GL_TEXTURE_2D);
     R_gl_set_color(DEFAULT_SKY_COLOR);
     R_gl_draw_quad(0, 0, w, h);
   }
@@ -992,6 +1386,7 @@ static void R_draw_view (int x, int y, int w, int h, int camx, int camy) {
     glColor4ub(255, 255, 255, 255);
     glEnable(GL_BLEND);
     glBlendFunc(GL_DST_COLOR, GL_SRC_COLOR);
+    glDisable(GL_TEXTURE_2D);
     R_gl_draw_quad(0, 0, w, h);
   }
   glPopMatrix();
@@ -1011,22 +1406,25 @@ static void R_draw_player_view (player_t *p, int x, int y, int w, int h) {
   if (p->invl) {
     if (get_pu_st(p->invl)) {
       glEnable(GL_BLEND);
-      glColor4ub(191, 191, 191, 255);
       glBlendFunc(GL_ONE_MINUS_DST_COLOR, GL_ZERO);
+      glDisable(GL_TEXTURE_2D);
+      glColor4ub(191, 191, 191, 255);
       R_gl_draw_quad(0, 0, cw, h);
     }
   } else {
     if (p->suit && get_pu_st(p->suit)) {
       glEnable(GL_BLEND);
-      glColor4ub(0, 255, 0, 192);
       glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+      glDisable(GL_TEXTURE_2D);
+      glColor4ub(0, 255, 0, 192);
       R_gl_draw_quad(0, 0, cw, h);
     }
     int f = min(max(p->pain * 3, 0), 255);
     if (f > 0) {
       glEnable(GL_BLEND);
-      glColor4ub(255, 0, 0, f);
       glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+      glDisable(GL_TEXTURE_2D);
+      glColor4ub(255, 0, 0, f);
       R_gl_draw_quad(0, 0, cw, h);
     }
   }
@@ -1042,6 +1440,8 @@ static void R_draw_player_view (player_t *p, int x, int y, int w, int h) {
     if (p->air < PL_AIR) {
       int a = min(max(p->air, 0), MAXAIR) * 100 / MAXAIR;
       glDisable(GL_BLEND);
+      glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
+      glDisable(GL_TEXTURE_2D);
       R_gl_set_color(0xC8);
       R_gl_draw_quad(10, 49, a, 2);
     }
@@ -1162,7 +1562,7 @@ static void W_act (void) {
 void R_draw (void) {
   W_act();
   glClearColor(0, 0, 0, 1);
-  glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
+  glClear(GL_COLOR_BUFFER_BIT);
   glEnable(GL_SCISSOR_TEST);
   R_gl_setmatrix();
   switch (g_st) {
@@ -1194,10 +1594,10 @@ void R_draw (void) {
       break;
   }
   GM_draw();
-  SDL_GL_SwapBuffers();
+  Y_swap_buffers();
 }
 
-void R_alloc (void) {
+static void R_alloc (void) {
   char s[10];
   int i, j, n;
   logo("R_alloc: load graphics\n");
@@ -1408,11 +1808,12 @@ void R_alloc (void) {
   mslotr = R_gl_loadimage("M_LSRGHT");
   // walls
   for (i = 1; i < ANIT; i++) {
-    for (j = 0; anm[i - 1][j]; j++) {
+    for (j = 0; j < 5 && anm[i - 1][j]; j++) {
       anip[i][j] = R_gl_loadimage(anm[i - 1][j]);
     }
     for(; j < 5; j++) {
       anip[i][j] = (image) {
+        .n = NULL,
         .w = 8,
         .h = 8,
         .res = -1,
@@ -1421,41 +1822,110 @@ void R_alloc (void) {
   }
 }
 
-void R_init (void) {
-  Uint32 flags = SDL_OPENGL;
-  if (fullscreen) {
-    flags = flags | SDL_FULLSCREEN;
-  }
-  if (SCRW <= 0 || SCRH <= 0) {
-    ERR_failinit("Invalid screen size %ix%i\n", SCRW, SCRH);
-  }
-  if (surf == NULL) {
-    R_init_playpal(); // only onece
+static void R_reload_textures (void);
+
+void R_set_videomode (int w, int h, int fullscreen) {
+  assert(w > 0);
+  assert(h > 0);
+  int was = Y_videomode_setted();
+  if (root != NULL) {
+    R_cache_free(root, 0);
+    root = NULL;
   }
-  surf = SDL_SetVideoMode(SCRW, SCRH, 0, flags);
-  if (surf == NULL) {
-    ERR_failinit("Unable to set video mode: %s\n", SDL_GetError());
+  int res = Y_set_videomode_opengl(w, h, fullscreen);
+  if (res == 0) {
+    if (was == 0) {
+      ERR_failinit("Unable to set video mode\n");
+    }
   }
+  Y_get_videomode(&SCRW, &SCRH);
+  root = R_cache_new();
+  assert(root);
   R_alloc();
+  R_reload_textures();
 }
 
-void R_done (void) {
-  // do nothing
+static int R_video_menu_handler (new_msg_t *msg, const new_menu_t *m, void *data) {
+  const videomode_t *v;
+  intptr_t i = (intptr_t)data;
+  static int w, h;
+  static int vmode;
+  static int fullscreen;
+  static char str[16];
+  switch (i) {
+    case -1:
+      switch (msg->type) {
+        case GM_ENTER:
+          Y_get_videomode(&w, &h);
+          fullscreen = Y_get_fullscreen();
+          v = Y_get_videomode_list_opengl(fullscreen);
+          vmode = 0;
+          while (vmode < v->n && v->modes[vmode].w != w && v->modes[vmode].h != h) {
+            vmode += 1;
+          }
+          if (vmode < v->n) {
+            w = v->modes[vmode].w;
+            h = v->modes[vmode].h;
+          }
+          snprintf(str, 16, "%ix%i", w, h);
+          return 1;
+      }
+      break;
+    case 0:
+      switch (msg->type) {
+        case GM_SELECT:
+          v = Y_get_videomode_list_opengl(fullscreen);
+          vmode = vmode + 1 >= v->n ? 0 : vmode + 1;
+          if (v->n > 0) {
+            w = v->modes[vmode].w;
+            h = v->modes[vmode].h;
+          } else {
+            Y_get_videomode(&w, &h);
+          }
+          snprintf(str, 16, "%ix%i", w, h);
+          return 1;
+        case GM_GETSTR:
+          return GM_init_str(msg, str, 16);
+      }
+      break;
+    case 1:
+      switch (msg->type) {
+        case GM_SELECT: fullscreen = !fullscreen; return 1;
+        case GM_GETSTR: return GM_init_str(msg, fullscreen ? "Yes" : "No", 3);
+      }
+      break;
+    case 2:
+      switch (msg->type) {
+        case GM_SELECT: R_set_videomode(w, h, fullscreen); return 1;
+      }
+  }
+  return 0;
 }
 
-void R_setgamma (int g) {
-  gamma = g < 0 ? 0 : (g > 4 ? 4 : g);
+static const new_menu_t video_menu = {
+  GM_BIG, "Video", (void*)-1, &R_video_menu_handler,
+  {
+    { GM_BUTTON, "Videomode: ", (void*)0, &R_video_menu_handler, NULL },
+    { GM_BUTTON, "Fullscreen: ", (void*)1, &R_video_menu_handler, NULL },
+    { GM_BUTTON, "Apply", (void*)2, &R_video_menu_handler, NULL },
+    { 0, NULL, NULL, NULL, NULL } // end
+  }
+};
+
+const new_menu_t *R_menu (void) {
+  return &video_menu;
 }
 
-int R_getgamma (void) {
-  return gamma;
+void R_init (void) {
+  logo("R_init: intialize opengl render\n");
+  R_init_playpal();
+  R_set_videomode(SCRW, SCRH, 0);
 }
 
-void R_toggle_fullscreen (void) {
-  fullscreen = !fullscreen;
-  if (surf) {
-    R_init(); // recreate window
-  }
+void R_done (void) {
+  R_cache_free(root, 1);
+  Y_unset_videomode();
+  root = NULL;
 }
 
 void R_get_name (int n, char s[8]) {
@@ -1464,7 +1934,7 @@ void R_get_name (int n, char s[8]) {
     memset(s, 0, 8);
   } else if (walp[n].res == -2) {
     memcpy(s, "_WATER_", 8);
-    s[7] = '0' + walp[n].id - 1;
+    s[7] = '0' + (intptr_t)walp[n].n - 1;
   } else if (walani[n] > 0) {
     memcpy(s, anm[walani[n] - 1][0], 8);
   } else {
@@ -1474,21 +1944,35 @@ void R_get_name (int n, char s[8]) {
 
 static short getani (char n[8]) {
   short i = 0;
-  while (i < ANIT && strncasecmp(n, anm[i][0], 8) != 0) {
+  while (i < ANIT - 1 && strncasecmp(n, anm[i][0], 8) != 0) {
     i++;
   }
-  return i < ANIT ? i + 1 : 0;
+  return i < ANIT - 1 ? i + 1 : 0;
 }
 
 int R_get_special_id (int n) {
   assert(n >= 0 && n <= 256);
-  return walp[n].res == -2 ? walp[n].id : -1;
+  return walp[n].res == -2 ? (intptr_t)walp[n].n : -1;
+}
+
+static void R_reload_textures (void) {
+  int i;
+  char s[8];
+  for (i = 0; i < max_textures; i++) {
+    R_get_name(i, s);
+    if (walp[i].res >= 0) {
+      walp[i] = R_gl_getimage(walp[i].res);
+    }
+  }
+  if (horiz.n) {
+    horiz = R_gl_getimage(horiz.res);
+  }
 }
 
 void R_begin_load (void) {
   int i;
   for (i = 0; i < 256; i++) {
-    if (walp[i].id != 0 && walp[i].res >= 0 && walani[i] == 0) {
+    if (walp[i].n != NULL && walp[i].res >= 0 && walani[i] == 0) {
       R_gl_free_image(&walp[i]);
     }
     memset(&walp[i], 0, sizeof(image));
@@ -1506,7 +1990,7 @@ void R_load (char s[8], int f) {
   assert(max_textures < 256);
   if (!s[0]) {
     walp[max_textures] = (image) {
-      .id = 0,
+      .n = NULL,
       .x = 0,
       .y = 0,
       .w = 0,
@@ -1515,7 +1999,7 @@ void R_load (char s[8], int f) {
     };
   } else if (strncasecmp(s, "_WATER_", 7) == 0) {
     walp[max_textures] = (image) {
-      .id = s[7] - '0' + 1,
+      .n = (void*)((intptr_t)s[7] - '0' + 1),
       .x = 0,
       .y = 0,
       .w = 8,
@@ -1553,6 +2037,7 @@ void R_end_load (void) {
       if (k >= 256) {
         k = j;
         j += 1;
+        max_textures += 1;
         walp[k] = R_gl_getimage(g);
         walf[k] = g & 0x8000 ? 1 : 0;
       }
@@ -1564,9 +2049,8 @@ void R_end_load (void) {
 
 void R_loadsky (int sky) {
   char s[6];
-  logo("R_loadsky(%i)\n", sky);
   strcpy(s, "RSKYx");
   s[4] = '0' + sky;
   R_gl_free_image(&horiz);
   horiz = R_gl_loadimage(s);
-}
\ No newline at end of file
+}