EuAllegro Display Issues
- Posted by David Stanger <dstanger at belco.bc.ca> Dec 19, 2006
- 570 views
Hello all, I'm using EuAllegro to write a game and have run into some strange issues with parts of what I am displaying on the screen disappearing either in chunks or entirety. I cannot figure out why this is happening as my code seems pretty simple. Maybe someone can see where I am going wrong. This is what I have so far: ***Code Starts*** include euallegro.ew include file.e integer ret ret = allegro_init() ret = install_keyboard() ret = install_mouse() ret = install_timer() ret = set_gfx_mode(GFX_AUTODETECT, 640,480, 0, 0) ---------------------------------------------------------- -----------------------VARIBLES--------------------------- ---------------------------------------------------------- -- Create screen buffer atom screen_buffer screen_buffer = create_bitmap(SCREEN_W(), SCREEN_H()) clear(screen_buffer) atom palette palette = allocate_palette() -- Load graphics atom map, border, parchment map = load_bitmap(current_dir() & "\\map.bmp", palette) border = load_bitmap(current_dir() & "\\border.bmp", palette) parchment = load_bitmap(current_dir() & "\\parchment.bmp", palette) set_palette(palette) ---------------------------------------------------------- -----------------------ROUTINES--------------------------- ---------------------------------------------------------- procedure draw_screen() -- Draw all to screen buffer blit(map, screen_buffer, 0,0, 340,0, bitmap_w(map), bitmap_h(map)) blit(parchment, screen_buffer, 0,0, 0,0, bitmap_w(parchment), bitmap_h(parchment)) masked_blit(border, screen_buffer, 0,0, 0,0, bitmap_w(border), bitmap_h(border)) -- Draw buffer to screen blit(screen_buffer, SCREEN(), 0,0, 0,0, bitmap_w(screen_buffer), bitmap_h(screen_buffer)) end procedure show_mouse(SCREEN()) -- Main Program while 1 do draw_screen() -- Capture keyboard input -- Press escape to exit program if key(KEY_ESC) then exit end if end while -- Shut down game destroy_bitmap(screen_buffer) destroy_palette(palette) destroy_bitmap(map) destroy_bitmap(border) destroy_bitmap(parchment) allegro_exit() ***CODE ENDS*** Any insights? David S.