14 lines
282 B
ObjectPascal
14 lines
282 B
ObjectPascal
// Ãðàôèêà. Ïðèìåð "íàèâíîé" àíèìàöèè. Ýôôåêò ìåðöàíèÿ
|
|
uses GraphABC;
|
|
|
|
begin
|
|
Window.Title := 'Äåìîíñòðàöèÿ ïðîñòîé àíèìàöèè';
|
|
var y := 200;
|
|
Brush.Color := clGreen;
|
|
for var x := 70 to 500 do
|
|
begin
|
|
Window.Clear(clWhite);
|
|
Circle(x,y,50);
|
|
Sleep(3);
|
|
end;
|
|
end. |