векторизация, bmp-формат [Delphi, Windows]
nichtferstein © (2002-11-19 22:21:00)
подскажите,плз. нужно считать файл в формате бмп так, чтобы
получить координаты фигур на рисунке,т.е. по сути задача сводится к
векторизации растрового изображения. там всего 2 цвета(белый и
черный). но пока считать и правильно интерпретировать полученные
данные не получилось. я не могу понять, каким образом его нужно
считать, чтобы получить информацию о каждой точке. вероятно нужно
получить данные в бинарном виде, чтобы идентифицировать каждую
точку и её цвет, но к сожалению ничего не получатся....может кто-то
уже из вас сталкивался с этим ?
boy (2002-11-20 06:43:00) [1]
Есть вот такой вариант считование вмр.Это самый маленький.
procedure Tform1.BmpTexture;
var
i, j: Integer;
begin
bitmap := TBitmap.Create;
bitmap.LoadFromFile("A_1 copy.bmp");
For i := 0 to 63 do
For j := 0 to 63 do begin
bits [i, j, 0] := GetRValue(bitmap.Canvas.Pixels[i,j]);
bits [i, j, 1] := GetGValue(bitmap.Canvas.Pixels[i,j]);
bits [i, j, 2] := GetBValue(bitmap.Canvas.Pixels[i,j]);
end;
glBindTexture(GL_TEXTURE_2D,BmpTex[0]);
glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER,
GL_NEAREST);
glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER,
GL_NEAREST);
glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA,
64, 64,-Это размеры картинки в точках
0, GL_RGB, GL_UNSIGNED_BYTE, @Bits);
glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_DECAL);
end;
Наверх 
ЧАТ |
Орешник |
|
