/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/04_Graphics/GrAnim1.pas
14 строк
351 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Графика. Пример "наивной" анимации. Эффект мерцания 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.