построение геометрических объектов в пространстве

[yan4ik]

Передо мной стоит задача, разработать программу в Паскале, которая строит геометрическую фигуру( треугольную пирамиду) в пространстве по заданным координатам. Вводится 4 точки, у каждой по 3 координаты (x,y,z). прошу, оочень нужно, хотя бы идею подкинуть!

[rubius2008]

1. Нужно определиться с осями координат (x,y,z), как будут направлены.
2. Далее переводите координаты точки (x,y,z) в координаты экрана (x0,y0) и рисуете.

[yan4ik]

в том то и проблема состоит, что я не знаю как перевести координаты точки (x,y,z) в координаты экрана (x0,y0)!

[JOON1K]

проводишь с помощью команды line линии,т.е чертишь треугольник и всё

[Rin]

Владлена великодушно поделилась исходником спецом для вас. Кликни на меня. Настоятельно рекомендую прочитать всю тему. Останется лишь переделать саму фигуру, передачу вместо 12-ти точек, только 5-ти. Ну и найти аналоги функций для паскаля.

[BDA]

Вот мой вариантик
Писал уже давно (больше года назад).
Код - супер-топорный. Зато рисует

uses crt,graph;
type
points=record
h,r,f:real;end;
var
d,m,i,t,x2,y2:integer;
c:char;
f1,f2:real;
a:array [1..8] of points;
 
 
{преобразует координаты для поворота в плоскости экрана}
procedure rotate(x1,y1:integer);
begin            
x2:=round((x1-320)*cos(f2)-(y1-240)*sin(f2))+320;
y2:=round((x1-320)*sin(f2)+(y1-240)*cos(f2))+240;
end;
 
 
{отрисовывает одну линию с правильными координатами}
procedure draw(x,y,i,j:integer;f:real);
begin
rotate(round(x+a[i].r*cos(a[i].f+f)),round(y-a[i].h+0.3*a[i].r*sin(a[i].f+f)));
moveto(x2,y2);
rotate(round(x+a[j].r*cos(a[j].f+f)),round(y-a[j].h+0.3*a[j].r*sin(a[j].f+f)));
lineto(x2,y2);
end;
 
 
{отрисовывает весь кубик}
procedure drawcube(f:real);
begin
for i:=1 to 4 do draw(320,240,i,i+4,f);
for i:=1 to 3 do draw(320,240,i,i+1,f);
draw(320,240,4,1,f);
for i:=5 to 7 do draw(320,240,i,i+1,f);
draw(320,240,8,5,f);
end;
 
begin
d:=detect;
m:=2;
initgraph(d,m,'c:\bgi');
cleardevice;
 
{задание цилиндрических координат}
for i:=1 to 4 do begin
a[i].h:=-50*sqrt(2);
a[i].r:=100;
a[i].f:=pi/2*(i-1);end;
 
for i:=5 to 8 do begin
a[i].h:=50*sqrt(2);
a[i].r:=100;
a[i].f:=pi/2*(i-1);end;
 
f1:=0;
f2:=0;
drawcube(f1);
 
 
{управление поворотом , A - влево, D - вправо, S - по часовой стрелке, W - против часовой стрелки}
repeat
c:=readkey;
if c='a' then f1:=f1+0.2;
if c='d' then f1:=f1-0.2;
if c='w' then f2:=f2+0.2;
if c='s' then f2:=f2-0.2;
if f1>2*pi then f1:=f1-2*pi;
if f1<-2*pi then f1:=f1+2*pi;
if f2>2*pi then f2:=f2-2*pi;
if f2<-2*pi then f2:=f2+2*pi;
cleardevice;
drawcube(f1);
until c=#27;
end.

(Сейчас стал проверять, какая-то "кодовая каша", да еще и Паскаль не работает в win 7)