TIC-80-guile/src/tools.c

// MIT License

// Copyright (c) 2017 Vadim Grigoruk @nesbox // grigoruk@gmail.com

// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to deal
// in the Software without restriction, including without limitation the rights
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:

// The above copyright notice and this permission notice shall be included in all
// copies or substantial portions of the Software.

// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
// SOFTWARE.

#include "tools.h"
#include "ext/gif.h"

#include <string.h>

extern void tic_tool_poke4(void* addr, u32 index, u8 value);
extern u8 tic_tool_peek4(const void* addr, u32 index);

s32 tic_tool_get_pattern_id(const tic_track* track, s32 frame, s32 channel)
{
	u32 patternData = 0;
	for(s32 b = 0; b < TRACK_PATTERNS_SIZE; b++)
		patternData |= track->data[frame * TRACK_PATTERNS_SIZE + b] << (BITS_IN_BYTE * b);

	return (patternData >> (channel * TRACK_PATTERN_BITS)) & TRACK_PATTERN_MASK;
}

bool tic_tool_parse_note(const char* noteStr, s32* note, s32* octave)
{
	if(noteStr && strlen(noteStr) == 3)
	{
		static const char* Notes[] = SFX_NOTES;

		for(s32 i = 0; i < COUNT_OF(Notes); i++)
		{
			if(memcmp(Notes[i], noteStr, 2) == 0)
			{
				*note = i;
				*octave = noteStr[2] - '1';
				break;
			}
		}

		return true;
	}

	return false;
}

u32 tic_tool_find_closest_color(const tic_rgb* palette, const tic_rgb* color)
{
	u32 minDst = -1;
	u32 closetColor = 0;

	enum{Size = TIC_PALETTE_SIZE};
	
	for (s32 i = 0; i < Size; i++)
	{
		const tic_rgb* rgb = palette + i;

		s32 r = color->r - rgb->r;
		s32 g = color->g - rgb->g;
		s32 b = color->b - rgb->b;

		u32 dst = r*r + g*g + b*b;

		if (dst < minDst)
		{
			minDst = dst;
			closetColor = i;
		}
	}

	return closetColor;
}

u32* tic_palette_blit(const tic_palette* srcpal)
{
	static u32 pal[TIC_PALETTE_SIZE] = {0};

	const u8* src = srcpal->data;

	memset(pal, 0xff, sizeof pal);

	u8* dst = (u8*)pal;
	const u8* end = src + sizeof(tic_palette);

	enum{RGB = sizeof(tic_rgb)};

	for(; src != end; dst++, src+=RGB)
		for(s32 j = 0; j < RGB; j++)
			*dst++ = *(src+(RGB-1)-j);

	return pal;
}