ZX Like Pascal

Вид для печати

Показывать 40 сообщений этой темы на одной странице

04.02.2020, 22:31
ALKO

Код:

ATTR ld a,(_ATTRY) ld b,a ld a,(_ATTRX) ld c,a ; расчет адреса атрибутов знакоместа в DE, B-вертик.координата, C-гориз.координата LD A,B RRCA RRCA RRCA LD L,A AND 31 OR 88 LD H,A LD A,L AND 252 OR C LD L,A LD A,(_ATTRC) LD (HL),A RET

Что сюда добавить, чтоб работала проверка _ATTRX / _ATTRY -> RET когда значения выходят за пределы экрана?
04.02.2020, 22:34
blackmirror

cp a,31/ret c/cp a,23/ret c
04.02.2020, 22:41
ALKO

Так будет работать?

Цитата:

ld a,(_ATTRY)
CP 24
JR C, CONTINUE1
RET

CONTINUE1
ld b,a
ld a,(_ATTRX)
CP 24
JR C, CONTINUE2
RET

CONTINUE2
ld c,a
LD A,B
RRCA
RRCA
RRCA
LD L,A
AND 31
OR 88
LD H,A
LD A,L
AND 252
OR C
LD L,A
LD A,(_ATTRC)
LD (HL),A
RET

- - - Добавлено - - -

Цитата:

Сообщение от blackmirror

cp a,31/ret c/cp a,23/ret c

Оуу... даже так...

Спасибо.
04.02.2020, 22:49
Dart Alver

Цитата:

Сообщение от ALKO

ATTR
ld a,(_ATTRY)
ld b,a
ld a,(_ATTRX)
ld c,a

Цитата:

Сообщение от blackmirror

cp a,31/ret c/cp a,23/ret c

Наверно всётаки nc и 32/24

Код:

ld a,(_ATTRY) cp 24 ret nc ld b,a ld a,(_ATTRX) cp 32 ret nc ld c,a
04.04.2020, 19:05
ALKO

АХТУНГ
БАГРЕПОРТ!

Возникла необходимость с копированием изображений.

Набросал тестовую прогу на паскале (кстати, по какому адресу происходит WindowGet. То есть куда сохраняет?)

Цитата:

Program EX4;
var
i: word;
begin

textbackground(4);
textcolor(2);
WindowSet(0,0,9,9);

WindowGet;

WindowSet(10,10,9,9);

WindowPut;

end.

Так вот, полученный асм сурс закидываю в Эму Зэт Вин, но соответствующие процедурки в исходник не добавляются
https://sun1.43222.userapi.com/Lpghv...2aSBkX4fOw.jpg
05.04.2020, 14:27
Andrew771

Проверил, всё работает. У тебя точно версия Паскаля 0.909?
Я такой код вводил:

Код:

Program EX4; var i,zwet: word; begin write('aaa'); WindowSet(0,0,9,9); WindowGet; clrscr; write('нажмите любую клавишу'); readln; clrscr; WindowSet(0,0,9,9); WindowPut; end.

- - - Добавлено - - -

Цитата:

Сообщение от ALKO

Набросал тестовую прогу на паскале (кстати, по какому адресу происходит WindowGet. То есть куда сохраняет?)

Твой код тоже нормально компилируется в версии 0.909.
Изображение сохраняется в область для виртуального экрана. Так что, использовать виртуальный экран и WindowGet/Put в одной программе не рекомендуется.
05.04.2020, 14:32
ALKO

Цитата:

Сообщение от Andrew771

У тебя точно версия Паскаля 0.909?

Экзешник zxlikepascal0909
Вроде он...
05.04.2020, 14:35
Andrew771

Да, всё правильно. libasm.lib надеюсь тоже родной от 0.909.
Должно работать.
05.04.2020, 17:35
ALKO

Цитата:

Сообщение от Andrew771

libasm.lib надеюсь тоже родной от 0.909.

Вот и причина. Либа была от старого билда.

- - - Добавлено - - -

По-дефолту оно копирует в 57344 ?

- - - Добавлено - - -

Пытаюсь продумать алгоритм действий. Мне каждый раз надо будет драконить адрес виртуального экрана, так как надо накопировать кучу изображений по разным адресам. Ещё и оффсет одной пикчи относительно другой вычислять, ибо размеры картинок разные.
05.04.2020, 21:29
Andrew771

Ты бы взял процедуру putimage из файла libasm.lib и немного скорректировал под свою задачу, а потом вставил бы в качестве ассемблерной вставки в свою паскалевскую программу. Процедура выводит прямоугольную область на экран. Формат там нужно реинжинирить.

- - - Добавлено - - -

Цитата:

Сообщение от ALKO

По-дефолту оно копирует в 57344 ?

да

- - - Добавлено - - -

Сейчас глянул процедуру putimage. Там всё просто. До вызова процедуры в ячейках col_window, row_window, width_window, height_window задается левый верхний столбец, левая верхняя строка, ширина и высота окна в знакоместах на экране, а также адрес addr_virt_screen, где лежит изображение. Процедура копирует изображение на экран.
Формат изображения:
все байты первой пиксельной строки
все байты второй пиксельной строки
...
все байты последней пиксельной строки
все атрибуты для всех знакомест подряд от левого верхнего до правого нижнего (если есть)

- - - Добавлено - - -

Т.е. изображение разбито не по знакоместам, а по пиксельным строкам
05.04.2020, 21:51
ALKO

Цитата:

Сообщение от Andrew771

Т.е. изображение разбито не по знакоместам, а по пиксельным строкам

Это и плохо, с пэинтбрашем напрямую подружить не получится, так как у него байты идут по 8 на каждое знакоместо, а не построчно.
05.04.2020, 21:55
Andrew771

Цитата:

Сообщение от ALKO

Это и плохо, с пэинтбрашем напрямую подружить не получится, так как у него байты идут по 8 на каждое знакоместо, а не построчно.

Зато намного быстрее, чем познакоместно.
Придется тебе вручную перековыривать байты от пэинтбраша. Ну либо использовать спрайты в Паскале, там познакоместно.
05.04.2020, 22:40
LW

ZX-Paintbrush сохраняет выделенную область в формате ASM data file как раз построчно. Сначала данные, потом атрибуты.
06.04.2020, 00:17
ALKO

Вложений: 1

скопипастил процедурку putimage из либы.

Экспортнул из пэинтбраша регион 9х9 знакомест (по методу сперва пиксели (таки да, они линиями выстроены) затем массив атрибутов)

Но получившаяся программа ресетится.
Можете глянуть, что я не так делаю опять?
Исходник в приложении
06.04.2020, 15:51
Andrew771

Вложений: 1

Исправил твой исходник, переименовал все переменные, чтобы не пересекались с Паскалевскими.
Картинка выводится, только изображение неверное, проверь последовательность байтов.

Файл заменил в 17:21, если скачал раньше, перекачай :)
06.04.2020, 17:47
ALKO

Цитата:

Сообщение от Andrew771

Картинка выводится, только изображение неверное, проверь последовательность байтов.

чёт непонятно вообще какой участок вывелся. Его ещё и многократно размазало.
Видимо, придётся велосипедить свою процедурку.

А последовательность байтов указана же в комментариях. Там Y строк меняется после каждого прохода.
06.04.2020, 17:55
Andrew771

Это вывелся кусок моего тестового спрайта.
А твой не хочет. Может строки перепутаны?

- - - Добавлено - - -

У тебя первая строка должна быть 9 байтов, вторая 9 байтов и так всего 72 раза. А в файле другое.
Мой спрайт 5х5 знакомест, поэтому в каждой строке по 5 байт, а всего 40 строк.
06.04.2020, 18:17
ALKO

Цитата:

Сообщение от Andrew771

. Может строки перепутаны?

судя по той каше, что он выводит, складывается ощущение, что перепутан вообще адрес, ссылающийся на картинку.

- - - Добавлено - - -

Цитата:

Сообщение от Andrew771

Это вывелся кусок моего тестового спрайта.
А твой не хочет. Может строки перепутаны?

- - - Добавлено - - -

У тебя первая строка должна быть 9 байтов, вторая 9 байтов и так всего 72 раза. А в файле другое.

Пробовал задавать 8 знакомест ширину/высоту окна

- - - Добавлено - - -

Цитата:

Сообщение от ALKO

Пробовал задавать 8 знакомест ширину/высоту окна

хотя это странно. Ведь я же выделял 9х9 знакомест область в редакторе. Почему он экспортит по 8 байт, непонятно.

- - - Добавлено - - -

Что ещё более странно, атрибутов он генерит как раз 9 на ряд.
06.04.2020, 18:19
Andrew771

да, скорей всего, дело в конвертации. Можь, там опция какая?
06.04.2020, 18:20
ALKO

не. По-моему там всё-таки не линиями.
Ибо в каждом ряду по 8 байт (что и составляет одно знакоместо из 8-ми полосочек). А рядов как раз ровно столько, сколько знакомест. Значит там всё-таки по-знакоместная генерация.
06.04.2020, 18:22
Andrew771

А у тебя в проге таких спрайтов много? Можь всё-таки делать обычные спрайты в Паскале?
06.04.2020, 18:41
ALKO

Цитата:

Сообщение от Andrew771

А у тебя в проге таких спрайтов много? Можь всё-таки делать обычные спрайты в Паскале?

даже для обычных спрайтов там надо вручную координаты каждого знакоместа указывать. Это мало того что муторная работа, так ещё и лишняя инфа.
Тем более пикчи есть и довольно массивные.
06.04.2020, 18:48
Andrew771

Есть моя утилитка для спрайтов, тут
Она координаты рассчитывает автоматически.

Посмотрю ZX-Paintbrush, почему он не может перевести, как надо в пиксельные строки.
06.04.2020, 19:00
ALKO

Цитата:

Сообщение от Andrew771

Есть моя утилитка для спрайтов, тут
Она координаты рассчитывает автоматически.

Но атрибуты надо вручную всё равно вбивать
06.04.2020, 19:40
Andrew771

Вложений: 1

Нашел, как в ZX-Paintbrush правильно экспортировать в Асм. Для примера - спрайт 5х6 знакомест, см. скриншот, что надо выставить. Тогда правильно сконвертируется.

- - - Добавлено - - -

Т.е., для твоего спрайта нужно ставить 9 в обоих местах.
06.04.2020, 19:41
ALKO

Я пробовал шаманить с теми опциями. Но почему-то всё равно по-знакоместно выстраивается :\
06.04.2020, 19:50
Andrew771

Свою картинку можешь прислать? Я попробую.
06.04.2020, 19:56
ALKO

Вложений: 1

Воть.

Кстати. А какая версия браша?

У меня 2.6.1, если что.
06.04.2020, 20:11
Andrew771

Вложений: 1

Версия 2.6.4. Поставил девятки, всё прекрасно конвертанулось, см.файл.
06.04.2020, 21:55
ALKO

СТРАННО

скачал 2.6.4.
Нажимаю экспорт файл селекшн
Ставлю макс байтс пер лайн для пикселей и атрибутов по 9 - и всё равно оно раскидывает по знакоместам. Што за

- - - Добавлено - - -

Также пробовал выделять экспортируемую область, и без выделения.

- - - Добавлено - - -

Тю блин. Я невнимательный.
У меня стояла опция блок бэйзед по-умолчанию. Это я не доглядел.
06.04.2020, 21:58
Andrew771

ALKO, получилось?
06.04.2020, 22:00
ALKO

А ещё такой глупый вопрос.

col_window1
row_window1
width_window1
height_window1
_
всё это числовые переменные, и их можно задавать из паскаля.

А как быть с ld hl,sprite1 ?
Или тут только вручную придётся рассчитывать адреса ? По лейблам из паскаля обращаться никак нельзя?

- - - Добавлено - - -

Цитата:

Сообщение от Andrew771

ALKO, получилось?

да. Прост упустил момент со вкладкой лайн-бэйзед
06.04.2020, 22:02
Andrew771

Не, их уже нельзя задавать из Паскаля, т.к. я единичку на конце поставил. Ну можешь обратно вернуть.
А sprite1 да, только ассемблерной вставкой.

- - - Добавлено - - -

Цитата:

Сообщение от Andrew771

Ну можешь обратно вернуть.

точнее, их самих удалить, а задавать всё через команду WindowSet
06.04.2020, 22:03
ALKO

Цитата:

Сообщение от Andrew771

Не, их уже нельзя задавать из Паскаля, т.к. я единичку на конце поставил.

Я имею ввиду Asm() вызов с соответствующим присвоением переменных.
06.04.2020, 22:04
Andrew771

Цитата:

Сообщение от ALKO

Я имею ввиду Asm() вызов с соответствующим присвоением переменных.

да, теперь только так
07.04.2020, 13:27
ALKO

А как бы эту процедурку использовать в связке с декомпрессорами?
Ведь в том же bmp2scr декомпрессия происходит в растр screen$ (хоть сам адрес можно задавать кастомный). А нужна лишь отдельная область распакованного screen'a.

Или может есть такие компрессоры, которые распаковывают в таком же формате - по линиям n-ширины?

Есть идеи на сей счет?
07.04.2020, 15:45
Andrew771

Про компрессию ничего не знаю, пусть ответят знающие люди, можно спросить в другой теме.

Я вот что подумал про переменные col_window1 и др. Наверняка тебе понадобится их расчет координат в программе. Так чтобы не делать его на ассемблере, а в Паскале, лучше использовать паскалевский оператор WindowSet, и в процедуре вывода использовать стандартные col_window и др. (без единиц). Инициализировать их на ассемблере не надо, это делает Паскаль.
07.04.2020, 16:58
ALKO

с координатами под асмом проблем нет.
Уже спокойно орудую ими.
Другое дело что за оффсетом адресуемых картинок, раскиданных по памяти надо следить. И подозрение, что 40кб для всех пикч и музла может попросту не хватить, если не воспользоваться хотя бы банальным RLE.
07.04.2020, 17:29
Andrew771

У меня такие же проблемы с памятью в двух последних разрабатываемых играх, в 48к никак не хотят умещаться все хотелки, подумываю о нехорошем - 128к.
08.04.2020, 22:40
ALKO

Почему-то при попытке добавить воспроизводилку музыки через IM2 прога виснет.

А когда я пробую Im2 процедурку скопировать отсюда:
https://arcadegamedesigner.proboards...ckground-music

ZX паскаль не добавляет ряд своих процедур при компиляции.

Показывать 40 сообщений этой темы на одной странице

Текущее время: 00:17. Часовой пояс GMT +3.