BlinkenLib

@@ -434,7 +434,7 @@ int main(int argCnt, char **args)

            "  -Md2\n"

            "     mirror movie diagonally (/)\n"

            "  -o <file>\n"

-           "     write movie to file (*.blm, *.bmm, *.bml, *.bbm" MNGEXT ")\n\n"

+           "     write movie to file (*.blm, *.bmm, *.bml, *.bbm" MNGEXT GIFEXT ")\n\n"

            "test_modes: black, white, gradient, dots, lines, trans\n\n"

            "old syntax: %s <input-file> [<output-file>]\n\n",

            args[0], args[0]);

@@ -4,6 +4,7 @@

    a blinkenarea.org project */

 #include <gif_lib.h>

+#include <stdlib.h>

 #include <BlinkenLib/config.h>

 #include <BlinkenLib/BlinkenConstants.h>

@@ -186,3 +187,210 @@ stBlinkenMovie *BlinkenGifLoad(const char *pFilename)

   return pMovie;

 }

+int BlinkenGifSave(stBlinkenMovie *pMovie, const char *pFilename)

+{

+  GifFileType *gif;

+  int frameCnt, height, width, channels, maxval, channels_new, maxval_new,

+      colors, r, g, b, i, frame, y, x, c, y1, x1, y2, x2, v, ret;

+  unsigned int delay;

+  stBlinkenMovie *pOutMovie;

+  stBlinkenFrame *pFrame, *pLast;

+  SavedImage *pImg;

+  GifImageDesc *pDesc;

+  ExtensionBlock *pEx;

+

+  if (pMovie == NULL || pFilename == NULL)

+    return -1; // error

+

+  frameCnt = BlinkenMovieGetFrameCnt(pMovie);

+  height = BlinkenMovieGetHeight(pMovie);

+  width = BlinkenMovieGetWidth(pMovie);

+  channels = BlinkenMovieGetChannels(pMovie);

+  maxval = BlinkenMovieGetMaxval(pMovie);

+

+  // convert movie to suitable color depth (i.e. at most 256 colors)

+  if (channels > 3)

+    channels_new = 3;

+  else

+    channels_new = channels;

+  switch (channels) {

+    case 1:  maxval_new = 255; colors = 256; break;

+    case 2:  maxval_new = 15;  colors = 256; break;

+    case 3:  maxval_new = 5;   colors = 216; break;

+    default: maxval_new = 255; colors = 255; break;

+  }

+  pOutMovie = BlinkenMovieClone(pMovie);

+  if (pOutMovie == NULL)

+    return -1; // error

+  if (channels_new != channels || maxval_new != maxval) {

+    BlinkenMovieResize(pOutMovie, height, width, channels_new, maxval_new);

+    channels = channels_new;

+    maxval = maxval_new;

+  }

+

+  // open GIF file for encoding

+  gif = EGifOpenFileName(pFilename, 0);

+  if (gif == NULL) {

+    BlinkenMovieFree(pOutMovie);

+    return -1; // error

+  }

+

+  // set global GIF config

+  gif->SWidth = width;

+  gif->SHeight = height;

+  gif->SColorResolution = colors;

+  gif->SBackGroundColor = 0;

+  gif->SColorMap = NULL;

+  gif->ImageCount = frameCnt;

+  gif->Image.Left = 0;

+  gif->Image.Top = 0;

+  gif->Image.Width = width;

+  gif->Image.Height = height;

+  gif->Image.ColorMap = NULL;

+  gif->SavedImages = NULL;

+  gif->UserData = NULL;

+

+  // create color map

+  gif->SColorMap = MakeMapObject(256, NULL);

+  if (gif->SColorMap == NULL) {

+    EGifCloseFile(gif);

+    BlinkenMovieFree(pOutMovie);

+    return -1; // error

+  }

+  for (b = 0, i = 0; b <= maxval && i < colors; ++b) {

+    for (g = 0; g <= maxval && i < colors; ++g) {

+      for (r = 0; r <= maxval && i < colors; ++r, ++i) {

+        gif->SColorMap->Colors[i].Red   = ((int)r * 255 + maxval / 2) / maxval;

+        gif->SColorMap->Colors[i].Green = ((int)g * 255 + maxval / 2) / maxval;

+        gif->SColorMap->Colors[i].Blue  = ((int)b * 255 + maxval / 2) / maxval;

+      }

+    }

+  }

+  for (; i < 256; ++i) {

+    gif->SColorMap->Colors[i].Red   = 0;

+    gif->SColorMap->Colors[i].Green = 0;

+    gif->SColorMap->Colors[i].Blue  = 0;

+  }

+

+  // create space for saved images

+  gif->SavedImages = calloc(frameCnt, sizeof(SavedImage));

+  if (gif->SavedImages == NULL) {

+    EGifCloseFile(gif);

+    BlinkenMovieFree(pOutMovie);

+    return -1; // error

+  }

+

+  // put frames into GIF structure

+  pLast = NULL;

+  for (frame = 0; frame < frameCnt; ++frame) {

+    pFrame = BlinkenMovieGetFrame(pOutMovie, frame);

+    pImg = &gif->SavedImages[frame];

+    pDesc = &pImg->ImageDesc;

+

+    // find smallest rectangle with changes

+    if (pLast != NULL) {

+      y1 = height - 1;

+      x1 = width - 1;

+      y2 = 0;

+      x2 = 0;

+      for (y = 0; y < height; ++y) {

+        for (x = 0; x < width; ++x) {

+          for (c = 0; c < channels; ++c) {

+           if (BlinkenFrameGetPixel(pFrame, y, x, c) !=

+               BlinkenFrameGetPixel(pLast, y, x, c))

+             break;

+          }

+          if (c < channels) { // change detected at x,y

+            if (y < y1) y1 = y;

+            if (x < x1) x1 = x;

+            if (y > y2) y2 = y;

+            if (x > x2) x2 = x;

+          }

+        } // for x

+      } // for y

+      if (y1 <= y2 && x1 <= x2) {

+        // changes detected -> encode changed rectangle

+        pDesc->Left = x1;

+        pDesc->Top = y1;

+        pDesc->Width = x2 - x1 + 1;

+        pDesc->Height = y2 - y1 + 1;

+      } else {

+        // no changes detected -> encode top left pixel (empty does not work)

+        pDesc->Left = 0;

+        pDesc->Top = 0;

+        pDesc->Width = 1;

+        pDesc->Height = 1;

+      }

+    } else { // if pLast

+      // no last frame -> encode full frame

+      pDesc->Left = 0;

+      pDesc->Top = 0;

+      pDesc->Width = width;

+      pDesc->Height = height;

+    } // if pLast ... else

+    pDesc->Interlace = 0;

+    pDesc->ColorMap = NULL;

+

+    // allocate pixel buffer

+    pImg->RasterBits = calloc(pDesc->Width * pDesc->Height,

+                              sizeof(unsigned char));

+    if (pImg->RasterBits == NULL) {

+      EGifCloseFile(gif);

+      BlinkenMovieFree(pOutMovie);

+      return -1; // error

+    }

+

+    // fill pixel buffer

+    for (y = 0, y1 = pDesc->Top, i = 0; y < pDesc->Height; ++y, ++y1) {

+      for (x = 0, x1 = pDesc->Left; x < pDesc->Width; ++x, ++x1, ++i) {

+        v = 0;

+        for (c = channels - 1; c >= 0; --c) {

+          v *= (maxval + 1);

+          v += BlinkenFrameGetPixel(pFrame, y1, x1, c);

+        }

+        pImg->RasterBits[i] = v;

+      } // for x

+    } // for y

+

+    // allocate and fill extension block with delay and disposal mode

+    pImg->Function = 0;

+    pImg->ExtensionBlockCount = 1;

+    pImg->ExtensionBlocks = calloc(1, sizeof(ExtensionBlock));

+    if (pImg->ExtensionBlocks == NULL) {

+      EGifCloseFile(gif);

+      BlinkenMovieFree(pOutMovie);

+      return -1; // error

+    }

+    pEx = pImg->ExtensionBlocks;

+    pEx->Function = GRAPHICS_EXT_FUNC_CODE;

+    pEx->ByteCount = 4;

+    pEx->Bytes = calloc(pEx->ByteCount, sizeof (unsigned char));

+    if (pEx->Bytes == NULL) {

+      EGifCloseFile(gif);

+      BlinkenMovieFree(pOutMovie);

+      return -1; // error

+    }

+    pEx->Bytes[0] = 1 << 2; // disposal mode: do not dispose

+    delay = (BlinkenFrameGetDuration(pFrame) + 5) / 10;

+    if (delay <= 0)

+      delay = 1;

+    pEx->Bytes[1] = delay & 0xFF;

+    pEx->Bytes[2] = delay >> 8 & 0xFF;

+    pEx->Bytes[3] = 0xFF;

+    // transparent color (Bytes[3]) not used, flag 0x01 in Bytes[0] not set

+

+    pLast = pFrame;

+  } // for frame

+

+  // encode GIF file

+  ret = EGifSpew(gif) == GIF_OK ? 0 : -1;

+

+  // close GIF file

+  EGifCloseFile(gif);

+

+  // free copy of movie

+  BlinkenMovieFree(pOutMovie);

+

+  return ret;

+}

+

@@ -20,6 +20,8 @@ extern "C" {

 stBlinkenMovie *BlinkenGifLoad(const char *pFilename);

+int BlinkenGifSave(stBlinkenMovie *pMovie, const char *pFilename);

+

 #ifdef __cplusplus

 } // extern "C"

 #endif

@@ -1851,6 +1851,15 @@ int BlinkenMovieSaveMng(stBlinkenMovie *pMovie, const char *pFilename)

 #endif // #ifdef BLINKENLIB_CFG_MNG

+#ifdef BLINKENLIB_CFG_GIF

+

+int BlinkenMovieSaveGif(stBlinkenMovie *pMovie, const char *pFilename)

+{

+  return BlinkenGifSave(pMovie, pFilename);

+}

+

+#endif // #ifdef BLINKENLIB_CFG_GIF

+

 int BlinkenMovieSave(stBlinkenMovie *pMovie, const char *pFilename)

 {

   int len;

@@ -1871,6 +1880,10 @@ int BlinkenMovieSave(stBlinkenMovie *pMovie, const char *pFilename)

   if (len > 4 && strcmp(pFilename + len - 4, ".mng") == 0)

     return BlinkenMovieSaveMng(pMovie, pFilename);

 #endif // #ifdef BLINKENLIB_CFG_MNG

+#ifdef BLINKENLIB_CFG_GIF

+  if (len > 4 && strcmp(pFilename + len - 4, ".gif") == 0)

+    return BlinkenMovieSaveGif(pMovie, pFilename);

+#endif // #ifdef BLINKENLIB_CFG_GIF

   return -1;

 }