delphi opengl

[Develop]

Сдается мне что ты пытаешься стрелять из пушки по воробьям))
Может проще тебе будет нарисовать нужную картинку в Фотошопе или в Кореле и загрузить потом в программе ее из файла ?

[qwazarkent]

нет. такие задания к сожалению, не я придумывал

[qwazarkent]

я вот это не понимаю, с помощью процедуры procedure LoadTexture делаются несколько объектов (окружность, квадрат). Либо можно сделать с помощью glBegin glEnd.

п.с. т.к. задания на тему "текстуры" то помоему надо сделать с помощью procedure LoadTexture или я ошибаюсь в общем запутался я

[Develop]

Ну с помощью glBegin(GL_LINES) можно рисовать фигуры линиями, что конечно проще чем вышеуказанным способом.

Короче я щас на работе =( Выложи полный текст задания, я вечером гляну, может чего еще подскажу.

[qwazarkent]

1. Реализовать мишень для дротиков
2. Реализовать внутри Quada квадрат развернутый на 45 градусов, и внутри развернутого квадрата окружность
3. Реализовать внутри Quada квадрат развернутый на 45 градусов

[Develop]

Вот тебе мишень, смотрится как живая))

procedure TForm1.WmPaint(var msg : TWMPaint);
const n = 50; h = 0.075;
var r, dA, aRatio: double;
 procedure DrawCircle;
 var i: integer;
 begin
   glBegin(GL_TRIANGLE_FAN);
     glVertex3f(0.0, 0.0, 0.0);
     for i:=0 to n do
       glVertex3f(cos(i*dA)*r, sin(i*dA)*r*aRatio, 0.0);
   glEnd;
 end;
begin
  wglMakeCurrent(Canvas.Handle,Context);

  glClearColor(0,0,0,0);
  glClear(GL_COLOR_BUFFER_BIT);

  aRatio:= ClientWidth/ClientHeight;
  dA:= 2*pi/n;
  //
  glColor4f(1.0, 0.0, 0.0, 1.0);
  r:= 5*h;
  DrawCircle;
  //
  glColor4f(1.0, 1.0, 1.0, 1.0);
  r:= 4*h;
  DrawCircle;
  //
  glColor4f(1.0, 0.0, 0.0, 1.0);
  r:= 3*h;
  DrawCircle;
  //
  glColor4f(1.0, 1.0, 1.0, 1.0);
  r:= 2*h;
  DrawCircle;
  //
  glColor4f(1.0, 0.0, 0.0, 1.0);
  r:= h;
  DrawCircle;
end;