1 /*****************************************************************************/
5 /* GEOS icon format backend for the sp65 sprite and bitmap utility */
9 /* (C) 2012, Ullrich von Bassewitz */
10 /* Roemerstrasse 52 */
11 /* D-70794 Filderstadt */
12 /* EMail: uz@cc65.org */
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. */
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: */
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 */
32 /*****************************************************************************/
47 /*****************************************************************************/
49 /*****************************************************************************/
53 /* Screen size of geos icon */
59 /*****************************************************************************/
61 /*****************************************************************************/
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
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)" : "");
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");
88 /* Create the output buffer and resize it to the required size. */
92 /* Convert the image */
93 for (Y = 0; Y < HEIGHT; ++Y) {
95 for (X = 0; X < WIDTH; ++X) {
97 /* Fetch next bit into byte buffer */
98 V = (V << 1) | (GetPixel (B, X, Y).Index & 0x01);
100 /* Store full bytes into the output buffer */
101 if ((X & 0x07) == 0x07) {
102 SB_AppendChar (D, V);
108 /* Return the converted bitmap */