var f : int
open : f,"heythere.sdfkjsfk", get, mod, seek, put
put : f , "omgdoesthiswork?"
close : f

% Simple bitmap reader

% I skip a lot of information that's probably important.
% If you really want to implement this correctly, read over the
% bitmap specification: http://en.wikipedia.org/wiki/BMP_file_format

var stream : int

% temporary values for reading
var c : char      % this will read one byte
var intVal : int  % this will read 4 bytes

var width : int
var height : int

var offset : int


open : stream, "img.bmp", read

put "Header information:"
% the first 14 bytes are bmp file information

% make sure the file is bmp by checking first two bytes
% should be 0x42 0x4D in hex or 66 77 in decimal
read: stream, c
if ord(c) ~= 66 then
    quit
end if
put ord(c), " "..

read: stream, c
if ord(c) ~= 77 then
    quit
end if
put ord(c), " "..

for i : 1 .. 8
    read : stream, c
    put ord (c), " " ..
end for

% the last 4 of this section is an offset to
% where the pixel values are
read : stream, offset
put offset, " " ..

% DIB header size
read : stream, intVal

% width/height
read : stream, width
read : stream, height

% now skip ahead to the pixels
for i : 1 .. offset - 26 % (14 byte header
                         %  + 4 byte DIB header size
                         %  + 8 bytes for width/height)
    read : stream, c
    put ord (c), " " ..
end for

% draw the pixels
for y : 0 .. height - 1
    for x : 0 .. width - 1
        var r, g, b : int
        read : stream, c
        b := ord (c)
        read : stream, c
        g := ord (c)
        read : stream, c
        r := ord (c)
        drawdot (x, y, RGB.AddColor (r / 255, g / 255, b / 255))
    end for
   
    % each row is padded so that it is a multiple of four bytes
    % we need to remove that padding to get to the next row
    for x : 1 .. (4 - ((width * 3) mod 4))
        read : stream, c
    end for
end for
close : stream