Прошу помощи, потому как сам залез в тупик...
Это кусочек моей курсовой, где на экран мне надо вывести три фигуры Лиссажу, задаваемые с разными частотами(w). Привожу код, где рисуется первая фигура(остальные выкладывать нет смысла, потому как они отличаются только частотой и координатами центра). Так вот суть проблемы: преподаватель просит переделать програму так, чтобы фигура плавно из исходной точки вырисовывалась одним пикселем, а у меня рисует как-то отрывисто. Подскажите, если не трудно, как это сделать.
Program KURS;
uses Graph,crt;
const
A=50;w1=1;w2=2;
var
driver,mode,x,y,t:integer;
procedure FFigure(w1,w2:integer);
begin
driver:=detect;
mode:=detect;
initgraph(driver,mode,'c:\bp\bgi');
for t:=1 to 1000 do
begin
OutTextXY(5, 10, 'first graph');
putpixel(x,y,white);
x:=((GetMaxx div 2)+round(a*cos(w1*t)));
y:=((round(GetMaxy/8))+round(a*sin(w2*t)));
delay(500);
end;
end;
begin
FFigure(w1,w2);
end.