19.6.1. Битовые операции

19.6.1.1. Опрос пикселов. Турбо Паскаль позволяет организовать прямой доступ к каждому пикселу экрана. Делается это функцией

GetPixel( X, Y : Integer )

которая возвращает значение типа Word — номер цвета пиксела с координатами (X,Y). Поскольку обычно номер цвета лежит в диапазоне 0..15 или меньше, значащим является только младший байт.

Приведем пример процедуры копирования изображения с графического экрана на одноцветный принтер (рис. 19.27). Это адаптированная версия процедуры из пакета Turbo Graphix Toolbox 4.0. Ее алгоритм довольно прост: поскольку на принтере можно воспроизвести только два цвета — черный и белый, то каждый пиксел экрана проверяется на совпадение с фоном. Если цвет есть (т.е. его значение не равно фоновому), то на принтер выводится точка, если цвета нет, то точка не выводится. В процедуру CopyToPRN передаются координаты прямоугольной области экрана X1... Y2 и два цвета, принимаемые за фоновые. Один из них — действительно фон, а второй может понадобиться, если в изображении есть область иного цвета, служащая фоном для надписей или чего-либо другого.

| CRT, Printer, Graph; { используются эти модули }

| PROCEDURE CopyToPRN(X1,Y1,X2,Y2:Integer;Bk1,Bk2 : Word;

| Inverse : Boolean; Mode : Byte );

| { Mode : 1 = двойная плотность (д/п) 120 точек/дюйм } { 2 = д/п, высокая скорость 120 точек/дюйм } { 3 = четверная плотность 240 точек/дюйм } { 0, 4, 5 = 80 точек/дюйм }

| { 6 = 90 точек/дюйм }

| { Для EPSON-принтеров не из ряда FX задавать Mode=1 }

| { Inverse : если True, то фон печати будет черным }

| VAR

| ScanLine : Integer; {текущая выводимая строка печати }

| n1, n2 : Byte; {специальные значения для принтера }

Рис. 19.27

- 449 -

| { Составление байта для вывода графики на печать }

| FUNCTION ConstructByte( X,Y : Integer) : Byte;

| CONST

| Bits : Array[0..7] of Byte = ( 128,64,32,16,8,4,2,1 );

| { десятичные веса 7-го,6-го,..,0-го бита в байте }

| VAR

| P : Word; { цвет точки (пиксела) }

| CByte, Bit : Byte; { байт и номер бита в нем }

| YY : Integer; { координата текущей точки }

| BEGIN

| CByte := 0; { начальное значение байта }

| for Bit := 0 to 7 do begin { цикл: 8 точек вдоль оси Y }

| YY := Y+Bit; { координата точки по оси Y }

| Р := GetPixel(X, YY); { цвет в этой точке }

| if (YY<=Y2) and (P<>bk1) and (P<>bk2) { Если цвет видимый, }

| then Inc( CByte, Bits[Bit] ); {то запомнить точку }

| end; {for}

| ConstructByte := Cbyte { 8 битов (точек) построены }

| END;

| PROCEDURE Doline; { вывод одной строки на печать }

| VAR

| XPixel : Integer; { текущая координата точки по X }

| PrintByte : Byte; { байт, кодирующий 8 пикселов }

| BEGIN

| if Mode=1 { включение графической печати: }

| then Write( Lst, #27'L' )

| else Write( Lst, #27'*', Chr(Mode) );

| Write(Lst,Chr(n1),Chr(n2)); { посылка длины строки }

| for XPixel:=X1 to X2 do begin { цикл по строке растра }

| PrintByte := ConstructByte( XPixel, ScanLine );

| if Inverse then PrintByte:=not PrintByte; {инверсия }

| Write(Lst,Chr(PrintByte)); { печать кодового байта }

| end; {for}

| Write( Lst, #10 ) { посылка кода перевода строки }

| END;

| LABEL

| Quit; { метка выхода при нажатии Esc }

| BEGIN

| Mode := Mode mod 7; { настройка режима печати Mode: }

| if Mode in [0,5] then Mode := 4;

| Write(Lst,#27'3' #24); { межстрочный интервал 24/256 }

| n1 := Lo(Succ(X2-X1)); { Определение количества точек }

| n2 := Hi(Succ(X2-X1)); { на одной строке печати }

Рис. 19.27 (продолжение)

- 450 -

| ScaneLine := Y1; {стартовая строка растра }

| while ScanLine(Y2 do

| begin {цикл по растру экрана }

| if KeyPressed and (ReadKey=#27) {Нажата клавиша Esc? }

| then Goto Quit; {если да, то выход… }

| DoLine; {печать порции: 8 линий растра }

| Inc(ScanLine, 8) {следующая порция линий растра }

| end; {while}

| Quit: {метка выхода при нажатии Esc }

| Write(Lst, #27#2) {восстановление режима печати }

| END;

| {$I initgraf} {блок инициализации графики }

| BEGIN {ПРИМЕР ВЫЗОВА ПРОЦЕДУРЫ}

| GrInit; {инициализация графики }

| SetFillStyle(HatchFill, Blue); {установка типа заливки }

| FillEllipse(300, 100, 100, 50); {заливка области-эллипса }

| CopyToPRN(0, 0, GetMaxX, GetMaxY, Black, False, 1);

| CloseGraph {закрытие режима графики }

| END.

Рис. 19.27 (окончание)

Показанная процедура будет работать во всех графических режимах адаптеров на принтерах, воспринимающих систему команд принтера EPSON.

19.6.1.2. управление пикселями. Оно заключается в возможности назначить цвет любому пикселю экрана. Процедура

PutPixel(x, y : Integer; Color : Word)

зажигает на экране с координатами (X, Y) пиксел цвета Color. На применении этой процедуры построен пример на рис. 19.28.

| Graph, CRT {понадобится модуль CRT }

| {$I initgraf.pas} {процедура инициализации }

| CONST

| minx = 290; miny = 70; {левый верхний угол области }

| maxx = 350; maxy = 130; {правый нижний угол области }

| Nx = Succ(maxx-minx); {ширина области в пикселах }

| Ny = Succ(maxy-miny); {высота области в пикселах }

| Npixels = Nx+Ny; {число пикселов в области }

- 451 -

| VAR

| countpixels, color : Word; {счетчик точек и их цвет }

| x, y : Integer; {координаты текущей точки }

| BEGIN

| GrInit; {инициализация графики }

| color := GetMaxColor; {цвет выводимых точек }

| countpixels := 0; {обнуление счетчика точек }

| {Повторение до тех пор, пока значение счетчика не равно }

| repeat {количеству точек в фигуре: }

| x := minx+Random(Nx); {Случайные координаты }

| y := miny+Random(Ny); {точки в прямоугольнике. }

| if GetPixel(X, Y)=Black then {Если в точке (X, Y) }

| begin {ничего нет, то }

| PutPixel(x, y, color); {подсветить ее и }

| Inc(countpixels) {увеличить счетчик. }

| end;

| until countpixels=Npixels;

| repeat until KeyPressed; {пауза до нажатия клавиши }

| {Повторение до тех пор, пока значение счетчика не станет }

| repeat {равным нулю: }

| x := minx+Random(Nx); {Случайные координаты }

| y := miny+Random(Ny); {точки в прямоугольнике. }

| if GetPixel(x, y) = color then

| begin {Если точка (X, Y) светится, }

| PutPixel(x, y, Black); {то «потушить» ее и }

| Dec(countpixels) {уменьшить счетчик. }

| end;

| until countpixels=0;

| CloseGraph {закрытие режима графики }

| END.

Рис. 19.28 (окончание)