Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Принтеры и Печать    >>    printfx
   
 
 PRINTFX - Печать Текста Графическими Фонтами   Dima Orlov 01.03.1996

Графическая печать текстовых файлов шрифтом пишущей машинки на матричном принтере. (src, pas)



14k 
 

- SU.PASCAL.MODULA.ADA (2:5021/22) --------------------- SU.PASCAL.MODULA.ADA - From : Dima Orlov 2:461/27 01 Mar 97 15:36:20 To : All 02 Mar 97 17:31:44 Subj : PRINTFX.ZIP Печать текста графич. фонтами ------------------------------------------------------------------------------- Набор программ для графической печати на матричном принтере, совместимом с EPSON - FX80. Шрифт представляет собой битовую матрицу 12х24: 123456789112 23 2 22 3 21 4 **** 20 5 * * 19 6 * * 18 7* * 17 8* * 16 9* * * 15 1 ** * 14 1 * 13 2 * 12 3 * 11 4 ** 10 5 * 09 6 * 08 7 * 07 8 * 06 9 * * * 05 2* * * * 04 1** * * 03 2* ** 02 3 01 4 00 Нумерация битов показана в правом столбце цифр. Печать символа осуществ- ляется за 6 проходов печатающей головки в восьмиигольном графическом ре- жиме с двойной прлотностью (120 точек на дюйм), задаваемом командой L. При этом биты печатаются в следующем порядке: begin: \0x0d@J\0013\0x18 begin str: 8 Lxx 23+21 \0x0dJ\001 Lxx 22+20 \0x0dJ\004 Lxx 19+17+15+13+11+09+07+05 \0x0dJ\001 Lxx 18+16+14+12+10+08+06+04 \0x0dJ\004 Lxx 01+03 \0x0dJ\001 Lxx 00+02 end str: 9\0x0a\0x0d end: @ xx = Length*12 Тут строки 'begin:'и 'end:' обозначают соответственно команды, посылае- мые на принтер в начале и конце печати файла, а стороки 'begin str:' и 'end str:' - соответственно в начале и конце печати строки текст