OpenEuphoria

• Posted by Ralf Nieuwenhuijsen <nieuwen at XS4ALL.NL> Mar 25, 1998
• 1779 views

|I am a Euphoria newbie....I want to save bitmaps in Euphoria format (.bm?).
|Can someone let me know how to do that? Is there source code out there to
|do that? I'm still alittle confused....I've used the 2.0 tutorial by David
|Gay but I'm still fuzzy...Thanks for any help!


Look the function "read_bitmap" up in library.doc

Hope this helps.

Ralf N.

Example usage:

-- Example use of bitmap routines
object temp

temp = graphics_mode (19)  -- We're now into MCGA 320*200 256c
if temp = -1 then
    puts(1, "You need a videocard!\n")
    abort(1)
end if

-- Notice the double slash.. means just one slash
-- but the slash is an escape character when quoted
temp = read_bitmap ("c://windows//arcade.bmp")
if atom(temp) then
    -- The atom value returned is the error number
    puts (1,"Some error occured!!")
    abort(1)
end if

-- Setting pallete, with a 0 - 63 scale
-- Instead of a 0 - 255 scale, so divide by 4
all_pallette (temp[1]/4)

-- The second element of temp contains the picture data
-- We'll display it at the top of the screen (0,0)
display_image ({0,0}, temp[2])

-- End of example program