Построение проволочной модели

[IvaneOK]

Нужно построить проволочную модель многоугольника, у меня пока что получается только "2д" изображение, подскажите пожалуйста как добавить ему " третию мерность"

uses graph;
var x: integer;
ax,ay,bx,by,cx,cy,dx,dy,fx,fy,mx,my:integer;
graphDriver,GraphMode:integer;
Begin
writeln('vvedite ax');readln(ax);
writeln('vvedite ay');readln(ay);
writeln('vvedite bx');readln(bx);
writeln('vvedite by');readln(by);
writeln('vvedite cx');readln(cx);
writeln('vvedite cy');readln(cy);
writeln('vvedite dx');readln(dx);
writeln('vvedite dy');readln(dy);
writeln('vvedite fx');readln(fx);
writeln('vvedite fy');readln(fy) ;
writeln('vvedite mx');readln(mx) ;
writeln('vvedite my');readln(my) ;
graphDriver:=detect;
initgraph(graphDriver,graphMode,'');
x:=GraphResult;
If x=GrOk Then
  Begin

line(ax,ay,bx,by);
 line(ax,ay,-bx,-by);
 line(bx,by,cx,cy);
 line(cx,cy,dx,dy);
 line(cx,cy,-dx,-dy);
 line(dx,dy,fx,fy);
 line(fx,fy,mx,my);
  line(mx,my,ax,ay);
 line(mx,my,-fx,-fy);
  End
Else
  Writeln('x=',x);
  Readln;
end.

[RomiKon]

А что вы понимаете под трёхмерностью многоугольника?