З-х звенный манипулятор, В трехмерном пространстве Опции

[Ametist]

От теоретической части, я перешел к решению задачи. Сначала я сделал просто три линии, которые были связаны между собой, и каждая из которых вращалась в полярной системе координат, но такую работу у меня не приняли и приходится начинать все сначала.
И я поставил себе такую задачу: "Построить три октаэдра, которые бы произвольно вращались относительно любых трех осей координат и были свзяны между собой". Пока вопрос такой, у меня не получается построить сам октаэдр..
Код вот...

 
Program izknigi;
uses crt,graph;
type
Vertex=record 
 x,y,z:real;
 End;

Edge=record
 src,dest:integer; 
 End;
Object3D=record
 vertices:array [0..5] of Vertex;
 edges:array [0..11] of Edge;
 xc,yc,zc:real;
 End;
Var
 model:object3d;
 gm,gd:integer;

Procedure LoadObject3D(var X: Object3D);
var
 ff:text;
 Nv,Ne:integer;
 Shape:Object3D;
 i:integer;
Begin
Assign(ff,'D:\oct');
Reset(ff);
Readln(ff,Nv);
For i:=1 to NV do
Readln(ff, Shape.vertices[i].x , Shape.vertices[i].y , Shape.Vertices[i].z);
Readln(ff, Ne);
For i:=1 to Ne do
Readln(ff, Shape.edges[i].src, Shape.edges[i].dest);
Close(ff);
X:=Shape;
End;

procedure ShowShape(Shape: Object3D);
var
 i,Xs,Ys:integer;
 x,y,z:real;
const n=300;
Begin
For i:=0 to High(Shape.edges) do
 Begin
 x:=Shape.vertices[Shape.edges[i].src].x + Shape.xc;
 y:=Shape.vertices[Shape.edges[i].src].y + Shape.yc;
 z:=Shape.vertices[Shape.edges[i].src].z + Shape.zc;
 If abs(z)<0.01 then z:=0.01;
 Xs:= Round(GetMaxX div 2 + N*x/z);   
 Ys:= Round(GetMaxY div 2 + N*y/z);
 MoveTo(Xs, Ys);
 x:=Shape.vertices[Shape.edges[i].dest].x + Shape.xc;
 y:=Shape.vertices[Shape.edges[i].dest].y + Shape.yc;
 z:=Shape.vertices[Shape.edges[i].dest].z + Shape.zc;
 If abs(z)<0.01 then z:=0.01;
  Xs:= Round(GetMaxX div 2 + N*x/z);
 Ys:= Round(GetMaxY div 2 + N*y/z);
 LineTo(Xs,Ys);
 End;
End;
 Begin
 gm:=detect; gd:=1;
 InitGraph(gm,gd,'');
 LoadObject3D(model);
 ShowShape(Model);
 CloseGraph;
 End.

Xs:= Round(GetMaxX div 2 + N*x/z);
Ys:= Round(GetMaxY div 2 + N*y/z);
Все дело умирает на этих вдух строчках, пишет "error 205 Floating point overflow". Вопрос как это исправить, чтобы все работало?
Внутренность тхт файла выглядит вот так...
6
-100 -100 0
-100 100 0
100 100 0
100 -100 0
0 0 -141.42
0 0 141.42
12
0 1
1 2
2 3
3 0
4 0
4 1
4 2
4 3
5 0
5 1
5 2
5 3

[volvo]

Вопрос как сделать так, чтобы оси для второго выходили из конца первого параллелепипеда?

У тебя же есть координаты "конца" первого параллелепипеда (ну, скажем, середина той грани, к которой крепится второй параллелепипед может быть вычислена без проблем в любое время)? так вот высчитывай положение второго "кубика" относительно начала координат, так же, как делаешь с первым, а потом, только для того, чтобы отрисовать второй "кубик" делай пересчет координат его вершин (добавляй к каждой координате каждой вершины координату "конца" первого "кубика"). Повторяю: только отрисовывать с новыми координатами.

Фактически, достаточно в твою программу добавить процедуру сложения записи типа Object3D и структуры, хранящей 3 координаты X, Y, Z; и в ShowShape передавать не один параметр, а два: первый - это сам "кубик", а второй - это "концевая точка" предыдущего объекта (для первого "кубика" - нули по всем координатам), а уже внутри нее заводишь локальную переменную типа Object3D, в нее заносишь сумму Shape и той самой "концевой точки предыдущего объекта", и отрисовываешь именно ЭТУ структуру.

Попробуй сделать это сам, если не получится - обращайся

Кстати, твою программу можно упростить, насколько я вижу.