2015-12-28 14:25:15 +03:00
|
|
|
|
// Графика. Сглаживание
|
2015-05-14 22:35:07 +03:00
|
|
|
|
uses GraphABC;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
2015-12-28 14:25:15 +03:00
|
|
|
|
Window.Title := 'Демонстрация сглаживания';
|
|
|
|
|
|
TextOut(40,20,'Со сглаживанием');
|
2015-05-14 22:35:07 +03:00
|
|
|
|
Pen.Width := 2;
|
|
|
|
|
|
|
|
|
|
|
|
Ellipse(40,60,300,200);
|
|
|
|
|
|
Line(340,60,600,130);
|
|
|
|
|
|
Line(600,130,340,200);
|
|
|
|
|
|
|
|
|
|
|
|
SetSmoothingOff;
|
2015-12-28 14:25:15 +03:00
|
|
|
|
TextOut(40,240,'Без сглаживания');
|
2015-05-14 22:35:07 +03:00
|
|
|
|
Ellipse(40,280,300,420);
|
|
|
|
|
|
Line(340,280,600,350);
|
|
|
|
|
|
Line(600,350,340,420);
|
|
|
|
|
|
end.
|
