Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Некоторые команды библиотеки GraphABC
Работа с графикой в PascalABC
После запуска PascalABC, по умолчанию, запускается текстовый режим. Для работы с графикой служит отдельное графическое окно. Чтобы его открыть, необходимо подключить модуль GraphABC. В этом модуле содержится обширный набор процедур и функций, предназначенных для работы с графическим экраном, а также некоторые встроенные константы и переменные, которые могут быть использованы в программах с графикой. С их помощью можно создавать разнообразные графические изображения и сопровождать их текстовыми надписями. Подключение осуществляется в разделе описаний.
Формат подключения модуля GraphABC:
uses GraphABC;
Начало координат графического окна модуля находится в верхнем левом углу. Ось x направлена вправо, а ось y - вниз. Координаты исчисляются в пикселях.
Все команды библиотеки GraphABC являются подпрограммами и описаны в виде процедур и функций. Для того, что бы команда выполнилась необходимо указать команду и задать значения параметрам.
Некоторые команды библиотеки GraphABC
| Имя и параметры команды | Действие команды | ||||||||||||||
| Line(x1,y1,x2,y2) | Рисует отрезок из точки с координатами (x1,y1) в точку с координатами (x2,y2) | ||||||||||||||
| LineTo(x, y) | Рисует отрезок из текущей точки в точку с координатами (x, y) (соответствует команде сместиться_в с опущенным пером для исполнителя Чертежник) | ||||||||||||||
| Rectangle(x1,y1,x2,y2) | Рисует контур прямоугольника со сторонами параллельными сторонам экрана. Точки с координатами (x1, y1) и (x2, y2) определяют диагональные вершины прямоугольника. | ||||||||||||||
| FillRect(x1,y1,x2,y2); | Заливает прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2), цветом текущей кисти. | ||||||||||||||
| Circle(x,y, radius); | Рисует окружность с центром в точке с координатами (x,y) и радиусом radius. | ||||||||||||||
| Ellipse(x1,y1,x2,y2); | Рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x1,y1) и (x2,y2). | ||||||||||||||
| TextOut (x, y, text) | Выводит Text на экран. Начало текста в точке с координатами (x, y) | ||||||||||||||
| SetPixel(x,y,color) | Закрашивает цветом color точку с координатами (x, y) | ||||||||||||||
| SetPenColor(color) | Задает цвет рисования линий. Параметр color – число в промежутке от 0 до 2563-1. | ||||||||||||||
| SetPenWidth(n) | Задает толщину рисования линий. Параметр n – число в промежутке от 1 до 50 | ||||||||||||||
| SetPenStyle(ps) | Устанавливает стиль пера, задаваемый параметром ps.
Стили пера задаются следующими именованными константами:
| ||||||||||||||
| Arc(x,y,r,a1,a2) | Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки). | ||||||||||||||
| FloodFill(x,y,color); | Заливает область одного цвета цветом color, начиная с точки (x,y). | ||||||||||||||
| SetBrushColor(color) | Устанавливает цвет кисти, задаваемый параметром color | ||||||||||||||
| SetBrushStyle(bs); | Устанавливает стиль кисти, задаваемый параметром bs.
Стили кисти задаются следующими именованными константами:
| ||||||||||||||
| SetFontColor(color); | Устанавливает цвет шрифта | ||||||||||||||
| SetFontSize(sz); | Устанавливает размер шрифта в пунктах. | ||||||||||||||
| ClearWindow; | Очищает графическое окно белым цветом | ||||||||||||||
| ClearWindow(c); | Очищает графическое окно цветом (c). | ||||||||||||||
| SetWindowSize(w,h) | Устанавливает ширину и высоту графического окна. |
Пример программы, рисующей окружность в квадрате
program graf_1;
uses graphABC;
begin
SetWindowSize(300,300); //установка размера окна
SetPenColor(clred); // установка цвета линий
SetPenStyle(psdash); // установка стиля линий
SetPenWidth(10); // установка толщины линий
Rectangle(50,50,250,250); // рисование прямоугольника
Circle(150,150,50); // рисование окружности
end.
Результат выполнения программы
Задачи для самостоятельного решения
1. Составить программу, рисующую голову робота (см.рис.). На рисунке числами указаны координаты точек.
Рисунок содержит два прямоугольника, две окружности, две дуги, эллипс, три прямые линии и две красные точки. Заранее определяются все координаты и размеры элементов рисунка.
2. Нарисовать домик по образцу (см. рис). Координаты установить самостоятельно.
3. Самостоятельно придумать и нарисовать средствами PascalABC фигуру, состоящую из различных элементов: прямоугольника, эллипса, точки, дуги окружности и т.д. Применить различные цветовые решения. Использовать различные стили и толщину лини.
4. Самостоятельно разработать рисунок на новогоднюю тему и реализовать его средствами PascalABC.
| <== предыдущая | | | следующая ==> |
| Глава 1: Колдовское королевство Аинз Оул Гоуна | | | Список вещей для участников программы |
Date: 2016-07-18; view: 600; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |