Рисование по пикселям

Рисовать на канве можно разными способами. Первый вариант — рисование по пикселям. Для этого используется свойство канвы Pixels. Это свойство пред­ставляет собой двумерный массив, который отвечает за цвета канвы. Например, Canvas.Pixels[10,20] соответствует цвету пикселя, 10-го слева и 20-го сверху. С массивом пикселей можно обращаться как с любым свойством: изменять цвет, задавая пикселю новое значение, или определять его цвет по хранящемуся в нем значению. Например, Canvas.Pixels[10,20]:= 0 или Canvas.PixelsflO,20]:= clBlack — это задание пикселю черного цвета.

Давайте попробуем нарисовать график некоторой функции F(X) на канве ком­понента Imagel, если известен диапазон ее изменения Ymax и Ymin и диапазон из­менения аргумента Xmin и Хmах. Это можно сделать такой процедурой:

var

X,Y:real; // координаты функции

РХ,PY:longint; // координаты пикселей

begin

for PX:=0 to Imagel.Width do begin

// X — координата, соответствующая пикселю с координатой РХ X:=Xmin+PX*(Xmax-Xmin)/Imagel.Width; Y:=F(X);

// PY — координата пикселя, соответствующая координате Y PY:=trunc(Imagel.Height-(Y-Ymin)*Imagel.Height/(Ymax-Ymin)); (Устанавливается черный цвет выбранного пикселя (0 яркости)} Imagel.Canvas.Pixels[PX,PY]:= 0; end; end;

В этом коде вводятся переменные X и Y, являющиеся значениями аргумента и функции, а также переменные РХ и PY, являющиеся координатами пикселей, со­ответствующими X и Y. Сама процедура состоит из цикла по всем значениям гори­зонтальной координаты пикселей РХ компонента Imagel. Сначала выбранное зна­чение РХ пересчитывается в соответствующее значение X. Затем производится вы­зов функции F(X) и определяется ее значение Y. Это значение пересчитывается в вертикальную координату пикселя PY. И в заключение цвет пикселя с координа­тами (РХ, PY) устанавливается черным.

Попробуйте создать соответствующее приложение и посмотреть, как оно рабо­тает. Пусть для простоты мы будем ориентироваться на функцию sin(X), для кото­рой Xmin = 0, Хmах = 4р (2 периода в радианах), Ymin = -1, Ymax — 1.

Начните новый проект, поместите на него компонент Image и кнопку с надписью «Нарисовать», в обработчик события OnClick которой запишите код, анало­гичный приведенному выше, но конкретизирующий функцию:

// координаты функции // координаты пикселей

var

X,Y:real; РХ, PY:longint; begin

for PX:=0 to Imagel.Width do begin

// X — координата, соответствующая пикселю с координатой РХ X:= РХ * 4 * Pi / Imagel.Width; Y:= Sin(X);

// PY — координата пикселя, соответствующая координате Y PY:=trunc(Imagel.Height-(Y+l)*Imagel.Height/2); {Устанавливается черный цвет выбранного пикселя (0 яркости)} Imagel.Canvas.Pixels[PX,PY]:= 0; end; end;

Откомпилируйте ваш проект, сохраните его и вы­полните.

Дата добавления: 2015-03-29