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
65StrBuf* 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}
111