Реферат: Графика в Турбо Паскале

МИНЕСТЕРСТВО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ

ОРЛОВСКИИ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ФИЛИАЛ В г. БРАТСКЕ

Компьютерная графика

ГРАФИКА В

TURBO PASCAL

Курсовая работа

Выполнил:

Студент гр.ПИ(Э)-02-Дн Л. С. Пивинская 02850

Проверил:

Старший преподаватель И. В. Маслова

Братск 2003

СОДЕРЖАНИЕ

ВВЕДЕНИЕ ..................................... 3

1. ФУНКЦИИ ИПРОЦЕДУРЫ........................ .4

1.1. Модуль Graph................................. 4

1.2.

Сохранение и выдачаизображений ................. 4

1.3. Координаты,окна, страницы...................... 5

1.4. Линии и точки ................................ 6

1.5. Многоугольники............................... 6

1.6. Дуги, окружности, эллипсы....................... 7

1.7. Краски,палитры, заполнения..................... .8

2. ЛИСТИНГПРОГРАММЫ.......................... 9

ЗАКЛЮЧЕНИЕ .................................. 20

СПИСОКИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ........... 21

ВВЕДЕНИЕ

Вданной курсовой работе рассматриваются различные функции и процедуры предназначенные для изображенияграфических объектов в графическом режиме Турбо Паскаля.

Различие между текстовым и графическимрежимами работы монитора заключается в возможностях управления выводом визуальнойинформации. В текстовом режиме минимальным объектом, отображаемым на экране,является символ, алфавитно-цифровой или какой-либо иной. В обычных условияхэкран монитора, работающего в режиме алфавитно-цифрового дисплея, можетсодержать не более 80 символов по горизонтали и 25 символов по вертикали, тоесть всего 2000 визуальных объектов. При этом имеются ограниченные возможностипо управлению цветом символов. Конечно, в таком режиме можно выводить на экранне только обычный текст, но и некие графические изображения, однако понятно,что качество таких изображений будет вне всякой критики. Тем не менее, в«героическую» эпоху компьютерной эры этот метод был единственным и поэтомуочень популярным способом вывода графиков и целых картин на экран (и на принтер).Программистам иногда удавалось создавать настоящие шедевры «компьютернойпсевдографики». Но для серьезной работы с изображениями текстовый режим дисплеяабсолютно не подходит.

В графическом режиме минимальным объектом,выводом которого может управлять программист, является так называемый пиксел(от английского Pixel, возникшего в результатеобъединения слов «рисунок» (picture) и «элемент» (element)). Пиксел имеет меньшие размеры по сравнению ссимволом (на один символ в текстовом режиме отводится площадка размером внесколько пикселов). Его геометрические размерыопределяются разрешением монитора. Разрешение монитора обычно задается в виде rx * ry, где rx— количество пикселов на экране по горизонтали, а ry — количество пикселов повертикали. На практике используются не произвольные, а некоторые определенныезначения разрешения. Такими разрешениями являются, Например, 320х200, 640х480,800х600, 1024х768, 1280х1024 и т.д.

1. ФУНКЦИИ И ПРОЦЕДУРЫ

1.1. Модуль Graph

Модуль Graph ТурбоПаскаля содержит около пятидесяти различных процедур и функции, предназначенныхдля работы с графическим экраном. В этом же модуле некоторые встроенныеконстанты, которые могут быть использованы в графических программах. Для тогочтобы воспользоваться всеми возможностями модуля Graph,в начале программы( после заголовка)необходимо поместить операториспользования

Uses Graph;

Основную часть модуля составляют процедурыввода базовых графических элементов, таких как точки, отрезки прямых линий,дуги

и целые окружностии др.

Функция GraphErrorMsg.Возвращает значение типа String, в котором поуказанному коду ошибки дается соответствующее текстовое сообщение. Заголовок:

Fanctional GraphErrorMsg(Code: Integer): String;

Здесь Code – кодошибки, возвращаемый функцией GraphResult.

Функция CloseGraph.Завершает работу адаптера в графическом режиме и восстанавливает текстовыйрежим работы экрана.

1.2. Координаты, окна, страницы

Любое изображение формируется из достаточнопростых геометрических фигур. Это точки, отрезки прямых, окружности и т.д. Изгеометрии известно, что положение геометрического объекта и его форма задаютсякоординатами его точек.

Следовательно, для того чтобызапрограммировать графический вывод, надо научиться задавать координатыграфических объектов.

Многие графические процедуры и функциииспользуют указатель текущей позиции на экране, который в отличие от текстовогокурсора невидим. Положение этого указателя, как и вообще любая координата награфическом экране, задается относительно левого верхнего угла, который, в своюочередь, имеет координаты 0,0. Таким образом, горизонтальная координата экранаувеличивается слева направо, а вертикальная — сверху вниз.

Функции GetMaxX и GetMaxY.

Возвращают значениятипа Word, содержащие максимальные координаты экранав текущем режиме работы соответственно по горизонтали и вертикали.

Процедура SetViewPort.Устанавливает прямоугольное окно на графическом экране. Заголовок

:

Procedure SetVievPort(X1, Y1, X2, Y2: Integer;ClipOn: Boolean);

Здесь X1..Y2 – координаты левого верхнего(Х1,Y1) и правогонижнего(X2,Y2) углов окна; ClipOn – выражение типа Boolean, определяющее «отсечку» не умещающихся в окнеэлементов изображения.

Процедура ClearDevice.Очищает графический экран. После обращения к процедуре указательустанавливается в левый верхний угол, а сам экран заполняется цветом фона, заданнымпроцедурой SetBkColor.

1.3 Линии и точки

Процедура PutPixel.Выводит заданным цветом точку по указанным координатам. Заголовок:

Procedure PutPixel(X, Y: Inteder; Color: word);

Здесь X, Y – координаты точки; Color – цвет точки.

Процедура Line.Вычерчивает линию с указанными координатами начала и конца. Заголовок:

Procedure Line(X1, Y1, X2, Y2: Integer);

Здесь X1..Y1 – координаты начала(X1,Y1) иконца(X2,Y2) линии. Линия вычерчивается текущем стилем и текущим цветом.

Процедура SetLineStyle.Устанавливает новый стиль вычерчиваемых линий. Заголовок:

Procedure SetLineStyle(Type, Pattern, Thick: Word);

Здесь Type, Pattern, Thick – соответственнотип, образец и толщина линии. Тип линии может быть создан с помощью одной изследующих констант:

Const

SolidLn= 0;(Сплошная линия)

DottedLn= 1;(Точечная линия)

CenterLn= 2; (Штрих-пунктирная линия)

DashedLn= 3;(Пунктирная линия)

UserBitLn= 4;(Узор линии определяемый пользователем)

1.4. Многоугольники

Процедура Rectangle.Вычерчивает прямоугольник с указанными координатами углов. Заголовок:

Procedure Rectangle(X1, Y1, X2, Y2: Integer);

Здесь X1..Y2 – координаты левого верхнегоугла(X1,Y1) и правого нижнего(X2,Y2) углов прямоугольника. Прямоугольниквычерчивается с использованием текущего цвета и текущего стиля линий.

1.5. Дуги, окружности, эллипсы

Процедура Circle.Вычерчивает окружность. Заголовок:

Procedure Circle(X, Y: Integer; R: Word);

Здесь X,Y – координаты центра; R – радиус впикселях.

Окружность выводится текущим цветом. Толщиналинии устанавливается текущим стилем, вид линии всегда SolidLn(Сплошная).Процедура вычерчивает правильную окружность с учетом изменения линейногоразмера радиуса в зависимости от его направления относительно сторонграфического экрана, т.е. с учетом коэффициента GetAspectRatio.В связи с этим параметр R определяет количество пикселей в горизонтальномнаправлении.

Процедура Arc.Чертит дугу окружности. Заголовок

:

Procedure Arc(X, Y: Integer; BegA, EndA, R: Word);

Здесь X, Y – координаты центра; BegA, EndA –соответственно начальный и конечный углы дуги; R –радиус.

Углы описываются против часовой стрелки иуказываются в градусах. Нулевой угол соответствует горизонтальному направлениювектора слева направо. Если задать значения начального угла 0 и конечного –359, то будет выведена полная окружность. При вычерчивании дуги окружностииспользуется те же соглашения относительно линии радиуса, что и в процедуре Circle.

Процедура Ellipse.Вычерчивает эллипсную дугу. Заголовок

:

Procedure Ellipse(X, Y: Integer; BegA, EndA, Rx, RY: Word);

Здесь X,Y – координаты центра; BegA, EndA – соответственно начальный и конечный углы дуги; RX,RY – горизонтальный и вертикальный радиусы эллипса в пикселях.

При вычерчивании дуги эллипса используетсяте же соглашения относительно линии, что и в процедуре Circle, ите же соглашенияотносительно углов, что и в процедуре Arc. Еслирадиусы согласовать с учетом масштабного коэффициента GetAspectRatio,будут вычерчена правильная окружность.

1.6 Краски,палитры, заполнения

Процедура SetCOlor.Устанавливает текущий цвет для вводимых линий и символов. Заголовок:

Procedure SetColor(Color: Word);

Здесь Color – текущийцвет.

Процедура SetBkColor.Устанавливает цвет фона. Заголовок:

Procedure SetBkColor (Color: Word);

Здесь Color — цветфона.

В отличие от текстового режима, в которомцвет фона может быть только темного оттенка, в графическом режиме он может бытьлюбым. Установка нового цвета фона, немедленно изменяет цвет графическогоэкрана. Это означает, что нельзя создать изображение, два участка которогоимели бы разный цвет фона. Для GGA-адаптера в режиме высокого разрешенияустановка цвета фона изменяет цвет активных пикселей. Замечу, что после заменыцвета фона на любой, отличный от 0 (Black) цвет. Выне сможете более использовать цвет 0 как черный, он будет заменяться на цветфона, т.к. процедуры модуля Graph интерпретируют цветс номером 0 как цвет фона. Это означает, в частности, что Вы уже не сможетевернуть фону черный цвет!

Если Ваш ПК оснащен цветным экраном,следующая программа продемонстрирует работу процедуры SetBkColor.Программа выводит десять вложенных друг в друга прямоугольников, после чегоциклически меняет цвет фона. Для выхода из программы достаточно нажать на любуюклавишу.

Процедура SetFillStyle.Устанавливает стиль (тип и цвет). Заголовок

:

Procedure SetFillStile(Fill, Color: Word);

Здесь Fill – тип заполнения; Color – цвет заполнения.

С помощью заполнения можно покрыватькакие-либо фрагменты изображения периодически повторяющимся узором.

Процедура FloodFill.Заполняет произвольную замкнутую фигуру, используя текущий стильзаполнения(узор и цвет). Заголовок:

Procedure FloodFill(X, Y: Integer; Border: Word);

Здесь X, Y – координаты любой точки внутризамкнутой фигуры; Border – цвет граничной линии. Еслифигура не замкнута, заполнение «разольется по всему экрану.

1.7. Сохранение и выдача изображений

Функция ImageSize.Возвращает размер памяти в байтах, необходимый для размещения прямоугольногофрагмента изображения. Заголовок:

Function ImageSize(X1, Y2, X2, Y2: Integer):Word;

Здесь X1..Y2 – координаты левоговерхнего(X1,Y1) и правого нижнего(X2,Y2) углов фрагмента изображения.

Процедура GetImage.Помещает в память копию прямоугольного фрагмента изображения. Заголовок

:

Procedure GetImage(X1, Y1, X2, Y2: Integer; var Buf);

Здесь X1..Y2 – координаты углов фрагмента изображения; Buf – переменная или участок кучи, куда будут помещенакопия видеопамяти с фрагментом изображения.

Размер Buf долженбыть не меньше значения, возвращаемого функцией ImageSizeс теме же координатами X1..Y2.

Процедура PutImage.Выводит в заданное место экрана копию фрагмента изображения, ранее помещенную впамять процедурой GetImage. Заголовок

:

Procedure PutImage(X, Y: Integer; var Buf; Mode: Word);

Здесь X, Y –координаты левого верхнего угла того места на экране, кудабудет скопирован фрагмент изображения; Buf –переменная или участок кучи, откуда берется изображение; Mode– способ копирования.

Как видим, координаты правого нижнего углане указываются, так как они полностью определяются размерами вновь выводимой наэкран копии изображения. Координаты левого верхнего угла могут быть какимиугодно, лишь бы только выводимая копия уместилась в пределах экрана(если копияне сможет разместиться на экране, она не выводится и экран остается безизменений).

Параметр Modeопределяет способ взаимодействия вновь размещаемой копии уже имеющимся наэкране изображением. Взаимодействие осуществляется путем применения кодируемыхэтим параметром логических операций к каждому биту копии и изображения.

2.

ЛИСТИНГ ПРОГРАММЫ

Program Brodvey;

Uses Graph,Crt;

Var

i, a, y, x: integer;

procedureinit;

var

gD, gM, EC:integer;

begin gD:=detect;

InitGraph

(gD, gM, '');

end;

begin init;

SetColor

(1);

Line(520,0,0,192);

Line(530,0,0,210);

SetFillStyle(1,8);

FloodFill(525,0,1);

Line(550,0,0,450);

Line(565,0,0,600);

SetFillStyle(1,0);

FloodFill(540,0,1);

SetFillStyle(1,10);

FloodFill(555,0,1);

Line(800,0,0,1700);

SetFillStyle(9,10);

FloodFill(555,0,1);

SetFillStyle(1,8);

FloodFill(570,0,1);

SetFillStyle(9,2);

FloodFill(630,400,1);

Line(0,100,90,100);

LIne

(90,100,90,158);

SetFillStyle(1,4);

FloodFill(2,120,1);

Line(5,105,20,105);

Line(5,105,5,115);

Line(20,105,20,115);

Line(5,115,20,115);

SetFillStyle(1,14);

FloodFill(7,110,1);

Line(40,105,55,105);

Line(40,105,40,115);

Line(55,105,55,115);

Line(40,115,55,115);

SetFillStyle(1,14);

FloodFill(45,110,1);

Line(70,105,85,105);

Line(70,105,70,115);

Line(85,105,85,115);

Line(70,115,85,115);

SetfillStyle(1,14);

FloodFill(80,110,1);

Line(5,130,20,130);

Line(5,130,5,140);

Line(20,130,20,140);

Line(5,140,20,140);

SetFillStyle(1,14);

FloodFill(7,135,1);

Line(40,130,55,130);

Line(40,130,40,140);

Line(55,130,55,140);

Line(40,140,55,140);

SetFillStyle(1,14);

FloodFill(45,135,1);

Line(70,130,85,130);

Line(70,130,70,140);

Line(85,130,85,140);

Line(70,140,85,140);

SetFillStyle(1,14);

FloodFill(75,135,1);

Line(0,60,40,60);

Line(40,60,40,100);

SetFillStyle(1,5);

FloodFill(5,65,1);

Line(5,70,15,70);

Line(5,70,5,80);

line(15,70,15,80);

Line(5,80,15,80);

SetfillStyle(1,14);

FloodFill(10,75,1);

Line(25,70,35,70);

Line(35,70,35,80);

Line(25,70,25,80);

Line(25,80,35,80);

SetFillStyle(1,14);

FloodFill(30,75,1);

Line(0,15,55,15);

Line(55,15,55,100);

SetFillStyle(1,6);

FloodFill(10,20,1);

Line(5,40,15,40);

Line(5,40,5,55);

Line(15,40,15,55);

Line(5,55,15,55);

SetFillStyle(1,14);

FloodFill(10,45,1);

Line(25,40,35,40);

Line(25,40,25,55);

Line(35,40,35,55);

Line(25,55,35,55);

SetFillStyle(9,8);

FloodFill(30,45,1);

Line(45,40,55,40);

Line(45,40,45,55);

Line(55,40,55,55);

Line(45,55,55,55);

SetFillStyle(1,14);

FloodFill(50,45,1);

Line(60,45,70,45);

Line(60,45,60,60);

Line(70,45,70,60);

Line(60,60,70,60);

Setfillstyle(1,14);

Floodfill(65,50,1);

Line(90,45,100,45);

Line(90,45,90,60);

Line(100,45,100,60);

Line(90,60,100,60);

SetFillstyle(1,14);

FloodFill(95,50,1);

Line(90,80,90,90);

Line(90,90,105,90);

Line(105,80,105,90);

Line(90,80,105,80);

SetFillStyle(1,14);

FloodFill(95,85,1);

line(70,80,70,90);

line(70,80,55,80);

Line(55,80,55,90);

Line(55,90,70,90);

SetFillStyle(9,8);

FloodFill(59,85,1);

Line(120,90,120,110);

Line(120,110,135,110);

Line(135,110,135,90);

Line(120,90,135,90);

SetFillStyle(1,14);

FloodFill(125,95,1);

Rectangle(155,90,170,110);

SetFillStyle(1,14);

FloodFill(165,95,1);

Rectangle(190,60,200,70);

SetFillStyle(1,14);

FloodFill(195,65,1);

Rectangle(210,60,220,70);

SetFillStyle(1,14);

FloodFill(215,65,1);

Rectangle (230,60,240,70);

SetFillStyle(1,14);

FloodFill(235,65,1);

Rectangle(190,80,200,90);

SetFillStyle(1,14);

FloodFill(195,85,1);

Rectangle(210,80,220,90);

SetFillStyle(1,14);

FloodFill(215,85,1);

Rectangle(230,80,240,90);

SetFillStyle(1,14);

FloodFill(235,85,1);

Rectangle(205,30,230,35);

SetFillStyle(1,14);

FloodFill(210,32,1);

Rectangle(240,30,255,35);

SetFillStyle(9,8);

FloodFill(245,32,1);

Rectangle(265,30,290,35);

SetFillStyle(1,14);

FloodFill(270,32,1);

Rectangle(300,30,325,35);

SetFillStyle(1,14);

FloodFill(310,32,1);

Rectangle(265,40,290,45);

SetFillStyle(1,14);

FloodFill(270,42,1);

Rectangle(300,40,325,45);

SetFillStyle(9,8);

<span Times New

еще рефераты

Еще работы по программному обеспечению

Реферат по программному обеспечению

Разработка антивирусного монитора

29 Августа 2013

Реферат по программному обеспечению

Работа с электронными таблицами Excel. Работа с графическим пакетом Corel Draw

29 Августа 2013

Реферат по программному обеспечению

Разработка системы реального времени в виде планировщика исполнения заданий

29 Августа 2013

Реферат по программному обеспечению

Семейство операционных систем W2k. Обзор версий. Процессы и очереди

29 Августа 2013