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

Полный текст модуля см. в прил.П2.

1.3.1. Используемые шрифты и координаты

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

^————__———_——————————————————+

I Эта программа предназначена для создания \ ¦ поточечного шрифта, который может затем ¦

I использоваться в модуле F GrText \ +——————_————————————————————+;

Uses Graph,DOS,CRT;

type

ab = array [O..MaxInt] of Byte;

var

D,R,E: Integer;

P: "ab;

k,X,Y,B,H: Byte;

XO,YO: Integer;

F: File;

S: String;

Reg: registers;

begin

{Инициируем графический режим} D := Detect;

InitGraph(D,R,'') ;

E := GraphResult;

if EogrOk then begin WriteLn(GraphErrorMsg(E));

Halt end;

{Проверяем драйвер и назначаем высоту шрифта} case D of