Бейсики для Вектора-06Ц и клонов

[metamorpho]

Эта дэмка нарисовалась в ходе продолжения экспериментов с палитрой.
В данном случае целью было показать что можно сделать на Бейсике на Вектор-06Ц.
Всё что вы видите это использование программируемой палитры Вектора
и написано полностью на Бейсике (без использования машинных кодов).
В целом данный эксперимент удался, хотя первоначальный "сценарий" картинки был поинтересней,
но его не удалось реализовать. Глюк с мельницей (в правом верхнем углу) оставил - мне показалось
это подходящая нотка для дэмки в тему дождя (молния в дали освещает мельницу).
Картинку собирал с помощью PaintNet + конвертор в дату + Pretty 8080 Assembler c новой возможностью сохранять в TAPE (спасибо svofski).
Тестировал на Бейсике 2.71 (спасибо ivagor).
Порядок загрузки.
1. Грузим Бейсик
2. Грузим DINOSINT.cas и запускаем RUN
3. Программа запросит файл - грузим PATHDINO.cas

Добавил ещё две версии дэмки.
Архив DINO2 - прибавил музыку (не свою) и отблеск молнии на "картине".
Архив DINO3 - прибавил музыку (не свою) и отблеск молнии на "картине" + бордюр.

[svofski]

Порадовал Спасибо!

[ivagor]

Здорово! И радует, что хорошо работает в классическом 2.5

[PPC]

Замечательно!

[metamorpho]

Появилась добавка....
https://zx-pk.ru/threads/30566-bejsi...=1#post1177002

[ivagor]

metamorpho, с музыкой лучше (в DINO3 на мой вкус перебор спецэффекта).

А я довел бейсик до исчерпания свободного места, осталось байт 20. Главная фишка 2.72 - более быстрый PAINT, в котором налево строку закрашивает пиксельно-байтово. Ситуация примерно как с триммером, когда побрил половину лица и сел аккумулятор, направо осталась пиксельная заливка. Тем не менее в 2.72 PAINT в среднем на 36% быстрее чем в 2.5, это заметно. Дальше уже придется или оставить как есть или начать убирать ненужные элементы бейсика.

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

Добавлю, что прогон Рекламы в 2.72 быстрее чем в пзушном бейсике 6128 и бейсике 2.60ВМ1.

Upd 22.04.2023: Резко разогнал PAINT, теперь он почти в шесть с половиной раз быстрее 2.5.
Остальные минусы и плюсы:
1. Убрал быстрый набор по УС+СС.
2. CIRLCE медленнее 2.72 на 0.2-0.5% (но быстрее 2.5 примерно на 9.5%).
3. В 2.72 заметил ошибку PAINT, которая могла проявляться при заполнении экрана с заворотом за край, поэтому 2.72 убрал, в 2.80 ошибка исправлена.
4. За счет пунктов 1 и 2 в упакованном виде бейсик стал на 226 байт короче.

[parallelno]

Клёвый эксперимент! Отдельное спасибо за музычку и видео!

[ivagor]

Еще пара слов про paint в 2.72. Из-за особенностей процедуры в основном используется заливка налево и перевод правой заливки на байты, как оказалось, дает очень маленькую прибавку скорости. На вопрос - "а почему тогда скорость намного меньше чем у процедур в ветке Программирование на ассемблере?" ответ такой - в paint для определения цвета используется пусть и разогнанная, но пиксельная процедура определения цвета, а в самых быстрых paintах - байтовое определение цвета. То, что в 20 оставшихся в 2.72 байт не влезает правая байтовая заливка - не критично, но, к сожалению, в 20 байт не влезут и процедуры байтового определения цвета.

[ivagor]

В саге про paint не хватало оценки влияния байтовых проверок цвета на скорость. В качестве теста простая программка

Скрытый текст

1 CLS
2 COLOR15
3 CIRCLE128,128,127
4 PAINT128,128,10,15
5 STOP

[свернуть]

Время выполнения от RUN до STOP:
1) 2.5 - 29.3 секунды
2) 2.72 - 18.7 секунды
3) 1 из 5 - 14.4 секунды
4) 2 из 5 - 12 секунд
5) 3 из 5 - 9.6 секунды
Под номерами 3-5 это 2.72 с удаленным быстрым набором по УС+СС и разогнанным (не до упора) paint. Не до упора, т.к. опять закончилось свободное место. Там 5 веток, в которых стоит использовать байтовые проверки, а мне хватило места на 3 из 5. Очевидный вывод, что довольно быстрый paint в векторовском бейсике возможен, было бы где его разместить.

Upd 22.04.2023: Расчистил место и довставлял байтовые проверки:
6) 4 из 5 - 7.1 секунды
7) 2.80 (5 из 5) - 4.5 секунды
Это не абсолютный рекорд для вектора, процедуры из Программирования на ассемблере быстрее. В бейсике компромисс для сокращения размера и совместимости - внутри процедуры используются координаты, а в самых быстрых вариантах полный переход на адреса+маски. Но такой переход кроме увеличения размера процедуры требует еще и больше стека, пришлось отказаться.

[Ramiros]

2.72 с удаленным быстрым набором по УС+СС

А по АР-2 быстрый набор сохранится? если да, то я за то чтобы пожертвовать (я УС+СС никогда не пользовался).