Помогите дописать программу

[cL1zMa]

Помогите пожалуйста, надо доработать программу.

В данной программе имеется кристал, необходимо чтобы он вращался по своей горизонтальной оси. Вращение требуют выполнить в процедуре.

program Kristall;
uses
Graph, crt;
var
x,y,R,i: integer;
Procedyre kris (x:integer; y:integer; R:integer; i: integer);
begin
Circle (x,y,R);
line;
line(469,238,320,464);
line(320,4604,170,238);
line(170,238,320,15);
line(320,15,320,464);
line(320,15,400,260);
line(400,260,469,238);
line(400,260,320,464);
line(239,260,320,15);
line(170,238,239,260);
line(239,260,320,464);
line(400,260,320,270);
line(320,270,239,260);
repeat
for x := 0 to 3 do
for y := 0 to 1 do
begin
setfillstyle(1,random(15));
{setfillstyle(1,random(2)*8+x*2+y);}
floodfill(240+65*x,240+40*y,15);
end;
until keypressed;
readln;
Closegraph;
end.

[Stilet]

А синус тут нде рассчитывается?

[cL1zMa]

я не знаю вот и прошу помочь(( это только наработка и всё((