Принтер LX-1050, программное обеспечение и графика, страница 11

Следующая программа работает также как и в примере (см. раздел Печать более высоких рисунков). На этот раз выбрано расстояние между строк 7/72 дюйма, потому, что используются только 7 иголок. Так как данные не повторяются, графические данные каждой колонки считываются из инструкции DATA и посылаются принтеру. На ширину эскиза приходится 41 положение точки. Поэтому в строках 130 и 140 используется число 41.

100 WIDTH "LPT1:", 255

110 LPRINT CHR$(27);"A";CHR$(7);

120 FOR ROW=1 TO 2

130 LPRINT CHR$(27); "Y";CHR$(41);CHR$(0);

140 FOR COLUMN=1 TO 41

150 READ N

160 LPRINT CHR$(N);

170 NEXT COLUMN

180 LPRINT

190 NEXT ROW

200 END

210 DATA 64,32,80,8,68,2,64,0,64,0

220 DATA 64,0,64,0,32,0,16,0,8,0

230 DATA 8,0,8,0,8,0,8,0,8,0,8,0,8,0

240 DATA 184,64,32,16,8,4,2

250 DATA 8,16,40,64,136,0,8,0,8,0

260 DATA 8,0,8,0,16,0,32,0,64,0,64,0

270 DATA 64,0,64,0,64,0,64,0,64,0,64,0

280 DATA 116,8,16,32,64,128,0

Когда вы запустите эту программу, она даст следующую распечатку.

Если вы хотите посмотреть этот рисунок при других плотностях, измените Y в строке 130 на L или Z.

Команды индивидуального варианта графики

Имеются четыре команды индивидуального варианта графики, которые почти такие же как команда ESC *, но каждая работает только с одним вариантом графики. Заметьте, что эти команды не содержат в отличие от команды ESC * переменных, так как они не должны определять вариант графики.

Они показаны ниже:

Команда

Функция

Формат ESC *

ESC К

ESCL

ESC Y

ESCZ

Обычная плотность

Удвоенная плотность

Высокоскоростная удвоенная плотность

Учетверенная плотность

ESC * 0

ESC * 1

ESC * 2

ESC * 3