Initial community commit

1 files changed, 162 insertions, 0 deletions

diff --git a/Src/Winamp/plush/READ_PCX.C b/Src/Winamp/plush/READ_PCX.C
new file mode 100644
index 00000000..e1de3825
--- /dev/null
+++ b/Src/Winamp/plush/READ_PCX.C
@@ -0,0 +1,162 @@
+/******************************************************************************
+Plush Version 1.2
+read_pcx.c
+PCX Texture Reader
+Copyright (c) 1996-2000, Justin Frankel
+******************************************************************************/
+
+#include "plush.h"
+
+static pl_uInt _plHiBit(pl_uInt16);
+static pl_uInt _plOptimizeImage(pl_uChar *, pl_uChar *, pl_uInt32);
+static pl_sInt _plReadPCX(char *filename, pl_uInt16 *width, pl_uInt16 *height,
+                          pl_uChar **pal, pl_uChar **data);
+static void _plRescaleImage(pl_uChar *in, pl_uChar *out, pl_uInt inx,
+                            pl_uInt iny, pl_uInt outx, pl_uInt outy);
+
+pl_Texture *plReadPCXTex(char *fn, pl_Bool rescale, pl_Bool optimize) {
+  pl_uChar *data, *pal;
+  pl_uInt16 x, y;
+  pl_Texture *t;
+  if (_plReadPCX(fn,&x,&y,&pal,&data) < 0) return 0;
+  t = (pl_Texture *) malloc(sizeof(pl_Texture));
+  if (!t) return 0;
+  t->Width = _plHiBit(x);
+  t->Height = _plHiBit(y);
+  if (rescale && (1 << t->Width != x || 1 << t->Height != y)) {
+    pl_uChar nx, ny, *newdata;
+    nx = t->Width;
+    if ((1 << t->Width) != x) nx++;
+    ny = t->Height;
+    if ((1 << t->Height) != y) ny++;
+    newdata = (pl_uChar *) malloc((1<<nx)*(1<<ny));
+    if (!newdata) {
+      free(t);
+      free(data);
+      free(pal);
+      return 0;
+    }
+    _plRescaleImage(data,newdata,x,y,1<<nx,1<<ny);
+    free(data);
+    data = newdata;
+    t->Width = nx;
+    t->Height = ny;
+    x = 1<<nx; y = 1<<ny;
+  }
+  t->iWidth = x;
+  t->iHeight = y;
+  t->uScale = (pl_Float) (1<<t->Width);
+  t->vScale = (pl_Float) (1<<t->Height);
+  if (optimize) t->NumColors = _plOptimizeImage(pal, data,x*y);
+  else t->NumColors = 256;
+  t->Data = data;
+  t->PaletteData = pal;
+  return t;
+}
+
+
+static pl_uInt _plHiBit(pl_uInt16 x) {
+  pl_uInt i = 16, mask = 1<<15;
+  while (mask) {
+    if (x & mask) return i;
+    mask >>= 1; i--;
+  }
+  return 0;
+}
+
+static pl_uInt _plOptimizeImage(pl_uChar *pal, pl_uChar *data, pl_uInt32 len) {
+  pl_uChar colors[256], *dd = data;
+  pl_uChar remap[256];
+  pl_sInt32 lastused, firstunused;
+  pl_uInt32 x;
+  memset(colors,0,256);
+  for (x = 0; x < len; x ++) colors[(pl_uInt) *dd++] = 1;
+  lastused = -1;
+  for (x = 0; x < 256; x ++) remap[x] = (pl_uChar)x;
+  lastused = 255;
+  firstunused = 0;
+  for (;;) {
+    while (firstunused < 256 && colors[firstunused]) firstunused++;
+    if (firstunused > 255) break;
+    while (lastused >= 0 && !colors[lastused]) lastused--;
+    if (lastused < 0) break;
+	if (lastused <= firstunused) break;
+    pal[firstunused*3] = pal[lastused*3];
+    pal[firstunused*3+1] = pal[lastused*3+1];
+    pal[firstunused*3+2] = pal[lastused*3+2];
+    colors[lastused] = 0;
+    colors[firstunused] = 1;
+	  remap[lastused] = (pl_uChar) firstunused;
+  }
+  x = len;
+  while (x--) *data++ = remap[(pl_uInt) *data];
+  return (lastused+1);
+}
+
+static pl_sInt _plReadPCX(char *filename, pl_uInt16 *width, pl_uInt16 *height,
+                            pl_uChar **pal, pl_uChar **data) {
+  pl_uInt16 sx, sy, ex, ey;
+  FILE *fp = fopen(filename,"rb");
+  pl_uChar *data2;
+  if (!fp) return -1;
+  fgetc(fp);
+  if (fgetc(fp) != 5) { fclose(fp); return -2; }
+  if (fgetc(fp) != 1) { fclose(fp); return -2; }
+  if (fgetc(fp) != 8) { fclose(fp); return -3; }
+  sx = fgetc(fp); sx |= fgetc(fp)<<8;
+  sy = fgetc(fp); sy |= fgetc(fp)<<8;
+  ex = fgetc(fp); ex |= fgetc(fp)<<8;
+  ey = fgetc(fp); ey |= fgetc(fp)<<8;
+  *width = ex - sx + 1;
+  *height = ey - sy + 1;
+  fseek(fp,128,SEEK_SET);
+  if (feof(fp)) { fclose(fp); return -4; }
+  *data = (pl_uChar *) malloc((*width) * (*height));
+  if (!*data) { fclose(fp); return -128; }
+  sx = *height;
+  data2 = *data;
+  do {
+    int xpos = 0;
+    do {
+      char c = fgetc(fp);
+      if ((c & 192) == 192) {
+        char oc = fgetc(fp);
+        c &= ~192;
+        do {
+          *(data2++) = oc;
+          xpos++;
+        } while (--c && xpos < *width);
+      } else {
+        *(data2++) = c;
+        xpos++;
+      }
+    } while (xpos < *width);
+  } while (--sx);
+  if (feof(fp)) { fclose(fp); free(*data); return -5; }
+  fseek(fp,-769,SEEK_END);
+  if (fgetc(fp) != 12) { fclose(fp); free(*data); return -6; }
+  *pal = (pl_uChar *) malloc(768);
+  if (!*pal) { fclose(fp); free(*data); return -7; }
+  fread(*pal,3,256,fp);
+  fclose(fp);
+  return 0;
+}
+
+static void _plRescaleImage(pl_uChar *in, pl_uChar *out, pl_uInt inx,
+                            pl_uInt iny, pl_uInt outx, pl_uInt outy) {
+  pl_uInt x;
+  pl_uInt32 X, dX, dY, Y;
+  dX = (inx<<16) / outx;
+  dY = (iny<<16) / outy;
+  Y = 0;
+  do {
+    pl_uChar *ptr = in + inx*(Y>>16);
+    X = 0;
+    Y += dY;
+    x = outx;
+    do {
+      *out++ = ptr[X>>16];
+      X += dX;
+    } while (--x);
+  } while (--outy);
+}