Работа с изображениями в GraphABC — различия между версиями
Материал из Вики ИТ мехмата ЮФУ
Ulysses (обсуждение | вклад) (Новая страница: «О работе с изображениями следует прочесть в разделе 10 [http://staff.mmcs.sfedu.ru/~ulysses/Edu/CS101/PABC_Graph.pdf …») |
Ulysses (обсуждение | вклад) |
||
| Строка 12: | Строка 12: | ||
Он просто лучше. | Он просто лучше. | ||
| − | '''Замечание 2.''' Для сохранения картинки в файл | + | '''Замечание 2.''' Для сохранения картинки в файл используйте следующий код. |
<source lang="pascal"> | <source lang="pascal"> | ||
var fname := 'my-picture-1.png'; | var fname := 'my-picture-1.png'; | ||
Версия 20:04, 6 ноября 2015
О работе с изображениями следует прочесть в разделе 10 учебного пособия «Работа с графикой в системе PascalABC.NET». Сделаем ряд замечаний относительно этого текста.
Замечание 1. Вместо операторов
var p: Picture;
CreatePicture(p, 30, 30);которые используются в учебном пособии для создания новой картинки размера 30 × 30, используйте код
var p := Picture.Create(30, 30);Он просто лучше.
Замечание 2. Для сохранения картинки в файл используйте следующий код.
var fname := 'my-picture-1.png';
p.Save(fname); // fname — имя файла для сохранения рисунка
// другой вариант: можно указать имя явно
p.Save('my-picture-1.png');Пример работы с рисунком
uses GraphABC;
begin
// создание рисунка p с шириной 150 пикселей и высотой 100 пикселей
var p: Picture := Picture.Create(150, 100);
// настраиваем ширину пера
Pen.Width := 2;
// рисуем прямоугольник на рисунке p
p.Rectangle(0, 0, p.Width, p.Height);
// настраиваем цвет кисти и ширну пера
Brush.Color := Color.Navy;
Pen.Width := 1;
// рисуем окружность на рисунке p
p.Circle(p.Width div 2, p.Height div 2, 40);
// выводим рисунок p с точке (0, 0) графического окна
p.Draw(0, 0);
// заливаем графическое окно жёлтым цветом
Window.Clear(Color.Yellow);
// выводим рисунок p с точке (100, 50) графического окна
p.Draw(100, 50);
// сохраняем рисунок в файле с именем circle-in-rect.png
p.Save('circle-in-rect.png');
end.