Преобразование изображения таким образом, чтобы строки располагались в порядке возрастания по средней яркости

Страницы работы

Содержание работы

Федеральное агентство по образованию РФ

 


Санкт-Петербургский государственный электротехнический
университет "ЛЭТИ" им. В. И. Ульянова (Ленина)

 


Кафедра телевидения и видеотехники

ОТЧЕТ

По Курсовой работе на тему:

«Преобразование изображения таким образом, чтобы строки располагались в порядке возрастания по средней яркости»

Выполнил ст. гр. 9105                                                                    Тенизбаев А.Б.

Проверил доц. каф. ТВ                                                               А. М. Мончак

Санкт-Петербург

2010

1.Неформальная постановка задачи.

    Преобразовать изображение таким образом, чтобы строки располагались в порядке                 возрастания средней яркости.

2.Формальная постановка задачи:

- проверить является ли tif (в заголовке 73,73,42,0)

- вывести исходное изображение на экран дисплея, используя:

·  процедуру «new», для выделения места в динамической области памяти.

·  процедуру «putpixel» для по точечного вывода изображения

- рассчитать значение средней яркости каждой строки, суммируя значения яркости каждой точки в строке.

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

       3.Постановка задачи для ЭВМ:

Переменная

Тип

Назначение

imagefile1

string

Для хранения имени физического файла

NumberofTag

integer

Количество tag

x,y

integer

Координаты изображения

Size

word

Размер считываемого блока

razmer_strok

integer

Размер полосы изображения

Tag 278

f

file

Файловая переменная

Xpal,Ypal      

word;

Координаты выводимой палитры

Xmax,Ymax             

string

Максимальное разрешение экрана

Driv,Mode

integer

Установки графического режима

z

longint

Переменная для записи значения яркости

I,j

longint

Счетчик цикла

col

integer

Яркость пикселя

TagType

integer

Тип тага

PoinTyp

integer

Для tag 273 тип данных

comp

longint

Для tag 273 количество указателей

PoinAdr

longint

Для tag 273 адрес таблицы указателей

Wx,Wy

longint

Количество точек (по горизонтали/по вертикали)

Seektiff

longint

Первое значение таблицы указателей

head

longint

Раздел описания данного файла

adress_ifd                        

longint

Адрес первого ifd

IFDind

longint

Для перехода на нужный байт

TiffHead

longint absolute th

Переменная, имеющая адрес константы tif (для определения tif ли файл)

br

array[1..dy,1..2] of longint

двумерный массив, для заполнения суммарной яркости и значения строки

5. Текст Программы:

program Kursovik;

uses Graph,Crt;

const dy=600;

      dx=600;

type

          Dim = array[1..dx] of byte;

          DimPtr = ^Dim;

          poi = array[1..dy] of DimPtr;

var

        x,y,Driv,Mode,seektiff,col                    : integer;

        Size,temp1,temp2,                                : word;

        Wx,Wy,z                                                        : longint;

        f                                                            : file;

        ImageFile1                                            : string;

        po                                                         : poi;

        br                                                          : array[1..dy,1..2] of longint;

PROCEDURE HeadRead;

Const

   TH      : array[0..3] of byte  =  (73,73,42,0);

Var

   NumberofTag,IFDlength, i,TagType,PoinTyp      : integer;

   comp,PoinAdr, head,IFDInd,BegIFD                 : longint;

   TiffHead                                                              : longint absolute TH;

Begin

    Blockread(f,head,4);

Похожие материалы

Информация о работе