Здравствуйте, по компьютерной графике задали такое задание:
вывести на экран проволочный куб, расположенный в изометрической проекции и крутить его вокруг оси Z.
При этом нельзя использовать библотеки вроде openGl.
Я уже кое-что накидал (читай нашел в интернете =)), вот только не могу разобраться как сделать изометрию и поворачивать именно вокруг оси, а не вокруг начала координат.
Помогите пожалуйста
Код в приложении

Приложение:
program Paralel;
USES Crt, Graph;
VAR Gd, Gm: Integer;
par: array[1..8, 1..3] of real;
rebra: array[1..12, 1..2] of integer;
i: integer;
ch: char;

PROCEDURE Draw;
VAR x1,x2,y1,y2: integer;
ver1,ver2: integer;
BEGIN
For i:=1 To 12 Do Begin
ver1:=rebra[i,1];
ver2:=rebra[i,2];
x1:=round(par[ver1,1])+320;
y1:=240-round(par[ver1,2]);
x2:=round(par[ver2,1])+320;
y2:=240-round(par[ver2,2]);
line(x1,y1,x2,y2);
End;
END;

PROCEDURE VrachOX(Ugol: real);
VAR y,z: real;
BEGIN
For i:=1 To 8 Do Begin
y:=par[i,2];
z:=par[i,3];
par[i,2]:=y*cos(Ugol)-z*sin(Ugol);
par[i,3]:=y*sin(Ugol)+z*cos(Ugol);
End;
End;

PROCEDURE VrachOY(Ugol: real);
VAR x,z: real;
BEGIN
For i:=1 To 8 Do Begin
x:=par[i,1];
z:=par[i,3];
par[i,1]:=x*cos(Ugol)+z*sin(Ugol);
par[i,3]:=-x*sin(Ugol)+z*cos(Ugol);
End;
END;

PROCEDURE VrachOZ(Ugol: real);
VAR x,y: real;
BEGIN
For i:=1 To 8 Do Begin
x:=par[i,1];
y:=par[i,2];
par[i,1]:=x*cos(Ugol)-y*sin(Ugol);
par[i,2]:=x*sin(Ugol)+y*cos(Ugol);
End;
END;

BEGIN

par[1,1]:=0; par[1,2]:=0; par[1,3]:=0;
par[2,1]:=0; par[2,2]:=170; par[2,3]:=0;
par[3,1]:=170; par[3,2]:=170; par[3,3]:=0;
par[4,1]:=170; par[4,2]:=0; par[4,3]:=0;
par[5,1]:=0; par[5,2]:=0; par[5,3]:=170;
par[6,1]:=0; par[6,2]:=170; par[6,3]:=170;
par[7,1]:=170; par[7,2]:=170; par[7,3]:=170;
par[8,1]:=170; par[8,2]:=0; par[8,3]:=170;

rebra[1,1]:=1; rebra[1,2]:=2;
rebra[2,1]:=2; rebra[2,2]:=3;
rebra[3,1]:=3; rebra[3,2]:=4;
rebra[4,1]:=4; rebra[4,2]:=1;
rebra[5,1]:=5; rebra[5,2]:=6;
rebra[6,1]:=6; rebra[6,2]:=7;
rebra[7,1]:=7; rebra[7,2]:=8;
rebra[8,1]:=8; rebra[8,2]:=5;
rebra[9,1]:=1; rebra[9,2]:=5;
rebra[10,1]:=2; rebra[10,2]:=6;
rebra[11,1]:=3; rebra[11,2]:=7;
rebra[12,1]:=4; rebra[12,2]:=8;

Gd:= detect;
Initgraph(Gd, Gm, 'c:\Bp\bgi');
If GraphResult <> grOk Then
Halt(1);

SetBkColor(Black);
ClearDevice;
VrachOX(pi/12);
VrachOY(pi/12);
VrachOZ(pi/12);
While ch<>#27 Do Begin
ClearDevice;
Draw;
OuttextXY(10,450,'Press <1> for rotation');
OuttextXY(10,465,'Press <Esc> to Exit');
ch:=readkey;
Case ch Of
#77: VrachOY(pi/30);
End;
End;
CloseGraph;
END.