Реконструкция CGLIB для использования из OMSI Pascal

Цитата:

---

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

Не работает у вас - пишите в чём конкретно проблема, конкретно КАК не работает.

---

Это не у меня. Без аргументов запускается, но не делает, как минимум, операций удаления файла из образа и записи файла в образ. Без любого вывода. Я запросил побольше инфы у человека.

Такой вопрос. Вывод тайла, кратного по горизонтали восьми, я уже даже, пожалуй, осилю написать сам. Интересует вывод спрайта/тайла по любым произвольным координатам. Ну, пусть даже кратным 2 или 4 (по X). В четырёхцветном режиме. Есть уже где-то такое реализовано? Чтобы велосипед не изобретать.

Также интересуют другие способы вывода графических примитивов, на данном этапе больше блочных, чем по точкам. Задуманный мной порт игры будет работать в тайловом разрешении Спектрума 32x24, соответственно, хорошо ляжет на УКНЦ в виде размера тайла 10x11. Есть ли реализованный вывод такого размера тайлов?

Никита, ложная тревога. Проблемка была не в утилите. Сейчас сложно сказать в чём, но самое разумное, что я могу придумать, это что образ .DSK был заблокирован эмулятором. Сейчас всё работает хорошо.

Все, кто пишет игры для УКНЦ. Давайте разработаем подпрограмму, которая выводит двухцветный спрайт указанного размера указанными цветами (из четырёх). Если такого конечно ещё нет. Эта подпрограмма будет полезна, в играх для УКНЦ много подобной графики. Также ею можно будет выводить буквы и другие символы. Координаты в идеале сделать произвольными. Высоту и ширину в идеале тоже. Если это слишком сложно, можно сделать координату X и ширину кратными 2, 4 или хотя бы 8, хотя это серьёзно снизит ценность данной подпрограммы. Есть ли у кого подобные наработки? Понятно, что для скорости нужны маски и битовые сдвиги. У меня с асмом пока не очень получается, а попиксельно будет слишком медленно.

Конечно интересует вывод и 4-цветной картинки.

ПП вывода спрайта в любую точку:
(Формат спарйтов: первое слово ширина-высота последующие планы 1,2)

Код:

---

PTSPR:
;        R5 - указатель на спрайт

        MOV        R0,-(SP)
        MOV        R1,-(SP)


1$:
4$:        CALL        XYTOSC                  ; R3 адрес видеобуф. R4.. сдвиг
        MOV        R3, @#176640

        MOV        (R5)+,R0                ; размеры спрайта
        CLR        R1
        BISB        R0,R1          ; ширина спр
        BIC        #177400, R1
        SWAB        R0
        BIC        #177400, R0        ;высота спр
        MOV        R1,R3
        MOV        R0,3$+2
        MOV        R4,R0
        ADD        R0,R0


        ADD        #MASK,R0
        MOV        (R0),5$+2
       
       
22$:        MOV        R3,-(SP)                        ; Сохранить R3 на стеке
        MOV        @#176640,-(SP)                ; Сохранить регистр адреса планов 1,2 на стеке
       
11$:       
        CLR        R0                                ; R0 = 0
        MOV        (R5)+,R1                        ; (R5)+ -> R1
        ASHC        R4,R0                                ; R0.R1 << R4
        BIS        R0,R1                                ; R1 = (R5)+ rol R4
       
        MOV        R1,R0                                ;
5$:        BIC        #7417,R0                        ; Оставить старшие части сдвинутых байт  0x0f0f
                                                       
        BIS        R0,@#176642                        ; (план 1,2) = (план 1,2) | R0
       
        INC        @#176640                        ; Прирастить регистр адреса планов 1,2
       
        BIC        R0,R1                                ; Оставить младшие части сдвинутых байт
        SWAB        R1
               
        BIS        R1,@#176642                        ; (план 1,2) = (план 1,2) | R1
               
        SOB        R3,11$                                ; Цикл на R3 итераций
       
        MOV        (SP)+,@#176640                       
        ADD        #80.,@#176640
        MOV        (SP)+,R3
3$:        DEC        #0
        BNE        22$;   

;----------------------------------------------
6$:
        MOV        (SP)+,R1
        MOV        (SP)+,R0

        RETURN
;----------------------------------------------------------------
MASK: 
        .WORD        ^B0000000000000000
        .WORD        ^B0000000100000001
        .WORD        ^B0000001100000011
        .WORD        ^B0000011100000111
        .WORD        ^B0000111100001111
        .WORD        ^B0001111100011111
        .WORD        ^B0011111100111111
        .WORD        ^B0111111101111111
        .WORD        ^B1111111111111111
       

;----------------------------------------------------------------
; Подпрограмма: преобразовать координаты X,Y в адрес на экране R3 и смещение R4
;    Вход:  R3 = Y  R4=X)
;    Выход: R3 = адрес на экране, R4 = смещение 0..7
;----------------------------------------------------------------
XYTOSC:
        MOV        R0,-(SP)
        MOV        R2,-(SP)

        MOV        @#SCRADR,R0  ;начало видеопамяти
2$:        MOV        R4, R2                ; берём X
        ASR        R2
        ASR        R2
        ASR        R2                ; получаем номер байта в строке
        ADD        R2, R0                ; получили готовый адрес на экране
        BIC        #177770, R4        ; оставляем только смещение 0..7
        MOV        R3,R2
        BIC        #177400, R3        ; байт Y теперь в нижнем байте R3
        MUL        #80.,R2
        ADD        R0,R3
1$:
        MOV        (SP)+,R2
        MOV        (SP)+,R0
        RETURN
;----------------------------------------------------------------

---

Цитата:

---

Сообщение от Oleg N. Cher

Никита, ложная тревога. Проблемка была не в утилите. Сейчас сложно сказать в чём, но самое разумное, что я могу придумать, это что образ .DSK был заблокирован эмулятором. Сейчас всё работает хорошо.

Все, кто пишет игры для УКНЦ. Давайте разработаем подпрограмму, которая выводит двухцветный спрайт .

---

вопрос - откуда фиксация на двухцветности ? УКНЦ таки может 16цветов

Цитата:

---

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

которая выводит двухцветный спрайт .

---

Наверное не двухцветный (однобитный), а четырехцветный в двух планах. (потому что нет доступа к ПП)

Цитата:

---

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

УКНЦ таки может 16цветов

---

16 цветов в одной строке не получится, только если выделить область экрана с другой яркостью.

Двухцветность нужна, чтобы экономить память. На Спеке двухцветные тайлы, других и нет. Раз я буду портировать со Спека :-)

Цитата:

---

Сообщение от Oleg N. Cher

На Спеке двухцветные тайлы

---

Тайлы-то однобитные зато атрибуты цветные. Все равно придется в два плана хотя бы перекрашивать поскольку в возу передается слово (1 и 2й планы сразу).

Ну можно парочкой вызовов двухцветных тайлов с прозрачным фоном нарисовать несколько цветов, если понадобится. Памяти-то мало. Экономить нужно. А то под все карты не хватит ;-)

Цитата:

---

Сообщение от Oleg N. Cher

Экономить нужно. А то под все карты не хватит ;-)

---

Экономить нужно не на цветности спрайтов, а на способе хранения и отрисовке.. как я выше тебе говорил. Там на все про все уйдет несколько килобайт.

Цитата:

---

Сообщение от Oleg N. Cher

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

---

Интересно каким образом? И в чем смысл? Когда ты можешь в два раза быстрее отрисовывать.

Ладно, уговорил) Будем хранить всё четырёхцветным. Пока не упрёмся рогом в ограничения данного способа. ;-)