ЧИТАТЕЛЬ - ЧИТАТЕЛЮ

Печать крупноформатных изображений

Уважаемая редакция!

Мы являемся давними читателями Вашего журнала и поклонниками ZX Spectrum. И вот, читая № 4 за 1995 г., натолкнулись на идею, которой пользуемся уже длительное время (статья

А.Беседина в "Форуме"). Выносим на Ваш суд её развитие. Полагаем, что предложенная программа окажется весьма полезной для многих любителей, занимающихся "железом". Но прежде отвечаем на вопрос А. Беседина.

На четырёх квадратах внизу (режим Scrapbook) указана привязка окна выбранного элемента к курсору, который будет "таскать" его по экрану. Если учесть, что квадратик курсора не может выходить за левую, правую и нижнюю границы экрана, становится ясным назначение 4-х вариантов. Это имеет значение, когда окно впечатывается вплотную к какой-либо границе экрана. При неправильном выборе часть окна может выйти за границу, и соответствующий кусок изображения будет потерян. А развитие идеи простое: ART STUDIO-128 исключительно удобна для рисования принципиальных схем. В режиме Scrapbook легко создаются изображения стандартных элементов, которые затем используются в работе. На экране стандартным способом рисуются конкретные элементы схем (с указанием нумерации выводов и пр.). Выбранные элементы поочередно помещаются в окно и включаются в спрайтовый набор функцией INSERT режима Scrapbook. Далее изготовленный набор спрайтов сохраняется на диске. Работа выполняется один раз и надолго. Таких файлов - наборов может

быть несколько: логические микросхемы, аналоговые элементы, узлы функциональных схем и т.д. Имея такие наборы рисование электрических схем выполняется весьма быстро.

И вот тут встает вторая, но не менее важная задача: а если схема большая и в один экран не помещается? Выход прост - разбить всё поле схемы на набор экранов, как картинку в детских кубиках. А для вывода на принтер использовать предлагаемую ниже программу. Итак, схема разбивается на участки, назовём их, например, f$_nm, где n-номер экрану по Y, a m- по X, как показано рис. 1:

Рис. 1

Индексная нумерация удобней, чтобы не запутаться в именах файлов при распечатке. Программа распечатает все изображения, состыковав их без зазора как по горизонтали, так и по вертикали. Изображение печатается повернутым на 90 градусов, и вот почему. Экранные байты информации в знакоместах расположены горизонтально, а на принтер нужно выдавать "вертикальный" байт: 7-е биты всех 8 линий знакоместа, затем 6-е и т. д. Повернув все изображение на 90 градусов выдаем на принтер байты из нужных файлов, загруженных в RAM, рассчитав лишь их адреса. Сначала печатаются экраны f$_11, f$_21..., затем f$_12, f$_22... и т.д. Таким образом на печать выводится вертикальный столб первого знакоместа строки по всем n экранам, затем второй, и т.д. до последнего. После этого в RAM загружаются следующие n экранов. Разумеется, каретка принтера печатает, как и положено, слева направо.

Максимальный размер изображения по вертикали (относительно экранов) ограничен размером каретки принтера. Размер по горизонтали ограничен только размером листа бумаги. Например, на стандартном листе умещается формат 2x3 экранов (т.е. 6). Для принтеров с широкой кареткой соответственно больше.

Данная программа удобна и в других ситуациях. Например, для распечатки в виде единого массива серии записанных на диск страниц журнала SPECTROFON. Да мало ли для чего.

Текст загрузчика программы приведен в Листинге 1 и кодовый блок в Листинге 2. BASIC -часть особых пояснений не требует. В строке 70 вводится число экранов по горизонтали, а в строке 80 - по вертикали. В индексной нумерации экранов (файлов) первым подразумевается

ЧИТАТЕЛЬ - ЧИТАТЕЛЮ

номер по Y сверху вниз, а вторым - по X слева направо. Вывод каждой строки на принтер происходит в два этапа. Сначала формируется полная строка в буфере с адреса 61000, а затем она непосредственно выводится ни принтер. Вывод байтов сразу на принтер часто приводил к зависаниям последнего. Буфер устранил недостаток.

В программе используется драйвер принтера (PRINTR) для интерфейса ZX LPRINT III. В случае использования интерфейса на базе порта КР580ВВ55 следует изменить строки 980-990, 1750-1880 и добавить 992-995. Изменения отражены в Листинге 3.

Тем, у кого нет 128К RAM, можно работать с обычной версией ART STUDIO, набирая элементы по знакоместам, поработав с Font Editor меню TEXT. И ещё один полезный совет. Для стыковки соседних изображений удобно использовать тот же режим Scrap-book, оформив приграничную область, как элемент и поместив его на RAM-DISK. Но тут есть ограничения: размер такого элемента не может превышать 18 знакомест (большие куски у нас обрезаются). Иначе говоря, имеем аналог функции "Insert Window" из ARTIST 2.

В качестве примера распечатки (но не более того) направляем Вам схему программатора. Поле схемы состоит из 3x3 экранов, а площадь листа использована ещё не полностью. Ещё большие форматы уже просто неудобны практически. (ИФК: присланную схему мы опубликовать не можем из-за огромного размера, но можете нам поверить - она впечатляет!).

Теперь несколько слов на другую тему. На страницах журнала уже неоднократно писалось о том, что некоторые программы из-за некорректного опроса Kempston-Joystic не идут на машинах, где он не реализован. Один из примеров - ZX Word 2.1. После опроса порта IN A,(#1F) поочередно анализируются биты аккумулятора и при установке первого опрошенного активизируется соответствующая подпрограмма. Если Kempston не реализован, из порта считывается байт #FF, и раздражение вам гарантировано. Один из способов лечения такой. Каким-нибудь монитором (например ADM 7.08) найти команду IN A,(#1F) в листинге. Она занимает два байта, которые следует заменить на: XOR A - NOP. Программа воспримет такую замену, как наличие Kempston в неактивном состоянии. Если же программа хорошо защищена, придётся попотеть, снимая защиту (что ещё при этом получится?) или отказаться от неё вовсе.

Листинг 1

10 CLEAR 29500

15 BORDER 1: PAPER 1: INK 6: CLS

20 RANDOMIZE USR 15619: REM: LOAD "prin1" CODE

30 CLS: PRINT #0;"Insert disk with screen": PAUSE 0

40 RANDOMIZE USR 15619: REM: CAT

50 LET addr=31000

60 POKE 29996,addr-256*(INT(addr/256)): POKE 29997,INT(addr/256)

70 INPUT "Number of screen X-? ";x

80 INPUT "Number of screen Y-? ";y: POKE 29995,у

90 RANDOMIZE USR 30000

100 FOR j=1 TO x

110 LET addr=31000

120 FOR i=1 TO у

130 GO SUB 300: PRINT AT 21,0;" Name of Y=";i;" to X=";j;" screen-?":

PAUSE 20: INPUT N$ 132 IF N$="" THEN GO SUB 300: PRINT INK 2; PAPER 4; FLASH 1; AT

21,0;"lnput BAD !": PAUSE 0: GO TO 130 140 LET err=USR 15619: REM: LOAD N$ CODE addr,6144

142 IF err<>0 THEN GO SUB 300: PRINT INK 3; PAPER 4; AT 21,0;" File

not found ": PAUSE 0: GO TO 130 150 LET addr=addr+614 4 160 NEXT i

170 RANDOMIZE USR 30003

180 NEXT j

190 CLS: PRINT AT 21,0; INK 3; PAPER 4; FLASH 1;"All printed" 2 00 PAUSE 0: GO TO 3 0

300 PRINT INK 1; PAPER 1; AT 21,0;" "

310 RETURN

9998 RANDOMIZE USR 15 619: REM: ERASE "V_PRINT"

9999 RANDOMIZE USR 15 619: REM: SAVE "V_PRINT" Для сохранения модуля на диске дать команду GO TO 9998

Листинг 2 (для кодового блока "prin1")

10 ;+--------------------------------------------------------------+

Программа распечатки поворотом

ORG 29993

BUF

BUF1

Y

START NUMBER

графических изображений единым блоком с на 90 градусов =$erg &Со= 1994

;Адрес, буфера для вывода на принтер ;Адрес текущей ячейки буфера ;Число экранов по Y ; Адрес хранения экранов ;Число пикселей в n экранах по ;вертикали.

100 ;-----

110 INIT

12 0 ;-----

130 140

150 L5 160 170 180 190 200 210 220 230 240 250 260

27 0 ;-----

280 PVERT

290

300

310

320

330 L4 340

350 360 370 380

;Инициализация принтера

B A - номер позиции столбца (0-31) 3апись в буфер команды принтера "графический режим одинарной плотности" Вывод в буфер вертикального столбца для n экранов

Выдача на принтер всей строки буфера и кодов #^-#0А

Переход наследующий столбец ;TEST на последний столбец

; Очистка RAM

;B A - номер позиции столбца ;B B - число экранов по Y

; Вычисление адреса нижнего байта столбца ; для каждой позиции знакоместа оче-;редного экрана

;Запись в буфер столбца одного экрана

97 0 ;===========

980 MNITPR XOR

Остановка strobe=1

Выдача на принтер команды Интервал 12/216

(27-51-12) (для принтеров без автоматического перевода строки значение интервала должно быть не 12, а больше)

; Число экранов по Y ; Число байт в столбце экрана

HL ; Число байт столбце для n экранов

и регистра IX перед формированием

; Инициализация ячейки BUF1 ; очередной строки в буфере CLBUF PUSH HL

LD

HL,BUF

INITGR

Инициализация буфера

Для интерфейса принтера на базе порта КР580ВВ55 с адресами портов #3F, #5F, #7F и опросом BUSY по шине D7

97 0 ;====================

980 INITPR LD А, #98

;Значение управляющего слова для /программирования ВВ55

7 биту

18 8 0 ;=============================================================

P.S. Недавно пришлось столкнуться с такой проблемой. Имеются принтеры (упрощенные, отечественного производства), которые работают только с Основной кодовой таблицей ГОСТа, к тому же там отсутствуют элементы псевдографики. Современные текстовые редакторы типа ZX-WORD различных версий используют таблицу с альтернативной кодировкой.

Предлагаемый драйвер печати производит перекодировку знаков кириллицы при выводе на принтер. Драйвер рассчитан на использование интерфейса с КР580ВВ55, но его несложно модифицировать для ZX-LPRINT.

230 BIT 7,A /Проверка готовности принтера

240 JR NZ,PRINT1 /При BUSY=1

250 XOR A

260 OUT (#5F),A /Вывод strobe=0

270 INC A

280 NOP

290 OUT (#5F),A /Вывод strobe=1

300 SCF /Установка CY=1

310 CCF /Сброс CY при нормальном завершении

320 RET

33 0 /=============================================================

340 PRINTQ SCF /Установка CY=1 - признак ненормального

/завершения

350 RET

3 60 /=============================================================

370 SDWIG ADD A,#30 /Увеличение кода знаков "А-п" на 48

38 0 JR PR Z /Печать знака

1. От редакции - МКП «Инфорком», ТОО «Формак» и редакция ZX Ревю поздравляют всех своих читателей, настоящих и будущих, с Новым 1996 годом!
2. Авторская разработка - универсальный фазовый синхронизатор для видеопроцессора.
3. Авторская разработка - загрузчик видеопроцессора.
4. Авторская разработка - простой транслирующий драйвер видеопроцессора.
5. Новые программы - Master Assembler v 1.0 for 128k.
6. Новые программы - Monster Commander v2.1.
7. Визитная карточка - Электронный журнал «ZX Format».
8. Читатель - читателю - система "ROM-Drive".
9. Читатель - читателю - проблемы Kempston интерфейса.
10. Читатель - читателю - О системе синхронизации компьютеров "ПРОФИ".
11. Читатель - читателю - вариант подключения "мыши " ММ8031.
12. Читатель - читателю - устранение ошибки TLW2.
13. Читатель - читателю - проблемы развития ZX Spectrum.
14. Читатель - читателю - печать крупноформатных изображений.
15. Компьютеры, которые мы выбираем - "Хоббит".
16. Компьютеры, которые мы выбираем - "Элара-Диск-128".
17. Компьютеры, которые мы выбираем - "hard" и "soft" ПК "Scorpion ZS-256".
18. TR-DOS для начинающих - мы решили дать наиболее полный методический материал из неопубликованной книги В.О.Сироткина из г. Краснокаменск, Читинской области.
19. Этюды - предлагаю вам программы, написанные лично мной.
20. Форум - двое наших читателей прислали нам большое письмо, в котором затронули целый ряд тем. Нас особенно заинтересовало их исследование программы LIFE.
21. Перекресток - и вновь собираются поклонники адвентюр - первый раз в 1996 году. Что нового мы узнаем сегодня?
22. Советы экспертов - дополнения к редактору миссий для игры LASER SQUAD.
23. Советы экспертов - описание игры Rebel star I.
24. Советы экспертов - Rebel star - старая игра, новые возможности.
25. Советы экспертов - описание игры Lemmings.
26. Советы экспертов - описание игры Formula one manager.
27. Советы экспертов - описание игры Professional tennis.
28. Советы экспертов - описание игры Jonhy reb 2.
29. Советы экспертов - описание игры Delta wing.
30. Tricks ZX - коды, пароли, хитрости.
31. Компьютерная новелла - Звёздное наследие. Часть 2: По ту сторону Вселенной.
32. Авторская программа - обзор авторских системных и игровых программ.
33. Киоск - каталог предлагаемых изданий и дискет.