Как в паскале изобразить 3х мерную фигуру например куб.
Надо завести трехмерный массив или как ?если не сложно напишите код проги.
А потом эти точки соединять в нужном порядке... Например, с помощью такой процедуры:
Type
TPoint = Record
X, Y, Z: Integer;
End;
Const
{ 8, так как у куба 8 вершин }
Cube: Array[1 .. 8] Of TPoint =
((X:0; Y:30; Z:0),
(X:20; Y:30; Z:0),
(X:20; Y:10; Z:0),
(X:0; Y:10; Z:0),
(X:0; Y:30; Z:20),
(X:20; Y:30; Z:20),
(X:20; Y:10; Z:20),
(X:0; Y:10; Z:20));
Осталось только объединить все в одну программу...
Procedure DrawLine(Var a, b: TPoint);
{ следующие 2 функции - для преобразования "координат пользователя"
в "экранные координаты" }
Function cX( X, Z : Integer ) : Integer;
Begin
cX := (X + (GetMaxX Div 2)) - Z;
End;
Function cY( Y, Z : Integer ) : Integer;
Begin
cY := (GetMaxY Div 2) - Y + Z;
End;
Begin
Line(cX(a.x, a.z), cY(a.y, a.z), cX(b.x, b.z), cY(b.y, b.z));
End;