VPF::вращение куба вокруг диаганали

BLACK_KOT

Дата 27.12.2007, 16:05 (ссылка)

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

Загрузка ...

Опытный

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

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

помогите с реализацией алгоритма! вот кусок кода реализующий вращение кубика в горизонтальной плоскости:

Код


var
  Form1: TForm1; j:integer; a:array [1..5,1..2] of integer;

implementation

{$R *.dfm}

procedure p1;
var i:integer; q:real;
begin
form1.Refresh;
q:=strtofloat(form1.Edit1.Text);

            //заполняем массив координат вершин куба
for i:=1 to 5 do
  begin
  a[i,1]:=trunc(80*sin(q+i*pi/2));
  a[i,2]:=trunc(-20*cos(q+i*pi/2));
  end;

          //отрисовка диагонали
form1.canvas.moveto(200+a[2,1],100+a[2,2]);
form1.canvas.lineto(200+a[4,1],200+a[4,2]);

for i:=1 to 4 do     //  отрисовываем два квадрата
  begin
  form1.canvas.moveto(200+a[i,1],100+a[i,2]); //Встаём на i вершину
  form1.canvas.lineto(200+a[i+1,1],100+a[i+1,2]); //Рисуем линию к i + 1 вершине
  form1.canvas.moveto(200+a[i,1],200+a[i,2]); //Встаём на i вершину 2го квадрата
  form1.canvas.lineto(200+a[i+1,1],200+a[i+1,2]);//Рисуем линию к i + 1 вершине 2го квадрата

  form1.canvas.lineto(200+a[i+1,1],100+a[i+1,2]); //соединяем вершины квадратов
  end;

if strtofloat(form1.Edit1.Text)=6.2 then  form1.Edit1.Text:='0' else form1.Edit1.Text:=floattostr(strtofloat(form1.Edit1.Text)+0.05);

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.interval:=40;
p1
end;

подскажите как вращать куб вокруг диагонали?

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

.. я - демо версия Бога от Microsoft..

BLACK_KOT

Дата 30.12.2007, 00:45 (ссылка)

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

Загрузка ...

Опытный

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

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

ну а об аффинных преобразованиях кто нибудь слышал?

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

.. я - демо версия Бога от Microsoft..

merge

Дата 17.1.2008, 10:49 (ссылка)

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

Загрузка ...

Шустрый

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

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

может это поможет

http://ru.wikibooks.org/wiki/%D0%90%D1%84%...%BD%D0%B8%D1%8F

Это сообщение отредактировал(а) merge - 17.1.2008, 10:50

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