Try to load images with RECOIL (REtro COmputer IMage Library)

src/loadrecoil.c

@@ -0,0 +1,142 @@
+/* vim:expandtab:ts=2 sw=2:
+*/
+/*  Grafx2 - The Ultimate 256-color bitmap paint program
+
+    Copyright 2018 Thomas Bernard
+
+    Grafx2 is free software; you can redistribute it and/or
+    modify it under the terms of the GNU General Public License
+    as published by the Free Software Foundation; version 2
+    of the License.
+
+    Grafx2 is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with Grafx2; if not, see <http://www.gnu.org/licenses/>
+*/
+
+
+#include "struct.h"
+#include "global.h"
+#include "loadsave.h"
+#include "io.h"
+#include "errors.h"
+
+#include "recoil.h"
+
+void Load_Recoil_Image(T_IO_Context *context)
+{
+  RECOIL *recoil;
+  byte * file_content;
+  unsigned long file_length;
+  FILE * f;
+
+  f = Open_file_read(context);
+  if (f == NULL)
+  {
+    File_error = 1;
+    return;
+  }
+  file_length = File_length_file(f);
+  if (file_length == 0)
+  {
+    fclose(f);
+    File_error = 1;
+    return;
+  }
+  file_content = malloc(file_length);
+  if (file_content == NULL)
+  {
+    Warning("Memory allocation error");
+    fclose(f);
+    File_error = 1;
+    return;
+  }
+  if (!Read_bytes(f, file_content, file_length))
+  {
+    Warning("Read error");
+    fclose(f);
+    free(file_content);
+    File_error = 1;
+    return;
+  }
+  fclose(f);
+
+  recoil = RECOIL_New();
+  if (recoil)
+  {
+    if (RECOIL_Decode(recoil, context->File_name, file_content, file_length))
+    {
+      int width, height;
+      int x, y;
+      byte * pixels;
+      const int *palette;
+      enum PIXEL_RATIO ratio = PIXEL_SIMPLE;
+
+      width = RECOIL_GetWidth(recoil);
+      height = RECOIL_GetHeight(recoil);
+      pixels = malloc(width * height);
+      if (pixels == NULL)
+      {
+        Warning("Memory allocation error");
+        File_error = 1;
+      }
+      else
+      {
+        // try to convert to 8bpp image
+        File_error = 0;
+        palette = RECOIL_ToPalette(recoil, pixels);
+        if (palette == NULL)
+        {
+          // 24bits
+          const int * tc_pixels;
+
+          Pre_load(context, width, height, file_length, FORMAT_MISC, ratio, 24);
+          tc_pixels = RECOIL_GetPixels(recoil);
+          for (y = 0; y < height; y++)
+            for (x = 0; x < width; x++)
+            {
+              Set_pixel_24b(context, x, y, *tc_pixels >> 16, *tc_pixels >> 8, *tc_pixels);
+              tc_pixels++;
+            }
+        }
+        else
+        {
+          // 8bits
+          int i;
+          int bpp;
+          int ncolors = RECOIL_GetColors(recoil);
+          const byte * p = pixels;
+
+          bpp = 8;
+          while (ncolors <= (1 << (bpp - 1)))
+            bpp--;
+          if (Config.Clear_palette)
+            memset(context->Palette,0,sizeof(T_Palette));
+          for (i = 0; i < ncolors; i++)
+          {
+            context->Palette[i].R = (byte)(palette[i] >> 16);
+            context->Palette[i].G = (byte)(palette[i] >> 8);
+            context->Palette[i].B = (byte)(palette[i]);
+          }
+          Pre_load(context, width, height, file_length, FORMAT_MISC, ratio, bpp);
+          for (y = 0; y < height; y++)
+            for (x = 0; x < width; x++)
+            {
+              Set_pixel(context, x, y, *p++);
+            }
+        }
+        free(pixels);
+        if (!File_error)
+        {
+          snprintf(context->Comment, COMMENT_SIZE + 1, "RECOIL: %s", RECOIL_GetPlatform(recoil));
+        }
+      }
+    }
+    RECOIL_Delete(recoil);
+  }
+  free(file_content);
+}