OpenEuphoria

EuAllegro Display Issues

• Posted by David Stanger <dstanger at belco.bc.ca> Dec 19, 2006
• 727 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.