2017-12-17 14:40:06 +03:00
|
|
|
|
uses GraphWPF;
|
2019-03-20 13:19:34 +03:00
|
|
|
|
|
2017-08-26 00:30:33 +03:00
|
|
|
|
begin
|
2017-12-17 14:40:06 +03:00
|
|
|
|
Window.Title := 'Рисование эллипсов';
|
2017-08-26 00:30:33 +03:00
|
|
|
|
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.
|
