/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/GraphWPF/Ellipses.pas
14 строк
318 B
miks1965
W
20 мар 2019, 13:19
20 мар 2019, 13:19
72ed583
Код
Авторство
О чём код?
uses GraphWPF; begin Window.Title := 'Рисование эллипсов'; Pen.Width := 1; var n := 20000; for var i:=1 to n do begin if i mod 10000 = 0 then Println(i,MillisecondsDelta); Brush.Color := RandomColor; Ellipse(Random(800),Random(600),Random(20),Random(20)); end; end.