/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/GraphABC/rain.pas
27 строк
538 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; const speed = 2; procedure Kaplia(x0,y0: integer); begin var r := 1; for var i:=0 to 63 do begin Pen.Color := RGB(i*4,i*4,i*4); Circle(x0,y0,r); if i mod speed = 0 then Sleep(10); Pen.Color := clWhite; Circle(x0,y0,r); r += 2; end; end; const z=50; begin Window.Title := 'Капли дождя'; SetWindowSize(800,600); while True do Kaplia(Random(z,WindowWidth-z),Random(z,WindowHeight-z)); end.