/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Ellipses.pas
14 строк
317 B
Бондарев Иван
bug fix #585
17 дек 2017, 14:40
17 дек 2017, 14:40
fb60f88
Код
Авторство
О чём код?
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.