Язык программирования ABC PASCAL - [5]
> Line(0,WindowHeight, WindowWidth, 0)
>end.
Процедура SetWindowSize устанавливает размер графического окна 256×256 пикселей.
Процедура SetPenColor определяет цвет рисования линий. Функция RGB возвращает цвет, заданный своими Red, Green, Blue компонентами. Процедура Line рисует линию из точки, заданной первой парой координат, в точку, заданную второй парой координат. Функции WindowWidth и WindowHeight возвращают текущие значения ширины и высоты графического окна (следовательно, если вы поменяете размер окна в процедуре SetWindowSize, то линии все равно будут проводиться из угла в угол).
Оконные координаты
* Координата x растет слева на право от 0 до значения WindowWidth
* Координата y растет сверху вниз от 0 до значения WindowHeight
- 11 -
Задание цвета
Как известно восприятие цвета у человека трехцветное. Основываясь на этом, в графических библиотеках используется именно такое трехкомпонентное представление цвета. Цвет задается с помощью функции rgb(Red, Green,Blue)
Здесь
* Red – число от 0 до 255, соответствующее интенсивности красной компоненты
* Green – число от 0 до 255, соответствующее интенсивности зеленой компоненты
* Blue – число от 0 до 255, соответствующее интенсивности синей компоненты
Функция формирует целое число (integer), которое может использоваться везде в графической библиотеке, где требуется указание цвета. Есть несколько предопределенных цветов:
clBlack – черный | clCream – кремовый |
clPurple – фиолетовый | clAqua – бирюзовый |
clWhite – белый | clOlive – оливковый |
clMaroon – темно-красный | clFuchsia – сиреневый |
clRed – красный | clTeal – сине-зеленый |
clNavy – темно-синий | clGray – серый |
clGreen – зеленый | clLime – ярко-зеленый |
clBrown – коричневый | clLightGray – светло-серый |
clBlue – синий | clMoneyGreen – цвет зеленых денег |
clSkyBlue – голубой | clDarkGray – темно-серый |
clYellow – желтый |
Задание стиля и цвета пера
* SetPenColor(цвет) – устанавливает цвет пера, задаваемый параметром color.
* SetPenWidth(ширина) – устанавливает ширину пера.
* SetPenStyle(стиль) – устанавливает стиль пера (сплошной, пунктир и т.п.), возможные значения указаны в таблице (стиль применим только к ширине пера 1 пиксел)
psSolid | psDash | psDashDot |
psClear | psDot | psDashDotDot |
Текущее перо используется для рисования линий, прямоугольников, ломаных, окружностей, эллипсов, дуг и т.п.
Пример:
Program Gr02;
Uses GraphABC;
Var i : integer;
begin
SetWindowSize(512,512);
SetPenStyle(psDash);
SetBrushStyle(bsClear);
Circle (256,256,WindowHeight div 2);
end.
- 12 -
Задание стиля и цвета кисти
* SetBrushColor(цвет) – устанавливает цвет кисти
* SetBrushPicture(имя файла) – устанавливает в качестве образца для закраски кистью образец, хранящийся в файле, при этом текущий цвет кисти при закраске игнорируется.
* ClearBrushPicture – очищает рисунок-образец, выбранный для кисти.
* SetBrushStyle(стиль) – устанавливает стиль кисти, задаваемый параметром bs.
Возможные стили кисти:
bsSolid bsClear bsCross bsDiagCross bsHorizontal bsBDiagonal bsVertical bsFDiagonal
Текущей кистью закрашиваются все замкнутые фигуры, контур фигур рисуется текущим пером. Чтобы нарисовать не закрашенную фигуру, используйте SetBrushColor(bsClear).
Пример:
Program Gr03;
Uses GraphABC;
Var i,j : integer;
begin
SetWindowSize(512,512);
SetBrushColor(rgb(128,0,255));
SetBrushStyle(bsDiagCross);
Rectangle(10,10,WindowWidth-10,WindowHeight-10);
end.
Некоторые графические примитивы[6]
* Line(x1, y1, x2, y2) – рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).
* Circle(x,y,r) – рисует окружность с центром в точке (x,y) и радиусом r.
* Ellipse(x1, y1, x2, y2) – рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x1,y1) и (x2,y2).
* Rectangle(x 1,y1,x2,y2) – рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).
* RoundRect(x 1,y1,x2,y2,w,h) – рисует прямоугольник со скругленными краями; (x1,y1) и (x2,y2) задают пару противоположных вершин, а w и h – ширину и высоту эллипса, используемого для скругления краев.
* Arc(x,y, r, a1,a2) – рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки).
* Pie(x,y,r,a1,a2) – рисует сектор окружности, ограниченный дугой (параметры процедуры имеют тот же смысл, что и в процедуре Arc).
* Chord(x,y, r, a1,a2) – рисует фигуру, ограниченную дугой окружности и отрезком, соединяющим ее концы (параметры процедуры имеют тот же смысл, что и в процедуре Arc).
* FloodFill(x,y,color) – закрашивает область одного цвета, начиная с точки (x,y) цветом color.
Задание:
Напишите программу, использующую не менее трех процедур рисования, которая рисовала бы несложный рисунок (домик, автомобиль, и т.п.)
- 13 -
Пример решения задания
>Program avto;
>uses graphABC;
>var i : integer;
>begin
> SetWindowSize (800,600);
> SetPenStyle (psClear); // верхняя часть автомобиля
> setBrushColor (Clgreen);
> rectangle (250,250,550,351);
> setBrushColor (ClAqua); // окна
> rectangle (255,255,395,345);
> rectangle (405,255,545,345);
![Язык программирования PHP](/build/oblozhka.dc6e36b8.jpg)
PHP, в настоящее время, – один из наиболее популярных языков для реализации веб-приложений. Данный курс посвящен изучению его основ. Акцент делается на практическое применение полученных навыков. Язык PHP был создан для решения конкретной практической задачи в среде интернет (какой именно можно узнать, прочитав первую лекцию курса). Мы тоже постараемся не отвлекаться слишком сильно на теоретические рассуждения, и будем стремиться к решению какой-нибудь конкретной задачи в каждой из лекций. Большинство примеров взяты из реально существующей системы: виртуального музея истории информатики.
![Острая кривошея у детей: Пособие для врачей](/storage/book-covers/e1/e1c10279c1c6918211316ab4c88508dfac9d3c78.jpg)
Монография посвящена самому частому вертебрологическому заболеванию у детей, обозначенному как синдром «острой кривошеи». В рамках изучения проблемы большое внимание уделено особенностям строения шейного отдела позвоночника у детей. Предложена собственная теория развития синдрома у большинства пациентов. Представлены алгоритмы дифференциальной диагностики и варианты лечения. Книга предназначена для детских хирургов, ортопедов-травматологов, врачей восстановительной медицины, остеопатов, специалистов по лучевой диагностике.
![Перестройка в церковь](/storage/book-covers/de/de4f95e7043e30c10b84061c978996716277d719.jpg)
Слово «миссионер» привычно уже относить к католикам или протестантам, американцам или корейцам. Но вот перед нами книга, написанная миссионером Русской Православной Церкви. И это книга не о том, что было в былые века, а о том, как сегодня вести разговор о вере с тем, кто уже готов спрашивать о ней, но еще не готов с ней согласиться. И это книга не о чужих победах или поражениях, а о своих.Ее автор — профессор Московской Духовной Академии, который чаще читает лекции не в ней, а в светских университетах (в год с лекциями он посещает по сто городов мира)
![Священное Писание Ветхого Завета. Часть 1](/storage/book-covers/09/0943bc9af8586ba4ef7b48e4920b7ae825bdf5ae.jpg)
Книга священника Геннадия Егорова представляет собой общее введение в изучение Священного Писания Ветхого Завета. В ней дается обзор ветхозаветной истории и содержания законоположительных, исторических, учительных и пророческих книг Ветхого Завета. Основной акцент сделан на их мессианском содержании и прочтении с точки зрения Нового Завета. В тексте использовано большое количество святоотеческих толкований и богослужебных текстов. Книга снабжена приложением, в котором собраны фрагменты из творений святых отцов и православных богословов, позволяющие глубже ознакомиться с темами курса.Предлагаемое издание предназначено в первую очередь для слушателей системы дополнительного образования.
![Древняя Греция](/storage/book-covers/0d/0d3ce277b6a7e9d755c6a8221d66c02b53e5bb48.jpg)
Книга состоит из небольших рассказов, посвященных наиболее важным социально-экономическим и общественно политическим событиям древней Греции, и предназначена для внеклассного чтения учащихся VI классов.
![Учебник по Delphi 4.0](/build/oblozhka.dc6e36b8.jpg)
В книге рассказывается история главного героя, который сталкивается с различными проблемами и препятствиями на протяжении всего своего путешествия. По пути он встречает множество второстепенных персонажей, которые играют важные роли в истории. Благодаря опыту главного героя книга исследует такие темы, как любовь, потеря, надежда и стойкость. По мере того, как главный герой преодолевает свои трудности, он усваивает ценные уроки жизни и растет как личность.