51344

Фильтрация

Лабораторная работа

Информатика, кибернетика и программирование

Цель работы: Написать программу, осуществляющую фильтрацию изображения по заданной в программе маске (с возможностью редактирования пользователем). Изображение открывается через диалог открытия файла с расширением .bmp.

Русский

2014-02-09

459 KB

13 чел.

Лабораторная работа 2

Фильтрация

Выполнил: Шуклецов М.А.

 ФРТ, гр. 2106

Цель работы: Написать программу, осуществляющую фильтрацию изображения по заданной в программе маске (с возможностью редактирования пользователем). Изображение открывается через диалог открытия файла с расширением *.bmp.

При выполнении лабораторной работы, я за исходное изображение взял:

 

Общий вид программы следующий:

Здесь мы видим следующие элементы управления:

«Матрица фильтрации» – та матрица, на которую умножается специальным алгоритмом

рамка 3х3 изображения передвигающаяся по изображению.

«Фильтрация» - Кнопка, совершающая описанное выше действие.

«Вернуть изображение» - кнопка, созданная для удобства загрузки изображения и дальнейшего повторения операции.

«Выбрать файл» - через OpenDialog мы выбираем изображение, путь к которому отображается в окне Edit.

Алгоритм фильтрации:

Код программы:

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

       : TForm(Owner)

{

}

//---------------------------------------------------------------------------

Graphics::TBitmap* pBitmap1 = new Graphics::TBitmap();

byte arrayY[800][600], *ptr;     //создание аххива под изображение

static inline byte CLAMP(int x)     //функция обрезания полученных

{ return ((x > 255) ? 255 : ((x < 0) ? 0 : x)); }   //значении цвета в пределах 0…255

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)  //заполнение матрицы произвольными 

{        //числами

int i,j;

randomize();

for(i=0; i<3;i++)

  {

       for(j=0; j<3;j++)

       {

       StringGrid1->Cells[i][j] = IntToStr(random(10)-4);

       }

  }

       

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)  //Кнопка «Выбрать файл»

{

if(OpenDialog1->Execute())

{

  Edit1->Text=OpenDialog1->FileName;

  pBitmap1->LoadFromFile(Edit1->Text);

}

 Image1->Left=0;

Image1->Top=0;

Image1->Width=pBitmap1->Width;

Image1->Height=pBitmap1->Height;

Image1->Picture->Assign(pBitmap1);

int x, y;

for(y=0; y < pBitmap1->Height; y++)  //цикл считывания изображения в заранее

 {      //созданный массив

   ptr=(Byte*)pBitmap1->ScanLine[y];  

   for(x=0; x < pBitmap1->Width; x++)

       {

       arrayY[x][y] = *(ptr + x);   //запись соответствующего значения в матрицу

       }

 }

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

int x, y;

for (y=1 ; y<(pBitmap1->Width)-1; y++)

{

for (x=1; x<(pBitmap1->Height)-1; x++)

 {arrayY[x][y]=arrayY[x-1][y-1]*StrToInt(StringGrid1->Cells[0][0])+ //Собственно сам алгоритм

 arrayY[x][y-1]*StrToInt(StringGrid1->Cells[1][0])+   //представленный выше 

 arrayY[x+1][y-1]*StrToInt(StringGrid1->Cells[2][0])+   

 arrayY[x-1][y]*StrToInt(StringGrid1->Cells[0][1])+   

 arrayY[x-1][y+1]*StrToInt(StringGrid1->Cells[0][2])+

 arrayY[x+1][y+1]*StrToInt(StringGrid1->Cells[2][2])+    

 arrayY[x][y+1]*StrToInt(StringGrid1->Cells[1][2])+

 arrayY[x+1][y]*StrToInt(StringGrid1->Cells[2][1])+

 arrayY[x][y]*StrToInt(StringGrid1->Cells[1][1]);

 arrayY[x][y] = CLAMP(arrayY[x][y]);     //функция описана выше

 }

}

for(y=0; y < pBitmap1->Height; y++)   //цикл перезаписывающий изображение

 {       //из полученной матрицы чисел

   ptr=(Byte*)pBitmap1->ScanLine[y];

   for(x=0; x < pBitmap1->Width; x++)

    {

       *(ptr + x) = arrayY[x][y];

       }

    }

 Image1->Picture->Assign(pBitmap1);   //вывод изображения из памяти в Image1

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)  //кнопка «Вернуть изображение»

{

 pBitmap1->LoadFromFile(Edit1->Text);

 Image1->Left=0;

Image1->Top=0;

Image1->Width=pBitmap1->Width;

Image1->Height=pBitmap1->Height;

Image1->Picture->Assign(pBitmap1);

}

//---------------------------------------------------------------------------

Вывод: Мы посмотрели алгоритм наложения на изображение фильтров.


 

А также другие работы, которые могут Вас заинтересовать

45633. PR-консалтинг в кризисных ситуациях 27.5 KB
  Подход к организации с т. Свойство эмерджентности – несовпадение целей организации с целями входящих в нее частей. Кризисный PR – специальная коммуникационная технология направленная на сохранение паблицитного капитала организации или персоны который разрушается вследствие реального или нереального кризиса. Далее – информационное использование кризиса на благо организации.
45634. Кризисный PR 34.5 KB
  В PR-сопровождение входит комплекс исследований стартовой ситуации разработка стратегии кампания в СМИ работа с элитами достижение лояльности органов власти юридическое сопровождение. Информационные войны Конкуренция на рынке между бизнес-структурами зачастую приводит к кампаниям в СМИ с целью дискредитации конкурента в глазах потребителей или делового сообщества. Мы специализируемся на выстраивании линии защиты в информационном поле проведении медийных кампаний по возвышению имиджа или репозиционированию клиента блокировании действий...
45635. Деловые переговоры как форма PR-деятельности 33.5 KB
  При проведении переговоров важно какую стратегию вы выберете: 1 стратегия выигрыша я выигрываю всегда в любой ситуации такому человеку можно как проиграть так и выиграть выигрыш проигрыш выи. Часто такая стратегия краткосрочна сиюминутна. Стратегия выигрышпроигрыш Этот подход означает: Будет так как решу я. Стратегия выигрышпроигрыш жесткая стратегия ведения переговоров с явно выраженным стремлением одной стороны добиться преимуществ за счет интересов другой.