Sprite graber - проба пера

Ударила меня ностальгия по Спектруму в новогодние праздники, решил вспомнить старый опыт. Почитал любимый самоучитель - "Как написать игру на ассемблере", увидел там бейсиковскую программу (с ассемблерными рутинами) для захвата спрайтов из экранного файла в формат, который автор пропагандировал. Для разминки переписал его на ассемблере (творил в SjAsm Plus + Unreal), кое-что дописал от себя. Можно смотреть как устроено (ибо не сложно), можно даже использовать, коли кому сгодится. Если случится вдруг чудо и кому-то это станет надо по жизни, готов даже поддерживать.

upd: SpriteGraber.zip - последняя актуальная версия. Также приложена инструкция.

Цитата:

---

Сообщение от Alex Rider

увидел там бейсиковскую программу (с ассемблерными рутинами) для захвата спрайтов из экранного файла в формат, который автор пропагандировал.

---

В наше время спрайты рисовать и грабить сподручнее на пц...
Я правильно понимаю, что сама процедура печати спрайтов осталась без изменения?
(она ведь наверняка подлежит оптимизации)

Процедуры захвата и печати спрайта полностью самописные, от оригинала остался только формат. Из процедуры печати спрайтов убран контроль выхода за границы экрана (ибо нужна она только для показа спрайта в левом верхнем углу). Во внутренних циклах печати спрайта для хранения промежуточных данных не используется стек в пользу альтернативных регистров. Думаю, там еще куча простора для оптимизации. Я старался писать не транжиря память и такты, но не думаю, что получился верх совершенства. Алгоритмы сдирания спрайта с экрана и печати его обратно живут в модуле SpriteTools.a80.

Цитата:

---

Сообщение от Alex Rider

Если случится вдруг чудо и кому-то это станет надо по жизни, готов даже поддерживать.

---

вот сделай, чтоб программа выгружала вырезанные спрайты и кодовый блок, чтоб я потом мог их использовать подкидывая координаты в знакоместах!

Цитата:

---

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

вот сделай, чтоб программа выгружала вырезанные спрайты и кодовый блок, чтоб я потом мог их использовать подкидывая координаты в знакоместах!

---

Совсем это на техзадание не похоже... Ты вот хотя бы на такие вопросы дай ответы:
1) Как должны передаваться координаты и номер спрайта?
2) Должен ли блок быть релоцируем?
3) Надо ли проверять выход всего спрайта или его части за пределы экрана? Что делать, если часть спрайта выходит за пределы экрана?
4) Надо ли делать печать по LD/OR/XOR/AND?
5) Надо ли уметь печатать в теневой экран? Если да, как должен задаваться его адрес?

---------- Post added at 23:12 ---------- Previous post was at 23:07 ----------

Кстати, еще в догонку: формат спрайта подразумевает, что, если он не прямоугольный, информация о пустых знакоместах может не храниться. Однако, моя тулза выдирает всегда прямоугольник, поскольку не может угадать пустое ли знакоместо она выдирает. Надо ли здесь сделать какую-то оптимизацию?
P.S. "Пустое" знакоместо - это знакоместо без пикселов (это легко узнать) и без фона. А вот как сказать, что у знакоместа "пустой" ("прозрачный") фон - я не знаю, альфа-канала нет. ;)

1. каждый спрайт вызывается по call "адрес спрайта", координаты передаются для каждого спрайта в "адрес спрайта+5 (,6)" в знакоместах. затем он обращается к процедуре вывода его.
2.да надо релоцируемость. или же чтоб я мог указать с какого адреса я буду распологать весь блок .(но чтоб вырезатель спрайтов показывал списком все адреса спрайтов+код в конце)
3.проверять ненадо. (хотя хорошо бы было чтоб скрывались части вне экрана)
4.обычная печать (цветная)
5.не печатать.

пример_____________

ld (адресс спрайта+N),x
ld (адресс спрайта+N),y
call адресс спрайта.

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

---------- Post added at 22:42 ---------- Previous post was at 22:41 ----------

в догонку: простые прямоугольные спрайты. разного размера.

Цитата:

---

Сообщение от Alex Rider

альфа-канала нет

---

Есть - папер = инк

---------- Post added at 23:52 ---------- Previous post was at 23:51 ----------

Либо - flash

Цитата:

---

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

каждый спрайт вызывается по call "адрес спрайта", координаты передаются для каждого спрайта в "адрес спрайта+5 (,6)" в знакоместах.

---

Странный способ вызова... А не проще печатать спрайт по его номеру? Это и памяти меньше схавает, и вызывающий код меньше править если надо перенести блок или поменять размер спрайтов в нем. Мне все равно придется к каждому спрайту прилеплять такой код:

Код:

---

        ld a,<номер спрайта>
        jp <печать спрайта по номеру>

---

Я бы предложил такие способы указания координат и номера (адреса) спрайта:
-- за командой вызова, типа, так:

Код:

---

        call put_sprite
        defb x
        defb y
        defb n

---

-- через фиксированные (абсолютные или относительно начала блока) ячейки пямяти;
-- через регистры;
-- на стеке.

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

---------- Post added at 00:17 ---------- Previous post was at 00:11 ----------

Цитата:

---

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

Есть - папер = инк
Либо - flash

---

Обо всем этом надо договариваться при оформлении экрана, с которого сдирается спрайт. Папер=инк может быть внутри спрайта если в нем пустое знакоместо, которое должно быть обязательно перекрашено при выводе. Для Flash тоже актуально. Как вариант - (paper == ink) && (flash == 1), но опять же требует предварительной обработки картинки перед сдиранием. Неудобно если внезапно захочется выкушать спрайт с экрана свежеиспеченного @-файла, к примеру.

Цитата:

---

Сообщение от Alex Rider

за ввод базового адреса блока при сохранении

---

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

вот пример, посмотри как тут сделано.
в данном случае адресс спрайта 54214,
54214+13, - меняется координата Y,
65330 - кодовый блок.

Сделал как просил AER.
В программе добавился пункт меню "Save Module", который выгружает набор спрайтов вместе с кодом отрисовки. Формат спрайта теперь другой: 2 байта - ширина, высота, потом байты атрибутов, потом растр. Соответственно, спрайты теперь всегда прямоугольные. Переписаны процедуры захвата и вывода под формат - сначала забираются/рисуются атрибуты, потом растр забирается/отрисовывается сверху вниз по линиям. Выгруженный модуль кода вместе со спрайтами релоцируем. Он имеет три точки входа со следующими смещениями от адреса загрузки:
-- +00 - координаты спрайта и его номер в наборе берутся по смещению +06..+08 от адреса загрузки в порядке x, y, n (подходит для вызова из BASIC'а);
-- +02 - координаты и номер передаются на регистрах (C = x, B = y, A = n);
-- +04 - координаты передаются в BC (C = x, B = y), адрес начала спрайта в памяти в HL.

отлично! все как просил.
даже переписал захваты,выводы как просил!
будем пробовать!!!

Цитата:

---

Сообщение от Alex Rider

-- +04 - координаты передаются в BC (C = x, B = y), адрес начала спрайта в памяти в HL.

---

для какого случая так? быстрый вывод?

Цитата:

---

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

для какого случая так? быстрый вывод?

---

Хороший вопрос... С учетом того, что данных для загрузки в HL взять негде, не знаю. Таблицу, которую дает программа, потребно пользовать для спрайтов без кодового блока. А как надо сделать?
P.S. Изначально было задумано, что так быстрее, ибо для вывода спрайта все равно надо считать его адрес по номеру, что делают точки по смещению +00 и +02.

Цитата:

---

Сообщение от Alex Rider

А как надо сделать?

---

да никак. вызов этот мне непонадобится.

---------- Post added at 20:20 ---------- Previous post was at 20:15 ----------

для бейсика
poke adr+6,x
poke adr+7,y
poke adr+8,n
rand usr adr
так?

---------- Post added at 20:32 ---------- Previous post was at 20:20 ----------

не. нетак.

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

Цитата:

---

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

да никак. вызов этот мне непонадобится.

---

Что-нить придумаю с ним. Спецификацию по остальным точкам это не затронет.

Цитата:

---

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

для бейсика
poke adr+6,x
poke adr+7,y
poke adr+8,n
rand usr adr
так?

не. нетак.

---

Если сделал LOAD "<имя файла>" CODE adr, то странно, что не так. Предполагалось, что так. А после LOAD "<имя файла>" CODE и не получится. В каталоге диска будет жить тот адрес, по которому этот блок лежит в грабилке.

Цитата:

---

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

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

---

Логично. Вывод рамки не изменяет атрибуты. Если в знакоместах INK == PAPER, ты не увидишь рамку. Перекрашивать цвета на экране при выделении тоже не дело.

RAND USR 15619:REM:LOAD "<имя файла>" CODE adr - так делал.
повисло после rand usr adr

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

Цитата:

---

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

RAND USR 15619:REM:LOAD "<имя файла>" CODE adr - так делал.
повисло после rand usr adr

---

Странно. Приду домой - посмотрю.

Цитата:

---

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

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

---

Если в знакоместе INK = PAPER, то любые способы вывода пикселов в такое знакоместо дадут увиденный уже тобой результат. Равно как и включение FLASH. А любое изменение INK и PAPER исказит выделяемый спрайт визуально (ясно, что перед снятием с экрана цвета неплохо вернуть обратно).

незнаю как выделялка у тебя устроена. а если марать спрайт ровно вне его границ атрибутами? ай незнаю.

Цитата:

---

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

незнаю как выделялка у тебя устроена. а если марать спрайт ровно вне его границ атрибутами? ай незнаю.

---

Предлагаю оставить как есть и не выдирать спрайты с экранов, где много знакомест с INK = PAPER (или не жаловаться, или готовить экраны с учетом этого ограничения). Выделялка рисует рамку по OVER 1 с текущими атрибутами знакоместа на экране, из которого выдираем.
Если "марать спрайт ровно вне его границ" (что, как я понял, все равно подрезумевает перекрашивание знакомест, в которых выводится рамка), то, во-первых, на раскрашенных картинках выглядеть рамка будет все равно ужасно, а, во-вторых, где рисовать рамку вне границ спрайта когда он прижат к краю экрана, я не соображу ни разу.

Цитата:

---

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

RAND USR 15619:REM:LOAD "<имя файла>" CODE adr - так делал.
повисло после rand usr adr

---

Не поучилось у меня повесить. Сделал так:
1) Скачал свой архив с форума.
2) На trd записал экран со спрайтами.
3) Запустил SPTGEN.
4) Загрузил экран.
5) Сделал 1 спрайт командой "Create sprite".
6) Сохранил код и спрайт новой командой "Save module" под именем "test".
7) Перезагрузился.
8) Из 48-го BASIC'а написал RANDOMIZE USR 15619: REM: LOAD "test" CODE 32768
9) Сделал RANDOMIZE USR 32768 - спрайт появился в позиции (0, 0), рисовалка вышла в BASIC.

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

Цитата:

---

Сообщение от Alex Rider

Из 48-го BASIC'а написал RANDOMIZE USR 15619: REM: LOAD "test" CODE 32768

---

а я из 128 basica. только 128!

Не, давай все-таки снапшот перед зависанием. На Unreal Spectrum в режиме Pentagon из 128-го BASIC'а все работает по тому рецепту, что я писал выше. Что-то ты по-хитрому делаешь и не делишься секретом.

тогда, делал в speculator basic128 и зависло.
теперь сделал на unreal basic 48 - работат.(см. probe.zip)

нумерация спрайтов идёт от 0 ? или от 1 ?

пока спекулятора нет,потом на нем еще попробую.

Цитата:

---

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

нумерация спрайтов идёт от 0 ? или от 1 ?

---

От 0.

А картинка классная.

работа вашей проги в программе TBAM.zip (5.2кб) в МУЗЫКА - БИПЕРНАЯ МУЗЫКА -

По личным просьбам трудящихся подпилил граббер для повышения юзабилити.
Что приделал:

• в меню и режиме выделения спрайта на экране теперь работает не только Sinclair II, но и Cursor Keys, QAOPM, плюс, бонусом, Enter и Space теперь тоже "огонь";
• BREAKом можно "шагать" назад по стадиям выденения спрайта - при задании размера BREAK вернет в режим задания координат, а из задания координат выкинет в меню безо всяких последствий;
• при случайном попадании в команды работы с диском теперь можно не бояться ни разу, а давить BREAK (научил-таки BASIC-редактор на него реагировать), CS+"вниз" (только без сообщения "STOP in INPUT"), или просто Enter - пустое имя файла тоже вернет на путь истинный (в меню);
• в режиме выделения спрайта на экране желтый BORDER означает задание координат, зеленый - задание размера;
• в режиме удаления спрайта при нажатии на Enter при вводе номера спрайта (без нажатия цифр) спросится про удаление последнего спрайта, если нажать "Y", Вас не обманут (удалится последний захваченный спрайт);
• в режиме удаления спрайта наконец-то для первых 0Fh спрайтов можно вводить их номер одной цифрой (да, 16-ричной);
• при вводе 16-ричных чисел появился контроль ввода; теперь при неверных цифрах кидает не на первую попавшуюся ошибку, а на нормальное сообщение (правда, ввести повторно не предлагается);
• и, наконец, я придумал как работать с точкой входа по адресу +4 от начала сохраненного модуля: теперь модуль можно сохраниить и при наличии 0 спрайтов в пямяти, что позволит грузить его куда хочется, а сохраненные командой "Save sprites" спрайты - в другое "куда хочется", и, используя таблицы смещений, выводить спрайты по адресу.

Осталось одно противоречие, которое меня (и не только меня) несколько коробит: в тулзе номера спрайтов начинаются с 1, а выгруженный модуль рисования считает их с 0. Должно путать всех. И путает. Есть у кого мысли где подпилить это досадное недоразумение?

Как всегда, сорцы и trd с готовым продуктом в аттаче.

хорошо. все хорошо.

Цитата:

---

Сообщение от Alex Rider

в режиме выделения спрайта на экране желтый BORDER означает задание координат, зеленый - задание размера;

---

а зачем это? я прочитал и уже забыл,какой цвет что означает.

Цитата:

---

Сообщение от Alex Rider

в режиме удаления спрайта наконец-то для первых 0Fh спрайтов можно вводить их номер одной цифрой (да, 16-ричной)

---

опять 16чные...

Цитата:

---

Сообщение от Alex Rider

а выгруженный модуль рисования считает их с 0.

---

ну напиши в коде INC n, делов-то.

Цитата:

---

Сообщение от Alex Rider

По личным просьбам трудящихся подпилил граббер для повышения юзабилити.

---

это о мне.

Цитата:

---

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

хорошо. все хорошо.

---

Спасибо. Будет лучше.

Цитата:

---

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

Цитата:

---

в режиме выделения спрайта на экране желтый BORDER означает задание координат, зеленый - задание размера;

---

а зачем это? я прочитал и уже забыл,какой цвет что означает.

---

Потому что раньше при нажатии на "огонь" после задания левого верхнего угла ничего визуально не происходило. Теперь хоть BORDER реагирует.

Цитата:

---

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

Цитата:

---

в режиме удаления спрайта наконец-то для первых 0Fh спрайтов можно вводить их номер одной цифрой (да, 16-ричной)

---

опять 16чные...

---

А у меня уже версия с десятичными :-P. Но я ее не отдам. Сделаю еще несколько косметических правок, тогда только. Приоткрою немного завесу тайны - специально для AER я придумал как сделать так, чтобы рамка не исчезала в знакоместах, где INK == PAPER. Только тсс...

Цитата:

---

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

Цитата:

---

а выгруженный модуль рисования считает их с 0.

---

ну напиши в коде INC n, делов-то.

---

Не, тут вопрос филосовский... Меня самого корябить будет (если вдруг стану своим пользователем) при нумерации спрайтов с 1, когда из машкода звать. Подумаю.

Цитата:

---

Сообщение от Alex Rider

для AER я придумал как сделать так, чтобы рамка не исчезала в знакоместах, где INK == PAPER.

---

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

---------- Post added at 08:46 ---------- Previous post was at 07:20 ----------

твоя прога в действии - ищи "игры - моя игра - ......"

Цитата:

---

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

Цитата:

---

Сообщение от Alex Rider
для AER я придумал как сделать так, чтобы рамка не исчезала в знакоместах, где INK == PAPER.

---

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

---

Не обольщайся. Будет пока не красиво, на коленке. Красиво будет потом. Все планы уже расписаны.

Цитата:

---

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

твоя прога в действии - ищи "игры - моя игра - ......"

---

Вот за это спасибо! Приятно когда творчество обретает признание и выходит в массы.

Сделал еще несколько косметических правок для трудящихся. Пока изменений немного и они не превращают пробу пера в подобие чего-то серьезного, но грабер меняется (надеюсь, к лучшему), что и мне в радость, и другим в нее же. Итак:

• обещанные десятичные числа везде;
• из кодового блока выкинуто 6912 байт нулей (сам смеялся когда нашел);
• запись и загрузка с любого дисковода (перед именем файла сказать 2:, B: или b: для дисковода B, например);
• хитрорежим выделения спрайта без исчезания рамки (см. ниже)
• фикс мелкого бага с одъеданием стека при нажатии BREAK;

Как же удалось уважить AER'а с его чудо-рисовалкой, делающей знакоместа с атрибутами #00 там, где нет изображения? Пока криво, но как-то. Сам признаю, каюсь, знаю как лучше, но это тоже потом. Суть лекарства: при выделении спрайта теперь можно жать кнопку "B" - при этом настоящие атрибуты экрана сгинут, а картинка станет "черно-белой" (чтобы не выбиваться из общего вида интерфейса, она станет все-таки черно-ярко-голубой). Если станет страшно, еще раз нажатие "B" вернет все на место. Не зависимо от того, "черно-белая" картинка рисуется, или как родилась, спрайты захватятся с правильными атрибутами.

Собсна, как всегда, результат плюс сорцы прикладываются.

Цитата:

---

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

хочу выделять спрайт по покам на одно знакоместо

---

по "бокам" а не "покам".

Цитата:

---

Сообщение от Alex Rider

из кодового блока выкинуто 6912 байт нулей (сам смеялся когда нашел);

---

когда делал,незамечал,файл не сильно большой, как никак, хоть оформи экран твоей спрайтовой прогой, чем полностью выведенной картинкой.

Цитата:

---

Сообщение от Alex Rider

Как же удалось уважить AER'а с его чудо-рисовалкой, делающей знакоместа с атрибутами #00 там, где нет изображения

---

верно. просто бывает забываешь обвсети спрайт бумага=0 чернила=7

Цитата:

---

Сообщение от Alex Rider

Собсна, как всегда, результат плюс сорцы прикладываются.

---

исполняешь мои мечты. а как бы придумать, чтоб стереть спрайт с экрана?
при игре к примеру?

---------- Post added at 13:28 ---------- Previous post was at 13:27 ----------

обвести - обсети - написал.

---------- Post added at 13:35 ---------- Previous post was at 13:28 ----------

вот еще , работа твоей проги. ну непередает, мой комп zip архивы на сайт и все. rar делаю.

---------- Post added at 13:37 ---------- Previous post was at 13:35 ----------

ой и тоже и это неберет - http://sderni.ru/113520

---------- Post added at 14:10 ---------- Previous post was at 13:37 ----------

есть небольшой вопрос,
1.твой код не тревожит ли прерывания,
2.тоже что и "1" , мой антивирус на спеке, зацепил обращение твоей проги к ПЗУ.

Цитата:

---

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

Цитата:

---

из кодового блока выкинуто 6912 байт нулей (сам смеялся когда нашел);

---

когда делал,незамечал,файл не сильно большой, как никак, хоть оформи экран твоей спрайтовой прогой, чем полностью выведенной картинкой.

---

[/quote]

Это про sptgrb.c, а не про код, который сохраняется вместе со спрайтами. У меня случайно экранный буфер попал в выходной файл.

Цитата:

---

исполняешь мои мечты. а как бы придумать, чтоб стереть спрайт с экрана?
при игре к примеру?

---

Давай опять ближе к техзаданию. Что такое "стереть спрайт"? В растр нулей напихать по размеру спрайта - дело не хитрое. А как быть с атрибутами? Может, ловчее сделать сохранение фона под спрайтом и его восстановление потом?

Цитата:

---

есть небольшой вопрос,
1.твой код не тревожит ли прерывания,
2.тоже что и "1" , мой антивирус на спеке, зацепил обращение твоей проги к ПЗУ.

---

Ты про сам грабер, или тот модуль, который он выгружает со спрайтами?
Ни сам грабер, ни модуль прерывания не трогают. Грабер в будущем будет делать IM2. Модуль "бэйсикобезопасен" - прерывания не меняет (запрещает на мгновение для определения своего метоположения, потом тут же вертает назад), IY не трогает, HL' не калечит, в системные переменные бэйсика не лазит. Зовет команду "ret" из ПЗУ по адресу #007c и подпрограмму умножения по адресу #30a9. Graber ПЗУ использует очень активно. А что это за зверь - антивирус на спеке?

когда вывожу спрайты играя ay музыку, происходят зависания.

Ответил в "Музыке" - выводилка спрайтов не любит когда во время ее работы портят регистры. A', например.

ага, вроде вопрос решился, сохранением af'.

Привет, по маске сможете реализовать вывод спрайтов? Еще не совсем пойму по каким адресам выставлять координаты спрайтов? Потом, координаты через поке выставляются? Спрайт можно загружать по любому адресу? Спасибо!

Цитата:

---

Сообщение от Руслан

Привет, по маске сможете реализовать вывод спрайтов? Еще не совсем пойму по каким адресам выставлять координаты спрайтов? Потом, координаты через поке выставляются? Спрайт можно загружать по любому адресу? Спасибо!

---

ты спрайты хочешь попиксельно выводить, или как?

Цитата:

---

Сообщение от Руслан

Привет, по маске сможете реализовать вывод спрайтов?

---

Да, если надо, то могу.

Цитата:

---

Сообщение от Руслан

Еще не совсем пойму по каким адресам выставлять координаты спрайтов?

---

По адресу загрузки +6, +7, +8 - соответственно, x, y и номер спрайта из коллекции.

Цитата:

---

Сообщение от Руслан

Потом, координаты через поке выставляются?

---

Да

Цитата:

---

Сообщение от Руслан

Спрайт можно загружать по любому адресу?

---

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

Alex Rider,видишь народ вопросы задает, а чита как небыло и нету.

Цитата:

---

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

ты спрайты хочешь попиксельно выводить, или как?

---

Если попиксельно возможно, то это было бы здорово!

---------- Post added at 12:34 ---------- Previous post was at 12:32 ----------

Цитата:

---

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

---

Прошу прощения, не пойму. Допустим у меня есть код. Мне его надо загрузить с 32768, - он под бейсиком запуститься?