/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/GraphABC/Hypno.pas
11 строк
297 B
miks1965
Обновление примеров и bug fix #132
13 апр 2016, 11:08
13 апр 2016, 11:08
560122e
Код
Авторство
О чём код?
// Иллюстрация прозрачности uses GraphABC; begin for var Transparency:=0 to 255 do begin Brush.Color := ARGB(Transparency,Random(256),Random(256),Random(256)); FillCircle(Random(Window.Width),Random(Window.Height),Random(20,60)); sleep(100); end; end.