Просмотр полной версии : Демо на бейсике
Viktor2312
02.01.2014, 16:51
Подскажите, где обычно работает быстрее, на реале или в эмуляторе?
А то в эмуляторе EmuZWin v2.5 у меня как-то всё медленно пашет. Или это ещё зависит от компа на котором запущен эмулятор? Комп у меня Celeron(R) 2,4ГГц одноядерный. Или это я уже привык к РС, что мне кажется, что медленно работает, а на самом деле так и должно быть. Программа на Бейсике.
Vladimir_S
02.01.2014, 17:04
форматировать дискты на реале.
Я тоже ничего с дисктами не умею.Даже не знаю про них.
Работает только в программе Unreal AAA (http://zxaaa.untergrund.net/EMUL/unrealfix.zip)
Другими версиями эмуляторов не пользуйся.
EmulzWin сделал программст, он его не поддерживает и он плохо работает в виндовсе. Глючит и как вирус определяется..
Спекулятор платный ТС не поддерживает и надо настраивать..
Другие Унреалы от лукавого ваабще не запускаются.
Viktor2312
02.01.2014, 17:35
ШТОЭ?
Я как вроде там всё на русском написал и как вроде вопросы корректно сформулированы.
Уточню, когда набираю команду BEEP 0.1,3.86 иногда чётко выдаёт одно биканье в течении 0,1 секунды, а иногда и два три раза бикнет, чего явно не должно быть, это глюк эмулятора насколько я понял.
Нужно будет опробовать эмулятор который ААА советует. Может в нём будет приколестее писать мою програмку под названием ААА.
John North
02.01.2014, 17:41
Viktor2312, антивирь какой?
Нужно будет опробовать эмулятор который ААА советует. Может в нём будет приколестее писать мою програмку под названием ААА.
Сохраняешь там как в жизни, а потома нажимаешь F9
F3 - открыть
Более тебе знать ничего не надо.
Viktor2312
02.01.2014, 18:17
Viktor2312, антивирь какой?
Каспер.
Сейчас стало побыстрее. Так как я немного оптимизировал код вместо 6 операндов стало 2, а выполняют тоже самое. Было и сохранение переменной и цикл, а потом до меня дошло, что есть оператор DRAW и не нужно никаких циклов, присвоений переменных.
Правда теперь придётся всё, что написал переписать заново.
А то в эмуляторе EmuZWin v2.5 у меня как-то всё медленно пашет.
Может поновей версию 2.7 поставить?
Viktor2312
02.01.2014, 19:15
Может поновей версию 2.7 поставить?
Попробую завтра поставить, тот на который ААА ссылку дал. А так вообще нужен реал, на нём как-то приколистее было раньше, что нибудь в Бейсике делать, на РС как-то не то.
marinovsoft
02.01.2014, 19:42
Вопрос на зысыпку, а как в EmuZWin ввести символ кавычек?
Вопрос на зысыпку, а как в EmuZWin ввести символ кавычек?
SHIFT+P
А что эта тема забыла в демах, да ещё с таким названием?
А что эта тема забыла в демах, да ещё с таким названием?
Может в нём будет приколестее писать мою програмку под названием ААА.
видимо дема на дихалт.
видимо дема на дихалт.
Картинку с музыкой можно написать и даже Какоса победить.
marinovsoft
02.01.2014, 20:20
SHIFT+P...
Простите великодушно,обознался specemu имел в виду.
Viktor2312
02.01.2014, 21:38
Скажите, а как сохранить программу на Бейсике в EmuZWin 2.5 чтобы потом можно было открыть её в другом эмуляторе? И какое правильное расширение файла для программ на Бейсике?
Простите великодушно,обознался specemu имел в виду.
CTRL+P - держишь CTRL и жмёшь P, как и там.
а как сохранить программу на Бейсике в EmuZWin 2.5 чтобы потом можно было открыть её в другом эмуляторе?
выйти в трдос и сделать там save "prog". потом образ диска сохранить в эмуле.
Надо готовить место на сайте, чувствую жесть готовится, не хуже
10 CLS
20 print "AAA-Best, Viktor 2013 Akstisy!"
30 go to 20
Viktor2312
02.01.2014, 22:51
10 CLS
20 print "AAA-Best, Viktor 2013 Akstisy!"
30 go to 20
Приколисто, но коротко, у меня уже 101 строка кода, ваяю дальше.
о господи, во времена моей босоногой молодости за такие вопросы interface 1 отрывали...
Приколисто, но коротко, у меня уже 101 строка кода, ваяю дальше.
Как говорится в тему...
http://s020.radikal.ru/i709/1401/b4/6fcfc845901b.png
Вот эта программа вся написана на бейсике Алёшей в 1994 году. Последняя моя работа в васике, потом я Кса познал)))
http://zxaaa.untergrund.net/screen/shockmd.png
после написания и запуска я делал черный папер, черный инк, черный все и кидал с паузы программной на маджик, потом кусок говна, ой года засаживал в ЛИЗ ПАК, и три раза сжимал компилятором. Потом Сувал в специальную программу которая автоматически делала готовый код под бейсик. Потом в машинном коде поверх надписи Song By ST MusicSoft, я писал Demo XORENNO AAA XORKOI
Вскрыть это чудо нереально, ибо такого ужаса никто не делал кроме ААА. Таким образом я делал демы и не ведал как по правилам сделать программу под бейсик. потом уже просил помощи у Кса или Аига с паковкой и бейсиковкой.
Код писал в дальнейшем сам с тетрадки которую мне заполнял Кса в метро. В коде я умел менять адрес старта. цвет бордера и еще немного местами по экрану двигать готовые элементы. Научился подгружать готовые куски. Запускать спрайты, сделанные кем то. В итоге сделал несколько мегадем ничего не умея делать.
на спектруме может написать дему даже такой даун как ААА!
Моя лучшая дема: AY Megademo 2 ,делалась уже когда я знал всё и мне было так легко, что я мог уже творить то что хочу, а не то что получалось )))
Viktor2312
03.01.2014, 00:06
о господи, во времена моей босоногой молодости за такие вопросы interface 1 отрывали...
А мне не стыдно задавать такие вопросы, так как последний раз, я что-то писал на Бейсике в 1994 году, прошло почти 20 лет. Я ничего уже не помню вообще.
Как говорится в тему...
Боюсь, что мой изврат, вы не переживёте.
Круто, будем стремиться к такому же, пока 157 строк кода, на 150 строке решил открыть бутылочку вина, нужно топливо. Пока 157 строк. Вопрос, а сколько вообще можно строк максимум написать, сколько Бейсик позволит?
Верхняя надпись на картинке классная, даже уже знаю как её можно сделать, но у меня будет всё по другому, после просмотра моей демы, ни один спектрумист не должен выжить.
Вот эта программа вся написана на бейсике Алёшей в 1994 году. Последняя моя работа в васике, потом я Кса познал)))
Верхняя надпись на картинке классная, даже уже знаю как её можно сделать, но у меня будет всё по другому, после просмотра моей демы, ни один спектрумист не должен выжить.
Картинка про спайдер Виктора сделана за 4 минуты.
1. минута поиск в гогле
2. минута конверсия
3. минута раскраска в паинт
4. минута загрузка в конвертор и устранение недостатков.
Если потратить на картинку час. то будет работа уровня середины места на дохлофосном пати типа Дихальт или СС. Тоесть чтобы получить 7-8 места )))
Я могу тебя научить деалть такую графику, если ты научишься соеденять свой код с ау музыкой, скроллом и картинкой.
---------- Post added at 00:09 ---------- Previous post was at 00:09 ----------
Круто, будем стремиться к такому же, пока 157 строк коджа, на 150 строке решил открыть бутылочку вина, нужно топливо. Пока 157 строк. Вопрос, а сколько вообще можно строк максимум написать, сколько Бейсик позволит?
9999
Прочти книу Бейсик и там будет все готовое, тебе только напечатать и запустить.
Тебе надо научится:
1. очищать экран
2. загружать код (надо знать адрес запуска и правильно распределять по памяти 48 кб.)
3. инициализировать музыку (музыку сначала надо скомпилировать под адрес запуска, надо узнать инициализацию, запуск и гашение, у всех трекеров разное.)
4. запускать бордер цвет
5. запускать картинку (сжатую в спец программе)
6. запускать скролл код
7. запускать музыку
8. гасить музыку по пробелу например.
Картинку перед тем как запускать надо сжать в программе сжималке, а потом уже запускать.
Все эти вопросы разрешимы, если попросить сразу написать такую программу знающего человека. Чтобы не мучать свою голову и головы окружающих. Готовые скроллы есть то же.
Тебе надо научится в Тасме или Аласме их компилировать и вписывать текст, а так же двигать по экрану.
Боюсь, что мой изврат, вы не переживёте.
А мой ?
http://zxaaa.untergrund.net/screen/metalmut.png
Я написал примерно 20 таких демок, чтобы понять всё досканально и выяснить что я идиот. Я даже написал журнал на бейсике:
http://zxaaa.untergrund.net/screen3/goldp.png
А мне не стыдно задавать такие вопросы, так как последний раз, я что-то писал на Бейсике в 1994 году, прошло почти 20 лет. Я ничего уже не помню вообще.
А я помню про клс, я тебе написал )))
Viktor2312
03.01.2014, 01:01
Картинка про спайдер Виктора сделана за 4 минуты.
1. минута поиск в гогле
2. минута конверсия
3. минута раскраска в паинт
4. минута загрузка в конвертор и устранение недостатков.
Если потратить на картинку час. то будет работа уровня середины места на дохлофосном пати типа Дихальт или СС. Тоесть чтобы получить 7-8 места )))
Я могу тебя научить деалть такую графику, если ты научишься соеденять свой код с ау музыкой, скроллом и картинкой.
Да, я не против, научиться, только не всё сразу, постепенно. Сейчас просто решил вспомнить бейсик, настальгия замучила.
Прочти книу Бейсик и там будет все готовое, тебе только напечатать и запустить.
Тебе надо научится:
1. очищать экран
2. загружать код (надо знать адрес запуска и правильно распределять по памяти 48 кб.)
3. инициализировать музыку (музыку сначала надо скомпилировать под адрес запуска, надо узнать инициализацию, запуск и гашение, у всех трекеров разное.)
4. запускать бордер цвет
5. запускать картинку (сжатую в спец программе)
6. запускать скролл код
7. запускать музыку
8. гасить музыку по пробелу например.
Картинку перед тем как запускать надо сжать в программе сжималке, а потом уже запускать.
Все эти вопросы разрешимы, если попросить сразу написать такую программу знающего человека. Чтобы не мучать свою голову и головы окружающих. Готовые скроллы есть то же.
Тебе надо научится в Тасме или Аласме их компилировать и вписывать текст, а так же двигать по экрану.
На бумажке распечатаю, потом буду поэтапно осваивать, а то сразу, боюсь может произойти перегрев мозга, вследствие чего разрыв черепной коробки.
9999
Жаль, мало.
Я написал примерно 20 таких демок, чтобы понять всё досканально и выяснить что я идиот. Я даже написал журнал на бейсике:
Приколисто, такое наверное в бейсике сделать не получится, тут какое-то ограничение по знакоместам 8х8 если ставишь точку с красным цветом, то и всё остальное, что в этом знакоместе находится, тоже получается красным. Может я ещё не разобрался, как это обойти, а может и нельзя.
null_device
03.01.2014, 01:02
Вопрос, а сколько вообще можно строк максимум написать, сколько Бейсик позволит?
В спектрум-бесике, строки нумеруются от 1 до 9999 ("извернувшись", можно создать строку с номером 0 и больше 9999). Скорее вы упретесь в RAMTOP (у вас закончится свободная память).
Viktor2312
03.01.2014, 01:04
Ещё толком ничего не написал, а сожрало 200 строк. жаль, что 9999, а не 64535.
null_device
03.01.2014, 01:05
тут какое-то ограничение по знакоместам 8х8 если ставишь точку с красным цветом, то и всё остальное, что в этом знакоместе находится, тоже получается красным. Может я ещё не разобрался, как это обойти, а может и нельзя.
В "стандартном" экране задать цвет на точку нельзя.
http://speccy.info/256x192
Viktor2312
03.01.2014, 01:10
В спектрум-бесике, строки нумеруются от 1 до 9999 ("извернувшись", можно создать строку с номером 0 и больше 9999). Скорее вы упретесь в RAMTOP (у вас закончится свободная память).
А это имеется в виду, если их нумеровать подрят как 1, 2,3...9999? Потому, что я их всегда нумерую как учили:
10
20
30
.
.
.
100
110
120
и т. д.
зашол я как то на форум всея спектрумистов. кликнул в радел "Демо"... Где я?
null_device
03.01.2014, 01:21
Можно нумеровать, как угодно (через 1, через 2... через 10). Нумерация с интервалом, нужна, если понадобится вставить несколько строк.
У меня не разу не было проблемы с нехваткой номеров строк в бейсик программе. Быстрее заканчивалась свободная память. Т.к. "сверху" она ограничена переменными бейсика, стеком, RAMTOP и данными пользователя (графика, процедуры и т.п.).
Есть, правда средства, для перенумерации (в спектум бесик для 128К машин он даже встроен). Правда, им присуща одна особенность - они корректируют только явные переходы (GO TO n, GO SUB n, RESTORE n, RUN n и т.п.). В случае использования переменных и выражений придется править "руками".
зашол я как то на форум всея спектрумистов. кликнул в радел "Демо"... Где я?
В теме модер спит програмирование
---------- Post added at 01:41 ---------- Previous post was at 01:39 ----------
Ещё толком ничего не написал, а сожрало 200 строк. жаль, что 9999, а не 64535.
потому что шизофриники не могут четко сформулировать свою мысль. Ты и на форуме более 9999 строк пишешь. хотя можно сказать кратко, но емко. Учись писать так, чтобы было как можно меньше строк.
---------- Post added at 01:43 ---------- Previous post was at 01:41 ----------
Приколисто, такое наверное в бейсике сделать не получится, тут какое-то ограничение по знакоместам 8х8 если ставишь точку с красным цветом, то и всё остальное, что в этом знакоместе находится, тоже получается красным. Может я ещё не разобрался, как это обойти, а может и нельзя.
Ваабще то в этом и есть весь кайф. Найти такое положение чтобы было красиво. Обойти можно, существует очень много технических приемов. Это есть суть искусства рисования на спектруме. Тупо нарисовать мало. надо правильно расположить, а затем раскрасить и сделать так чтобы было понятно и красиво. Очень похоже на абстакционизм. Обожаю графику на спектруме. И не надо ничего делать чтобы обойти технически, именно руками - в этом весь спектрумизм!
Для дураков можно просто делать толстые края у объектов, стиль Хууй програм
http://zxaaa.untergrund.net/screen9/yerzslide16k4.pnghttp://zxaaa.untergrund.net/screen9/yerzslide16k5.pnghttp://zxaaa.untergrund.net/screen9/yerzslide16k6.png
http://zxaaa.untergrund.net/screen9/yerzslide16k7.png
Вот моя работа в этом стиле :
http://s019.radikal.ru/i610/1312/7b/8ab367f71530.png
Рисуется элементарно в охотку, без напряжения мозга!
null_device
03.01.2014, 01:44
Viktor2312, N.B.: обычно, при написании чего-либо на бесике, пользователь сталкивается с проблемой "быстродействия" своей программы. Тут есть два выхода: компилятор и переход на ассемблер. Второй вариант в данном случае по вполне понятным причинам, мы не рассматриваем.
Однако, при использовании компиляторов возникают две проблемы: компилятор "понимает" не все команды бейсик интерпретатора (либо, как целочисленные - весьма специфично работают с ними), и требуют присутствия своего кода в памяти (к некоторым это не относится).
Viktor2312
03.01.2014, 01:56
Тут есть два выхода: компилятор и переход на ассемблер. Второй вариант в данном случае по вполне понятным причинам, мы не рассматриваем.
На ассемблер естественно нужно будет перейти, он мне как-то и ближе на самом деле, но и на бейсике нужно же доделать, то что уже начал, просто медленно как-то процесс написания идёт 227 строк, это если нумеровать 1,2,3...и т. д. а на экране, ещё толком ничего не произошло, ну ничего, будем стараться. Вот только экран, как-то маленьким стал казаться, ничего не помещается, что хотел разместить, хотя на скринах, что выкладывает ААА, как-то всё более менее умещается.
Вино кончилось, эээ я так сопьюсь 77 строк, и бутылки как не было.
Наглядный урок как делать картинку.
1. Поиск Гоогле,
черно белый рисунок
выбрали
http://img5.imgbb.ru/4/b/0/4b01e395b978c15033f08acbc5db32b0.jpg
Принтскреен и в паинт...
Картинка простая выделяем 256 на 192, низ обрезаем он не важен. Все готово, в
BMP2SCR грузим PNG
Выбираем по умолчанию верхнюю строчку у картинки нет слоев, переводится как есть с характеристикой стандарта 127 (так переводятся четкие картинки , векторные как эта собака)
http://s017.radikal.ru/i421/1401/62/bf519c8e7543.png
Опять принтскрин и обрабатываем, хотя тут и так хорошо.
Если надо красивую надпись наложить пишем ее тут:
http://www.fontov.net/%D0%B1%D0%B5%D1%81%D0%BF%D0%BB%D0%B0%D1%82%D0%BD%D 1%8B%D0%B5-%D1%88%D1%80%D0%B8%D1%84%D1%82%D1%8B
Копируем принт скрином и в паинте вносим в рисунок. Вырезая и вставляя. Надпись пишем на сайте, там будет три вида размера, какой надо подойдет, шрифтов готовых полно.
Вот я немного доработал пятнышки, сделал усики, потмоу что при переводе они потерялись. Картинку можно теперь раскрашивать она после редактора становится не джипегом и цвета заливаются полностью. Никогда не трогай глаза и рот, потому что убрав точку сломаешь рисунок. помни ты ЛОХ а не художник, твое дело копировать, а не свое делать.
http://i051.radikal.ru/1401/4c/7a3ff9182e69.png
Понил Витёк?
PS 2 07 ночи, ну блин Витек ты меня ухайдокаешь!
Навеяло!
Есть такой худо жник на спектруме, зовут его моран, так вот он рисует вот такие шляпные картинки и умудряется места занимать.
http://artcity.bitfellas.org//index.php?a=artist&id=686
http://artcity.bitfellas.org//gallery/m/moran/32480_haosmen.png
А такое сделать как два пальца, вот за секунду ААА без доработки например:
http://s020.radikal.ru/i715/1401/01/9a9d9e055450.png
И ты Витек можешь сразу какое нить 5 место занять, главное не пиши что ты Витек, напиши что ты Моран, все равно никто не проверит.
Viktor2312
03.01.2014, 02:47
:) :) :) Весело, читать. Слишком много информации, но постараюсь со временем разобраться. Дабы не ухайдохать ААА, иди, спать. А я тут ещё немного повбиваю кода, мне уже начинает нравится, всё равно выходной, хоть завтра хоть послезавтра, можно кодить, сколько хочется, если это можно вообще назвать кодом.
Тем более уже кучу жалоб понаписали на эту тему, так что Витамин, всё равно скоро всё забанит, потрёт и отмодерирует.
Весело, читать. Слишком много информации, но постараюсь со временем разобраться. Дабы не ухайдохать ААА, иди, спать. А я тут ещё немного повбиваю кода, мне уже начинает нравится, всё равно выходной, хоть завтра хоть послезавтра, можно кодить, сколько хочется, если это можно вообще назвать кодом.
Тем более уже кучу жалоб понаписали на эту тему, так что Витамин, всё равно скоро всё забанит, потрёт и отмодерирует.
Я уже хотел тебя научить раскрашивтаь )))
Сначала в ПАИНТ
http://s018.radikal.ru/i508/1401/e9/51680fe6455f.png
первый обработка в БМВ2СЦР
http://s020.radikal.ru/i718/1401/20/8e18d8a8389f.png
2.я
http://s019.radikal.ru/i619/1401/a8/9868b4248b50.png
---------- Post added at 02:59 ---------- Previous post was at 02:56 ----------
Тем более уже кучу жалоб понаписали на эту тему, так что Витамин, всё равно скоро всё забанит, потрёт и отмодерирует.
Витамины я люблю!
А это имеется в виду, если их нумеровать подрят как 1, 2,3...9999? Потому, что я их всегда нумерую как учили:
10
20
30
.
.
.
100
110
120
и т. д.
чтобы если что еще пару строк воткнуть, например, между 50 и 60
Витюнёчик. пока ты спишь и греешь яички, ААА доделал собачку
http://i053.radikal.ru/1401/0f/49433b8734c1.png
Я её так и назвал Витя 2023 )))
Время на работу не более 10 минут
Viktor2312
03.01.2014, 14:34
чтобы если что еще пару строк воткнуть, например, между 50 и 60
Да я как бы в курсе, для чего это делается.
Витюнёчик. пока ты спишь и греешь яички, ААА доделал собачку
Я не сплю, дописываю 384 строку кода, поправил в начале 6 строк кода.
2D не нравится, перешёл на 3D уже круто и музыка играет и объём появился.
Время на работу не более 10 минут
Так не интересно, нужно долго делать, чтобы что-то стоящее получилось. Но собачка классная получилась.
---------- Post added at 15:34 ---------- Previous post was at 15:32 ----------
Если язык, который красный, сделать более округлый, получится, что он как бы немного высунут у собачки, может получше будет выглядеть.
Kakos_nonos
03.01.2014, 14:52
Victor2312, успеешь на дихальт?
Так не интересно, нужно долго делать, чтобы что-то стоящее получилось. Но собачка классная получилась.
---------- Post added at 15:34 ---------- Previous post was at 15:32 ----------
Если язык, который красный, сделать более округлый, получится, что он как бы немного высунут у собачки, может получше будет выглядеть.
Согласен. Но я зык у меня у самого счас высунут я работаю, сплю дома и ем. )))
Viktor2312
03.01.2014, 16:11
Victor2312, успеешь на дихальт?
Нет, но я и не хочу.
Это проба пера, я такое никуда выставлять не буду, так если только тут выложу, чтобы посмеялись и поругали за *****код. Там, в том, что я сделал, много косяков, из-за которых картинка статическая и её уже не пошевелишь, я примерно догадываюсь, как правильно нужно было делать, тогда её можно было бы и по вращать и ещё кучу эффектов поделать, но это нужна математика, а я сейчас ещё не готов этому, я пока команды бейсика вспоминаю, а некоторые вообще изучаю, поэтому не стоит эту мою поделку никуда выкладывать ни на дихальт -ы ни ещё куда нибудь. А переделывать 400 строк кода не хочется. Поэтому продолжу её мучать в учебных целях.
Это проба пера, я такое никуда выставлять не буду, так если только тут выложу, чтобы посмеялись и поругали за *****код.
The Supper на захолустном пати "открой воздух" какое то год не пмоню, 2012 или 2011 заняли с демой на бейсике "простой рот" которая круги рисовала 2 место.
вот
http://zxaaa.untergrund.net/view_demo.php?id=7145
Вращение картинки, 3д — и всё на бейсике.
по моему мы перед великим открытием. Дай бог это всё заработает на любом эмуляторе, реале, небось накрутил че ?
алеша,
у собаки цвет глаз надо сделать,ю отличным от фона.
алеша,
у собаки цвет глаз надо сделать,ю отличным от фона.
Я хотел фон синий.... Счас сделаю язык и фон
Hacker VBI
03.01.2014, 18:41
Viktor2312, давай на дихальт!!!
алеша,
у собаки цвет глаз надо сделать,ю отличным от фона.
Аерочик Малиновый ты мой, фон сделал )))
Трава сделал, язык высунул!
http://s020.radikal.ru/i712/1401/6b/a88a6f12e023.png
marinovsoft
03.01.2014, 21:46
У собаки второй ус слева сверху обрывается и потом появляется из неоткуда.
У собаки второй ус слева сверху обрывается и потом появляется из неоткуда.
Я ее не доделывал она мне не нравится
У собаки второй ус слева сверху обрывается и потом появляется из неоткуда.
он там просто тоньше пикселя - не видно...
Viktor2312
03.01.2014, 23:54
Ссылку на эмулятор которую дал ААА действительно кайфно выполняет прогу, ничего не тормозит и нет рывков. Хотя работает в обоих. Сохранил в одно, а загрузил в другом, но только с расширением .Z80 с другими почему-то не видел.
Дописал первую небольшую и самую простую часть ААА-Demo, 517 строк кода, а на экране по прежнему ничего серьёзного, буду придумывать дальше, что же туда добавить, пока ещё куча технических проблем мне не понятных, как их обойти или как реализовать задуманное, но будем дальше ваять.
psb, ус скорей всего такой из—за атрибутов, ведь там пришлось бы три цвета чтоб были рядом, а оно никак.
Но всё же фон надо в коде 1 а глаза.. Незнаю.. Может черными с отблеском?
null_device
04.01.2014, 15:38
я такое никуда выставлять не буду, так если только тут выложу, чтобы посмеялись и поругали за *****код
Ждем результатов! ;)
Вращение картинки, 3д — и всё на бейсике.
по моему мы перед великим открытием.
http://zxdemo.org/files/Rst7gift.zip
только надо набраться терпения перед формированием всего процесса
gurfunkel
04.01.2014, 16:49
http://zxdemo.org/files/Rst7gift.zip
только надо набраться терпения перед формированием всего процесса
Если NumLock в unreal нажать, то нормально.:)
SAM style
04.01.2014, 16:58
Вспомнилась прога на васике из ZX-ревю, которая 3D-график в изометрии рисовала. Мы её запускали и шли ТВ смотреть - работала что-то около 25 минут.
Вспомнилась прога на васике из ZX-ревю, которая 3D-график в изометрии рисовала. Мы её запускали и шли ТВ смотреть - работала что-то около 25 минут.
А я линии рисовал в демах так, вот часть демки:
По первому прерыванию идет бесик, а по второму ассемблер. Бейсик часа 3 отрабатыает, но счас можно запустить в турбо
Если NumLock в unreal нажать, то нормально.
или посмотреть интро к леммингам от psg
Красивые функции на бейские были, достойны демок, жалко сокорость малая. Но красиво.
Viktor2312
05.01.2014, 13:26
Ждем результатов!
Боюсь результат будет не скоро, так как тупо много кода нужно вбивать, к концу 2014г надеюсь успею. Всё таки 9500 строк получается не меньше.
Боюсь результат будет не скоро, так как тупо много кода нужно вбивать, к концу 2014г надеюсь успею. Всё таки 9500 строк получается не меньше.
Никак не пойму откуда ты знаешь сколько у тебя будет в итоге строк?
Боюсь результат будет не скоро
так не ты что ли еще дему на дихальт прислал? шли скорее! все равно ниче не теряешь, зато прикол.
так не ты что ли еще дему на дихальт прислал? шли скорее! все равно ниче не теряешь, зато прикол.
Слово прикол объясни Виктору 2013. А то пауза будет.
А то пауза будет.
вот она - пауза...
вот она - пауза...
__________________
Ночью эта скатина пьет и ААА спать не даёт, а днём спит.
Viktor2312
06.01.2014, 10:12
Никак не пойму откуда ты знаешь сколько у тебя будет в итоге строк?
Я бы сделал и на 20000 строк, но так как больше 9999 нельзя, то будет чуть меньше 9500 и небольшой запас, вдруг, я что-то прикрутить захочу.
Слово прикол объясни Виктору 2013. А то пауза будет.
Да, объясните. А то я в этих делах не сведующий.
вот она - пауза...
Ночью эта скатина пьет и ААА спать не даёт, а днём спит.
Дружбанище с Москвы приехал, весь день в кафе водку пили, мясо ели, вот и пауза, но 20 строк написал.
Сегодня продолжу интенсивно набивать код, мне понравилось.
Вот только есть маленькая загвоздочка, не могу понять как убрать точку. Вот например я поставил точку:
5460 PLOT BORDER 0; INK 1; 100,50
а потом мне нужно поставить точку с координатами 100,51 и потом убрать предыдущую точку, вот как это сделать, я так и не понял пока что. Поэтому делаю пока то, где это не требуется.
Hacker VBI
06.01.2014, 11:30
правильно 5460 PLOT 100,50; BORDER 0; INK 1
John North
06.01.2014, 11:40
какая жесть!!!!
---------- Post added at 11:40 ---------- Previous post was at 11:37 ----------
а убирать можно так:
PLOT 100,50
PAUSE 0
PLOT OVER 1;100,50
пауза для примера тока.
какая жесть!!!!
это жизнь!
introspec
06.01.2014, 13:21
Этот тред - прекрасная иллюстрация того, как флейм не остаётся в своём загашнике, а ещё и разливается по другим темам тонким жидким слоем. Читать эту тему людям в теме - стыдно. Зато модерацию всё устраивает.
introspec, теперь доволен? Или еще чего душа желает?
introspec
06.01.2014, 14:52
introspec, теперь доволен? Или еще чего душа желает?
Vitamin, моя душа желает, чтобы это произошло три дня назад. А так - всё ок.
Хотя интересно, конечно, по какому критерию эта тема не подошла разделу "Для начинающих".
Vitamin, моя душа желает, чтобы это произошло три дня назад. А так - всё ок.
Три дня назад все бухали:)
Хотя интересно, конечно, по какому критерию эта тема не подошла разделу "Для начинающих".
Дабы не ломать нежную психику начинающих.
Я вот до сих пор не понимаю что пишет на бейсике этот товарищь?
Хотя бы что у него в голове созрело, что происходит на экране. Ведь непонятно ваабще зачем мы считаем строки каждый день.
null_device
06.01.2014, 15:54
Боюсь результат будет не скоро, так как тупо много кода нужно вбивать, к концу 2014г надеюсь успею. Всё таки 9500 строк получается не меньше.
Хочется, чтобы изредка "выкидывалось" превью того, что уже получилось (на сорцы я даже не надеюсь).
Или вы хотите всю дему впихнуть в одну бейсик-программу? Если эффектов в деме несколько их можно писать отдельно в разных строках, а в конце обьеденить все части командой MERGE (или, что будет лучше - подгружать по очереди, в лучших "традициях" демостроения). ;)
правильно 5460 PLOT 100,50; BORDER 0; INK 1
э... а зачем атрибутами щелкать?
introspec
06.01.2014, 16:27
э... а зачем атрибутами щелкать?
Я думаю, чтобы программистам жизнь мёдом не казалась.
Я думаю, чтобы программистам жизнь мёдом не казалась.
Нет. Это хитрый программерский трюк. После написания программы убираются лишние команды и рапортуется об ускорении на 100500%
Alex Rider
06.01.2014, 17:25
А особенно правильно засовывать в PLOT управление BORDER'ом :D В общем, ответ на вопрос "как стереть точку?" - PLOT OVER 1; ... Остальное все тут от лукавого.
Че прикольно, категорю демок на пати, демо на басике,
Viktor2312, фокурс покус
poke 16384, 85
сразу 4 точки нарисует, 4х кратное ускорение! на ровном месте
null_device
06.01.2014, 18:20
особенно правильно засовывать в PLOT управление BORDER'ом
Вангую, там должен быть PAPPER! :) А синтаксис строки во вотором варианте вас не удивил (атриббуты, после параметров, через точку с запятой)? ;)
ZEK, частный случай. А если нужно нарисовать диагональную линию под произвольным углом. :D
Че прикольно, категорю демок на пати, демо на басике,
Numlock compo!
ZEK, частный случай. А если нужно нарисовать диагональную линию под произвольным углом
ну так демо,там можно заранее где надо, линии рисовать, а где надо poke тыкать, или вообще udg юзать
null_device
06.01.2014, 19:53
ZEK, Это - да. Но судя по тому, что для рисования используются команды PLOT \ DRAW - дело "пахнет" 3D-моделированием, или как мимнимум "вычисляемой" графикой. :)
Дайте этому чудаку это. пусть адаптирует ля спеки и не парится.
http://basic.ucoz.net/load/primery_gotovykh_programm/1-1-0-2
интересные примерчики, замечу. если что, может, тоже *****дему запилю :)
Пачему не хотите сделать номарльную дему?
придумать эффект, найти кодера исполнить, нарисовать картинку. сделать спарйты ) это на писи деается руками(
А потом мзуыку написать и сделать скролл. текст? пачему до *****дем дошли, зачем надО?
Hacker VBI
11.01.2014, 13:03
48к (http://torinak.com/qaop)
Viktor2312
22.01.2014, 13:08
Цитата:
Сообщение от Hacker VBI Посмотреть сообщение
Viktor2312, где бейсик-демо?
В процессе обдумывания, то что изначально надумал, не правильно делал, нужно алгоритм замутить, чтобы всё рисовало сама, а не точечьками и линиями с явными координатами.
вот первая не доделанная версия, во вложении. Скачать (5 Кб) (http://yadi.sk/d/6dF2ZP8zGWkA4)
Нужно просто нажать RUN и ввод (Enter) естественно.
Нужно просто
Следи Модератор за руками пользователя:
1. Упаковать изделие №1.
2. РАСШИРЕННЫЙ РЕЖИМ ПОСТА
3. ПРИЛОЖИТЬ твоё изделие.
Какого лысого Х ты на Яндекс выкладываешь 4,5 килобайта?
Тебе хочется замомтать форумчан, убить ААА?
По деме молодец. хорошо получилось! Старайся далее. ААА понравилось.
Viktor2312
22.01.2014, 13:23
Следи Модератор за руками пользователя:
1. Упаковать изделие №1.
2. РАСШИРЕННЫЙ РЕЖИМ ПОСТА
3. ПРИЛОЖИТЬ твоё изделие.
Какого лысого Х ты на Яндекс выкладываешь 4,5 килобайта?
Тебе хочется замомтать форумчан, убить ААА?
По деме молодец. хорошо получилось! Старайся далее. ААА понравилось.
Я бы так и сделал, на так как я этот файл уже прикрепил на форуме, во флейме, то второй раз она один и тот же файл не разрешает прикреплять. Поэтому так извращнулся.
Тебе хочется замомтать форумчан, убить ААА?
Нет ААА нам живой нужен, чтобы оценивал мои извращённые творения и направлял, по верному пути.
Я бы так и сделал, на так как я этот файл уже прикрепил на форуме, во флейме, то второй раз она один и тот же файл не разрешает прикреплять. Поэтому так извращнулся.
охххх. Ну переименовал бы. И вылазь из флейма, ты же не псих совсем.только чуть чуть.
5000 строк чтобы написать имя Великого человека. Круто!
Я бы так и сделал, на так как я этот файл уже прикрепил на форуме, во флейме, то второй раз она один и тот же файл не разрешает прикреплять. Поэтому так извращнулся.
А что мешает стереть старый файл? Он стирается так-же, в расширенном режиме, где скрепка.
А что мешает стереть старый файл? Он стирается так-же, в расширенном режиме, где скрепка.
Яйца курицу учат ))) Модер не тот пошел...
Viktor2312
22.01.2014, 14:29
А что мешает стереть старый файл? Он стирается так-же, в расширенном режиме, где скрепка.
Не хотел я там его стерать.
Яйца курицу учат ))) Модер не тот пошел...
Да я всё это прекрасно знаю. Но лень мне было это делать, а диск был открыт, вот и кинул туда.
Я бы так и сделал, на так как я этот файл уже прикрепил на форуме, во флейме, то второй раз она один и тот же файл не разрешает прикреплять. Поэтому так извращнулся.
а можно ссылкой сделать форумной :)
Viktor2312
22.01.2014, 15:41
а можно ссылкой сделать форумной
Можно.
AAA-Demo недоделанная и убогая. (не программировал на бейсике с 12 лет, написал на новогодних выходных за пару вечеров, сильно не пинайте): в этом посте файл (http://www.zx.pk.ru/showpost.php?p=664598&postcount=850)
John North
22.01.2014, 20:59
Viktor2312, мда.. ты реально извратился..
сделал бы ссылку на САМ ФАЙЛ, а не на пост в котором он находится (Slider так делает, когда релизы обновляет).
да еще и в RAR-e блин!
а внутри вообще формат .z80 оказался!
ну ты че блин??
сделал бы ссылку на САМ ФАЙЛ, а не на пост в котором он находится (Slider так делает, когда релизы обновляет).
да еще и в RAR-e блин!
а внутри вообще формат .z80 оказался!
ну ты че блин??
Это program protector для бедных:)
John North
22.01.2014, 23:18
Это program protector для бедных:)
ага..
ZXTune - плеер спектрумовской музыки для Windows, Linux, Dingux, RaspberryPi, Android
это видимо тоже..
John North
22.01.2014, 23:41
?
читай внимательно:
http://zx.pk.ru/showpost.php?p=664810&postcount=104
Да я всё это прекрасно знаю. Но лень мне было это делать, а диск был открыт, вот и кинул туда.
Ты нарушил пространственно врменной континиум.
читай внимательно:
Прочитал. Не понял. Объясни мне свою шутку. Я тебе объясню свою.
John North
22.01.2014, 23:53
Vitamin, ты первый..
Vitamin, ты первый..
Защита программы на бейсике от взлома путем ее хранения в снапшоте, снапшота в архиве, архива на форуме в закрытом разделе:)
John North
23.01.2014, 00:08
а "для бедных" - имелся в виду бюджетный вариант такой защиты походу?
тогда моя "шутка" не удалась)
а "для бедных" - имелся в виду бюджетный вариант такой защиты походу?
Аха:)
потратил 5 минут
а где ютуб версия-то??
null_device
24.01.2014, 01:50
потратил 5 минут
Бегущая строка это, пожалуй, самое первое, чему "учились" начинающие спектрумисты. ;)
оффтоп: помню, какое на меня тогда произвела впечатление бегущяя срока в одной из кассетных версий артстудио (http://spectrum4ever.org/download.php?t=fulltape&id=1229).
а где ютуб версия-то??
вам trd-шник выложили, а тут тытруб подавай. :rolleyes: не все сразу
Бегущая строка это, пожалуй, самое первое, чему "учились"
по первоначальной задумке она должна была прыгать вверх-вниз и менять свою длину.
null_device
24.01.2014, 08:13
по первоначальной задумке она должна была прыгать вверх-вниз и менять свою длину.
Сдается мне, весьма "циклопическая" конструкция, получилась бы в итоге. ;)
Сдается мне, весьма "циклопическая" конструкция, получилась бы в итоге. ;)
прыжки вверх-вниз у меня уже получались :v2_dizzy_snowball:
Viktor2312
25.01.2014, 10:48
потратил 5 минут
И как это запустить и посмотреть? Все способы при помощи которых я обычно запускаю не прокатили, ничего не происходит.
null_device
25.01.2014, 11:04
как это запустить
Монтируете образ в эмулятор. Загружаете файл, если в эмуляторе нет средств делающих это (полу)автоматически. PROFIT!
Viktor2312
25.01.2014, 11:40
Монтируете образ в эмулятор
Это как, поподробнее можно.
Я запускаю эмулятор, появляется стандартное окно где можно выбрать 48КБейсик, 128КБейсик, TRDOS, что дальше делать. Я могу нажать F3 и выбрать файл, архива либо уже разархивированный, но это ничего не даёт.
null_device
25.01.2014, 11:47
Я могу нажать F3 и выбрать файл, архива либо уже разархивированный, но это ничего не даёт.
Один из вариантов: Заходите в tr-dos. Даете команду LIST. Ищете имя нужного вам файла (хотя там всего один файл ;) ). Не выходя оттуда, вводите команду LOAD "имя файла".
Viktor2312
25.01.2014, 12:07
Один из вариантов: Заходите в tr-dos. Даете команду LIST. Ищете имя нужного вам файла (хотя там всего один файл ). Не выходя оттуда, вводите команду LOAD "имя файла".
Спасибо, всё получилось.
Kakos_nonos
25.01.2014, 13:23
Не выкладывайте демы просто так. Отправляйте их на сочипати.
потратил 5 минут
Поместил в ***** архив, гоблину понраву
http://zxaaa.untergrund.net/view_demo.php?id=7898
---------- Post added at 13:25 ---------- Previous post was at 13:24 ----------
Не выкладывайте демы просто так. Отправляйте их на сочипати.
У группы ХООЙ ПРОГРАММ есть такое пати, там чем хуже тем первое место
Viktor2312
25.01.2014, 13:52
У группы ХООЙ ПРОГРАММ есть такое пати, там чем хуже тем первое место
Тогда это будет самой крутой демкой.
Не выкладывайте демы просто так. Отправляйте их на сочипати.
сейчас что-нибудь придумаю... :)
пробегал мимо, глянул ааа-демку...
Viktor2312 ой маниааак :)
не надо вставлять INK, PAPER и BRIGHT в каждый оператор, когда их много, - перед первым оператором в группе - 1 раз просто можно отдельно написать (без draw).
и на заметку:
...
1010 INK 1: PAPER 2: BRIGHT 1
1020 RESTORE 1020: GOSUB 9010: DATA 5, 1,1, 1,2, 1,3, 2,3, 3,3: REM ...plotiki...
1030 INK 3: PAPER 4: BRIGHT 0
1040 RESTORE 1040: GOSUB 9020: DATA 3, 1,1,2,2, 1,2,3,3, 1,3,4,5: REM ...plot+draw...
...
8999 GOTO 9999 : REM vse budet O.K.
9000 REM --- podprogrammi ---
9010 REM plot N raz
9015 READ N: FOR i=1 to N: READ x,y: PLOT x,y: NEXT i: RETURN
9020 REM plot+draw N raz
9025 READ N: FOR i=1 to N: READ x,y: PLOT x,y: READ dx,dy: DRAW dx,dy: NEXT i: RETURN
9030 REM ... drugie podprogrammi ...
...
9999 REM end of program
---------- Post added at 15:54 ---------- Previous post was at 15:41 ----------
кстати еще:
http://zx.pk.ru/showthread.php?p=198358#post198358
RESTORE DATA READ
И после этого, когда программа перестанет занимать 20 килобайт и уместится вся ниже 40000, можно взять Tobos FP (http://www.worldofspectrum.org/infoseekid.cgi?id=0008893) и откомпилировать, станет работать в разы быстрей.
9030 REM 1plot + Ndraw
9035 READ x,y: PLOT x,y
9037 REM draw N raz
9038 READ N: FOR i=1 to N: READ dx,dy: DRAW dx,dy: NEXT i: RETURN
1050 RESTORE 1050: GOSUB 9030: DATA 100,20, 3, 100,0, -50,80, -50,-80
1053 PLOT 100,18
1055 RESTORE 1055: GOSUB 9037: DATA 3, 100,0, -50,80, -50,-80
...
9040 REM Read + Rectangle(x,y,dx,dy)
9045 READ x,y,dx,dy
9050 REM Rectangle(x,y,dx,dy)
9055 PLOT x,y: DRAW dx,0: DRAW 0,dy: DRAW -dx,0: DRAW 0,-dy: RETURN
1060 RESTORE 1060: GOSUB 9040: DATA 10,10, 230,150
1070 LET x=12: LET y=12: LET dx=226: LET dy=146: GOSUB 9050
...
1 LET R1=9040: LET R2=9050
1080 RESTORE 1080: GOSUB R1: DATA 14,14, 222,142
1090 LET x=16: LET y=16: LET dx=218: LET dy=138: GOSUB R2
... ;)
---------- Post added at 17:16 ---------- Previous post was at 16:59 ----------
9060 REM Bar(color,x,y,dx,dy)
9065 READ color: POKE 23693,color: REM color=ink + (paper*8) + (bright*64) + (flash*128)
9070 REM Bar(x,y,dx,dy)
9075 READ x,y,dx,dy
9080 FOR i=0 to dy: PLOT x,y+i: DRAW dx,0: NEXT i
9090 RETURN
2 LET B1=9060: LET B2=9070
1100 RESTORE 1100: GOSUB B1: DATA 79, 1,1,254,174: REM 79 = ink 7: paper 1: bright 1: flash 0
1110 POKE 23693,5: REM vse po nolyam, ink 5
1115 RESTORE 1115: GOSUB B2: DATA 9,9,238,158
1120 RESTORE 1120: INK 1: GOSUB B2: INK 2: GOSUB B2: INK 3: GOSUB B2: INK 4: GOSUB R1: DATA 30,30,5,50, 40,30,5,60, 50,30,5,40, 60,30,100,100: REM 3 bar + 1 rectangle
...
8000 DATA 66: REM color
8001 DATA 1,2,3,4
8005 DATA 5,6,7,8, 9,10,11,12
8010 DATA 13,14,15,16, 17,18,19,20
8020 DATA 9,8,7,6, 5,4,3,2, 1,2,3,4
8030 DATA 1001,1002,1003,1004,1005: REM ne chitaem )
1130 RESTORE 8000: GOSUB B1: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2
1140 RESTORE 8000: GOSUB B1: GOSUB R1: GOSUB R1: GOSUB R1: GOSUB R1: GOSUB R1: GOSUB R1: GOSUB R1
1150 RESTORE 8010: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2
блин, забыл, как рассчитывать значения для занесения в ячейки 23606/23607 для переключения на символьный набор пользователя... :(
adr=60000
H=int(adr/256)
L=adr-H*256
H=H-1
23606,L
23607,H
:) насколько помню
null_device
25.01.2014, 16:54
scl^mc, даете команду RANDOMIZE (n-256). В ячейках 23670\71 будут лежать готовые числа для переменной.
Viktor2312
09.07.2014, 01:34
Поигрался с оператором OVER, действительно работает.
Качать и смотреть не обязательно, там рисуется 9 пикселей, после чего они убираются и процесс повторяется до бесконечности.
файлик (https://yadi.sk/d/f1qlWUfWWEVL5)
Теперь можно мучать дальше.
Powered by vBulletin® Version 4.2.5 Copyright © 2026 vBulletin Solutions, Inc. All rights reserved. Перевод: zCarot