retroflt.h

Go to the documentation of this file.

 
#ifndef RETROFLT_H
#define RETROFLT_H

 
#ifdef RETROFLAT_OPENGL
#  define RETROFLAT_BMP_TEX
#endif /* RETROFLAT_OPENGL */

typedef int16_t retroflat_tile_t;




 
/* === Generic Includes and Defines === */
 
#ifndef RETROFLAT_BITMAP_TRACE_LVL
#  define RETROFLAT_BITMAP_TRACE_LVL 0
#endif /* !RETROFLAT_BITMAP_TRACE_LVL */
 
#ifndef RETROFLAT_KB_TRACE_LVL
#  define RETROFLAT_KB_TRACE_LVL    0
#endif /* !RETROFLAT_KB_TRACE_LVL */
 
#include <stdarg.h>
 
#include <marge.h>


#define RETROFLAT_COLOR_TABLE( f ) \
   f( 0, black,     BLACK,     0,   0,   0,   BLACK,   BLACK   ) \
   f( 1, darkblue,  DARKBLUE,  0,   0,   170, CYAN,    BLACK   ) \
   f( 2, darkgreen, DARKGREEN, 0,   170, 0,   CYAN,    BLACK   ) \
   f( 3, teal,      TEAL,      0,   170, 170, CYAN,    CYAN    ) \
   f( 4, darkred,   DARKRED,   170, 0,   0,   MAGENTA, BLACK   ) \
   f( 5, violet,    VIOLET,    170, 0,   170, MAGENTA, BLACK   ) \
   f( 6, brown,     BROWN,     170, 85,  0,   CYAN,    MAGENTA ) \
   f( 7, gray,      GRAY,      170, 170, 170, WHITE,   BLACK   ) \
   f( 8, darkgray,  DARKGRAY,  85,  85,  85,  WHITE,   BLACK   ) \
   f( 9, blue,      BLUE,      85,  85,  255, CYAN,    WHITE   ) \
   f( 10, green,    GREEN,     85,  255, 85,  CYAN,    CYAN    ) \
   f( 11, cyan,     CYAN,      85,  255, 255, CYAN,    CYAN    ) \
   f( 12, red,      RED,       255, 85,  85,  MAGENTA, WHITE   ) \
   f( 13, magenta,  MAGENTA,   255, 85,  255, MAGENTA, MAGENTA ) \
   f( 14, yellow,   YELLOW,    255, 255, 85,  CYAN,    MAGENTA ) \
   f( 15, white,    WHITE,     255, 255, 255, WHITE,   WHITE   )

typedef int8_t RETROFLAT_COLOR;
 
#  define RETROFLAT_COLOR_NULL (-1)
 
#  define RETROFLAT_COLORS_SZ 16

 
/* TODO: Mouse is broken under DOS/Allegro. */
#if defined( RETROFLAT_OS_UNIX ) || defined( RETROFLAT_OS_WIN )
#define RETROFLAT_MOUSE
#endif /* RETROFLAT_OS_WIN || RETROFLAT_OS_WIN */


#define RETROFLAT_OK             0x00
#define RETROFLAT_ERROR_ENGINE   0x01
#define RETROFLAT_ERROR_GRAPHICS 0x02
#define RETROFLAT_ERROR_MOUSE    0x04

#define RETROFLAT_ERROR_BITMAP   0x08
#define RETROFLAT_ERROR_TIMER    0x0f
 /* maug_retroflt_retval */


#define RETROFLAT_FLAGS_FILL     0x01

#define RETROFLAT_FLAGS_OPAQUE   0x01

#define RETROFLAT_FLAGS_ALL_CAPS 0x02

#define RETROFLAT_FLAGS_LITERAL_PATH   0x02

#define RETROFLAT_FLAGS_SCREEN_BUFFER     0x80
 /* maug_retroflt_drawing */


#define RETROFLAT_FLAGS_RUNNING  0x01

#define RETROFLAT_FLAGS_UNLOCK_FPS 0x02

#define RETROFLAT_FLAGS_KEY_REPEAT 0x04

#define RETROFLAT_FLAGS_SCREENSAVER 0x08

#define RETROFLAT_FLAGS_WAIT_FOR_FPS   0x20
 /* maug_retroflt_flags */


#define RETROFLAT_MSG_FLAG_TYPE_MASK 0x07

#define RETROFLAT_MSG_FLAG_ERROR 0x01

#define RETROFLAT_MSG_FLAG_INFO 0x02

#define RETROFLAT_MSG_FLAG_WARNING 0x04
 /* maug_retroflt_msg_flags */
 
struct RETROFLAT_STATE;


#define RETROFLAT_VDP_FLAG_PXLOCK 0x01

typedef MERROR_RETVAL (*retroflat_vdp_proc_t)( struct RETROFLAT_STATE* );
 /* maug_retroflt_vdp */
 
typedef MERROR_RETVAL (*retroflat_proc_resize_t)(
   uint16_t new_w, uint16_t new_h, void* data );

 
#define RETROSND_ARGS_FLAG_LIST_DEVS 0x01



#define RETROFLAT_FLAGS_LOCK     0x01
 
#define RETROFLAT_FLAGS_SCREEN_LOCK     0x02
 
#define RETROFLAT_FLAGS_BITMAP_RO   0x04

#define RETROFLAT_INSTANCE_NULL (0)

#define retroflat_instance_tile( instance ) \
  (instance * -1)

#ifndef RETROFLAT_BITMAP_EXT
#  define RETROFLAT_BITMAP_EXT "bmp"
#endif /* !RETROFLAT_BITMAP_EXT */
 
#ifndef RETROFLAT_OPENGL_BPP
#  define RETROFLAT_OPENGL_BPP 32
#endif /* !RETROFLAT_OPENGL_BPP */
 
#ifndef RETROFLAT_TILE_W
#  define RETROFLAT_TILE_W 16
#endif /* !RETROFLAT_TILE_W */
 
#ifndef RETROFLAT_TILE_W_BITS
#  define RETROFLAT_TILE_W_BITS 4
#endif /* !RETROFLAT_TILE_W_BITS */
 
#ifndef RETROFLAT_TILE_H
#  define RETROFLAT_TILE_H 16
#endif /* !RETROFLAT_TILE_H */
 
#ifndef RETROFLAT_TILE_H_BITS
#  define RETROFLAT_TILE_H_BITS 4
#endif /* !RETROFLAT_TILE_H_BITS */
 
/* Transparency background color: black by default, to match Allegro. */
#ifndef RETROFLAT_TXP_R
#  define RETROFLAT_TXP_R 0x00
#endif /* !RETROFLAT_TXP_R */
 
#ifndef RETROFLAT_TXP_G
#  define RETROFLAT_TXP_G 0x00
#endif /* !RETROFLAT_TXP_G */
 
#ifndef RETROFLAT_TXP_B
#  define RETROFLAT_TXP_B 0x00
#endif /* !RETROFLAT_TXP_B */
 
#ifndef RETROFLAT_TXP_PAL_IDX
#  define RETROFLAT_TXP_PAL_IDX 0
#endif /* !RETROFLAT_TXP_PAL_IDX */
 /* maug_retroflt_bitmap */
 
#ifndef RETROFLAT_DEFAULT_SCREEN_W
#  define RETROFLAT_DEFAULT_SCREEN_W 320
#endif /* RETROFLAT_DEFAULT_SCREEN_W */
 
#ifndef RETROFLAT_DEFAULT_SCREEN_H
#  define RETROFLAT_DEFAULT_SCREEN_H 200
#endif /* RETROFLAT_DEFAULT_SCREEN_H */
 
#define retroflat_on_resize( w, h ) \
   g_retroflat_state->screen_w = w; \
   g_retroflat_state->screen_h = h;

 
#ifndef RETROFLAT_LINE_THICKNESS
#  define RETROFLAT_LINE_THICKNESS 1
#endif /* !RETROFLAT_LINE_THICKNESS */
 
#define RETROFLAT_PI 3.14159
 /* maug_retroflt_drawing */

 
#ifndef RETROFLAT_FPS
#  define RETROFLAT_FPS 30
#endif /* !RETROFLAT_FPS */
 
#define retroflat_fps_next() (1000 / RETROFLAT_FPS)
 
#ifndef RETROFLAT_WINDOW_CLASS
#  define RETROFLAT_WINDOW_CLASS "RetroFlatWindowClass"
#endif /* !RETROFLAT_WINDOW_CLASS */
 
#ifndef RETROFLAT_WIN_FRAME_TIMER_ID
#  define RETROFLAT_WIN_FRAME_TIMER_ID 6001
#endif /* !RETROFLAT_WIN_FRAME_TIMER_ID */
 
#ifndef RETROFLAT_WIN_LOOP_TIMER_ID
#  define RETROFLAT_WIN_LOOP_TIMER_ID 6002
#endif /* !RETROFLAT_WIN_LOOP_TIMER_ID */
 
#ifndef RETROFLAT_MSG_MAX
#  define RETROFLAT_MSG_MAX 4096
#endif /* !RETROFLAT_MSG_MAX */
 
#define RETROFLAT_PATH_MAX MAUG_PATH_MAX
 
#ifndef RETROFLAT_TITLE_MAX
#  define RETROFLAT_TITLE_MAX 255
#endif /* !RETROFLAT_TITLE_MAX */
 
#ifndef RETROFLAT_VDP_ARGS_SZ_MAX
#  define RETROFLAT_VDP_ARGS_SZ_MAX 255
#endif /* !RETROFLAT_VDP_ARGS_SZ_MAX */
 
#if defined( RETROFLAT_API_SDL2 )
#  if !defined( NO_RETROFLAT_RESIZABLE )
#     define RETROFLAT_WIN_FLAGS SDL_WINDOW_RESIZABLE
#  else
#     define RETROFLAT_WIN_FLAGS 0
#  endif /* !NO_RETROFLAT_RESIZABLE */
#endif /* RETROFLAT_API_SDL2 */
 
#if defined( RETROFLAT_API_SDL1 )
#  define RETROFLAT_SDL_CC_FLAGS (SDL_RLEACCEL | SDL_SRCCOLORKEY)
#elif defined( RETROFLAT_API_SDL2 )
#  define RETROFLAT_SDL_CC_FLAGS (SDL_TRUE)
#endif /* RETROFLAT_API_SDL1 || RETROFLAT_API_SDL2 */
 
#ifdef RETROFLAT_OS_DOS
#  define RETROFLAT_PATH_SEP '\\'
#else
#  define RETROFLAT_PATH_SEP '/'
#endif /* RETROFLAT_OS_DOS */

#define RETROFLAT_ASSETS_PATH_MAX (RETROFLAT_PATH_MAX >> 1)
 
#ifndef RETROFLAT_BMP_COLORS_SZ_MAX
#  define RETROFLAT_BMP_COLORS_SZ_MAX 256
#endif /* !RETROFLAT_BMP_COLORS_SZ_MAX */
 /* maug_retroflt_compiling */
 
#define retroflat_wait_for_frame() \
   (g_retroflat_state->retroflat_flags |= RETROFLAT_FLAGS_WAIT_FOR_FPS)
 
#define retroflat_is_waiting_for_frame() \
   (RETROFLAT_FLAGS_WAIT_FOR_FPS == \
      (g_retroflat_state->retroflat_flags & RETROFLAT_FLAGS_WAIT_FOR_FPS))


typedef char retroflat_asset_path[RETROFLAT_PATH_MAX];

#define retroflat_cmp_asset_path( a, b ) strncmp( a, b, RETROFLAT_PATH_MAX )
 
#define retroflat_assign_asset_path( tgt, src ) \
   maug_strncpy( tgt, src, RETROFLAT_PATH_MAX )
 
#define retroflat_assign_asset_trim_ext( tgt, src ) \
   maug_snprintf( tgt, RETROFLAT_PATH_MAX, "%s", src ); \
   if( NULL != strrchr( tgt, '.' ) ) { \
      *(strrchr( tgt, '.' )) = '\0'; \
   }
 /* maug_retroflt_assets */

typedef void (*retroflat_loop_iter)(void* data);


#define retroflat_buffer_bksp( buffer, buffer_cur, buffer_sz ) \
   if( 0 < buffer_cur ) { \
      if( buffer_cur < buffer_sz ) { \
         memmove( \
            &(buffer[(buffer_cur) - 1]), \
            &(buffer[buffer_cur]), \
            (buffer_sz) - (buffer_cur) ); \
      } \
      buffer_cur--; \
      buffer_sz--; \
      buffer[buffer_sz] = '\0'; \
   }

#define retroflat_buffer_insert( c, buffer, buffer_cur, buffer_sz, buffer_mx ) \
   if( buffer_sz + 1 < buffer_mx ) { \
      if( buffer_cur < buffer_sz ) { \
         memmove( \
            &(buffer[(buffer_cur) + 1]), \
            &(buffer[buffer_cur]), \
            (buffer_sz) - (buffer_cur) ); \
      } \
      buffer[buffer_cur] = c; \
      buffer_cur++; \
      buffer_sz++; \
      buffer[buffer_sz] = '\0'; \
   }
 
#define RETROFLAT_INPUT_MOD_SHIFT   0x01
 
#define RETROFLAT_INPUT_MOD_ALT     0x02
 
#define RETROFLAT_INPUT_MOD_CTRL    0x04
 
#define RETROFLAT_INPUT_FORCE_UPPER    0x08

struct RETROFLAT_INPUT {
   int mouse_x;
   int mouse_y;
   uint8_t key_flags;
};
 /* maug_retroflt_input */

 
typedef int8_t retroflat_dir4_t;
 
typedef int8_t retroflat_dir8_t;
 
#define RETROFLAT_DIR4_NONE  (-1)
#define RETROFLAT_DIR4_NORTH  0
#define RETROFLAT_DIR4_EAST   1
#define RETROFLAT_DIR4_SOUTH  2
#define RETROFLAT_DIR4_WEST   3
 
#define RETROFLAT_DIR8_NONE   (-1)
#define RETROFLAT_DIR8_NORTH  0
#define RETROFLAT_DIR8_EAST   2
#define RETROFLAT_DIR8_SOUTH  4
#define RETROFLAT_DIR8_WEST   6
 
#define retroflat_dir8_reverse( dir ) \
   ((dir + 4) % 8)
 
#define retroflat_dir8_bounce( dir ) \
   ((dir + 2) % 8)
 /* maug_retroflt_dir */
 
#if defined( RETROFLAT_BMP_TEX ) || defined( DOCUMENTATION )

 
#define retroflat_bitmap_has_flags( bmp, f ) \
   (NULL != (bmp) && (f) == ((f) & (bmp)->tex.flags))
 /* maug_retroflt_bitmap */

 
struct RETROFLAT_3DTEX {
   uint8_t flags;
   MAUG_MHANDLE bytes_h;
   uint8_t* bytes;
   uint32_t bpp;
   uint32_t sz;
   uint8_t* px;
   uint32_t id;
   size_t w;
   size_t h;
};
 /* maug_retro3d_util */


#define retroflat_2d_px( ... ) retro3d_texture_px( __VA_ARGS__ )
 
#define retroflat_2d_line( ... ) retrosoft_line( __VA_ARGS__ )
 
#define retroflat_2d_rect( ... ) retrosoft_rect( __VA_ARGS__ )
 
#define retroflat_2d_bitmap_ok( ... ) retro3d_texture_ok( __VA_ARGS__ )
 
#define retroflat_2d_bitmap_w( ... ) retro3d_texture_w( __VA_ARGS__ )
 
#define retroflat_2d_bitmap_h( ... ) retro3d_texture_h( __VA_ARGS__ )
 
#define retroflat_2d_blit_bitmap( ... ) retro3d_texture_blit( __VA_ARGS__ )
 
#define retroflat_2d_blit_win( src, d_x, d_y ) \
   retro3d_draw_window( src, d_x, d_y )
 
#define retroflat_2d_lock_bitmap( ... ) \
   retro3d_texture_lock( __VA_ARGS__ )
 
#define retroflat_2d_release_bitmap( ... ) \
   retro3d_texture_release( __VA_ARGS__ )
 
#define retroflat_2d_load_bitmap( ... ) \
   retro3d_texture_load_bitmap( __VA_ARGS__ )
 
#define retroflat_2d_create_bitmap( ... ) \
   retro3d_texture_create( __VA_ARGS__ )
 
#define retroflat_2d_destroy_bitmap( ... ) \
   retro3d_texture_destroy( __VA_ARGS__ )
 
#else
 
#define retroflat_bitmap_has_flags( bmp, f ) \
   (NULL != (bmp) && (f) == ((f) & (bmp)->flags))
 
#define retroflat_2d_px( ... ) retroflat_px( __VA_ARGS__ )
 
#define retroflat_2d_line( ... ) retroflat_line( __VA_ARGS__ )
 
#define retroflat_2d_rect( ... ) retroflat_rect( __VA_ARGS__ )
 
#define retroflat_2d_bitmap_ok( ... ) retroflat_bitmap_ok( __VA_ARGS__ )
 
#define retroflat_2d_bitmap_w( ... ) retroflat_bitmap_w( __VA_ARGS__ )
 
#define retroflat_2d_bitmap_h( ... ) retroflat_bitmap_h( __VA_ARGS__ )
 
#define retroflat_2d_blit_win( src, d_x, d_y ) \
   retroflat_blit_bitmap( NULL, (src), 0, 0, d_x, d_y, \
      (win)->gui->w, (win)->gui->h, 0 )
 
#define retroflat_2d_blit_bitmap( ... ) retroflat_blit_bitmap( __VA_ARGS__ )
 
#define retroflat_2d_lock_bitmap( ... ) \
   retroflat_draw_lock( __VA_ARGS__ )
 
#define retroflat_2d_release_bitmap( ... ) \
   retroflat_draw_release( __VA_ARGS__ )
 
#define retroflat_2d_load_bitmap( ... ) retroflat_load_bitmap( __VA_ARGS__ )
 
#define retroflat_2d_create_bitmap( ... ) retroflat_create_bitmap( __VA_ARGS__ )
 
#define retroflat_2d_destroy_bitmap( ... ) \
   retroflat_destroy_bitmap( __VA_ARGS__ )
 
#endif /* RETROFLAT_3D || DOCUMENTATION */

typedef size_t retroflat_pxxy_t;
 
struct RETROFLAT_ARGS;
 
#ifndef API_TRACE_LVL
#  define API_TRACE_LVL 0
#endif /* !API_TRACE_LVL */
 
#ifndef NO_RETROSND

 
#ifndef RETROSND_TRACE_LVL
#  define RETROSND_TRACE_LVL 0
#endif /* !RETROSND_TRACE_LVL */
 
#ifndef RETROSND_REG_TRACE_LVL
#  define RETROSND_REG_TRACE_LVL 0
#endif /* !RETROSND_REG_TRACE_LVL */


#define RETROSND_FLAG_INIT 0x01
 /* maug_retrosnd_flags */
 
#define RETROSND_VOICE_BREATH       122
 
#define RETROSND_VOICE_SEASHORE     123
 
#define RETROSND_VOICE_BIRD_TWEET   124
 
#define RETROSND_VOICE_PHONE_RING   125
 
#define RETROSND_VOICE_HELICOPTER   126
 
#define RETROSND_VOICE_APPLAUSE     127

#define RETROSND_VOICE_GUNSHOT      128
 
#define RETROSND_CHANNEL_CT         8

MERROR_RETVAL retrosnd_init( struct RETROFLAT_ARGS* args );

void retrosnd_set_sf_bank( const char* filename_in );
 
void retrosnd_midi_set_voice( uint8_t channel, uint8_t voice );
 
void retrosnd_midi_set_control( uint8_t channel, uint8_t key, uint8_t val );
 
void retrosnd_midi_note_on( uint8_t channel, uint8_t pitch, uint8_t vel );
 
void retrosnd_midi_note_off( uint8_t channel, uint8_t pitch, uint8_t vel );
 
MERROR_RETVAL retrosnd_midi_play_smf( const char* filename );
 
uint8_t retrosnd_midi_is_playing_smf();
 
void retrosnd_shutdown();
 /* maug_retrosnd */
 
#endif /* !NO_RETROSND */
 
/* === OS-Specific Includes and Defines === */
 
#if defined( RETROFLAT_OS_WIN ) && !defined( MAUG_WINDOWS_H )
#  include <windows.h>
#  define MAUG_WINDOWS_H
#endif /* !MAUG_WINDOWS_H */
 
/* TODO: Migrate all platform-specific parts below to retapid.h. */
#include <retapid.h>
 
typedef maug_ms_t retroflat_ms_t;
 
#ifdef RETROFLAT_BMP_TEX
typedef struct RETROFLAT_3DTEX retroflat_blit_t;
#else
typedef struct RETROFLAT_BITMAP retroflat_blit_t;
#endif

typedef void (*retroflat_px_cb)(
   retroflat_blit_t* target, const RETROFLAT_COLOR color_idx,
   size_t x, size_t y, uint8_t flags );
 
/* === Structures === */

struct RETROFLAT_ARGS {
   char* title;
   char* assets_path;
   uint8_t flags;
   char* config_path;
#  ifdef RETROFLAT_API_PC_BIOS
   uint8_t screen_mode;
#  elif !defined( RETROFLAT_NO_CLI_SZ )
   int screen_w;
   int screen_h;
   int screen_x;
   int screen_y;
#  endif /* RETROFLAT_API_PC_BIOS */
   uint8_t snd_flags;
#  if defined( RETROSND_API_SDL1 ) || defined( RETROSND_API_SDL2 )
#  elif defined( RETROSND_API_WINMM )
   UINT snd_dev_id;
#  elif defined( RETROSND_API_PC_BIOS )
   uint16_t snd_io_base;
   uint8_t snd_driver;
#  elif defined( RETROSND_API_ALSA )
   uint8_t snd_client;
   uint8_t snd_port;
#  else
#     pragma message( "warning: sound args not specified" )
#  endif /* RETROSND_API_WINMM */
};


struct RETROFLAT_VIEWPORT {
   int16_t screen_x;
   int16_t screen_y;
   int16_t world_x;
   int16_t world_y;
   int16_t world_w;
   int16_t world_h;
   uint16_t screen_w;
   uint16_t screen_h;
   uint16_t screen_w_remainder;
   uint16_t screen_h_remainder;
   int16_t screen_tile_w;
   int16_t screen_tile_h;
   int16_t world_tile_x;
   int16_t world_tile_y;
#ifndef RETROFLAT_NO_VIEWPORT_REFRESH
   MAUG_MHANDLE refresh_grid_h;
   retroflat_tile_t* refresh_grid;
#endif /* !RETROFLAT_NO_VIEWPORT_REFRESH */
};
 
#  define retroflat_screen_colors() (g_retroflat_state->screen_colors)
 
#ifndef DOCUMENTATION
 
#  define retroflat_viewport_world_x_generic() \
   (g_retroflat_state->viewport.world_x)
 
#  define retroflat_viewport_world_y_generic() \
   (g_retroflat_state->viewport.world_y)
 
#  define retroflat_viewport_world_tile_x_generic() \
   (g_retroflat_state->viewport.world_tile_x)
 
#  define retroflat_viewport_world_tile_y_generic() \
   (g_retroflat_state->viewport.world_tile_y)
 
#  define retroflat_viewport_world_w_generic() \
   (g_retroflat_state->viewport.world_w)
 
#  define retroflat_viewport_world_h_generic() \
   (g_retroflat_state->viewport.world_h)
 
#  define retroflat_viewport_screen_tile_w_generic() \
   (g_retroflat_state->viewport.screen_tile_w)
 
#  define retroflat_viewport_screen_tile_h_generic() \
   (g_retroflat_state->viewport.screen_tile_h)
 
#  define retroflat_viewport_screen_w_generic() \
   (g_retroflat_state->viewport.screen_w)
 
#  define retroflat_viewport_screen_h_generic() \
   (g_retroflat_state->viewport.screen_h)
 
#  define retroflat_viewport_screen_w_remainder_generic() \
   (g_retroflat_state->viewport.screen_w_remainder)
 
#  define retroflat_viewport_screen_h_remainder_generic() \
   (g_retroflat_state->viewport.screen_h_remainder)
 
#  define retroflat_viewport_set_world_generic( w, h ) \
   debug_printf( 1, "setting viewport size to %d x %d...", \
      (int16_t)(w), (int16_t)(h) ); \
   (g_retroflat_state->viewport.world_w) = w; \
   (g_retroflat_state->viewport.world_h) = h;
 
#  define retroflat_viewport_set_world_pos_generic( x, y ) \
   debug_printf( 1, "setting viewport world pos to %d, %d...", x, y ); \
   (g_retroflat_state->viewport.world_x) = x; \
   (g_retroflat_state->viewport.world_y) = y; \
   (g_retroflat_state->viewport.world_tile_x) = (x) >> RETROFLAT_TILE_W_BITS; \
   (g_retroflat_state->viewport.world_tile_y) = (y) >> RETROFLAT_TILE_H_BITS;
 
#  define retroflat_viewport_set_pos_size_generic( x_px, y_px, w_px, h_px ) \
   g_retroflat_state->viewport.screen_x = (x_px); \
   g_retroflat_state->viewport.screen_y = (y_px); \
   g_retroflat_state->viewport.screen_tile_w = \
      ((w_px) / RETROFLAT_TILE_W); \
   g_retroflat_state->viewport.screen_tile_h = \
      ((h_px) / RETROFLAT_TILE_H); \
   /* We're not adding the extra room here since this won't be used for
   * indexing or allocation but rather pixel detection.
   */ \
   g_retroflat_state->viewport.screen_w = \
      ((w_px) / RETROFLAT_TILE_W) * RETROFLAT_TILE_W; \
   g_retroflat_state->viewport.screen_h = \
      ((h_px) / RETROFLAT_TILE_H) * RETROFLAT_TILE_H; \
   g_retroflat_state->viewport.screen_w_remainder = \
      (x_px) + (w_px) - g_retroflat_state->viewport.screen_w; \
   g_retroflat_state->viewport.screen_h_remainder = \
      (y_px) + (h_px) - g_retroflat_state->viewport.screen_h;
 
#ifndef RETROFLAT_NO_VIEWPORT_REFRESH
 
#  define retroflat_viewport_lock_refresh_generic() \
   if( NULL == g_retroflat_state->viewport.refresh_grid ) { \
      maug_mlock( \
         g_retroflat_state->viewport.refresh_grid_h, \
         g_retroflat_state->viewport.refresh_grid ); \
      maug_cleanup_if_null_lock( retroflat_tile_t*, \
         g_retroflat_state->viewport.refresh_grid ); \
   }
 
#  define retroflat_viewport_unlock_refresh_generic() \
   if( NULL != g_retroflat_state->viewport.refresh_grid ) { \
      maug_munlock( \
         g_retroflat_state->viewport.refresh_grid_h, \
         g_retroflat_state->viewport.refresh_grid ); \
   }
 
#  define _retroflat_viewport_refresh_tile_x( x_px ) \
   (((x_px) + RETROFLAT_TILE_W) >> RETROFLAT_TILE_W_BITS)
 
#  define _retroflat_viewport_refresh_tile_y( y_px ) \
   (((y_px) + RETROFLAT_TILE_H) >> RETROFLAT_TILE_H_BITS)
 
#  define retroflat_viewport_set_refresh_generic( x_px, y_px, tid ) \
   assert( NULL != g_retroflat_state->viewport.refresh_grid ); \
   if( \
      /* Expand the range by -1 to account for just off-screen tile. */ \
      -(RETROFLAT_TILE_W) <= x_px && -(RETROFLAT_TILE_H) <= y_px && \
      retroflat_screen_w() > x_px && \
      retroflat_screen_h() > y_px \
   ) { \
      assert( 0 < g_retroflat_state->viewport.screen_tile_w ); \
      assert( 0 <= (((y_px) + RETROFLAT_TILE_H) >> RETROFLAT_TILE_H_BITS) ); \
      assert( 0 <= (((x_px) + RETROFLAT_TILE_W) >> RETROFLAT_TILE_W_BITS) ); \
      g_retroflat_state->viewport.refresh_grid[ \
         /* Add +1 tile to make off-screen "-1" tile positive. */ \
         ((_retroflat_viewport_refresh_tile_y( y_px ) + 1) * \
            (g_retroflat_state->viewport.screen_tile_w + 2)) + \
               (_retroflat_viewport_refresh_tile_x( x_px ) + 1)] = tid; \
   }
 
#  define retroflat_viewport_tile_is_stale( x_px, y_px, tile_id ) \
      ((tile_id) != \
      g_retroflat_state->viewport.refresh_grid[ \
         ((_retroflat_viewport_refresh_tile_y( y_px ) + 1) * \
            (g_retroflat_state->viewport.screen_tile_w + 2)) + \
               (_retroflat_viewport_refresh_tile_x( x_px ) + 1)])
 
#endif /* !RETROFLAT_NO_VIEWPORT_REFRESH */
 
uint8_t retroflat_viewport_move_x_generic( int16_t x );
 
uint8_t retroflat_viewport_move_y_generic( int16_t y );
 
uint8_t retroflat_viewport_focus_generic(
   size_t x1, size_t y1, size_t range, size_t speed );
 
#  define retroflat_viewport_screen_x_generic( world_x ) \
   (g_retroflat_state->viewport.screen_x + \
      ((world_x) - retroflat_viewport_world_x()))
 
#  define retroflat_viewport_screen_y_generic( world_y ) \
   (g_retroflat_state->viewport.screen_y + \
      ((world_y) - retroflat_viewport_world_y()))
 
#endif /* !DOCUMENTATION */
 
#if defined( RETROFLAT_SOFT_VIEWPORT ) || defined( DOCUMENTATION )
 
#  ifndef RETROFLAT_NO_VIEWPORT_REFRESH
      /* These clamp world coordinates to tile borders to allow refresh grid to
       * function properly (smooth-scrolling tiles will always be in motion).
       */

#     define retroflat_viewport_world_x() \
         ((retroflat_viewport_world_x_generic() \
            >> RETROFLAT_TILE_W_BITS) << RETROFLAT_TILE_W_BITS)

#     define retroflat_viewport_world_y() \
         ((retroflat_viewport_world_y_generic() \
            >> RETROFLAT_TILE_H_BITS) << RETROFLAT_TILE_H_BITS)
#  else
#     define retroflat_viewport_world_x() retroflat_viewport_world_x_generic()
#     define retroflat_viewport_world_y() retroflat_viewport_world_y_generic()
#endif /* !RETROFLAT_NO_VIEWPORT_REFRESH */
 
#     define retroflat_viewport_world_tile_x() \
         retroflat_viewport_world_tile_x_generic()
#     define retroflat_viewport_world_tile_y() \
         retroflat_viewport_world_tile_y_generic()

#  define retroflat_viewport_world_w() \
   retroflat_viewport_world_w_generic()

#  define retroflat_viewport_world_h() \
   retroflat_viewport_world_h_generic()

#  define retroflat_viewport_screen_tile_w() \
   retroflat_viewport_screen_tile_w_generic()

#  define retroflat_viewport_screen_tile_h() \
   retroflat_viewport_screen_tile_h_generic()

#  define retroflat_viewport_screen_w() \
   retroflat_viewport_screen_w_generic()

#  define retroflat_viewport_screen_h() \
   retroflat_viewport_screen_h_generic()

#  define retroflat_viewport_screen_w_remainder() \
   retroflat_viewport_screen_w_remainder_generic()

#  define retroflat_viewport_screen_h_remainder() \
   retroflat_viewport_screen_h_remainder_generic()

#  define retroflat_viewport_set_world( w, h ) \
   retroflat_viewport_set_world_generic( w, h )

#  define retroflat_viewport_set_world_pos( x, y ) \
   retroflat_viewport_set_world_pos_generic( x, y )

#  define retroflat_viewport_set_pos_size( x_px, y_px, w_px, h_px ) \
   retroflat_viewport_set_pos_size_generic( x_px, y_px, w_px, h_px )
 
#ifndef RETROFLAT_NO_VIEWPORT_REFRESH

#  define retroflat_viewport_lock_refresh() \
   retroflat_viewport_lock_refresh_generic()

#  define retroflat_viewport_unlock_refresh() \
   retroflat_viewport_unlock_refresh_generic()

#  define retroflat_viewport_set_refresh( x, y, tid ) \
   retroflat_viewport_set_refresh_generic( x, y, tid )
 
#endif /* !RETROFLAT_NO_VIEWPORT_REFRESH */

#  define retroflat_viewport_focus( x1, y1, range, speed ) \
   retroflat_viewport_focus_generic( x1, y1, range, speed )

#  define retroflat_viewport_screen_x( world_x ) \
   retroflat_viewport_screen_x_generic( world_x )

#  define retroflat_viewport_screen_y( world_y ) \
   retroflat_viewport_screen_y_generic( world_y )
 
#  ifndef RETROFLAT_VIEWPORT_OVERRIDE_MOVE
#     define retroflat_viewport_move_x( x ) \
         retroflat_viewport_move_x_generic( x )
 
#     define retroflat_viewport_move_y( y ) \
         retroflat_viewport_move_y_generic( y )
#  endif /* !RETROFLAT_VIEWPORT_OVERRIDE_MOVE */
 
#endif /* RETROFLAT_SOFT_VIEWPORT || DOCUMENTATION */


#define retroflat_heartbeat_set( len, max ) \
   g_retroflat_state->heartbeat_max = max; \
   g_retroflat_state->heartbeat_len = len;

#define retroflat_heartbeat() (g_retroflat_state->heartbeat_frame)

#define retroflat_heartbeat_update() \
   /* Update the heartbeat animation frame. */ \
   if( g_retroflat_state->heartbeat_next <= retroflat_get_ms() ) { \
      g_retroflat_state->heartbeat_frame++; \
      if( \
         g_retroflat_state->heartbeat_frame >= \
            g_retroflat_state->heartbeat_max \
      ) { \
         g_retroflat_state->heartbeat_frame = 0; \
      } \
      g_retroflat_state->heartbeat_next = \
         retroflat_get_ms() + g_retroflat_state->heartbeat_len; \
   }

struct RETROFLAT_STATE {
   /* TODO: Set this up in the initialization function! */
   /* TODO: We probably need more of these. */
   size_t                  sz;
   size_t                  offset_pal;
   size_t                  offset_tex_pal;
 
   void*                   loop_data;
   MERROR_RETVAL           retval;
   uint8_t                 retroflat_flags;
   char                    config_path[RETROFLAT_PATH_MAX + 1];
   char                    assets_path[RETROFLAT_ASSETS_PATH_MAX + 1];
   struct RETROFLAT_BITMAP buffer;
   int scale;
 
#  if defined( RETROFLAT_VDP ) || defined( DOCUMENTATION ) || \
defined( RETROVDP_C )
   struct RETROFLAT_BITMAP* vdp_buffer;
#     ifdef RETROFLAT_OS_WIN
   HMODULE vdp_exe;
#     else
   void* vdp_exe;
#     endif /* RETROFLAT_OS_WIN */
   void* vdp_data;
   char vdp_args[RETROFLAT_VDP_ARGS_SZ_MAX];
   uint8_t vdp_flags;
#  endif /* RETROFLAT_VDP || DOCUMENTATION || RETROVDP_C */
 
   /* These are used by VDP so should be standardized/not put in plat-spec! */
 
   struct RETROFLAT_VIEWPORT viewport;

   size_t               screen_v_w;
   size_t               screen_v_h;
   size_t               screen_w;
   size_t               screen_h;
   size_t               screen_colors;
 
   /* WARNING: The VDP requires the state specifier to be the same size
    *          as the one it was compiled for! Do not modify above here!
    */
 
   /* TODO: Put these in a platform-specific struct of some kind to maintain
    *       consistent state struct size for VDP?
    */
 
   retroflat_ms_t heartbeat_next;
   uint16_t heartbeat_len;
   uint8_t heartbeat_frame;
   uint8_t heartbeat_max;
 
   retroflat_proc_resize_t on_resize;
   void* on_resize_data;
 
#ifndef RETROFLAT_OPENGL
   RETROFLAT_COLOR_DEF     palette[RETROFLAT_COLORS_SZ];
#endif /* !RETROFLAT_OPENGL */
 
   retroflat_loop_iter  loop_iter;
   retroflat_loop_iter  frame_iter;
 
   struct RETROFLAT_PLATFORM platform;
 
#  if defined( RETROFLAT_3D )
   /* This allows native colors to be used for things like glColor3fv while
    * these colors are used to manipulate textures passed through
    * retroflat_bitmap_*()
    */
   uint8_t tex_palette[RETROFLAT_COLORS_SZ][3];
#  endif /* RETROFLAT_OPENGL */
 
#ifndef NO_RETROSND
   struct RETROFLAT_SOUND sound;
#endif /* !NO_RETROSND */
};
 
/* === Translation Module === */
 
/* Declare the prototypes so that internal functions can call each other. */
 
#  ifdef retroflat_loop
MERROR_RETVAL retroflat_loop_generic(
   retroflat_loop_iter frame_iter, retroflat_loop_iter loop_iter, void* data );
#  else
MERROR_RETVAL retroflat_loop(
   retroflat_loop_iter frame_iter, retroflat_loop_iter loop_iter, void* data );
#  endif /* retroflat_loop */

void retroflat_message(
   uint8_t flags, const char* title, const char* format, ... );

MERROR_RETVAL retroflat_init( int argc, char* argv[], struct RETROFLAT_ARGS* args );

void retroflat_shutdown( int retval );
 
#  if defined( RETROFLAT_VDP ) || defined( DOCUMENTATION )

MERROR_RETVAL retroflat_vdp_call( const char* proc_name );
 /* maug_retroflt_vdp */
#  endif /* RETROFLAT_VDP || DOCUMENTATION */
 
void retroflat_set_title( const char* format, ... );
 
retroflat_ms_t retroflat_get_ms();
 
uint32_t retroflat_get_rand();
 
#  if !defined( RETROFLAT_NO_KEYBOARD )
char retroflat_vk_to_ascii( RETROFLAT_IN_KEY k, uint8_t flags );
#  endif /* !RETROFLAT_NO_KEYBOARD */


MERROR_RETVAL retroflat_load_bitmap(
   const char* filename, struct RETROFLAT_BITMAP* bmp_out, uint8_t flags );
 
MERROR_RETVAL retroflat_create_bitmap(
   size_t w, size_t h, struct RETROFLAT_BITMAP* bmp_out, uint8_t flags );

void retroflat_destroy_bitmap( struct RETROFLAT_BITMAP* bitmap );

MERROR_RETVAL retroflat_blit_bitmap(
   struct RETROFLAT_BITMAP* target, struct RETROFLAT_BITMAP* src,
   size_t s_x, size_t s_y, int16_t d_x, int16_t d_y, size_t w, size_t h,
   int16_t instance );

#define retroflat_constrain_px( x, y, bmp, retact ) \
   if( \
      x >= retroflat_bitmap_w( bmp ) || y >= retroflat_bitmap_h( bmp ) \
   ) { retact; }
 /* maug_retroflt_bitmap */


MERROR_RETVAL retroflat_draw_lock( struct RETROFLAT_BITMAP* bmp );
 
MERROR_RETVAL retroflat_draw_release( struct RETROFLAT_BITMAP* bmp );
 
void retroflat_px(
   struct RETROFLAT_BITMAP* target, const RETROFLAT_COLOR color,
   size_t x, size_t y, uint8_t flags );
 
#ifdef RETROFLAT_SOFT_SHAPES
#  ifdef RETROFLAT_OPENGL
/* Make sure we're not passing NULL to openGL texture drawers... they can't
 * handle that!
 */
#     define retroflat_rect( t, c, x, y, w, h, f ) \
      assert( NULL != t ); \
      retrosoft_rect( t, c, x, y, w, h, f );
#     define retroflat_ellipse( t, c, x, y, w, h, f ) \
      assert( NULL != t ); \
      retrosoft_ellipse( t, c, x, y, w, h, f )
#  else
#     define retroflat_rect( t, c, x, y, w, h, f ) \
      retrosoft_rect( t, c, x, y, w, h, f )
#     define retroflat_ellipse( t, c, x, y, w, h, f ) \
      retrosoft_ellipse( t, c, x, y, w, h, f )
#  endif /* RETROFLAT_3D */
#else

void retroflat_rect(
   struct RETROFLAT_BITMAP* target, const RETROFLAT_COLOR color,
   int16_t x, int16_t y, int16_t w, int16_t h, uint8_t flags );

void retroflat_ellipse(
   struct RETROFLAT_BITMAP* target, const RETROFLAT_COLOR color,
   int16_t x, int16_t y, int16_t w, int16_t h, uint8_t flags );
 
#endif /* RETROFLAT_SOFT_SHAPES */
 
#ifdef RETROFLAT_SOFT_LINES
#  define retroflat_line( t, c, x1, y1, x2, y2, f ) \
   retrosoft_line( t, c, x1, y1, x2, y2, f )
#else

void retroflat_line(
   struct RETROFLAT_BITMAP* target, const RETROFLAT_COLOR color,
   int16_t x1, int16_t y1, int16_t x2, int16_t y2, uint8_t flags );
 
#endif /* RETROFLAT_SOFT_LINES */
 
void retroflat_cursor( struct RETROFLAT_BITMAP* target, uint8_t flags );

void retroflat_string_sz(
   struct RETROFLAT_BITMAP* target, const char* str, size_t str_sz,
   const char* font_str, size_t* w_out, size_t* h_out, uint8_t flags );

void retroflat_string(
   struct RETROFLAT_BITMAP* target, const RETROFLAT_COLOR color,
   const char* str, int str_sz, const char* font_str, int16_t x_orig, int16_t y_orig,
   uint8_t flags );
 
/* TODO: Documentation! */
void retroflat_get_palette( uint8_t idx, uint32_t* rgb );
 
MERROR_RETVAL retroflat_set_palette( uint8_t idx, uint32_t rgb );
 /* maug_retroflt_bitmap */

void retroflat_set_proc_resize(
   retroflat_proc_resize_t on_resize_in, void* data_in );

void retroflat_resize_v();


RETROFLAT_IN_KEY retroflat_poll_input( struct RETROFLAT_INPUT* input );
 /* maug_retroflt_input */
 
#ifdef RETROFLT_C
 
MAUG_CONST int16_t SEG_MCONST gc_retroflat_offsets8_x[8] =
   {  0,  1, 1, 1, 0, -1, -1, -1 };
MAUG_CONST int16_t SEG_MCONST gc_retroflat_offsets8_y[8] =
   { -1, -1, 0, 1, 1,  1,  0, -1 };
 
MAUG_CONST int16_t SEG_MCONST gc_retroflat_offsets4_x[4] =
   {  0, 1, 0, -1 };
MAUG_CONST int16_t SEG_MCONST gc_retroflat_offsets4_y[4] =
   { -1, 0, 1,  0 };
 
MAUG_MHANDLE g_retroflat_state_h = (MAUG_MHANDLE)NULL;
struct RETROFLAT_STATE* g_retroflat_state = NULL;
 
#  define RETROFLAT_COLOR_TABLE_CONSTS( idx, name_l, name_u, r, g, b, cgac, cgad ) \
      MAUG_CONST RETROFLAT_COLOR RETROFLAT_COLOR_ ## name_u = idx;
 
RETROFLAT_COLOR_TABLE( RETROFLAT_COLOR_TABLE_CONSTS )
 
#  define RETROFLAT_COLOR_TABLE_NAMES( idx, name_l, name_u, r, g, b, cgac, cgad ) \
      #name_u,
 
MAUG_CONST char* SEG_MCONST gc_retroflat_color_names[] = {
   RETROFLAT_COLOR_TABLE( RETROFLAT_COLOR_TABLE_NAMES )
};
 
/* Callback table is down below, after the statically-defined callbacks. */
 
/* === Function Definitions === */
 
MERROR_RETVAL retroflat_build_filename_path(
   const char* filename_in,
   char* buffer_out, size_t buffer_out_sz, uint8_t flags
) {
   MERROR_RETVAL retval = MERROR_OK;
 
   assert( 1 < buffer_out_sz );
 
   /* Build the path to the bitmap. */
   memset( buffer_out, '\0', buffer_out_sz );
   if(
      RETROFLAT_FLAGS_LITERAL_PATH ==
      (RETROFLAT_FLAGS_LITERAL_PATH & flags)
   ) {
      /* TODO: Error checking. */
      maug_snprintf( buffer_out, buffer_out_sz - 1, "%s", filename_in );
   } else {
      /* TODO: Error checking. */
      maug_snprintf( buffer_out, buffer_out_sz - 1, "%s%c%s.%s",
         g_retroflat_state->assets_path, RETROFLAT_PATH_SEP,
         filename_in, RETROFLAT_BITMAP_EXT );
   }
 
   return retval;
}
 
/* === */
 
#  if (defined( RETROFLAT_SOFT_SHAPES ) || defined( RETROFLAT_SOFT_LINES ) || \
   defined( RETROFLAT_3D ))
/* RETROSOFT_PRESENT is different from RETROFLAT_SOFT_SHAPES in that it only
 * indicates that the retrosoft library is loaded, not that it is the default
 * for drawing primatives!
 */
#     define RETROSOFT_PRESENT
#  endif
 
#  if defined( RETROFLAT_3D )
#     if !defined( MAUG_NO_AUTO_C )
#        define RETRO3D_C
#        define RETRO3DP_C
#        define RETROFP_C
#     endif /* MAUG_NO_AUTO_C */
#     include <retro3dp.h>
#     include <retro3d.h>
#     include <retro3du.h>
#     include <retapi3.h>
#  endif /* RETROFLAT_3D */
 
#  ifdef RETROSOFT_PRESENT
#     if !defined( MAUG_NO_AUTO_C )
#        define RETROSFT_C
#     endif /* !MAUG_NO_AUTO_C */
#     define RETROSOFT_PRESENT
#     include <retrosft.h>
#  endif /* RETROFLAT_SOFT_SHAPES */
 
#  if defined( RETROFLAT_VDP ) && defined( RETROFLAT_OS_UNIX )
#     include <dlfcn.h>
#  endif
 
/* Still inside RETROFLT_C! */
 
/* === */
 
#ifndef RETROFLAT_NO_GENERIC_LOOP
 
MERROR_RETVAL retroflat_loop_generic(
   retroflat_loop_iter frame_iter, retroflat_loop_iter loop_iter, void* data
) {
   MERROR_RETVAL retval = MERROR_OK;
   retroflat_ms_t next = 0,
      now = 0;
 
   g_retroflat_state->loop_iter = (retroflat_loop_iter)loop_iter;
   g_retroflat_state->loop_data = (void*)data;
   g_retroflat_state->frame_iter = (retroflat_loop_iter)frame_iter;
 
   if(
      RETROFLAT_FLAGS_RUNNING ==
      (g_retroflat_state->retroflat_flags & RETROFLAT_FLAGS_RUNNING)
   ) {
      /* Main loop is already running, so we're just changing the iter call
       * and leaving!
       */
      debug_printf( 1, "main loop already running!" );
      goto cleanup;
   }
 
   g_retroflat_state->retroflat_flags |= RETROFLAT_FLAGS_RUNNING;
   do {
      if(
         /* Not waiting for the next frame? */
         RETROFLAT_FLAGS_WAIT_FOR_FPS !=
         (RETROFLAT_FLAGS_WAIT_FOR_FPS & g_retroflat_state->retroflat_flags) &&
         /* Inter-frame loop present? */
         NULL != g_retroflat_state->loop_iter
      ) {
         /* Run the loop iter as many times as possible. */
         g_retroflat_state->loop_iter( g_retroflat_state->loop_data );
      }
      if(
         RETROFLAT_FLAGS_UNLOCK_FPS !=
         (RETROFLAT_FLAGS_UNLOCK_FPS & g_retroflat_state->retroflat_flags) &&
         retroflat_get_ms() < next
      ) {
         /* Sleep/low power for a bit. */
         continue;
      }
 
      retroflat_heartbeat_update();
 
      if( NULL != g_retroflat_state->frame_iter ) {
         /* Run the frame iterator once per FPS tick. */
         g_retroflat_state->frame_iter( g_retroflat_state->loop_data );
      }
      /* Reset wait-for-frame flag AFTER frame callback. */
      g_retroflat_state->retroflat_flags &= ~RETROFLAT_FLAGS_WAIT_FOR_FPS;
      now = retroflat_get_ms();
      if( now + retroflat_fps_next() > now ) {
         next = now + retroflat_fps_next();
      } else {
         /* Rollover protection. */
         /* TODO: Add difference from now/next to 0 here. */
         next = 0;
      }
   } while(
      RETROFLAT_FLAGS_RUNNING == 
         (RETROFLAT_FLAGS_RUNNING & g_retroflat_state->retroflat_flags)
   );
   retval = g_retroflat_state->retval;
 
cleanup:
 
   /* This should be set by retroflat_quit(). */
   return retval;
}
 
#endif /* !RETROFLAT_NO_GENERIC_LOOP */
 
/* === */
 
#  if !defined( RETROFLAT_NO_KEYBOARD )
 
char retroflat_vk_to_ascii( RETROFLAT_IN_KEY k, uint8_t flags ) {
   char c = 0;
   char offset_lower = 0;
 
   if( RETROFLAT_INPUT_MOD_SHIFT != (RETROFLAT_INPUT_MOD_SHIFT & flags) ) {
      /* Shift is *not* being held down. */
 
      if( RETROFLAT_KEY_A <= k && RETROFLAT_KEY_Z >= k ) {
         if( 
            RETROFLAT_INPUT_FORCE_UPPER !=
               (RETROFLAT_INPUT_FORCE_UPPER & flags)
         ) {
            /* Key is alphabetical and we're not forcing uppercase. */
            offset_lower = 0x20;
         }
      } else {
         offset_lower = 1;
      }
   }
   
   switch( k ) {
   case RETROFLAT_KEY_A: c = 0x41 + offset_lower; break;
   case RETROFLAT_KEY_B: c = 0x42 + offset_lower; break;
   case RETROFLAT_KEY_C: c = 0x43 + offset_lower; break;
   case RETROFLAT_KEY_D: c = 0x44 + offset_lower; break;
   case RETROFLAT_KEY_E: c = 0x45 + offset_lower; break;
   case RETROFLAT_KEY_F: c = 0x46 + offset_lower; break;
   case RETROFLAT_KEY_G: c = 0x47 + offset_lower; break;
   case RETROFLAT_KEY_H: c = 0x48 + offset_lower; break;
   case RETROFLAT_KEY_I: c = 0x49 + offset_lower; break;
   case RETROFLAT_KEY_J: c = 0x4a + offset_lower; break;
   case RETROFLAT_KEY_K: c = 0x4b + offset_lower; break;
   case RETROFLAT_KEY_L: c = 0x4c + offset_lower; break;
   case RETROFLAT_KEY_M: c = 0x4d + offset_lower; break;
   case RETROFLAT_KEY_N: c = 0x4e + offset_lower; break;
   case RETROFLAT_KEY_O: c = 0x4f + offset_lower; break;
   case RETROFLAT_KEY_P: c = 0x50 + offset_lower; break;
   case RETROFLAT_KEY_Q: c = 0x51 + offset_lower; break;
   case RETROFLAT_KEY_R: c = 0x52 + offset_lower; break;
   case RETROFLAT_KEY_S: c = 0x53 + offset_lower; break;
   case RETROFLAT_KEY_T: c = 0x54 + offset_lower; break;
   case RETROFLAT_KEY_U: c = 0x55 + offset_lower; break;
   case RETROFLAT_KEY_V: c = 0x56 + offset_lower; break;
   case RETROFLAT_KEY_W: c = 0x57 + offset_lower; break;
   case RETROFLAT_KEY_X: c = 0x58 + offset_lower; break;
   case RETROFLAT_KEY_Y: c = 0x59 + offset_lower; break;
   case RETROFLAT_KEY_Z: c = 0x60 + offset_lower; break;
   case RETROFLAT_KEY_0: c = offset_lower ? 0x30 : ')'; break;
   case RETROFLAT_KEY_1: c = offset_lower ? 0x31 : '!'; break;
   case RETROFLAT_KEY_2: c = offset_lower ? 0x32 : '@'; break;
   case RETROFLAT_KEY_3: c = offset_lower ? 0x33 : '#'; break;
   case RETROFLAT_KEY_4: c = offset_lower ? 0x34 : '$'; break;
   case RETROFLAT_KEY_5: c = offset_lower ? 0x35 : '%'; break;
   case RETROFLAT_KEY_6: c = offset_lower ? 0x36 : '^'; break;
   case RETROFLAT_KEY_7: c = offset_lower ? 0x37 : '&'; break;
   case RETROFLAT_KEY_8: c = offset_lower ? 0x38 : '*'; break;
   case RETROFLAT_KEY_9: c = offset_lower ? 0x39 : '('; break;
   case RETROFLAT_KEY_SPACE: c = ' '; break;
   case RETROFLAT_KEY_BKSP: c = 0x08; break;
   case RETROFLAT_KEY_ENTER: c = '\n'; break;
   case RETROFLAT_KEY_SEMICOLON: c = offset_lower ? ';' : ':'; break;
   case RETROFLAT_KEY_DASH: c = offset_lower ? '-' : '_'; break;
   case RETROFLAT_KEY_SLASH: c = offset_lower ? '/' : '?'; break;
   case RETROFLAT_KEY_PERIOD: c = offset_lower ? '.' : '>'; break;
   case RETROFLAT_KEY_COMMA: c = offset_lower ? ',' : '<'; break;
   case RETROFLAT_KEY_QUOTE: c = offset_lower ? '\'' : '"'; break;
   case RETROFLAT_KEY_EQUALS: c = offset_lower ? '=' : '+'; break;
   case RETROFLAT_KEY_BACKSLASH: c = offset_lower ? '\\' : '|'; break;
   case RETROFLAT_KEY_BRACKETL: c = offset_lower ? '[' : '{'; break;
   case RETROFLAT_KEY_BRACKETR: c = offset_lower ? ']' : '}'; break;
#ifndef RETROFLAT_API_PC_BIOS
   /* TODO: FIXME in DOS! */
   case RETROFLAT_KEY_GRAVE: c = offset_lower ? '`' : '~'; break;
#endif /* !RETROFLAT_API_PC_BIOS */
   }
 
   debug_printf( RETROFLAT_KB_TRACE_LVL, "0x%02x", c );
 
   return c;
}
 
#endif /* !RETROFLAT_NO_KEYBOARD */
 
/* === */
 
/* TODO: Migrate all platform-specific parts below to retapif.h. */
#include <retapif.h>
 
/* === */
 
#  ifndef RETROFLAT_NO_CLI
 
#  ifdef RETROSND_ARGS
 
static MERROR_RETVAL retrosnd_cli_rsl(
   const char* arg, ssize_t arg_c, struct RETROFLAT_ARGS* args
) {
   if(
      0 <= arg_c &&
      0 == strncmp( MAUG_CLI_SIGIL "rsl", arg, MAUG_CLI_SIGIL_SZ + 4 )
   ) {
      args->snd_flags |= RETROSND_ARGS_FLAG_LIST_DEVS;
   }
   return MERROR_OK;
}
 
static MERROR_RETVAL retrosnd_cli_rsd(
   const char* arg, ssize_t arg_c, struct RETROFLAT_ARGS* args
) {
   MERROR_RETVAL retval = MERROR_OK;
#     if defined( RETROSND_API_PC_BIOS ) || defined( RETROSND_API_ALSA )
   char* env_var = NULL;
   size_t i = 0;
#     elif defined( RETROSND_API_ALSA )
   char* env_var = NULL;
#     elif defined( RETROSND_API_WINMM )
   char* env_var = NULL;
#     endif /* RETROSND_API_PC_BIOS || RETROSND_API_ALSA */
 
   if( 0 > arg_c ) {
#     ifdef RETROSND_API_PC_BIOS
   if( NULL != env_var ) {
      env_var = getenv( "MAUG_MIDI_DOS" );
 
      /* Return MERROR_OK since this isn't fatal and will just cause sound
         * init to fail later.
         */
      maug_cleanup_if_null_msg(
         char*, env_var, MERROR_OK, "MAUG_MIDI_DOS variable not found!" );
 
      debug_printf( 2, "env: MAUG_MIDI_DOS: %s", env_var );
 
      /* Turn comma separator into NULL split. */
      for( i = 0 ; maug_strlen( env_var ) > i ; i++ ) {
         if( ',' == env_var[i] ) {
            /* Split into two null-terminated strings. */
            env_var[i] = '\0';
         }
      }
 
      if( 0 == strcmp( env_var, "mpu" ) ) {
         debug_printf( 3, "selecting MIDI driver: mpu" );
         args->snd_driver = 2;
      } else if( 0 == strcmp( env_var, "gus" ) ) {
         debug_printf( 3, "selecting MIDI driver: gus" );
         args->snd_driver = 4;
      } else if( 0 == strcmp( env_var, "adlib" ) ) {
         debug_printf( 3, "selecting MIDI driver: adlib" );
         args->snd_driver = 8;
      }
      /* TODO: Maug replacement for C99 crutch. */
      args->snd_io_base = strtoul( &(env_var[i]), NULL, 16 );
      debug_printf( 3, "setting MIDI I/O base: %u", args->snd_io_base );
   } else {
      /* default */
      debug_printf( 3, "default MIDI driver: adlib" );
      args->snd_driver = 8;
      args->snd_io_base = 0x388;
   }
 
#     elif defined( RETROSND_API_ALSA )
   if( 0 == args->snd_client ) {
      env_var = getenv( "MAUG_MIDI_ALSA" );
 
      /* Return MERROR_OK since this isn't fatal and will just cause sound
         * init to fail later.
         */
      maug_cleanup_if_null_msg(
         char*, env_var, MERROR_OK, "MAUG_MIDI_ALSA variable not found!" );
 
      debug_printf( 2, "env: MAUG_MIDI_ALSA: %s", env_var );
 
      for( i = 0 ; maug_strlen( env_var ) > i ; i++ ) {
         if( ':' == env_var[i] ) {
            /* Split into two null-terminated strings. */
            env_var[i] = '\0';
         }
      }
 
      args->snd_client = atoi( env_var );
      args->snd_port = atoi( &(env_var[i]) );
      debug_printf( 3, "setting MIDI device to: %u:%u",
         args->snd_client, args->snd_port );
   }
 
#     elif defined( RETROSND_API_WINMM )
   env_var = getenv( "MAUG_MIDI_WIN" );
 
   /* Return MERROR_OK since this isn't fatal and will just cause sound
      * init to fail later.
      */
   maug_cleanup_if_null_msg(
      char*, env_var, MERROR_OK, "MAUG_MIDI_WIN variable not found!" );
 
   debug_printf( 2, "env: MAUG_MIDI_WIN: %s", env_var );
 
   if( NULL != env_var ) {
      args->snd_dev_id = atoi( env_var );
   } else {
      args->snd_dev_id = 0;
   }
   debug_printf( 3, "setting MIDI device to: %u", args->snd_dev_id );
 
#     endif /* RETROSND_API_PC_BIOS || RETROSND_API_ALSA || RETROSND_API_WINMM */
   } else if(
      0 == strncmp( MAUG_CLI_SIGIL "rsd", arg, MAUG_CLI_SIGIL_SZ + 4 )
   ) {
      /* The next arg must be the new var. */
   } else {
#     ifdef RETROSND_API_PC_BIOS
      /* TODO: Parse device. */
#     elif defined( RETROSND_API_ALSA )
      /* TODO: Parse device. */
#     elif defined( RETROSND_API_WINMM )
      debug_printf( 3, "setting MIDI device to rsd arg: %s", arg );
      args->snd_dev_id = atoi( arg );
#     endif /* RETROSND_API_PC_BIOS || RETROSND_API_ALSA || RETROSND_API_WINMM */
   }
 
#     if defined( RETROSND_API_PC_BIOS ) || defined( RETROSND_API_ALSA )
cleanup:
#     elif defined( RETROSND_API_ALSA )
cleanup:
#     elif defined( RETROSND_API_WINMM )
cleanup:
#     endif /* RETROSND_API_PC_BIOS || RETROSND_API_ALSA */
 
   return retval;
}
 
# endif /* RETROSND_ARGS */
 
#  if !defined( RETROFLAT_API_PC_BIOS ) && !defined( RETROFLAT_NO_CLI_SZ )
 
static MERROR_RETVAL retroflat_cli_rfs(
   const char* arg, ssize_t arg_c, struct RETROFLAT_ARGS* args
) {
   if( 0 < arg_c ) {
      g_retroflat_state->scale = atoi( arg );
      debug_printf( 3, "screen scale set to: %d",
         g_retroflat_state->scale );
   }
   return MERROR_OK;
}
 
static MERROR_RETVAL retroflat_cli_rfx(
   const char* arg, ssize_t arg_c, struct RETROFLAT_ARGS* args
) {
   if( 0 > arg_c ) {
      if( 0 == args->screen_w ) {
         args->screen_x = 0;
      }
   } else if(
      0 == strncmp( MAUG_CLI_SIGIL "rfx", arg, MAUG_CLI_SIGIL_SZ + 4 )
   ) {
      /* The next arg must be the new var. */
   } else {
      args->screen_x = atoi( arg );
   }
   return MERROR_OK;
}
 
static MERROR_RETVAL retroflat_cli_rfy(
   const char* arg, ssize_t arg_c, struct RETROFLAT_ARGS* args
) {
   if( 0 > arg_c ) {
      if( 0 == args->screen_h ) {
         args->screen_y = 0;
      }
   } else if(
      0 == strncmp( MAUG_CLI_SIGIL "rfy", arg, MAUG_CLI_SIGIL_SZ + 4 )
   ) {
      /* The next arg must be the new var. */
   } else {
      args->screen_y = atoi( arg );
   }
   return MERROR_OK;
}
 
static MERROR_RETVAL retroflat_cli_rfw(
   const char* arg, ssize_t arg_c, struct RETROFLAT_ARGS* args
) {
   if( 0 > arg_c ) {
      if( 0 == args->screen_w ) {
         args->screen_w = RETROFLAT_DEFAULT_SCREEN_W;
      }
   } else if(
      0 == strncmp( MAUG_CLI_SIGIL "rfw", arg, MAUG_CLI_SIGIL_SZ + 4 )
   ) {
      /* The next arg must be the new var. */
   } else {
      args->screen_w = atoi( arg );
   }
   return MERROR_OK;
}
 
static MERROR_RETVAL retroflat_cli_rfh(
   const char* arg, ssize_t arg_c, struct RETROFLAT_ARGS* args
) {
   if( 0 > arg_c ) {
      if( 0 == args->screen_h ) {
         args->screen_h = RETROFLAT_DEFAULT_SCREEN_H;
      }
   } else if(
      0 == strncmp( MAUG_CLI_SIGIL "rfh", arg, MAUG_CLI_SIGIL_SZ + 4 )
   ) {
      /* The next arg must be the new var. */
   } else {
      args->screen_h = atoi( arg );
   }
   return MERROR_OK;
}
 
#  endif /* !RETROFLAT_API_PC_BIOS && !RETROFLAT_NO_CLI_SZ */
 
#  ifdef RETROFLAT_VDP
static MERROR_RETVAL retroflat_cli_vdp(
   const char* arg, ssize_t arg_c, struct RETROFLAT_ARGS* args
) {
   if( 0 == strncmp( MAUG_CLI_SIGIL "vdp", arg, MAUG_CLI_SIGIL_SZ + 4 ) ) {
      /* Next arg is VDP args str. */
   } else {
      maug_strncpy( g_retroflat_state->vdp_args, arg, RETROFLAT_VDP_ARGS_SZ_MAX );
      debug_printf( 1, "VDP args: %s", g_retroflat_state->vdp_args );
   }
   return MERROR_OK;
}
#  endif /* RETROFLAT_VDP */
 
static MERROR_RETVAL retroflat_cli_u(
   const char* arg, ssize_t arg_c, struct RETROFLAT_ARGS* args
) {
   if( 0 > arg_c ) {
      args->flags &= ~RETROFLAT_FLAGS_UNLOCK_FPS;
   } else if(
      0 == strncmp( MAUG_CLI_SIGIL "rfu", arg, MAUG_CLI_SIGIL_SZ + 4 )
   ) {
      debug_printf( 1, "unlocking FPS..." );
      args->flags |= RETROFLAT_FLAGS_UNLOCK_FPS;
   }
   return MERROR_OK;
}
 
#endif /* !RETROFLAT_NO_CLI */
 
/* === */
 
/* Still inside RETROFLT_C! */
 
int retroflat_init( int argc, char* argv[], struct RETROFLAT_ARGS* args ) {
 
   /* = Declare Init Vars = */
 
   int retval = 0;
 
   /* = Begin Init Procedure = */
 
#  ifdef RETROFLAT_COMMIT_HASH
   debug_printf( 1, "retroflat commit: " RETROFLAT_COMMIT_HASH  );
#  endif /* RETROFLAT_COMMIT_HASH */
 
   debug_printf( 1, "retroflat: initializing..." );
 
   /* System sanity checks. */
   assert( 2 <= sizeof( MERROR_RETVAL ) );
   assert( 4 == sizeof( uint32_t ) );
   assert( 4 == sizeof( int32_t ) );
   assert( 2 == sizeof( uint16_t ) );
   assert( 2 == sizeof( int16_t ) );
   assert( 1 == sizeof( uint8_t ) );
   assert( 1 == sizeof( int8_t ) );
   assert( NULL != args );
   assert( 1 << RETROFLAT_TILE_W_BITS == RETROFLAT_TILE_W );
   assert( 1 << RETROFLAT_TILE_H_BITS == RETROFLAT_TILE_H );
 
   debug_printf( 1, "retroflat: MFIX_PRECISION: %f", MFIX_PRECISION );
 
   debug_printf( 1, "retroflat: allocating state (" SIZE_T_FMT " bytes)...",
      sizeof( struct RETROFLAT_STATE ) );
 
   debug_printf( 1, "retroflat: size_t is (" SIZE_T_FMT " bytes)...",
      sizeof( size_t ) );
 
   debug_printf( 1, "retroflat: ssize_t is (" SIZE_T_FMT " bytes)...",
      sizeof( ssize_t ) );
 
   debug_printf( 1, "retroflat: off_t is (" SIZE_T_FMT " bytes)...",
      sizeof( off_t ) );
 
   g_retroflat_state_h = maug_malloc( 1, sizeof( struct RETROFLAT_STATE ) );
   if( (MAUG_MHANDLE)NULL == g_retroflat_state_h ) {
      retroflat_message( RETROFLAT_MSG_FLAG_ERROR,
         "Error", "Could not allocate global state!" );
      retval = MERROR_ALLOC;
      goto cleanup;
   }
 
   maug_mlock( g_retroflat_state_h, g_retroflat_state );
   if( (MAUG_MHANDLE)NULL == g_retroflat_state ) {
      retroflat_message( RETROFLAT_MSG_FLAG_ERROR,
         "Error", "Could not lock global state!" );
      retval = MERROR_ALLOC;
      goto cleanup;
   }
   maug_mzero( g_retroflat_state, sizeof( struct RETROFLAT_STATE ) );
 
   retroflat_heartbeat_set( 1000, 2 );
 
#  ifndef RETROFLAT_NO_CLI
 
   debug_printf( 1, "retroflat: parsing args..." );
 
   /* All platforms: add command-line args based on compile definitons. */
 
#     ifdef RETROSND_ARGS
   retval = maug_add_arg( MAUG_CLI_SIGIL "rsd", MAUG_CLI_SIGIL_SZ + 4,
      "Select MIDI device", 0, (maug_cli_cb)retrosnd_cli_rsd, args );
   maug_cleanup_if_not_ok();
   retval = maug_add_arg( MAUG_CLI_SIGIL "rsl", MAUG_CLI_SIGIL_SZ + 4,
      "List MIDI devices", 0, (maug_cli_cb)retrosnd_cli_rsl, args );
   maug_cleanup_if_not_ok();
#     endif /* RETROSND_ARGS */
 
#     ifdef RETROFLAT_SCREENSAVER
   retval = maug_add_arg( MAUG_CLI_SIGIL "p", MAUG_CLI_SIGIL_SZ + 2,
      "Preview screensaver", 0, (maug_cli_cb)retroflat_cli_p, args );
   maug_cleanup_if_not_ok();
   retval = maug_add_arg( MAUG_CLI_SIGIL "s", MAUG_CLI_SIGIL_SZ + 2,
      "Launch screensaver", 0, (maug_cli_cb)retroflat_cli_s, args );
   maug_cleanup_if_not_ok();
#     endif /* RETROFLAT_SCREENSAVER */
 
#     ifdef RETROFLAT_API_PC_BIOS
   retval = maug_add_arg( MAUG_CLI_SIGIL "rfm", MAUG_CLI_SIGIL_SZ + 4,
      "Set the screen mode.", 0,
      (maug_cli_cb)retroflat_cli_rfm, args );
   maug_cleanup_if_not_ok();
#     elif !defined( RETROFLAT_NO_CLI_SZ )
   /* Set default. */
   g_retroflat_state->scale = 1;
   retval = maug_add_arg( MAUG_CLI_SIGIL "rfs", MAUG_CLI_SIGIL_SZ + 4,
      "Set screen scale factor.", 0,
      (maug_cli_cb)retroflat_cli_rfs, args );
   maug_cleanup_if_not_ok();
   retval = maug_add_arg( MAUG_CLI_SIGIL "rfx", MAUG_CLI_SIGIL_SZ + 4,
      "Set the screen X position.", 0,
      (maug_cli_cb)retroflat_cli_rfx, args );
   maug_cleanup_if_not_ok();
   retval = maug_add_arg( MAUG_CLI_SIGIL "rfy", MAUG_CLI_SIGIL_SZ + 4,
      "Set the screen Y position.", 0,
      (maug_cli_cb)retroflat_cli_rfy, args );
   maug_cleanup_if_not_ok();
   retval = maug_add_arg( MAUG_CLI_SIGIL "rfw", MAUG_CLI_SIGIL_SZ + 4,
      "Set the screen width.", 0,
      (maug_cli_cb)retroflat_cli_rfw, args );
   maug_cleanup_if_not_ok();
   retval = maug_add_arg( MAUG_CLI_SIGIL "rfh", MAUG_CLI_SIGIL_SZ + 4,
      "Set the screen height.", 0,
      (maug_cli_cb)retroflat_cli_rfh, args );
   maug_cleanup_if_not_ok();
#     endif /* !RETROFLAT_NO_CLI_SZ */
 
#     ifdef RETROFLAT_VDP
   retval = maug_add_arg( MAUG_CLI_SIGIL "vdp", MAUG_CLI_SIGIL_SZ + 4,
      "Pass a string of args to the VDP.", 0,
      (maug_cli_cb)retroflat_cli_vdp, args );
   maug_cleanup_if_not_ok();
#     endif /* RETROFLAT_VDP */
 
   retval = maug_add_arg( MAUG_CLI_SIGIL "rfu", MAUG_CLI_SIGIL_SZ + 4,
      "Unlock FPS.", 0,
      (maug_cli_cb)retroflat_cli_u, args );
   maug_cleanup_if_not_ok();
 
   /* Parse command line args. */
   retval = maug_parse_args( argc, argv );
   maug_cleanup_if_not_ok();
 
#  else
 
   args->screen_w = RETROFLAT_DEFAULT_SCREEN_W;
   args->screen_h = RETROFLAT_DEFAULT_SCREEN_H;
 
#  endif /* !RETROFLAT_NO_CLI */
 
   if(
      RETROFLAT_FLAGS_UNLOCK_FPS == (RETROFLAT_FLAGS_UNLOCK_FPS & args->flags)
   ) {
      g_retroflat_state->retroflat_flags |= RETROFLAT_FLAGS_UNLOCK_FPS;
   }
 
   debug_printf( 1, "retroflat: setting config..." );
 
   /* Set the assets path. */
   memset( g_retroflat_state->assets_path, '\0', RETROFLAT_ASSETS_PATH_MAX );
   if( NULL != args->assets_path ) {
      maug_strncpy( g_retroflat_state->assets_path,
         args->assets_path, RETROFLAT_ASSETS_PATH_MAX );
   }
 
#  if defined( RETROFLAT_SCREENSAVER )
   if(
      RETROFLAT_FLAGS_SCREENSAVER ==
      (RETROFLAT_FLAGS_SCREENSAVER & args->flags)
   ) {
      g_retroflat_state->retroflat_flags |= RETROFLAT_FLAGS_SCREENSAVER;
   }
#  endif /* RETROFLAT_SCREENSAVER */
 
#  if !defined( RETROFLAT_NO_CLI_SZ )
   /* Setup intended screen size. */
   g_retroflat_state->screen_v_w = args->screen_w;
   g_retroflat_state->screen_v_h = args->screen_h;
   g_retroflat_state->screen_w = args->screen_w;
   g_retroflat_state->screen_h = args->screen_h;
#  endif /* RETROFLAT_NO_CLI_SZ */
 
   /* == Platform-Specific Init == */
 
   retval = retroflat_init_platform( argc, argv, args );
   maug_cleanup_if_not_ok();
 
   debug_printf( 3, "screen initialized with: " SIZE_T_FMT "x" SIZE_T_FMT
      " pixels with " SIZE_T_FMT " colors",
      retroflat_screen_w(), retroflat_screen_h(), retroflat_screen_colors() );
 
   /* Setup the refresh grid, if requested, only after screen space has been
    * determined by the platform!
    */
   assert( 0 < retroflat_screen_w() );
   assert( 0 < retroflat_screen_h() );
   assert( 0 < retroflat_screen_colors() );
 
   /* This is intended as a default and can be modified by calling this macro
    * again later.
    */
   retroflat_viewport_set_pos_size(
      0, 0, retroflat_screen_w(), retroflat_screen_h() );
 
#ifndef RETROFLAT_NO_VIEWPORT_REFRESH
   debug_printf( 1, "allocating refresh grid (%d tiles...)",
      g_retroflat_state->viewport.screen_tile_w *
      g_retroflat_state->viewport.screen_tile_h );
   g_retroflat_state->viewport.refresh_grid_h = maug_malloc(
      (g_retroflat_state->viewport.screen_tile_w + 2) *
      (g_retroflat_state->viewport.screen_tile_h + 2),
      sizeof( retroflat_tile_t ) );
   maug_cleanup_if_null_alloc( MAUG_MHANDLE,
      g_retroflat_state->viewport.refresh_grid_h );
#endif /* !RETROFLAT_NO_VIEWPORT_REFRESH */
 
#  ifdef RETROFLAT_VDP
#     if defined( RETROFLAT_OS_UNIX )
   g_retroflat_state->vdp_exe = dlopen(
      "./" RETROFLAT_VDP_LIB_NAME ".so", RTLD_LAZY );
#     elif defined( RETROFLAT_OS_WIN )
   g_retroflat_state->vdp_exe = LoadLibrary(
      "./" RETROFLAT_VDP_LIB_NAME ".dll" );
#     else
#        error "dlopen undefined!"
#     endif /* RETROFLAT_OS_UNIX */
 
   if( !(g_retroflat_state->vdp_exe) ) {
      error_printf( "not loading VDP" );
      /* Skip creating the buffer or trying to run the init proc. */
      goto skip_vdp;
   }
 
   /* Create intermediary screen buffer. */
   debug_printf( 1, "creating VDP buffer, " SIZE_T_FMT " x " SIZE_T_FMT,
      g_retroflat_state->screen_v_w, g_retroflat_state->screen_v_h );
   g_retroflat_state->vdp_buffer =
      calloc( 1, sizeof( struct RETROFLAT_BITMAP ) );
   maug_cleanup_if_null_alloc(
      struct RETROFLAT_BITMAP*, g_retroflat_state->vdp_buffer );
   retval = retroflat_create_bitmap(
      g_retroflat_state->screen_v_w, g_retroflat_state->screen_v_h,
      g_retroflat_state->vdp_buffer, RETROFLAT_FLAGS_OPAQUE );
   maug_cleanup_if_not_ok();
 
   debug_printf( 1, "initializing VDP..." );
   retval = retroflat_vdp_call( "retroflat_vdp_init" );
 
skip_vdp:
 
#  endif /* RETROFLAT_VDP */
 
#  ifdef RETROFLAT_3D
   retro3d_platform_init();
#  endif /* RETROFLAT_3D */
 
#  if !defined( RETROFLAT_NO_BLANK_INIT ) && !defined( RETROFLAT_3D )
   retroflat_draw_lock( NULL );
   retroflat_rect(
      NULL, RETROFLAT_COLOR_BLACK, 0, 0,
      retroflat_screen_w(), retroflat_screen_h(),
      RETROFLAT_FLAGS_FILL );
   retroflat_draw_release( NULL );
#  endif /* !RETROFLAT_NO_BLANK_INIT */
 
cleanup:
 
   return retval;
}
 
/* === */
 
void retroflat_shutdown( int retval ) {
 
   debug_printf( 1, "retroflat shutdown called..." );
 
#ifndef RETROFLAT_NO_VIEWPORT_REFRESH
   if( (MAUG_MHANDLE)NULL != g_retroflat_state->viewport.refresh_grid_h ) {
      maug_mfree( g_retroflat_state->viewport.refresh_grid_h );
   }
#endif /* !RETROFLAT_NO_VIEWPORT_REFRESH */
 
#  if defined( RETROFLAT_VDP )
   if( NULL != g_retroflat_state->vdp_exe ) {
      retroflat_vdp_call( "retroflat_vdp_shutdown" );
#     ifdef RETROFLAT_OS_UNIX
      dlclose( g_retroflat_state->vdp_exe );
#     elif defined( RETROFLAT_OS_WIN )
      FreeLibrary( g_retroflat_state->vdp_exe );
#     else
#        error "dlclose undefined!"
#     endif /* RETROFLAT_OS_UNIX || RETROFLAT_OS_WIN */
   }
 
   if( NULL != g_retroflat_state->vdp_buffer ) {
      debug_printf( 1, "destroying VPD buffer..." );
      retroflat_destroy_bitmap( g_retroflat_state->vdp_buffer );
      free( g_retroflat_state->vdp_buffer );
   }
#  endif /* RETROFLAT_VDP */
 
   /* === Platform-Specific Shutdown === */
 
#ifdef RETROFLAT_3D
   retro3d_platform_shutdown();
#endif /* RETROFLAT_3D */
 
   retroflat_shutdown_platform( retval );
 
   maug_munlock( g_retroflat_state_h, g_retroflat_state );
   maug_mfree( g_retroflat_state );
 
}
 
/* === */
 
#  ifdef RETROFLAT_VDP
 
MERROR_RETVAL retroflat_vdp_call( const char* proc_name ) {
   MERROR_RETVAL retval = MERROR_OK;
   retroflat_vdp_proc_t vdp_proc = (retroflat_vdp_proc_t)NULL;
#     ifdef RETROFLAT_OS_WIN
   char proc_name_ex[256];
#     endif /* RETROFLAT_OS_WIN */
 
   if( NULL == g_retroflat_state->vdp_exe ) {
      goto cleanup;
   }
 
#     ifdef RETROFLAT_OS_UNIX
   vdp_proc = dlsym( g_retroflat_state->vdp_exe, proc_name );
#     elif defined( RETROFLAT_OS_WIN )
   /* Append a _ to the proc_name because Watcom? Windows? */
   maug_snprintf( proc_name_ex, 255, "%s_", proc_name );
   vdp_proc = (retroflat_vdp_proc_t)GetProcAddress(
      g_retroflat_state->vdp_exe, proc_name_ex );
#     else
#        error "dlsym undefined!"
#     endif
   if( (retroflat_vdp_proc_t)NULL == vdp_proc ) {
      goto cleanup;
   }
 
#     ifdef RETROFLAT_OS_WIN
   retroflat_draw_lock( g_retroflat_state->vdp_buffer );
#     endif /* RETROFLAT_OS_WIN */
 
   if(
      /* Don't pxlock before init can set the flag! */
      0 == strcmp( "retroflat_vdp_flip", proc_name ) &&
      RETROFLAT_VDP_FLAG_PXLOCK ==
         (RETROFLAT_VDP_FLAG_PXLOCK & g_retroflat_state->vdp_flags)
   ) {
      retroflat_vdp_lock( &(g_retroflat_state->buffer) );
      retroflat_vdp_lock( g_retroflat_state->vdp_buffer );
   }
 
   retval = vdp_proc( g_retroflat_state );
 
   if(
      0 == strcmp( "retroflat_vdp_flip", proc_name ) &&
      RETROFLAT_VDP_FLAG_PXLOCK ==
         (RETROFLAT_VDP_FLAG_PXLOCK & g_retroflat_state->vdp_flags)
   ) {
      retroflat_vdp_release( &(g_retroflat_state->buffer) );
      retroflat_vdp_release( g_retroflat_state->vdp_buffer );
   }
 
#     ifdef RETROFLAT_OS_WIN
   retroflat_draw_release( g_retroflat_state->vdp_buffer );
#     endif /* RETROFLAT_OS_WIN */
 
cleanup:
   return retval;
}
 
#  endif /* RETROFLAT_VDP */
 
/* === */
 
#if 0
 
void retroflat_cursor( struct RETROFLAT_BITMAP* target, uint8_t flags ) {
#if 0
   char mouse_str[11] = "";
 
   maug_snprintf(
      mouse_str, 10, "%02d, %02d", g_retroflat_state->last_mouse_x, g_retroflat_state->last_mouse_y );
 
   retroflat_string(
      target, RETROFLAT_COLOR_BLACK,
      mouse_str, 10, NULL, 0, 0, 0 );
   retroflat_rect(
      target, RETROFLAT_COLOR_BLACK,
      g_retroflat_state->last_mouse_x - 5, g_retroflat_state->last_mouse_y - 5, 10, 10, 0 );
#endif
}
 
#endif
 
/* === */
 
void retroflat_set_proc_resize(
   retroflat_proc_resize_t on_resize_in, void* data_in
) {
   g_retroflat_state->on_resize = on_resize_in;
   g_retroflat_state->on_resize_data = data_in;
}
 
/* === */
 
uint8_t retroflat_viewport_move_x_generic( int16_t x ) {
   int16_t new_world_x = g_retroflat_state->viewport.world_x + x;
 
   /* Keep the viewport in the world arena. */
   if(
      0 <= new_world_x &&
      g_retroflat_state->viewport.world_w >= new_world_x +
         g_retroflat_state->viewport.screen_w
   ) {
      g_retroflat_state->viewport.world_x += x;
      g_retroflat_state->viewport.world_tile_x += x >> RETROFLAT_TILE_W_BITS;
      return 1;
   }
 
   return 0;
}
 
/* === */
 
uint8_t retroflat_viewport_move_y_generic( int16_t y ) {
   int16_t new_world_y = g_retroflat_state->viewport.world_y + y;
 
   /* Keep the viewport in the world arena. */
   if(
      0 <= new_world_y &&
      g_retroflat_state->viewport.world_h >= new_world_y +
         g_retroflat_state->viewport.screen_h
   ) {
      g_retroflat_state->viewport.world_y += y;
      g_retroflat_state->viewport.world_tile_y += y >> RETROFLAT_TILE_H_BITS;
      return 1;
   }
 
   return 0;
}
 
/* === */
 
uint8_t retroflat_viewport_focus_generic(
   size_t x1, size_t y1, size_t range, size_t speed
) {
   uint8_t moved = 0,
      new_moved = 0;
   int16_t new_pt = 0;
 
#  define _retroflat_viewport_focus_dir( n, xy, wh, gl, pm, dir, range, speed ) \
      new_pt = n - retroflat_viewport_world_ ## xy(); \
      if( new_pt gl (retroflat_screen_ ## wh() >> 1) pm range ) { \
         new_moved = retroflat_viewport_move_ ## xy( \
            gc_retroflat_offsets8_ ## xy[RETROFLAT_DIR8_ ## dir] * speed ); \
         if( !moved && new_moved ) { \
            moved = new_moved; \
         } \
      }
 
   _retroflat_viewport_focus_dir( x1, x, w, <, -, WEST, range, speed );
   _retroflat_viewport_focus_dir( x1, x, w, >, +, EAST, range, speed );
   _retroflat_viewport_focus_dir( y1, y, h, <, -, NORTH, range, speed );
   _retroflat_viewport_focus_dir( y1, y, h, >, +, SOUTH, range, speed );
 
   return moved;
}
 
/* === */
 
#elif !defined( RETROVDP_C ) /* End of RETROFLT_C */

 
extern MAUG_CONST int16_t SEG_MCONST gc_retroflat_offsets8_x[8];
extern MAUG_CONST int16_t SEG_MCONST gc_retroflat_offsets8_y[8];
extern MAUG_CONST int16_t SEG_MCONST gc_retroflat_offsets4_x[4];
extern MAUG_CONST int16_t SEG_MCONST gc_retroflat_offsets4_y[4];

 
#define RETROFLAT_COLOR_TABLE_CONSTS( idx, name_l, name_u, r, g, b, cgac, cgad ) \
   extern MAUG_CONST RETROFLAT_COLOR RETROFLAT_COLOR_ ## name_u;
 
RETROFLAT_COLOR_TABLE( RETROFLAT_COLOR_TABLE_CONSTS )
 
extern MAUG_CONST char* SEG_MCONST gc_retroflat_color_names[];
 
   extern struct RETROFLAT_STATE* g_retroflat_state;
#     if defined( RETROFLAT_API_WIN16 ) || defined( RETROFLAT_API_WIN32 )
   extern HINSTANCE            g_retroflat_instance;
   extern int                  g_retroflat_cmd_show;
#     endif /* RETROFLAT_API_WIN16 || RETROFLAT_API_WIN32 */
 
#  if (defined( RETROFLAT_SOFT_SHAPES ) || defined( RETROFLAT_SOFT_LINES ) || \
   defined( RETROFLAT_3D ))
#     define RETROSOFT_PRESENT
#  endif
 
#  ifdef RETROFLAT_3D
#     include <retro3dp.h>
#     include <retro3d.h>
#     include <retro3du.h>
#  endif /* RETROFLAT_3D */
 
#  ifdef RETROSOFT_PRESENT
#     include <retrosft.h>
#  endif /* RETROFLAT_SOFT_SHAPES */

extern retroflat_px_cb g_retroflat_px;
 
#endif /* RETROFLT_C */
 
#ifdef RETROFLAT_XPM
#include <retroxpm.h>
#endif /* RETROFLAT_XPM */
 
#ifdef RETROVDP_C
 
/* Declarations for VDP sources. */
 
#endif /* RETROVDP_C */
 /* maug_retroflt */
 
#endif /* RETROFLT_H */