-- (c) Copyright - See License.txt

--

namespace image

public include std/graphcst.e

include std/convert.e

include std/machine.e

--****

-- == Graphics - Image Routines

--

-- <>

--

integer fn, error_code

end type

-- read 2 bytes

integer lower, upper

end if

end function

-- read 4 bytes

integer lower, upper

end function

-- read num_bytes bytes

sequence s

end if

end function

-- get red, green, blue palette values

integer red, green, blue

end if

end if

end function

-- reads palette

sequence s

end if

end function

-- number of bytes per row of pixel data

end function

-- unpack the 1-d byte sequence into a 2-d sequence of pixels

sequence pic_2d, row, bits

integer bytes, next_byte, byte

else

end if

end function

--****

-- === Bitmap handling

--

--**

-- Read a bitmap (.BMP) file into a 2-d sequence of sequences (image)

--

-- Parameters:

-- # ##file_name## : a sequence, the path to a .bmp file to read from. The extension is not assumed if missing.

--

-- Returns:

-- An **object**, on success, a sequence of the form ##{palette,image}##. On failure, an error code is returned.

--

-- Comments:

-- In the returned value, the first element is a list of mixtures, each of which defines

-- a color, and the second, a list of point rows. Each pixel in a row is represented by its color index.

--

-- The file should be in the bitmap format. The most common variations of the format are supported.

--

-- Bitmaps of 2, 4, 16 or 256 colors are supported. If the file is not in a good format, an error

-- code (atom) is returned instead

--

--

-- public constant

-- BMP_OPEN_FAILED = 1,

-- BMP_UNEXPECTED_EOF = 2,

-- BMP_UNSUPPORTED_FORMAT = 3

--

--

-- You can create your own bitmap picture files using Windows Paintbrush and many other

-- graphics programs. You can then incorporate these pictures into your Euphoria programs.

--

-- Example 1:

--

--

-- x = read_bitmap("c:\\windows\\arcade.bmp")

--

--

-- Note:

-- double backslash needed to get single backslash in a string

--

-- See Also:

-- [[:save_bitmap]]

atom Size

integer Type, X_hot, Y_hot, Planes, BitCount

atom Width, Height, Compression, OffBits, SizeHeader,

SizeImage, XPelsPerMeter, YPelsPerMeter, ClrUsed,

ClrImportant, NumColors

sequence Palette, Bits, two_d_bits

end if

end if

end if

else

end if

end if

end if

end function

-- type graphics_point(sequence p)

-- return length(p) = 2 and p[1] >= 0 and p[2] >= 0

-- end type

--

and p[1] <= 200 and p[2] <= 500 -- rough sanity check

end type

end type

integer numXPixels, numYPixels, bitCount, numRowBytes

-- a region on the screen

else

graphics_point(r[2])

end if

end type

-- a two element sequence, both elements are sequences

end type

integer offBytes

-- calculate bitCount, ie, color bits per pixel, (1, 2, 4, 8, or error)

else

end if

-- put total size of the file

-- of the bitmap information

-- write out one row of image data

integer j, byte, numBytesFilled

-- Write color table information to the .BMP file.

-- palette data is given as a sequence {{r,g,b},..,{r,g,b}}, where each

-- r, g, or b value is 0 to 255.

-- Write image data packed according to the bitCount information, in the order

-- last row ... first row. Data for each row is padded to a 4-byte boundary.

-- Image data is given as a 2-d sequence in the order first row... last row.

object x

integer numPixelsPerByte, shift

end if

--**

-- Create a .BMP bitmap file, given a palette and a 2-d sequence of sequences of colors.

--

-- Parameters:

-- # ##palette_n_image## : a {palette, image} pair, like [[:read_bitmap()]] returns

-- # ##file_name## : a sequence, the name of the file to save to.

--

-- Returns:

-- An **integer**, 0 on success.

--

-- Comments:

-- This routine does the opposite of [[:read_bitmap]]().

-- The first element of ##palette_n_image## is a sequence of [[:mixture]]s defining each

-- color in the bitmap. The second element is a sequence of sequences of colors. The inner

-- sequences must have the same length.

--

-- The result will be one of the following codes:

--

-- public constant

-- BMP_SUCCESS = 0,

-- BMP_OPEN_FAILED = 1,

-- BMP_INVALID_MODE = 4 -- invalid graphics mode

-- -- or invalid argument

--

--

--

-- ##save_bitmap##() produces bitmaps of 2, 4, 16, or 256 colors and these can all be read with

-- ##read_bitmap##(). Windows Paintbrush and some other tools do not support 4-color bitmaps.

--

-- Example 1:

--

-- code = save_bitmap({paletteData, imageData},

-- "c:\\example\\a1.bmp")

--

--

-- See Also:

-- [[:read_bitmap]]

sequence color, image

integer numColors

end if

end if

end function