1007 lines
25 KiB
C
1007 lines
25 KiB
C
// Module for Ucglib
|
|
|
|
#include "lualib.h"
|
|
#include "lauxlib.h"
|
|
#include "platform.h"
|
|
#include "auxmods.h"
|
|
#include "lrotable.h"
|
|
|
|
#include "c_stdlib.h"
|
|
|
|
#include "ucg.h"
|
|
|
|
#include "ucg_config.h"
|
|
|
|
struct _lucg_userdata_t
|
|
{
|
|
ucg_t ucg;
|
|
|
|
ucg_dev_fnptr dev_cb;
|
|
ucg_dev_fnptr ext_cb;
|
|
|
|
// For Print() function
|
|
ucg_int_t tx, ty;
|
|
uint8_t tdir;
|
|
};
|
|
|
|
typedef struct _lucg_userdata_t lucg_userdata_t;
|
|
|
|
|
|
#define delayMicroseconds os_delay_us
|
|
|
|
static int16_t ucg_com_esp8266_hw_spi(ucg_t *ucg, int16_t msg, uint16_t arg, uint8_t *data);
|
|
|
|
|
|
|
|
|
|
// shorthand macro for the ucg structure inside the userdata
|
|
#define LUCG (&(lud->ucg))
|
|
|
|
|
|
// helper function: retrieve and check userdata argument
|
|
static lucg_userdata_t *get_lud( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud = (lucg_userdata_t *)luaL_checkudata(L, 1, "ucg.display");
|
|
luaL_argcheck(L, lud, 1, "ucg.display expected");
|
|
return lud;
|
|
}
|
|
|
|
// helper function: retrieve given number of integer arguments
|
|
static void lucg_get_int_args( lua_State *L, uint8_t stack, uint8_t num, ucg_int_t *args)
|
|
{
|
|
while (num-- > 0)
|
|
{
|
|
*args++ = luaL_checkinteger( L, stack++ );
|
|
}
|
|
}
|
|
|
|
// Lua: ucg.begin( self, fontmode )
|
|
static int lucg_begin( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_Init( LUCG, lud->dev_cb, lud->ext_cb, ucg_com_esp8266_hw_spi );
|
|
|
|
ucg_int_t fontmode = luaL_checkinteger( L, 2 );
|
|
|
|
ucg_SetFontMode( LUCG, fontmode );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.clearScreen( self )
|
|
static int lucg_clearScreen( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_ClearScreen( LUCG );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.draw90Line( self, x, y, len, dir, col_idx )
|
|
static int lucg_draw90Line( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[5];
|
|
lucg_get_int_args( L, 2, 5, args );
|
|
|
|
ucg_Draw90Line( LUCG, args[0], args[1], args[2], args[3], args[4] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.drawBox( self, x, y, w, h )
|
|
static int lucg_drawBox( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[4];
|
|
lucg_get_int_args( L, 2, 4, args );
|
|
|
|
ucg_DrawBox( LUCG, args[0], args[1], args[2], args[3] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.drawCircle( self, x0, y0, rad, option )
|
|
static int lucg_drawCircle( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[4];
|
|
lucg_get_int_args( L, 2, 4, args );
|
|
|
|
ucg_DrawCircle( LUCG, args[0], args[1], args[2], args[3] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.drawDisc( self, x0, y0, rad, option )
|
|
static int lucg_drawDisc( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[4];
|
|
lucg_get_int_args( L, 2, 4, args );
|
|
|
|
ucg_DrawDisc( LUCG, args[0], args[1], args[2], args[3] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.drawFrame( self, x, y, w, h )
|
|
static int lucg_drawFrame( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[4];
|
|
lucg_get_int_args( L, 2, 4, args );
|
|
|
|
ucg_DrawFrame( LUCG, args[0], args[1], args[2], args[3] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.drawGradientBox( self, x, y, w, h )
|
|
static int lucg_drawGradientBox( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[4];
|
|
lucg_get_int_args( L, 2, 4, args );
|
|
|
|
ucg_DrawGradientBox( LUCG, args[0], args[1], args[2], args[3] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: width = ucg.drawGlyph( self, x, y, dir, encoding )
|
|
static int lucg_drawGlyph( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[3];
|
|
lucg_get_int_args( L, 2, 3, args );
|
|
|
|
const char *c = luaL_checkstring( L, (1+3) + 1 );
|
|
if (c == NULL)
|
|
return 0;
|
|
|
|
lua_pushinteger( L, ucg_DrawGlyph( LUCG, args[0], args[1], args[2], *c ) );
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Lua: ucg.drawGradientLine( self, x, y, len, dir )
|
|
static int lucg_drawGradientLine( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[4];
|
|
lucg_get_int_args( L, 2, 4, args );
|
|
|
|
ucg_DrawGradientLine( LUCG, args[0], args[1], args[2], args[3] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.drawHLine( self, x, y, len )
|
|
static int lucg_drawHLine( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[3];
|
|
lucg_get_int_args( L, 2, 3, args );
|
|
|
|
ucg_DrawHLine( LUCG, args[0], args[1], args[2] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.drawLine( self, x1, y1, x2, y2 )
|
|
static int lucg_drawLine( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[4];
|
|
lucg_get_int_args( L, 2, 4, args );
|
|
|
|
ucg_DrawLine( LUCG, args[0], args[1], args[2], args[3] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.drawPixel( self, x, y )
|
|
static int lucg_drawPixel( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[2];
|
|
lucg_get_int_args( L, 2, 2, args );
|
|
|
|
ucg_DrawPixel( LUCG, args[0], args[1] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.drawRBox( self, x, y, w, h, r )
|
|
static int lucg_drawRBox( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[5];
|
|
lucg_get_int_args( L, 2, 5, args );
|
|
|
|
ucg_DrawRBox( LUCG, args[0], args[1], args[2], args[3], args[4] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.drawRFrame( self, x, y, w, h, r )
|
|
static int lucg_drawRFrame( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[5];
|
|
lucg_get_int_args( L, 2, 5, args );
|
|
|
|
ucg_DrawRFrame( LUCG, args[0], args[1], args[2], args[3], args[4] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: width = ucg.drawString( self, x, y, dir, str )
|
|
static int lucg_drawString( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[3];
|
|
lucg_get_int_args( L, 2, 3, args );
|
|
|
|
const char *s = luaL_checkstring( L, (1+3) + 1 );
|
|
if (s == NULL)
|
|
return 0;
|
|
|
|
lua_pushinteger( L, ucg_DrawString( LUCG, args[0], args[1], args[2], s ) );
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Lua: ucg.drawTetragon( self, x0, y0, x1, y1, x2, y2, x3, y3 )
|
|
static int lucg_drawTetragon( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[8];
|
|
lucg_get_int_args( L, 2, 8, args );
|
|
|
|
ucg_DrawTetragon( LUCG, args[0], args[1], args[2], args[3], args[4], args[5], args[6], args[7] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.drawTriangle( self, x0, y0, x1, y1, x2, y2 )
|
|
static int lucg_drawTriangle( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[6];
|
|
lucg_get_int_args( L, 2, 6, args );
|
|
|
|
ucg_DrawTriangle( LUCG, args[0], args[1], args[2], args[3], args[4], args[5] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.drawVLine( self, x, y, len )
|
|
static int lucg_drawVLine( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[3];
|
|
lucg_get_int_args( L, 2, 3, args );
|
|
|
|
ucg_DrawVLine( LUCG, args[0], args[1], args[2] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: height = ucg.getFontAscent( self )
|
|
static int lucg_getFontAscent( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
lua_pushinteger( L, ucg_GetFontAscent( LUCG ) );
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Lua: height = ucg.getFontDescent( self )
|
|
static int lucg_getFontDescent( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
lua_pushinteger( L, ucg_GetFontDescent( LUCG ) );
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Lua: height = ucg.getHeight( self )
|
|
static int lucg_getHeight( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
lua_pushinteger( L, ucg_GetHeight( LUCG ) );
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Lua: width = ucg.getStrWidth( self )
|
|
static int lucg_getStrWidth( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
const char *s = luaL_checkstring( L, (1+3) + 1 );
|
|
if (s == NULL)
|
|
return 0;
|
|
|
|
lua_pushinteger( L, ucg_GetStrWidth( LUCG, s ) );
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Lua: width = ucg.getWidth( self )
|
|
static int lucg_getWidth( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
lua_pushinteger( L, ucg_GetWidth( LUCG ) );
|
|
|
|
return 1;
|
|
}
|
|
|
|
// Lua: ucg.setClipRange( self, x, y, w, h )
|
|
static int lucg_setClipRange( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[4];
|
|
lucg_get_int_args( L, 2, 4, args );
|
|
|
|
ucg_SetClipRange( LUCG, args[0], args[1], args[2], args[3] );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.setColor( self, [idx], r, g, b )
|
|
static int lucg_setColor( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[3];
|
|
lucg_get_int_args( L, 2, 3, args );
|
|
|
|
ucg_int_t opt = luaL_optint( L, (1+3) + 1, -1 );
|
|
|
|
if (opt < 0)
|
|
ucg_SetColor( LUCG, 0, args[0], args[1], args[2] );
|
|
else
|
|
ucg_SetColor( LUCG, args[0], args[1], args[2], opt );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.setFont( self, font )
|
|
static int lucg_setFont( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_fntpgm_uint8_t *font = (ucg_fntpgm_uint8_t *)lua_touserdata( L, 2 );
|
|
if (font != NULL)
|
|
ucg_SetFont( LUCG, font );
|
|
else
|
|
luaL_argerror(L, 2, "font data expected");
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.print( self, str )
|
|
static int lucg_print( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
const char *s = luaL_checkstring( L, 2 );
|
|
if (s == NULL)
|
|
return 0;
|
|
|
|
while (*s)
|
|
{
|
|
ucg_int_t delta;
|
|
delta = ucg_DrawGlyph(LUCG, lud->tx, lud->ty, lud->tdir, *(s++));
|
|
switch(lud->tdir)
|
|
{
|
|
case 0: lud->tx += delta; break;
|
|
case 1: lud->ty += delta; break;
|
|
case 2: lud->tx -= delta; break;
|
|
default: case 3: lud->ty -= delta; break;
|
|
}
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.setFontMode( self, fontmode )
|
|
static int lucg_setFontMode( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t fontmode = luaL_checkinteger( L, 2 );
|
|
|
|
ucg_SetFontMode( LUCG, fontmode );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.setFontPosBaseline( self )
|
|
static int lucg_setFontPosBaseline( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_SetFontPosBaseline( LUCG );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.setFontPosBottom( self )
|
|
static int lucg_setFontPosBottom( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_SetFontPosBottom( LUCG );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.setFontPosCenter( self )
|
|
static int lucg_setFontPosCenter( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_SetFontPosCenter( LUCG );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.setFontPosTop( self )
|
|
static int lucg_setFontPosTop( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_SetFontPosTop( LUCG );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.setMaxClipRange( self )
|
|
static int lucg_setMaxClipRange( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_SetMaxClipRange( LUCG );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.setPrintPos( self, x, y )
|
|
static int lucg_setPrintPos( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_int_t args[2];
|
|
lucg_get_int_args( L, 2, 2, args );
|
|
|
|
lud->tx = args[0];
|
|
lud->ty = args[1];
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.setPrintDir( self, dir )
|
|
static int lucg_setPrintDir( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
lud->tdir = luaL_checkinteger( L, 2 );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.setRotate90( self )
|
|
static int lucg_setRotate90( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_SetRotate90( LUCG );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.setRotate180( self )
|
|
static int lucg_setRotate180( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_SetRotate180( LUCG );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.setRotate270( self )
|
|
static int lucg_setRotate270( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_SetRotate270( LUCG );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.setScale2x2( self )
|
|
static int lucg_setScale2x2( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_SetScale2x2( LUCG );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.undoRotate( self )
|
|
static int lucg_undoRotate( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_UndoRotate( LUCG );
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Lua: ucg.undoScale( self )
|
|
static int lucg_undoScale( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
ucg_UndoScale( LUCG );
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
|
|
static int16_t ucg_com_esp8266_hw_spi(ucg_t *ucg, int16_t msg, uint16_t arg, uint8_t *data)
|
|
{
|
|
switch(msg)
|
|
{
|
|
case UCG_COM_MSG_POWER_UP:
|
|
/* "data" is a pointer to ucg_com_info_t structure with the following information: */
|
|
/* ((ucg_com_info_t *)data)->serial_clk_speed value in nanoseconds */
|
|
/* ((ucg_com_info_t *)data)->parallel_clk_speed value in nanoseconds */
|
|
|
|
/* setup pins */
|
|
|
|
// we assume that the SPI interface was already initialized
|
|
// just care for the /CS and D/C pins
|
|
//platform_gpio_write( ucg->pin_list[0], value );
|
|
|
|
if ( ucg->pin_list[UCG_PIN_RST] != UCG_PIN_VAL_NONE )
|
|
platform_gpio_mode( ucg->pin_list[UCG_PIN_RST], PLATFORM_GPIO_OUTPUT, PLATFORM_GPIO_FLOAT );
|
|
platform_gpio_mode( ucg->pin_list[UCG_PIN_CD], PLATFORM_GPIO_OUTPUT, PLATFORM_GPIO_FLOAT );
|
|
|
|
if ( ucg->pin_list[UCG_PIN_CS] != UCG_PIN_VAL_NONE )
|
|
platform_gpio_mode( ucg->pin_list[UCG_PIN_CS], PLATFORM_GPIO_OUTPUT, PLATFORM_GPIO_FLOAT );
|
|
|
|
break;
|
|
|
|
case UCG_COM_MSG_POWER_DOWN:
|
|
break;
|
|
|
|
case UCG_COM_MSG_DELAY:
|
|
delayMicroseconds(arg);
|
|
break;
|
|
|
|
case UCG_COM_MSG_CHANGE_RESET_LINE:
|
|
if ( ucg->pin_list[UCG_PIN_RST] != UCG_PIN_VAL_NONE )
|
|
platform_gpio_write( ucg->pin_list[UCG_PIN_RST], arg );
|
|
break;
|
|
|
|
case UCG_COM_MSG_CHANGE_CS_LINE:
|
|
if ( ucg->pin_list[UCG_PIN_CS] != UCG_PIN_VAL_NONE )
|
|
platform_gpio_write( ucg->pin_list[UCG_PIN_CS], arg );
|
|
break;
|
|
|
|
case UCG_COM_MSG_CHANGE_CD_LINE:
|
|
platform_gpio_write( ucg->pin_list[UCG_PIN_CD], arg );
|
|
break;
|
|
|
|
case UCG_COM_MSG_SEND_BYTE:
|
|
platform_spi_send( 1, 8, arg );
|
|
break;
|
|
|
|
case UCG_COM_MSG_REPEAT_1_BYTE:
|
|
while( arg > 0 ) {
|
|
platform_spi_send( 1, 8, data[0] );
|
|
arg--;
|
|
}
|
|
break;
|
|
|
|
case UCG_COM_MSG_REPEAT_2_BYTES:
|
|
while( arg > 0 ) {
|
|
platform_spi_send( 1, 8, data[0] );
|
|
platform_spi_send( 1, 8, data[1] );
|
|
arg--;
|
|
}
|
|
break;
|
|
|
|
case UCG_COM_MSG_REPEAT_3_BYTES:
|
|
while( arg > 0 ) {
|
|
platform_spi_send( 1, 8, data[0] );
|
|
platform_spi_send( 1, 8, data[1] );
|
|
platform_spi_send( 1, 8, data[2] );
|
|
arg--;
|
|
}
|
|
break;
|
|
|
|
case UCG_COM_MSG_SEND_STR:
|
|
while( arg > 0 ) {
|
|
platform_spi_send( 1, 8, *data++ );
|
|
arg--;
|
|
}
|
|
break;
|
|
|
|
case UCG_COM_MSG_SEND_CD_DATA_SEQUENCE:
|
|
while(arg > 0)
|
|
{
|
|
if ( *data != 0 )
|
|
{
|
|
/* set the data line directly, ignore the setting from UCG_CFG_CD */
|
|
if ( *data == 1 )
|
|
{
|
|
platform_gpio_write( ucg->pin_list[UCG_PIN_CD], 0 );
|
|
}
|
|
else
|
|
{
|
|
platform_gpio_write( ucg->pin_list[UCG_PIN_CD], 1 );
|
|
}
|
|
}
|
|
data++;
|
|
platform_spi_send( 1, 8, *data );
|
|
data++;
|
|
arg--;
|
|
}
|
|
break;
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
|
|
|
|
// device destructor
|
|
static int lucg_close_display( lua_State *L )
|
|
{
|
|
lucg_userdata_t *lud;
|
|
|
|
if ((lud = get_lud( L )) == NULL)
|
|
return 0;
|
|
|
|
return 0;
|
|
}
|
|
|
|
|
|
// ***************************************************************************
|
|
// Device constructors
|
|
//
|
|
//
|
|
#undef UCG_DISPLAY_TABLE_ENTRY
|
|
#define UCG_DISPLAY_TABLE_ENTRY(binding, device, extension) \
|
|
static int lucg_ ## binding( lua_State *L ) \
|
|
{ \
|
|
unsigned cs = luaL_checkinteger( L, 1 ); \
|
|
if (cs == 0) \
|
|
return luaL_error( L, "CS pin required" ); \
|
|
unsigned dc = luaL_checkinteger( L, 2 ); \
|
|
if (dc == 0) \
|
|
return luaL_error( L, "D/C pin required" ); \
|
|
unsigned res = luaL_optinteger( L, 3, UCG_PIN_VAL_NONE ); \
|
|
\
|
|
lucg_userdata_t *lud = (lucg_userdata_t *) lua_newuserdata( L, sizeof( lucg_userdata_t ) ); \
|
|
\
|
|
/* do a dummy init so that something usefull is part of the ucg structure */ \
|
|
ucg_Init( LUCG, ucg_dev_default_cb, ucg_ext_none, (ucg_com_fnptr)0 ); \
|
|
\
|
|
/* reset cursor position */ \
|
|
lud->tx = 0; \
|
|
lud->ty = 0; \
|
|
lud->tdir = 0; /* default direction */ \
|
|
\
|
|
uint8_t i; \
|
|
for( i = 0; i < UCG_PIN_COUNT; i++ ) \
|
|
lud->ucg.pin_list[i] = UCG_PIN_VAL_NONE; \
|
|
\
|
|
lud->dev_cb = device; \
|
|
lud->ext_cb = extension; \
|
|
lud->ucg.pin_list[UCG_PIN_RST] = res; \
|
|
lud->ucg.pin_list[UCG_PIN_CD] = dc; \
|
|
lud->ucg.pin_list[UCG_PIN_CS] = cs; \
|
|
\
|
|
/* set its metatable */ \
|
|
luaL_getmetatable(L, "ucg.display"); \
|
|
lua_setmetatable(L, -2); \
|
|
\
|
|
return 1; \
|
|
}
|
|
//
|
|
// Unroll the display table and insert binding functions.
|
|
UCG_DISPLAY_TABLE
|
|
//
|
|
// ***************************************************************************
|
|
|
|
|
|
|
|
// Module function map
|
|
#define MIN_OPT_LEVEL 2
|
|
#include "lrodefs.h"
|
|
|
|
static const LUA_REG_TYPE lucg_display_map[] =
|
|
{
|
|
{ LSTRKEY( "begin" ), LFUNCVAL( lucg_begin ) },
|
|
{ LSTRKEY( "clearScreen" ), LFUNCVAL( lucg_clearScreen ) },
|
|
{ LSTRKEY( "draw90Line" ), LFUNCVAL( lucg_draw90Line ) },
|
|
{ LSTRKEY( "drawBox" ), LFUNCVAL( lucg_drawBox ) },
|
|
{ LSTRKEY( "drawCircle" ), LFUNCVAL( lucg_drawCircle ) },
|
|
{ LSTRKEY( "drawDisc" ), LFUNCVAL( lucg_drawDisc ) },
|
|
{ LSTRKEY( "drawFrame" ), LFUNCVAL( lucg_drawFrame ) },
|
|
{ LSTRKEY( "drawGlyph" ), LFUNCVAL( lucg_drawGlyph ) },
|
|
{ LSTRKEY( "drawGradientBox" ), LFUNCVAL( lucg_drawGradientBox ) },
|
|
{ LSTRKEY( "drawGradientLine" ), LFUNCVAL( lucg_drawGradientLine ) },
|
|
{ LSTRKEY( "drawHLine" ), LFUNCVAL( lucg_drawHLine ) },
|
|
{ LSTRKEY( "drawLine" ), LFUNCVAL( lucg_drawLine ) },
|
|
{ LSTRKEY( "drawPixel" ), LFUNCVAL( lucg_drawPixel ) },
|
|
{ LSTRKEY( "drawRBox" ), LFUNCVAL( lucg_drawRBox ) },
|
|
{ LSTRKEY( "drawRFrame" ), LFUNCVAL( lucg_drawRFrame ) },
|
|
{ LSTRKEY( "drawString" ), LFUNCVAL( lucg_drawString ) },
|
|
{ LSTRKEY( "drawTetragon" ), LFUNCVAL( lucg_drawTetragon ) },
|
|
{ LSTRKEY( "drawTriangle" ), LFUNCVAL( lucg_drawTriangle ) },
|
|
{ LSTRKEY( "drawVLine" ), LFUNCVAL( lucg_drawVLine ) },
|
|
{ LSTRKEY( "getFontAscent" ), LFUNCVAL( lucg_getFontAscent ) },
|
|
{ LSTRKEY( "getFontDescent" ), LFUNCVAL( lucg_getFontDescent ) },
|
|
{ LSTRKEY( "getHeight" ), LFUNCVAL( lucg_getHeight ) },
|
|
{ LSTRKEY( "getStrWidth" ), LFUNCVAL( lucg_getStrWidth ) },
|
|
{ LSTRKEY( "getWidth" ), LFUNCVAL( lucg_getWidth ) },
|
|
{ LSTRKEY( "print" ), LFUNCVAL( lucg_print ) },
|
|
{ LSTRKEY( "setClipRange" ), LFUNCVAL( lucg_setClipRange ) },
|
|
{ LSTRKEY( "setColor" ), LFUNCVAL( lucg_setColor ) },
|
|
{ LSTRKEY( "setFont" ), LFUNCVAL( lucg_setFont ) },
|
|
{ LSTRKEY( "setFontMode" ), LFUNCVAL( lucg_setFontMode ) },
|
|
{ LSTRKEY( "setFontPosBaseline" ), LFUNCVAL( lucg_setFontPosBaseline ) },
|
|
{ LSTRKEY( "setFontPosBottom" ), LFUNCVAL( lucg_setFontPosBottom ) },
|
|
{ LSTRKEY( "setFontPosCenter" ), LFUNCVAL( lucg_setFontPosCenter ) },
|
|
{ LSTRKEY( "setFontPosTop" ), LFUNCVAL( lucg_setFontPosTop ) },
|
|
{ LSTRKEY( "setMaxClipRange" ), LFUNCVAL( lucg_setMaxClipRange ) },
|
|
{ LSTRKEY( "setPrintDir" ), LFUNCVAL( lucg_setPrintDir ) },
|
|
{ LSTRKEY( "setPrintPos" ), LFUNCVAL( lucg_setPrintPos ) },
|
|
{ LSTRKEY( "setRotate90" ), LFUNCVAL( lucg_setRotate90 ) },
|
|
{ LSTRKEY( "setRotate180" ), LFUNCVAL( lucg_setRotate180 ) },
|
|
{ LSTRKEY( "setRotate270" ), LFUNCVAL( lucg_setRotate270 ) },
|
|
{ LSTRKEY( "setScale2x2" ), LFUNCVAL( lucg_setScale2x2 ) },
|
|
{ LSTRKEY( "undoClipRange" ), LFUNCVAL( lucg_setMaxClipRange ) },
|
|
{ LSTRKEY( "undoRotate" ), LFUNCVAL( lucg_undoRotate ) },
|
|
{ LSTRKEY( "undoScale" ), LFUNCVAL( lucg_undoScale ) },
|
|
|
|
{ LSTRKEY( "__gc" ), LFUNCVAL( lucg_close_display ) },
|
|
#if LUA_OPTIMIZE_MEMORY > 0
|
|
{ LSTRKEY( "__index" ), LROVAL ( lucg_display_map ) },
|
|
#endif
|
|
{ LNILKEY, LNILVAL }
|
|
};
|
|
|
|
const LUA_REG_TYPE lucg_map[] =
|
|
{
|
|
#undef UCG_DISPLAY_TABLE_ENTRY
|
|
#define UCG_DISPLAY_TABLE_ENTRY(binding, device, extension) { LSTRKEY( #binding ), LFUNCVAL ( lucg_ ##binding ) },
|
|
UCG_DISPLAY_TABLE
|
|
|
|
#if LUA_OPTIMIZE_MEMORY > 0
|
|
|
|
// Register fonts
|
|
#undef UCG_FONT_TABLE_ENTRY
|
|
#define UCG_FONT_TABLE_ENTRY(font) { LSTRKEY( #font ), LUDATA( (void *)(ucg_ ## font) ) },
|
|
UCG_FONT_TABLE
|
|
|
|
// Font modes
|
|
{ LSTRKEY( "FONT_MODE_TRANSPARENT" ), LNUMVAL( UCG_FONT_MODE_TRANSPARENT ) },
|
|
{ LSTRKEY( "FONT_MODE_SOLID" ), LNUMVAL( UCG_FONT_MODE_SOLID ) },
|
|
|
|
// Options for circle/ disc drawing
|
|
{ LSTRKEY( "DRAW_UPPER_RIGHT" ), LNUMVAL( UCG_DRAW_UPPER_RIGHT ) },
|
|
{ LSTRKEY( "DRAW_UPPER_LEFT" ), LNUMVAL( UCG_DRAW_UPPER_LEFT ) },
|
|
{ LSTRKEY( "DRAW_LOWER_RIGHT" ), LNUMVAL( UCG_DRAW_LOWER_RIGHT ) },
|
|
{ LSTRKEY( "DRAW_LOWER_LEFT" ), LNUMVAL( UCG_DRAW_LOWER_LEFT ) },
|
|
{ LSTRKEY( "DRAW_ALL" ), LNUMVAL( UCG_DRAW_ALL ) },
|
|
|
|
{ LSTRKEY( "__metatable" ), LROVAL( lucg_map ) },
|
|
#endif
|
|
{ LNILKEY, LNILVAL }
|
|
};
|
|
|
|
LUALIB_API int luaopen_ucg( lua_State *L )
|
|
{
|
|
#if LUA_OPTIMIZE_MEMORY > 0
|
|
luaL_rometatable(L, "ucg.display", (void *)lucg_display_map); // create metatable
|
|
return 0;
|
|
#else // #if LUA_OPTIMIZE_MEMORY > 0
|
|
int n;
|
|
luaL_register( L, AUXLIB_UCG, lucg_map );
|
|
|
|
// Set it as its own metatable
|
|
lua_pushvalue( L, -1 );
|
|
lua_setmetatable( L, -2 );
|
|
|
|
// Module constants
|
|
|
|
// Register fonts
|
|
#undef UCG_FONT_TABLE_ENTRY
|
|
#define UCG_FONT_TABLE_ENTRY(font) MOD_REG_LUDATA( L, #font, (void *)(ucg_ ## font) );
|
|
UCG_FONT_TABLE
|
|
|
|
// Font modes
|
|
MOD_REG_NUMBER( L, "FONT_MODE_TRANSPARENT", UCG_FONT_MODE_TRANSPARENT );
|
|
MOD_REG_NUMBER( L, "FONT_MODE_SOLID", UCG_FONT_MODE_SOLID );
|
|
|
|
// Options for circle/ disc drawing
|
|
MOD_REG_NUMBER( L, "DRAW_UPPER_RIGHT", UCG_DRAW_UPPER_RIGHT );
|
|
MOD_REG_NUMBER( L, "DRAW_UPPER_LEFT", UCG_DRAW_UPPER_LEFT );
|
|
MOD_REG_NUMBER( L, "DRAW_LOWER_RIGHT", UCG_DRAW_LOWER_RIGHT );
|
|
MOD_REG_NUMBER( L, "DRAW_LOWER_LEFT", UCG_DRAW_LOWER_LEFT );
|
|
MOD_REG_NUMBER( L, "DRAW_ALL", UCG_DRAW_ALL );
|
|
|
|
// create metatable
|
|
luaL_newmetatable(L, "ucg.display");
|
|
// metatable.__index = metatable
|
|
lua_pushliteral(L, "__index");
|
|
lua_pushvalue(L,-2);
|
|
lua_rawset(L,-3);
|
|
// Setup the methods inside metatable
|
|
luaL_register( L, NULL, lucg_display_map );
|
|
|
|
return 1;
|
|
#endif // #if LUA_OPTIMIZE_MEMORY > 0
|
|
}
|