IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> 3d-пирамида, help!!!
stefi78
сообщение 22.03.2006 3:21
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Женский
Реальное имя: Таня

Репутация: -  0  +


Помогите кто может!!!
3d -пирпамида (5 точек т.е. в основание 4 точки)
1)должна двигаться по координатам X Y Z
увеличиваться уменьшаться(zoom)
2)в дальнейшем двигаться еще по элипсу и давать тень
а у меня что то глючит и я не понимаю что именно
делала по образу и подобию кубика
program pir;
uses graph,crt;

const
  piramid: array [0..14] of real =
  (180,100,100,150,140,100.
  230,140,100,120,170,100,
  200,170,100);
  lindex: array [0..15] of integer =
  (0,1,0,2,3,0,4,1,2,4,2,3,4,1,3)

var xt,yt,zt:real;
    xan,yan,zan:real;
    sx,sy,sx1,sy1,p,zoom:integer;
procedure draw(color:byte);
begin
     for p:=0 to 11 do begin
     sx:=round(zoom*piramid[lindex[p*2]*3])+160;
     sy:=round(zoom*piramid[lindex[p*2]*3+1])+100;
     sx1:=round(zoom*piramid[lindex[p*2+1]*3])+160;
     sy1:=round(zoom*piramid[lindex[p*2+1]*3+1])+100;
     setcolor(color);
     line(sx,sy,sx1,sy1);
    end;
end;
procedure calc;
begin
     for p:=0 to 7 do begin
	  yt:=piramid[p*3+1]*cos(xan)-piramid[p*3+2]*sin(xan);
     zt:=piramid[p*3+1]*cos(xan)+piramid[p*3+2]*sin(xan);
     piramid[p*3+1]:=yt;
     piramid[p*3+2]:=zt;
     xt:=piramid[p*3]*cos(yan)-piramid[p*3+2]*sin(yan);
     zt:=piramid[p*3]*cos(yan)+piramid[p*3+2]*sin(yan);
     piramid[p*3]:=xt;
     piramid[p*3+2]:=zt;
     xt:=piramid[p*3]*cos(zan)-piramid[p*3+1]*sin(zan);
     yt:=piramid[p*3]*cos(zan)+piramid[p*3+1]*sin(zan);
     piramid[p*3]:=xt;
     piramid[p*3+1]:=yt;
     end;
end;
var gd,gm:integer;
    t:char;
begin
     gd:=detect;
     initgraph(gd,gm,'');
     zan:=0.1;
     yan:=0.02;
     xan:=0.02;
     zoom:=30;
     repeat
           draw(15);
           delay(2000);
           draw(0);
           calc;
           if keypressed
           then begin
                 t:=readkey;
		 case t of
		 '+':zoom:=zoom+1;
		 '-':zoom:=zoom-1;
	       end;
	     end
	  until t=#13;
	  closegraph;
end.


Пользуйтесь пожалуйста тегами

Сообщение отредактировано: volvo - 5.11.2006 19:10


Прикрепленные файлы
Прикрепленный файл  PIR.PAS ( 1.67 килобайт ) Кол-во скачиваний: 272
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 26.07.2025 23:54
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"