/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!Tutorial/04_Graphics/Gr8.pas
18 строк
433 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; begin Window.Title := 'Демонстрация сглаживания'; TextOut(40,20,'Со сглаживанием'); Pen.Width := 2; Ellipse(40,60,300,200); Line(340,60,600,130); Line(600,130,340,200); SetSmoothingOff; TextOut(40,240,'Без сглаживания'); Ellipse(40,280,300,420); Line(340,280,600,350); Line(600,350,340,420); end.