git.sur5r.net Git - cc65/blob - src/sp65/geosicon.c

   1 /*****************************************************************************/
   2 /*                                                                           */
   3 /*                                geosicon.c                                 */
   4 /*                                                                           */
   5 /*      GEOS icon format backend for the sp65 sprite and bitmap utility      */
   6 /*                                                                           */
   7 /*                                                                           */
   8 /*                                                                           */
   9 /* (C) 2012,      Ullrich von Bassewitz                                      */
  10 /*                Roemerstrasse 52                                           */
  11 /*                D-70794 Filderstadt                                        */
  12 /* EMail:         uz@cc65.org                                                */
  13 /*                                                                           */
  14 /*                                                                           */
  15 /* This software is provided 'as-is', without any expressed or implied       */
  16 /* warranty.  In no event will the authors be held liable for any damages    */
  17 /* arising from the use of this software.                                    */
  18 /*                                                                           */
  19 /* Permission is granted to anyone to use this software for any purpose,     */
  20 /* including commercial applications, and to alter it and redistribute it    */
  21 /* freely, subject to the following restrictions:                            */
  22 /*                                                                           */
  23 /* 1. The origin of this software must not be misrepresented; you must not   */
  24 /*    claim that you wrote the original software. If you use this software   */
  25 /*    in a product, an acknowledgment in the product documentation would be  */
  26 /*    appreciated but is not required.                                       */
  27 /* 2. Altered source versions must be plainly marked as such, and must not   */
  28 /*    be misrepresented as being the original software.                      */
  29 /* 3. This notice may not be removed or altered from any source              */
  30 /*    distribution.                                                          */
  31 /*                                                                           */
  32 /*****************************************************************************/
  33
  34
  35
  36 /* common */
  37 #include "attrib.h"
  38 #include "print.h"
  39
  40 /* sp65 */
  41 #include "attr.h"
  42 #include "error.h"
  43 #include "geosicon.h"
  44
  45
  46
  47 /*****************************************************************************/
  48 /*                                   Data                                    */
  49 /*****************************************************************************/
  50
  51
  52
  53 /* Screen size of geos icon */
  54 #define WIDTH           24U
  55 #define HEIGHT          21U
  56
  57
  58
  59 /*****************************************************************************/
  60 /*                                   Code                                    */
  61 /*****************************************************************************/
  62
  63
  64
  65 StrBuf* GenGeosIcon (const Bitmap* B, const Collection* A attribute ((unused)))
  66 /* Generate binary output in GEOS icon format for the bitmap B. The output
  67 ** is stored in a string buffer (which is actually a dynamic char array) and
  68 ** returned.
  69 */
  70 {
  71     StrBuf* D;
  72     unsigned X, Y;
  73
  74
  75     /* Output the image properties */
  76     Print (stdout, 1, "Image is %ux%u with %u colors%s\n",
  77            GetBitmapWidth (B), GetBitmapHeight (B), GetBitmapColors (B),
  78            BitmapIsIndexed (B)? " (indexed)" : "");
  79
  80     /* Check the bitmap properties */
  81     if (!BitmapIsIndexed (B)            ||
  82         GetBitmapHeight (B) != HEIGHT   ||
  83         GetBitmapWidth (B) != WIDTH     ||
  84         GetBitmapColors (B) > 2) {
  85         Error ("Invalid bitmap properties for conversion to GEOS icon");
  86     }
  87
  88     /* Create the output buffer and resize it to the required size. */
  89     D = NewStrBuf ();
  90     SB_Realloc (D, 63);
  91
  92     /* Convert the image */
  93     for (Y = 0; Y < HEIGHT; ++Y) {
  94         unsigned char V = 0;
  95         for (X = 0; X < WIDTH; ++X) {
  96
  97             /* Fetch next bit into byte buffer */
  98             V = (V << 1) | (GetPixel (B, X, Y).Index & 0x01);
  99
 100             /* Store full bytes into the output buffer */
 101             if ((X & 0x07) == 0x07) {
 102                 SB_AppendChar (D, V);
 103                 V = 0;
 104             }
 105         }
 106     }
 107
 108     /* Return the converted bitmap */
 109     return D;
 110 }