Переделал немного, 0-й цвет это цвет фона, его в данном случае нельзя использовать, иначе будет моргать бордюром. anim2.zip
Переделал немного, 0-й цвет это цвет фона, его в данном случае нельзя использовать, иначе будет моргать бордюром. anim2.zip
Здесь можно скачать актуальные версии Virtual Vector (VV)
С любовью к вам, Yandex.Direct
Размещение рекламы на форуме способствует его дальнейшему развитию
Спасибо. Но в случае IF L=K AND L>0 мы просто не рисуем первую позицию анимации, чтобы у нас не моргал бордюр. Немного нелогично, цветов у нас 16. В оригинале это выглядит так:Сообщение от Ramiros
Проблему бордюра можно решить просто переключая цвет бордюра например так: anim3.zip
Здесь можно скачать актуальные версии Virtual Vector (VV)
Вот, спасибо! Мне было интересно, удастся ли это решить.
В записи для Acorn BASIC три нуля в инструкции VDU 19,L,P,0,0,0 после устанавливаемого физцвета служат похожей цели.
В 06Ц Бейсик мы при SCREEN 0,L,P,0 и L=15 получили бы синтаксическую ошибку
Ваша конструкция с перестановкой цвета бордюра в IF L=K THEN P=5:COLOR 15,0,15-L является выходом для этой задачи.
Сравнительно компактный вариант определения версии (<=2.995, 2.996, 2.997-2.999).
aGGreSSor(01.08.2025), metamorpho(01.08.2025)
Это очень вовремя. Посмотрел: да, определяет. Добавлю это в демку для CC. Спасибо!
В 2.998 точно будут стартовое сообщение о номере версии и сохранение однобуквенных числовых переменных при останове программы по УС+С или ошибке.
Также будут мелкие оптимизации, но их могу откатить, если место понадобится для исправления ошибок или реализации важных пожеланий.
Встроенного определения номера версии не будет.
aGGreSSor(02.08.2025)
Очередная финальная версия ветки 2.9x. Свободного места не осталось.
aGGreSSor(02.08.2025), Improver(02.08.2025), metamorpho(02.08.2025)
Если отбросить терминологию из штатного описания, то можно и так: индекс в палитре и содержимое палитры или цвет в видеопамяти и цвет в палитре.
Вопрос. Конструкция ON <var> GOTO/GOSUB ограничена 15 переходами. Плюс сверху ограничена длиной строки 127 символов (по крайней мере для отображения LIST).
Вычисляемые переходы типа M=<номер строки>:GOTO/GOSUB M в 06Ц Бейсик не работают. Как сделать более 15 переходов не вводя пачку IF..THEN ?
Сейчас выкручиваюсь такой конструкцией:
ON <var> GOTO/GOSUB <15 переходов>
<var2>=<var>-15:ON <var2> GOTO/GOSUB <15 переходов>
и т.д.
Но это времяёмкая шляпа.
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)
Ваши права
Ответить с цитированием
