Градиентное закрашивание

Размещено на http://www.allbest.ru/

Содержание

1. Введение

2. Виды компьютерной графики

3. Форматы графических данных

4. Порядок выполнения работы

5. Результаты выполнения работы

6. Список использованной литературы

1. Введение

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

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

2. Виды компьютерной графики

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

Рисунок 1 Рисунок 2 Рисунок 3

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

Для растровых изображений, состоящих из точек, особую важность имеет понятие разрешения, выражающее количество точек, приходящихся на единицу длины. При этом следует различать: разрешение оригинала; разрешение экранного изображения; разрешение печатного изображения. Разрешение оригинала измеряется в точках на дюйм (dots per inch - dpi) и зависит от требований к качеству изображения и размеру файла, способу оцифровки и создания исходной иллюстрации, избранному формату файла и другим параметрам. В общем случае действует правило: чем выше требование к качеству, тем выше должно быть разрешение оригинала. Для экранных копий изображения элементарную точку растра принято называть пикселем. Размер пикселя варьируется в зависимости от выбранного экранного разрешения (из диапазона стандартных значений), разрешение оригинала и масштаб отображения.

Если в растровой графике базовым элементом изображения является точка, то в векторной графике - линия. Линия описывается математически как единый объект, и потому объем данных для отображения объекта средствами векторной графики существенно меньше, чем в растровой графике.

3. Форматы графических данных

В компьютерной графике применяют, по меньшей мере, три десятка форматов файлов для хранения изображений. TIFF (Tagged Image File Format). Формат предназначен для хранения растровых изображений высокого качества (расширение имени файла. TIF). PSD (PhotoShop Document). Собственный формат программы Adobe Photoshop (расширение имени файла. PSD), один из наиболее мощных по возможностям хранения растровой графической информации. Поддерживаются 48-разрядное кодирование цвета, цветоделение и различные цветовые модели. JPEG (Joint Photographic Experts Group). Формат предназначен для хранения растровых изображений (расширение имени файла. JPG). Позволяет регулировать соотношение между степенью сжатия файла и качеством изображения. GIF (Graphics Interchange Format). Стандартизирован в 1987 году как средство хранения сжатых изображений с фиксированным (256) количеством цветов (расширение имени файла. GIF). Получил популярность в Интернете благодаря высокой степени сжатия. PNG (Portable Network Graphics). Сравнительно новый (1995 год) формат хранения изображений для их публикации в Интернете (расширение имени файла. PNG). Поддерживаются три типа изображений - цветные с глубиной 8 или 24 бита и черно-белое с градацией 256 оттенков серого. Сжатие информации происходит практически без потерь, предусмотрены 254 уровня альфа-канала, чересстрочная развертка. WMF (Windows MetaFile). Формат хранения векторных изображений операционной системы Windows (расширение имени файла. WMF). EPS (Encapsulated PostScript). Формат описания как векторных, так и растровых изображений на языке PostScript фирмы Adobe, фактическом стандарте в области допечатных процессов и полиграфии (расширение имени файла. EPS). PDF (Portable Document Format). Формат описания документов, разработанный фирмой Adobe (расширение имени файла. PDF).

4. Порядок выполнения работы

градиент цвет компьютерная графика

Градиент - это плавный переход от одного цвета к другому.

За основу работы взят листинг, предложенный преподавателем, вариант 9. На форму добавлены необходимые визуальные компоненты, т. е. Button1, Button2, Image.

Для начала, нам нужно извлечь отдельные RGB-координаты. Делается это с помощью функций GetXValue (X=R, G, B). Затем вычисляем различия от и до значений RGB и цветной цвет полосы.

FillRect заполняет указанный прямоугольник канвы, используя текущее значение Brush. Brush - определяет цвет и стиль заполнения фона окна. Доступен только для чтения. Pen - определяет свойства пера, используемые при рисовании линий и фигур на канве.

Класс TBitmap является основой растровой графики в Delphi, он определяет класс изображений или битовых карт, где изображение задается цветами всех своих пикселей. Это единственный стандартный класс, который позволяет редактировать свое изображение: в про- грамме - канва битовой карты доступна через свойство Canvas (другие потомки TGraphic канвы не имеют).

В событии OnResize устанавливаем значение FormPaint для того, чтобы при изменении размера формы происходила перезаливка градиента.

Листинг программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class (TForm)

Button1: TButton;

Button2: TButton;

Image1: TImage;

procedure FormPaint (Sender: TObject) ;

procedure Gradient (Col1, Col2: TColor; Bmp: TBitmap) ;

procedure Button1Click (Sender: TObject) ;

procedure Button2Click (Sender: TObject) ;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *. dfm}

procedure FillGradientRect (Canvas: TCanvas; Recty: TRect; fbcolor, fecolor: TColor; fcolors: Integer) ;

var

i, j, h, w, fcolor: Integer;

R, G, B: Longword;

beginRGBvalue, RGBdifference: array[0.. 2] of Longword;

begin

beginRGBvalue[0]: = GetRvalue (colortoRGB (FBcolor)) ;

beginRGBvalue[1]: = GetGvalue (colortoRGB (FBcolor)) ;

beginRGBvalue[2]: = GetBvalue (colortoRGB (FBcolor)) ;

RGBdifference[0]: = GetRvalue (colortoRGB (FEcolor)) - beginRGBvalue[0];

RGBdifference[1]: = GetGvalue (colortoRGB (FEcolor)) - beginRGBvalue[1];

RGBdifference[2]: = GetBvalue (colortoRGB (FEcolor)) - beginRGBvalue[2];

Canvas. pen. Style: = pssolid;

Canvas. pen. mode: = pmcopy;

j: = 0;

h: = recty. Bottom - recty. Top;

w: = recty. Right - recty. Left;

for i: = fcolors downto 0 do

begin

recty. Left : = muldiv (i - 1, w, fcolors) ;

recty. Right: = muldiv (i, w, fcolors) ;

if fcolors=1 then

begin

R: = beginRGBvalue[0] + muldiv (j, RGBDifference[0], fcolors) ;

G: = beginRGBvalue[1] + muldiv (j, RGBDifference[1], fcolors) ;

B: = beginRGBvalue[2] + muldiv (j, RGBDifference[2], fcolors) ;

end;

Canvas. Brush. Color: = RGB (R, G, B) ;

patBlt (Canvas. Handle, recty. Left, recty. Top, Recty. Right - recty. Left, h, patcopy) ;

Inc (j) ;

end;

end;

{

}

procedure TForm1. Gradient (Col1, Col2: TColor; Bmp: TBitmap) ;

type

PixArray = array [1.. 3] of Byte;

var

i, big, rdiv, gdiv, bdiv, h, w: Integer;

ts: TStringList;

p: ^PixArray;

begin

rdiv: = GetRValue (Col1) - GetRValue (Col2) ;

gdiv: = GetgValue (Col1) - GetgValue (Col2) ;

bdiv: = GetbValue (Col1) - GetbValue (Col2) ;

bmp. PixelFormat: = pf24Bit;

for h: = 0 to bmp. Height - 1 do

begin

p: = bmp. ScanLine[h];

for w: = 0 to bmp. Width - 1 do

begin

p^[1]: = GetBvalue (Col1) - Round ((w / bmp. Width) * bdiv) ;

p^[2]: = GetGvalue (Col1) - Round ((w / bmp. Width) * gdiv) ;

p^[3]: = GetRvalue (Col1) - Round ((w / bmp. Width) * rdiv) ;

Inc (p) ;

end;

end;

end;

procedure TForm1. FormPaint (Sender: TObject) ;

var

Row, Ht: Word;

IX: Integer;

begin

iX: = 200;

Ht: = (ClientHeight + 512) div 256;

for Row: = 0 to 512 do

begin

with Canvas do

begin

Brush. Color: = RGB (Ix, 0, row) ;

FillRect (Rect (0, Row * Ht, ClientWidth, (Row + 1) * Ht)) ;

IX: = (IX - 1) ;

end;

end;

end;

procedure TForm1. Button1Click (Sender: TObject) ;

begin

FillGradientRect (Form1. Canvas, rect (0, 0, Width, Height), $FF0000, $00000, $00FF) ;

end;

procedure TForm1. Button2Click (Sender: TObject) ;

var

BitMap1: TBitMap;

begin

BitMap1: = TBitMap. Create;

try

Bitmap1. Width: = 300;

bitmap1. Height: = 100;

Gradient (clred, clBlack, bitmap1) ;

Image1. Picture. Bitmap. Assign (bitmap1) ;

finally

Bitmap1. Free;

end;

end;

end.

При запуске программы, открывается окно, рис. 1. При нажатии кнопки Button1 меняется цвет формы, рис. 2, при нажатии кнопки Button2 - в форме открывается окно с градиентным закрашиванием, рис. 3. При увеличении формы при нажатии кнопки Button1 меняется цвет формы, отличный от формы в уменьшенном размере, рис. 4

5. Результаты выполнения работы

6. Список использованной литературы

1. Статья «реализация градиентной заливки в Delphi» по материалам http: //www. xaker. name

2. http://www.codingrus.ru

3. http://www.delphisources.ru/

4. http://shiva16.narod.ru

5. Райт Р. С., Липчак Б. OpenGL. Суперкнига - 2006 - 1040 с.

6. Рейнхардт Р. Macromedia Flash MX 2004: Библия пользователя / Р. Рейнхардт, С. Дауд. - М. : Диалектика, 2005. - 1311 с.

7. Тидвелл Дж. Разработка пользовательских интерфейсов / Дж. Тидвелл. - СПб. : Питер, 2007. - 416 с.

Размещено на Allbest.ru

...