/* makeacol_depth:
* Converts R, G, B, and A values (ranging 0-255) to whatever pixel format
* is required by the specified color depth.
*/
int makeacol_depth(int color_depth, int r, int g, int b, int a)
{
switch (color_depth) {
case 8:
return makecol8(r, g, b);
case 15:
return makecol15(r, g, b);
case 16:
return makecol16(r, g, b);
case 24:
return makecol24(r, g, b);
case 32:
return makeacol32(r, g, b, a);
}
return 0;
}
void copy_glyph(glyph_struct *glyph, BITMAP *bmp, unsigned char *buffer)
{
int i;
int width;
int w_count=0;
int h_count=0;
if (glyph->width > 12)
{
printf("Warning: Character %c will have width clipped\n", glyph->code);
width = 12;
}
else
width = glyph->width;
if (glyph->height > 12)
{
int j;
int black=makecol8(0, 0, 0);
for (j = 12; j < glyph->height; j++)
{
for (i = 0; i < glyph->width; i++)
{
if (getpixel(bmp, glyph->x+i, glyph->y+j) != black)
{
printf("Warning: Character %c will have height clipped\n", glyph->code);
break;
}
}
}
}
// Write width to vwf table
if (width == 0 && glyph->code == ' ')
{
buffer[glyph->code] = glyph->avg_width;
if (round_up_width && buffer[glyph->code] % 2 == 1)
buffer[glyph->code]++;
return;
}
else
buffer[glyph->code] = glyph->width;
if (round_up_width && buffer[glyph->code] % 2 == 1)
buffer[glyph->code]++;
buffer += (glyph->code * (12 * 12 / 8));
for (;;)
{
unsigned char data=0;
for (i = 0; i < 8; i++)
{
int pixel;
int black=makecol8(0, 0, 0);
int white=makecol8(255, 255, 255);
if (w_count < width)
pixel = getpixel(bmp, glyph->x+w_count, glyph->y+h_count);
else
pixel = 0;
data <<= 1;
data |= pixel > 1;
w_count++;
if (w_count == 12)
{
w_count = 0;
h_count++;
}
}
// Write data
buffer[0] = data;
buffer++;
if (h_count == 12)
break;
}
}
int convert_color_to_allegro<GrayscaleTraits, 8>(color_t c, const Palette* palette) {
return makecol8(graya_getv(c), graya_getv(c), graya_getv(c));
}
int convert_color_to_allegro<RgbTraits, 8>(color_t c, const Palette* palette) {
return makecol8(rgba_getr(c), rgba_getg(c), rgba_getb(c));
}
int main(int argc, char *argv[])
{
DATAFILE *datf;
BITMAP *scrFlip;
BITMAP *scrMap;
PALETTE pal;
WINDOW *winInfo;
long frames = 0L;
float start_time, end_time;
MAP *map, *overlay;
int x = 0, y = 0;
int old_x = -1, old_y = -1;
int dx = 1, dy = 1;
int view_w, view_h;
int do_idle = 1;
char s[128];
// Default screen resolution to 320x200.
screen_width = 320;
screen_height = 200;
// Read command line args. Set screen size accordingly.
if (argc > 2)
{
screen_width = atoi(argv[1]);
screen_height = atoi(argv[2]);
}
right_size = 0;
bottom_size = 0;
printf("screen: %dX%d\n", screen_width, screen_height);
// Initialize Allegro. Great library!
allegro_init();
install_timer();
install_keyboard();
// Set graphics mode.
if (set_gfx_mode(GFX_AUTODETECT, screen_width, screen_height, 0, 0) == -1)
{
printf("Cannot set video mode to %d, %d.\n", screen_width, screen_height);
return 1;
}
// load comic font from ex4.
datf = load_datafile_object("ex.dat", "comic12");
if (datf == NULL)
{
allegro_exit();
printf("Error loading ex.dat\n");
return 1;
}
text_mode(-1);
// load map
//printf("loading map\n");
map = load_map("tile1.wmp", "tile1.spr", pal);
if (map == NULL)
{
allegro_exit();
printf("Error loading map file.\n");
return 1;
}
// load overlay
//printf("loading overlay\n");
overlay = load_map("tile1ovr.wmp", NULL, NULL);
if (overlay == NULL)
{
allegro_exit();
printf("Error loading overlay file.\n");
return 1;
}
map_settileset(overlay, map->tileset);
// Allocate buffers for our rendering.
//printf("allocating buffers\n");
scrFlip = create_bitmap(SCREEN_W, SCREEN_H);
clear(scrFlip);
scrMap = create_bitmap(SCREEN_W + map->t_width*2, SCREEN_H + map->t_height*2);
// set palette
//printf("setting palette\n");
gui_setpalette(pal);
// Build rgb_table.
text_mode(makecol8(0, 0, 0));
textout_centre(screen, font, "Building RGB table.", SCREEN_W>>1, 10, 100);
create_rgb_table(&rgb_table, pal, rgb_table_callback);
rgb_map = &rgb_table;
// Build lighting table.
text_mode(makecol8(0, 0, 0));
textout_centre(screen, font, "Building lighting table.", SCREEN_W>>1, 10, 100);
create_light_table(&light_table, pal, 64, 64, 64, rgb_table_callback);
// Build translucency table.
text_mode(makecol8(0, 0, 0));
textout_centre(screen, font, "Building translucency table.", SCREEN_W>>1, 10, 100);
create_trans_table(&trans_table, pal, 128, 128, 128, rgb_table_callback);
color_map = &trans_table;
// initialize gui
gui_initialize(&light_table, &trans_table);
// set map and overlay color tables
map_settables(map, &trans_table, &light_table);
map_settables(overlay, &trans_table, &light_table);
// create info window
winInfo = gui_create_window(128, 200, WB_THICK, WD_TRANSLUCENT);
gui_move_window(winInfo, SCREEN_W-winInfo->window.w, 0);
// set up vars.
view_w = scrMap->w/map->t_width;
view_h = scrMap->h/map->t_height;
// setup time_to_blit interrupt.
LOCK_VARIABLE(time_to_blit);
LOCK_FUNCTION(time_to_blit_timer);
install_int_ex(time_to_blit_timer, BPS_TO_TIMER(30));
missed_frames = 0;
// main loop.
start_time = clock();
while (1)
{
idle_time = 0;
if (do_idle)
while (!time_to_blit) idle_proc(); // lock it in at around 30 fps.
time_to_blit = 0;
if (idle_time < lowest_idle)
lowest_idle = idle_time;
if (idle_time > highest_idle)
highest_idle = idle_time;
// render map
if (map_getx_tile(map, x) != old_x || map_gety_tile(map, y) != old_y)
{
render_map(map, scrMap, 0, 0, x, y, view_w, view_h);
render_map(overlay, scrMap, 0, 0, x, y, view_w, view_h);
old_x = map_getx_tile(map, x);
old_y = map_gety_tile(map, y);
}
blit(scrMap, scrFlip, map_getx_offset(map, x), map_gety_offset(map, y), 0, 0, SCREEN_W-right_size, SCREEN_H-bottom_size);
gui_clear_window(winInfo, makecol8(0, 0, 0));
gui_textout_centre_window(winInfo, "Map Demo", 2, makecol8(255, 0, 0), -1);
sprintf(s, "X: %d, Y: %d", x, y);
gui_textout_centre_window(winInfo, s, 14, makecol8(0, 0, 255), -1);
sprintf(s, "DX: %d, DY: %d", dx, dy);
gui_textout_centre_window(winInfo, s, 24, makecol8(0, 0, 255), -1);
sprintf(s, "X Ofs: %d", map_getx_offset(map, x));
gui_textout_centre_window(winInfo, s, 34, makecol8(0, 0, 255), -1);
sprintf(s, "Y Ofs: %d", map_gety_offset(map, y));
gui_textout_centre_window(winInfo, s, 44, makecol8(0, 0, 255), -1);
sprintf(s, "Idle: %d", idle_time);
gui_textout_centre_window(winInfo, s, 64, makecol8(0, 255, 255), -1);
sprintf(s, "Missed: %d", missed_frames);
gui_textout_centre_window(winInfo, s, 74, makecol8(0, 255, 255), -1);
gui_draw_window(winInfo, scrFlip);
// blit it
//vsync();
blit(scrFlip, screen, 0, 0, 0, 0, SCREEN_W, SCREEN_H);
// check keys
if (key[KEY_SPACE])
{
break;
}
if (key[KEY_LSHIFT])
do_idle = 0;
else
do_idle = 1;
if (key[KEY_CONTROL])
gui_set_window_styles(winInfo, -1, WD_BLIT);
else
gui_set_window_styles(winInfo, -1, WD_TRANSLUCENT);
if (key[KEY_PGDN])
{
dx--;
if (dx < 1)
dx = 1;
dy--;
if (dy < 1)
dy = 1;
}
if (key[KEY_PGUP])
{
dx++;
dy++;
}
if (key[KEY_RIGHT])
{
x+=dx;
if (x > (map->w_width-1) - SCREEN_W)
{
x-=dx;
}
}
if (key[KEY_DOWN])
{
y+=dy;
if (y > (map->w_height-1) - SCREEN_H)
{
y-=dy;
}
}
if (key[KEY_LEFT])
{
x-=dx;
if (x < 0)
{
x = 0;
}
}
if (key[KEY_UP])
{
y-=dy;
if (y < 0)
{
y = 0;
}
}
// Increment frame counter.
frames++;
}
end_time = clock();
// Clean up.
unload_datafile_object(datf);
destroy_map(map);
overlay->tileset=NULL;
destroy_map(overlay);
destroy_bitmap(scrFlip);
destroy_bitmap(scrMap);
// Close down allegro.
allegro_exit();
// Report.
printf("Tile Map, Copyright 1997 by Scott Deming.\n");
printf("\nHow'd we do?\n");
printf("===============================================================================\n");
printf(" Time: %3.2f\n", (float) ((end_time-start_time) / 100));
printf("Frames: %lu\n", frames);
printf(" FPS: %3.2f\n", (float) (float) frames / (float) ((end_time-start_time) / 100));
printf("Missed: %d\n", missed_frames);
printf(" Idle: %d (lowest was %d, highest %d)\n", idle_time, lowest_idle, highest_idle);
printf("Screen: %dX%d\n", screen_width, screen_height);
printf("-------------------------------------------------------------------------------\n");
printf("Note: If \"Idle\" starts to get close to zero then things should be done to\n");
printf(" speed things up. When idle proc hits zero, we'll start missing frames\n");
printf(" (indicated by \"Missed\") and things can start to get a bit jerky.\n");
printf(" If \"Missed\" is greater than 0, start optimizing.\n");
printf(" If you turned off the 30 fps timer halt then your lowest idle will be 0.\n");
return 0;
}
