Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Не могу переписать с С++ на дельфи :(

Автор: Monty 5.1.2004, 07:15

вот код на C++

Код

GLfloat curcol[4]; 
(*glGetFloatv)(GL_CURRENT_COLOR, curcol);
(*glColor4f)(curcol[0],curcol[1],curcol[2],0.01f);

Я целую ночь бился над тем чтобы её перевести на Дельфи!

....... и ни чего не выходит

...... а все из-за "GLfloat curcol[4];" ........ кстати, это просто FLOAT

........

PS. C++ я не знаю

Автор: NiJazz 5.1.2004, 10:14

GLfloat curcol[4]; - это как curcol: array[0..3] of GLfloat;

Автор: <Spawn> 5.1.2004, 11:03

Monty По моему так:

Код

uses ..., OpenGL;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  curcol: array[0..3] of GLfloat;
begin
  glGetFloatv(GL_CURRENT_COLOR, @curcol);
  glColor4f(curcol[0], curcol[1], curcol[2], 0.01);
end;

Автор: <Spawn> 5.1.2004, 11:04

Разумеется все это будет работать, если была проинициализированна OpenGL.

Автор: Monty 5.1.2004, 11:44

Большое спасибо всем!

...... вот из-за этого я всю ночь не спал, правда другое успел сделать

.......