VPF::[Delphi] Трёхмерное преобразование

gh6

Дата 5.2.2007, 10:21 (ссылка)

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

Загрузка ...

Новичок

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

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

Привет всем!

Задание:

Составить программу, реализующую трехмерное преобра-зование с фигурой (см. задание.). Для всех вариантов фигура долж-на отображаться в контурном виде без удаления невидимых ли-ний и уметь вращаться вокруг произвольной оси. Управление преобразованием по осям осуществлять с помощью девяти кла-виш (<1>…<9>) на цифровой клавиатуре.

задание-Параллелепипед,Отражение одновременно относи-тельно плоскостей XOZ и YOZ, XOZ и XOY, XOY и YOZ.

gh6

Дата 6.2.2007, 05:07 (ссылка)

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

Загрузка ...

Новичок

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

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

Вод код программы написанный на паскале:

Код


uses Graph,crt;
const
cube: array[0..23] of real =
(-80,-50,-50,-80,-50,50,-80,50,-50,
-80,50,50,80,-50,-50,80,-50,50,
80,50,-50,80,50,50);
lindex: array[0..23] of integer =
(0,1,0,4,0,2,1,3,1,5,2,3,
2,6,3,7,4,5,4,6,5,7,6,7);

var xt,yt,zt:real;
xan,yan,zan:real;
sx,sy,sx1,sy1,p,gd,gm: integer;
t:char;

procedure draw(color:byte);
begin
for p:=0 to 11 do begin
sx:=round(cube[lindex[p*2]*3])+250;
sy:=round(cube[lindex[p*2]*3+1])+200;
sx1:=round(cube[lindex[p*2+1]*3])+250;
sy1:=round(cube[lindex[p*2+1]*3+1])+200;
setcolor(color);
line(SX,SY,sx1,sy1);
end;
end;

procedure rotate;
begin
for p:=0 to 7 do begin
Yt := cube[p*3+1] * COS(Xan) - cube[p*3+2] * SIN(Xan);
Zt := cube[p*3+1] * SIN(Xan) + cube[p*3+2] * COS(Xan);
cube[p*3+1] := Yt;
cube[p*3+2] := Zt;

Xt := cube[p*3] * COS(Yan) - cube[p*3+2] * SIN(Yan);
Zt := cube[p*3] * SIN(Yan) + cube[p*3+2] * COS(Yan);
cube[p*3] := Xt;
cube[p*3+2] := Zt;

Xt := cube[p*3] * COS(Zan) - cube[p*3+1] * SIN(Zan);
Yt := cube[p*3] * SIN(Zan) + cube[p*3+1] * COS(Zan);
cube[p*3] := Xt;
cube[p*3+1] := Yt;
end;
end;

procedure xoy_xoz;
begin
for p:=0 to 7 do begin
Yt:=cube[p*3+1]*-1;
Zt:=cube[p*3+2]*-1;
cube[p*3+1]:=Yt;
cube[p*3+2]:=Zt;
end;
end;
procedure xoz_yoz;
begin
for p:=0 to 7 do begin
Yt:=cube[p*3+1]*-1;
Xt:=cube[p*3]*-1;
cube[p*3+1]:=Yt;
cube[p*3]:=Xt;
end;
end;
procedure xoy_yoz;
begin
for p:=0 to 7 do begin
Zt:=cube[p*3+2]*-1;
Xt:=cube[p*3]*-1;
cube[p*3+2]:=Zt;
cube[p*3]:=Xt;
end;
end;

begin
gd:=detect; initgraph(gd,gm,'');
Zan := 0.05;
Yan := 0.05;
Xan := 0.05;
repeat
draw(15);
delay(10000);
draw(0);
rotate;
if keypressed then begin
t:=readkey;
end;
if t='1' then xoy_xoz; if t='2' then xoz_yoz; if t='3' then xoy_yoz;
until t=#13;
closegraph;
end.

M
Alexeis

Модератор: используйте подсветку кода http://forum.vingrad.ru/index.php?showtopic=126445

Что здесь неправильно, программа не запускается...

Это сообщение отредактировал(а) Alexeis - 7.2.2007, 12:51

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