VPF::работа с матрицей цвета - Форум программистов

Альберт

Дата 28.12.2005, 05:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 28.12.2005

Репутация: нет
Всего: нет

нужно с помощью матрицы цвета преобразовать 24-битный битмап и вывести на форму.
примерный код у меня есть. просто хотелось бы сравнить. может кто-нибудь скинуть какой-нибудь код по этой теме.

и еще проблема: отчего юнит (использующий openGL) работает на одних машинах и неверно работает на других?

Zero

Дата 28.12.2005, 10:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата

нужно с помощью матрицы цвета преобразовать 24-битный битмап и вывести на форму.

Преобразовать каво и в чаво?

Цитата

и еще проблема: отчего юнит (использующий openGL) работает на одних машинах и неверно работает на других?

Версия модуля разная...

Альберт

Дата 28.12.2005, 17:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 28.12.2005

Репутация: нет
Всего: нет

ну например хотя бы инвертировать битмап

s-mike

Дата 29.12.2005, 08:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 425
Регистрация: 16.1.2005
Где: Киев

Репутация: 5
Всего: 16

Цитата

ну например хотя бы инвертировать битмап

С помощью Bitmap.Pixels или Bitmap.Scanline. В FAQ должны быть примеры по этой теме.

--------------------

Преферанс для Android на базе исходников Марьяжа

Альберт

Дата 30.12.2005, 02:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 28.12.2005

Репутация: нет
Всего: нет

надо сделать это, используя glcolortable.

вот примерный код
ошибка возникает в строчке
glColorTable(GL_COLOR_TABLE, GL_RGB, 256, GL_RGB,GL_UNSIGNED_byte,@colorTable);

пока понять причину не могу, т.к. вроде бы все параметры процедуры стандартны

помогите пожалуйста узнать хотя бы возможные причины этой ошибки

Код


procedure make_ct;
var
   i: integer;
   colortable: array [0..255,0..2] of glubyte;
begin
   for i:=0 to 256 do
   begin
         colorTable[i,0]:=255-i;
         colorTable[i,1]:=255-i;
         colorTable[i,2]:=255-i;
   end;
end;

procedure init_alization;
var
//   i: integer;
   colortable: array [0..255,0..2] of glubyte;
begin

      image:=auxDIBImageLoada('Bitmapp1.bmp');

      glColorTable:=wglGetProcAddress('glColorTable');  

      glPixelStorei(GL_UNPACK_ALIGNMENT,1); 
      glClearColor(0,0,0,0);


      make_ct; 


      glColorTable(GL_COLOR_TABLE, GL_RGB, 256, GL_RGB,GL_UNSIGNED_byte,@colorTable); 
      glEnable(GL_COLOR_TABLE);
end;


procedure deinit;
begin
   dispose(image);
end;

procedure reshape(w,h: integer);
begin
      glViewport(0,0,w,h);
      glMatrixMode(GL_PROJECTION);
      glLoadIdentity();
      gluOrtho2D(0,500,0,500);
end;

procedure display;
begin
      glClear(GL_COLOR_BUFFER_BIT);
      glRasterPos2i(1,1);
      glDrawPixels(image^.sizeX, image^.sizeY, GL_RGB,GL_UNSIGNED_BYTE, image^.data);
      glFlush();
end;

procedure main_colortable;

begin

   glutInitDisplayMode(GLUT_SINGLE or GLUT_RGB);
   glutInitWindowSize(300,300);
   glutCreateWindow('Пример изменения изображения с помощью цветовой таблицы');
   init_alization;
   glutDisplayFunc(display); 
   glutReshapeFunc(reshape);
   glutMainLoop();
   deinit;

end;

Альберт

Дата 3.1.2006, 21:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 28.12.2005

Репутация: нет
Всего: нет

программа заработала, правда не на всех машинах. с чем это может быть связано???

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »