1 /*****************************************************************************/
5 /* Koala 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 /*****************************************************************************/
45 /*****************************************************************************/
47 /*****************************************************************************/
51 /* Screen size of a koala picture */
57 /*****************************************************************************/
59 /*****************************************************************************/
63 StrBuf* GenKoala (const Bitmap* B, const Collection* A attribute ((unused)))
64 /* Generate binary output in koala format for the bitmap B. The output is
65 * stored in a string buffer (which is actually a dynamic char array) and
70 unsigned char Screen[160][200];
73 /* Koala pictures are always 160x200 in size with 16 colors */
74 if (!BitmapIsIndexed (B) ||
75 GetBitmapColors (B) > 16 ||
76 GetBitmapHeight (B) != HEIGHT ||
77 GetBitmapWidth (B) != WIDTH) {
79 Error ("Bitmaps converted to koala format must be in indexed mode "
80 "with 16 colors max and a size of %ux%u", WIDTH, HEIGHT);
83 /* Read the image into Screen */
84 for (Y = 0; Y < HEIGHT; ++Y) {
85 for (X = 0; X < WIDTH; ++X) {
86 Screen[X][Y] = (unsigned char) GetPixel (B, X, Y).Index;
90 /* Create the output buffer and resize it to the required size. */
92 SB_Realloc (D, 10003);
94 /* Add $4400 as load address */
95 SB_AppendChar (D, 0x00);
96 SB_AppendChar (D, 0x44);
98 /* Return the converted bitmap */