OpenEuphoria

I give up, help? :)

• Posted by Joe Tierney <naflign at MEDIAONE.NET> Mar 01, 1999
• 425 views

Anyone care to lend a hand to an idiot in need? ;) Well, as you'll soon be
finding out, I'm very new to euphoria. I recently downloaded the neil
graphics files, and while the demos run fine on my computer, after days of
trying, I can't seem to make it work on my own.
  Again I apologize for taking up space with what I assume will turn out to
be a simple problem, but for some reason I just can't seem to get this
right. Here's what I've tried(running as .ex) using the d2105a.bmp included
with the Dos tutorial by David Gay. The bmp is 189x189 16 color, though I've
failed with all levels of color :) Here's what I clumsily put
together.....can anyone tell me what I'm doing wrong, or show me how to only
load/display an image using neil.e? Oh, and I'm using the 2.1 alpha of
euphoria.

include neil.e
include keyread.e
include get.e

    if gfx_mode(640,480,16) then
        puts(1, "error: unsupported graphics mode\n")   -- error message
        abort(1)                                        -- quit
    end if

    object my_bitmap
    my_bitmap = load_bitmap("d2105a.bmp")
    if atom(my_bitmap) then
        puts(1, "error: loading bitmap\n")
        abort(1)
    end if


    atom my_screen
    my_screen = virtual_screen(640,480)

    do_command(screen_blit, my_bitmap, {screen,0,0})
     while get_key() != 'q' do
     end while


restore_mode()

Again, sorry to be a bother so soon after joining the list.