tiny_multi_os.h

/* CPKI AttinyGfxApi & TinyMultiOs, Preview Version 0.2.1
see
https://www.youtube.com/watch?v=WNJQXsJqSbM
Copyright (c) 2002
Görg Pflug & CPKI Gmbh, www.cpki.de . All rights reserved.
Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.
All advertising materials mentioning features or use of this software must display the following acknowledgement: “This product includes software developed by the CPKI Gmbh, Görg Pflug and its contributors.”
Neither the name of the Cpki GmbH nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE Görg Pflug, CPKI Gmbh AND CONTRIBUTORS “AS IS” AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE


Version:
0.4		Prelimary Support for Arduino-Wire, performance worse than on attiny85
0.3		Compatible with C++, compiles in Microchip Studio and Arduino, most samples still untested
		added .INO example for Arduino
0.2		Multiple Consoles
0.2.1	ASCII Font Support
		define: ENABLE_FONT_BASIC
		"Low Quality" Halftoning, saves 64 bytes, faster, for some use cases "low quality" halftoning might even look better
		define: ENABLE_LOW_QUALITY_HALFTONE
		Halftoning gets disabled Automatically when not using layers or pixel callback, faster, saves 64 byte
		
*/

#include <avr/io.h>
#include <util/delay.h>
#include <stdint.h>
#include <stdbool.h>
#include <avr/io.h>
#include <avr/pgmspace.h>
#include <avr/boot.h>
#include <avr/interrupt.h>
#include <string.h>


#define s8 signed char
#define u8 unsigned char
#define s16 signed int
#define u16 unsigned int

#define SSD1306_ADDRESS 0x78

#define PIN_SDA  0
#define PIN_SCL 2

void ApiIntToHex(u16 in, u8 *out);
u8 ApiCharToFontIndex(u8 c);

typedef struct GfxApiSprite
{
	u16 zeros;
	u8 readpos_bit;
	u16 readpos_byte;
	u8 sprite_height;
}GfxApiSprite;

static u8 GfxApiReadSprite(GfxApiSprite *s);

typedef struct GfxApiCompressedLayer
{
	u16 SkipCounter;
	s8 PixelValue;
	u8 Bitpos;
	u16 BytePos;
} GfxApiCompressedLayer;

static s8 os_gfx_layer_read_vlc(GfxApiCompressedLayer *g);
static void os_gfx_start_display_transfer();
static void os_i2c_start (void);
static inline void os_i2c_sda_low (void);
static inline void os_i2c_scl_release (void);
void os_i2c_init (void);
static void os_i2c_write (const u8 *buf, u8 len);

#ifdef ENABLE_CONSOLE

const u8 os_font[] __attribute__((progmem)) = {
#ifdef ENABLE_FONT_BASIC
// source https://raw.githubusercontent.com/dhepper/font8x8/master/font8x8_basic.h , public domain
0,0,0,0,0,0,0,0,0,0,6,95,95,6,0,0,0,3,3,0,3,3,0,0,20,127,127,20,127,127,20,0,36,46,107,107,58,18,0,0,70,102,48,24,12,102,98,0,48,122,79,93,55,122,72,0,4,7,3,0,0,0,0,0,0,28,62,99,65,0,0,0,0,65,99,62,28,0,0,0,8,42,62,28,28,62,42,8,8,8,62,62,8,8,0,0,0,128,224,96,0,0,0,0,8,8,8,8,8,8,0,0,0,0,96,96,0,0,0,0,96,48,24,12,6,3,1,0,62,127,113,89,77,127,62,0,64,66,127,127,64,64,0,0,98,115,89,73,111,102,0,0,34,99,73,73,127,54,0,0,24,28,22,83,127,127,80,0,39,103,69,69,125,57,0,0,60,126,75,73,121,48,0,0,3,3,113,121,15,7,0,0,54,127,73,73,127,54,0,0,6,79,73,105,63,30,0,0,0,0,102,102,0,0,0,0,0,128,230,102,0,0,0,0,8,28,54,99,65,0,0,0,36,36,36,36,36,36,0,0,0,65,99,54,28,8,0,0,2,3,81,89,15,6,0,0,62,127,65,93,93,31,30,0,124,126,19,19,126,124,0,0,65,127,127,73,73,127,54,0,28,62,99,65,65,99,34,0,65,127,127,65,99,62,28,0,65,127,127,73,93,65,99,0,65,127,127,73,29,1,3,0,28,62,99,65,81,115,114,0,127,127,8,8,127,127,0,0,0,65,127,127,65,0,0,0,48,112,64,65,127,63,1,0,65,127,127,8,28,119,99,0,65,127,127,65,64,96,112,0,127,127,14,28,14,127,127,0,127,127,6,12,24,127,127,0,28,62,99,65,99,62,28,0,65,127,127,73,9,15,6,0,30,63,33,113,127,94,0,0,65,127,127,9,25,127,102,0,38,111,77,89,115,50,0,0,3,65,127,127,65,3,0,0,127,127,64,64,127,127,0,0,31,63,96,96,63,31,0,0,127,127,48,24,48,127,127,0,67,103,60,24,60,103,67,0,7,79,120,120,79,7,0,0,71,99,113,89,77,103,115,0,0,127,127,65,65,0,0,0,1,3,6,12,24,48,96,0,0,65,65,127,127,0,0,0,8,12,6,3,6,12,8,0,128,128,128,128,128,128,128,128,0,0,3,7,4,0,0,0,32,116,84,84,60,120,64,0,65,127,63,72,72,120,48,0,56,124,68,68,108,40,0,0,48,120,72,73,63,127,64,0,56,124,84,84,92,24,0,0,72,126,127,73,3,2,0,0,152,188,164,164,248,124,4,0,65,127,127,8,4,124,120,0,0,68,125,125,64,0,0,0,96,224,128,128,253,125,0,0,65,127,127,16,56,108,68,0,0,65,127,127,64,0,0,0,124,124,24,56,28,124,120,0,124,124,4,4,124,120,0,0,56,124,68,68,124,56,0,0,132,252,248,164,36,60,24,0,24,60,36,164,248,252,132,0,68,124,120,76,4,28,24,0,72,92,84,84,116,36,0,0,0,4,62,127,68,36,0,0,60,124,64,64,60,124,64,0,28,60,96,96,60,28,0,0,60,124,112,56,112,124,60,0,68,108,56,16,56,108,68,0,156,188,160,160,252,124,0,0,76,100,116,92,76,100,0,0,8,8,62,119,65,65,0,0,0,0,0,119,119,0,0,0,65,65,119,62,8,8,0,0,2,3,1,3,2,3,1,0,0,0,0,0,0,0,0,0,
#define FONT_ASCII
#define HAVE_FONT
#endif
#ifndef HAVE_FONT  // minimal font 0-9,A-Z
	0,0,0,0,0,0,0,0,0,60,98,82,74,70,60,0,0,0,68,66,126,64,64,
	0,0,100,82,82,82,82,76,0,0,36,66,66,74,74,52,0,0,48,40,36,
	126,32,32,0,0,46,74,74,74,74,50,0,0,60,74,74,74,74,48,0,0,
	2,2,98,18,10,6,0,0,52,74,74,74,74,52,0,0,12,82,82,82,82,60,0,0,
	124,18,18,18,18,124,0,0,126,74,74,74,74,52,0,0,60,66,66,66,66,
	36,0,0,126,66,66,66,36,24,0,0,126,74,74,74,74,66,0,0,126,10,
	10,10,10,2,0,0,60,66,66,82,82,52,0,0,126,8,8,8,8,126,0,0,0,
	66,66,126,66,66,0,0,48,64,64,64,64,62,0,0,126,8,8,20,34,
	64,0,0,126,64,64,64,64,64,0,0,126,4,8,8,4,126,0,0,126,4,8,16,
	32,126,0,0,60,66,66,66,66,60,0,0,126,18,18,18,18,12,0,0,60,66,82,98,
	66,60,0,0,126,18,18,18,50,76,0,0,36,74,74,74,74,48,0,2,2,2,126,2,2,
	2,0,0,62,64,64,64,64,62,0,0,30,32,64,64,32,30,0,0,62,64,32,32,64,
	62,0,0,66,36,24,24,36,66,0,2,4,8,112,8,4,2,0,0,66,98,82,74,70,66,0,
#undef HAVE_FONT
#endif	

#ifdef ENABLE_USERFONT
#include "userfont.h"
#endif
};
#endif

#ifndef ENABLE_WIRE
static inline void os_i2c_scl_release (void)
{
	PORTB |= _BV(PIN_SCL);
}

static inline void os_i2c_scl_low (void)
{
	PORTB &= ~_BV(PIN_SCL);
}

static inline void os_i2c_sda_release (void)
{
	USIDR |= 0x80;
}

static inline void os_i2c_sda_low (void)
{
	USIDR &= ~0x80;
}
#endif
static void os_i2c_start (void)
{
#ifndef ENABLE_WIRE
	os_i2c_scl_release();
	os_i2c_sda_low();
	os_i2c_scl_low();
	os_i2c_sda_release();

	USISR = _BV(USISIF);
#else

#endif
}

static void os_i2c_stop (void)
{
#ifndef ENABLE_WIRE
	os_i2c_sda_low();
	os_i2c_scl_release();
	os_i2c_sda_release();
	USISR = _BV(USIPF);
#else
	Wire.endTransmission();
#endif
}

static void os_i2c_write_byte (u8 byte)
{
#ifndef ENABLE_WIRE
	USIDR = byte;
	USISR = 7;
	do {
		os_i2c_scl_release();
		os_i2c_scl_low();
		USICR |= _BV(USICLK);
	}
	while (USISR & 0x0F);
	os_i2c_sda_release();
#else
	Wire.write(byte);
#endif
}

void os_i2c_init (void)
{
#ifndef ENABLE_WIRE
	PORTB = _BV(PIN_SDA) | _BV(PIN_SCL);
	DDRB  = _BV(PIN_SDA) | _BV(PIN_SCL);
	USICR = _BV(USIWM1) | _BV(USICLK);
	os_i2c_scl_release();
	os_i2c_sda_release();
#else
	Wire.begin();
	Wire.setClock(400000);
#endif
}

static void os_i2c_write (const u8 *buf, u8 len)
{
#ifndef ENABLE_WIRE
	os_i2c_start();
	os_i2c_write_byte(SSD1306_ADDRESS);
	while (len--)
		os_i2c_write_byte(*buf++);
	os_i2c_stop();
#else
	Wire.beginTransmission(WIRE_SCREEN_ADDRESS);
	while (len--)
		Wire.write(*buf++);
	Wire.endTransmission();
#endif
}
/*
FUSES =
{
	.low = LFUSE_DEFAULT,
	.high = HFUSE_DEFAULT,//(FUSE_BOOTSZ0 & FUSE_BOOTSZ1 & FUSE_EESAVE & FUSE_SPIEN ),
	.extended = FUSE_SELFPRGEN,
};
*/
const u8 os_conv_hex[] __attribute__((progmem)) = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f'};

void ApiIntToHex(u16 in, u8 *out)
{
	out[0] =pgm_read_byte(&os_conv_hex[(in >> 12) & 0xf]);
	out[1] =pgm_read_byte(&os_conv_hex[(in >> 8) & 0xf]);
	out[2] =pgm_read_byte(&os_conv_hex[(in >> 4) & 0xf]);
	out[3] =pgm_read_byte(&os_conv_hex[in & 0xf]);
}

u8 ApiCharToFontIndex(u8 c)
{
	#ifdef FONT_ASCII
		return c-0x20;
	#else
	if (c >= 'a' && c <= 'z')return 11 + c - 'a';
	if (c >= 'A' && c <= 'Z')return 11 + c - 'A';
	if (c >= '0' && c <= '9')return 1 + c - '0';
	return 0;
	#endif
}

extern void SystemServer_WriteToScreen(const char *txt, u8 *screen, u8 x, u8 y)
{
	int p = x + 16 * y;
	int l = strlen(txt);
	int i;
	for (i = 0; i < l; i++)screen[(i + p) & 0x7f] = ApiCharToFontIndex(txt[i]);
}

#pragma GCC push_options
#pragma GCC optimize ("Ofast")
static u8 os_gfx_read_bit(GfxApiCompressedLayer *g)
{
	u8 ret = pgm_read_byte(g->BytePos)&g->Bitpos;
	g->Bitpos <<= 1;
	if (!g->Bitpos)g->Bitpos = 1, g->BytePos++;
	return ret;
}

static u8 GfxApiReadSprite(GfxApiSprite *s)
{
	if(s->zeros)
	{
		s->zeros--;
		return 0;
	}
	u8 ret=pgm_read_byte(s->readpos_byte)&s->readpos_bit;
	s->readpos_bit<<=1;
	if(!s->readpos_bit)
	{
		s->zeros=(64-8);
		s->readpos_bit=1;
		s->readpos_byte++;
		s->sprite_height--;
		if(!s->sprite_height)s->zeros=0x7fff;
	}
	return ret;
}

static s8 os_gfx_layer_read_vlc(GfxApiCompressedLayer *g)
{
	u8 b = os_gfx_read_bit(g);
	if (!b)return 0;
	u8 sign = os_gfx_read_bit(g);

	s8 v = 0;
	
	if (!os_gfx_read_bit(g))goto finished;
	if (os_gfx_read_bit(g))v |= 4;

	if (!os_gfx_read_bit(g))goto finished;
	if (os_gfx_read_bit(g))v |= 8;

	if (!os_gfx_read_bit(g))goto finished;
	if (os_gfx_read_bit(g))
	{
		v |= 16;
	}
	else
	{
		v |= 32;
		goto finished;
	}
	if (os_gfx_read_bit(g))v |= 32;

	finished:
	v+=4;
	if (sign)return -v;
	return v;
}
 static s8 _GfxApiLayerGetNextByte(GfxApiCompressedLayer *g)
{
	s8 v = os_gfx_layer_read_vlc(g);
	if (v == 16*4)
	{
		g->SkipCounter = 0;
		char r;
		for (r = 0; r < 8; r++)
		{
			if (os_gfx_read_bit(g))
			g->SkipCounter |= 1 << r;
		}
		g->SkipCounter--;
		return 0;
	}
	if (v == -16*4)
	{
		g->SkipCounter = 0;
		int r;
		for (r = 0; r < 14; r++)
		{
			if (os_gfx_read_bit(g))
			g->SkipCounter |= 1 << r;
		}
		g->SkipCounter--;
		return 0;
	}
	return v;
}



#pragma GCC pop_options


static void os_gfx_start_display_transfer()
{
#ifndef ENABLE_WIRE
	os_i2c_start();
	os_i2c_write_byte(SSD1306_ADDRESS);
	os_i2c_write_byte(0x0);
	os_i2c_write_byte(0xb0);
	os_i2c_write_byte(0x21);
	os_i2c_write_byte(0x0);
	os_i2c_write_byte(0x7f);
	os_i2c_stop();
	os_i2c_start();
	os_i2c_write_byte(SSD1306_ADDRESS);
	os_i2c_write_byte(0x40);
#else
	Wire.beginTransmission(WIRE_SCREEN_ADDRESS);
	Wire.write(0x0);
	Wire.write(0xb0);
	Wire.write(0x21);
	Wire.write(0x0);
	Wire.write(0x7f);
	Wire.endTransmission();
	Wire.beginTransmission(WIRE_SCREEN_ADDRESS);
	Wire.write(0x40);
#endif
}

void os_init_ssd1306 (void)
{
	const u8 init1306[] = {
		0x0,0x20, 1 /*vertical mode*/,0xB0,0xC8,0x00,0x10,0x40,0x81,0x0,0xA1,0xA6,0xA8,0x3F,0xA4,0xD3,0x00,0xD5,0xF0,0xD9,0x22,0xDA,0x12,0xDB,0x20,0x8D, 0x14,0xAF
	};
	os_i2c_write(init1306, sizeof(init1306));
}

#ifndef ENABLE_ARDUINO_SUPPORT
extern void MainTask();
int main()
{
	cli();
	os_i2c_init();
	os_init_ssd1306();
	MainTask();
}
#else
int streamgfx_init_arduino()
{
	os_i2c_init();
	os_init_ssd1306();
}
#endif