{Создаем изображение 8х19} for Y := 0 to 18 do begin

в := о;

for X := 0 to 7 do begin

S := 0; {Начальное значение суммы} for k := 0 to 15 do

S:=S+A19[X,Y,k]; {Суммируем веса} {Проверяем сумму} if (S>9) then

begin {Большинство клеток закрашено -

помещаем единицу и выводим пиксел} В := В or (128 shr X) ;

PutPixel(XO+9+X,YO+Y,White) end end;

C19[Y] := В end;

{Записываем сформированный образ в файл 8х19} Write(F19,C19) ;

{Сдвигаем эхо-повтор} inc(XO,20) ;

if X0>640 then begin

XO := 0;

inc(YO,20) end end;

{Завершаем программу} CloseGraph;

Close(F16) ;

Close(F19) end.

Программа считывает каждый образ шрифта 8х16 в переменную С 16, затем анализирует этот образ и формирует шрифт 8х19 в переменной С 19. Преобразование шрифта осуществляется методом весовых коэффициентов. Суть метода состоит в том, что каждый пиксел шрифта 8х16 разбивается в вертикальном направлении на 19 частей (переменная А16). Эти части заполняются единицами, если пиксел светится, или нулями — если не светится. После этого переменная А16 рассматривается как матрица 8х19, каждый элемент которой в вертикальном направлении разбит на 16 частей (переменная А19). Для этой переменной находится сумма всех элементов каждого пиксела (переменная 5). Если эта сумма больше 9, значит большая часть пиксела в шрифте 8х19 должна быть засвечена, и этот пиксел объявляется светящимся, если меньше — не светящимся. Рис. 1.4 иллюстрирует сказанное.