www.demoscene.ruenglish version
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация   ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 
Forth Haiku
На страницу Пред.  1, 2, 3 ... 15, 16, 17 ... 19, 20, 21  След.
 
Начать новую тему   Ответить на тему    Список форумов DemoScene.Ru -> Демо
Предыдущая тема :: Следующая тема  
Автор Сообщение
Manwe
Администратор сайта


Зарегистрирован: 21.09.2007
Сообщения: 1412


СообщениеДобавлено: Чт Янв 22, 2015 13:53    Заголовок сообщения: Ответить с цитатой


Получилось благодаря ошибке в процедуре возведения комплексного числа в комплексную степень.
Лайкнуть можно здесь Smile
Код:
: q 2dup dup * swap dup * + sqrt ;
: l log -rot swap atan2 ;
: f
2dup >r >r
2 2.1 z*
.3 -2 z+
r> r>
-2 1.6 z*
-1.4 -1.75 z+
q l
-2 1.6 z*
over dup * over dup * + rot over / -rot /
over exp over cos * -rot sin swap exp *
z*
q l
;
x .05 - 1.7 * y .64 - 1.7 *
f f f f f f f f f
abs swap abs 3 /
q 3.5 / swap

_________________
Manwe/SandS
www.manwe.ru
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Manwe
Администратор сайта


Зарегистрирован: 21.09.2007
Сообщения: 1412


СообщениеДобавлено: Вт Янв 27, 2015 20:17    Заголовок сообщения: Ответить с цитатой

tone писал(а):
Саша! Вот идеальный шайдортой для тебя
ты вроде фанат правильного языка

Ну что, теме исполнился год. Спасибо, Тон!
Уже через 2 дня я написал первую мелкую демку, а сегодня их наберётся десятка три. Я рад, что к теме подтянулись и другие люди, особенно из России.

И вообще,

Оказывается, FORTH для ZX Spectrum был выпущен в 1982-ом году и стоил 15 фунтов!
_________________
Manwe/SandS
www.manwe.ru
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
phantom lord



Зарегистрирован: 27.09.2007
Сообщения: 264


СообщениеДобавлено: Ср Янв 28, 2015 18:03    Заголовок сообщения: Ответить с цитатой

Manwe писал(а):
tone писал(а):
Саша! Вот идеальный шайдортой для тебя
ты вроде фанат правильного языка

Ну что, теме исполнился год. Спасибо, Тон!
Уже через 2 дня я написал первую мелкую демку, а сегодня их наберётся десятка три. Я рад, что к теме подтянулись и другие люди, особенно из России.

И вообще,

Оказывается, FORTH для ZX Spectrum был выпущен в 1982-ом году и стоил 15 фунтов!


Был у меня на кассете в 94 году.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Manwe
Администратор сайта


Зарегистрирован: 21.09.2007
Сообщения: 1412


СообщениеДобавлено: Пн Фев 09, 2015 02:39    Заголовок сообщения: Ответить с цитатой

Manwe писал(а):
сегодня их наберётся десятка три.
Оказывается, около 60-ти. Если не считать промежуточные варианты, то 40 с чем-то.
_________________
Manwe/SandS
www.manwe.ru
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Kopa



Зарегистрирован: 02.02.2014
Сообщения: 39
Откуда: Челябинск

СообщениеДобавлено: Чт Окт 22, 2015 00:16    Заголовок сообщения: Ответить с цитатой

Forth в браузере. Smile
Javascript eForth
jeforth.3htm Revision 1.0 Запустилась консоль в браузере без Flash Source code jeforth.3we там же и несколько примеров.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Manwe
Администратор сайта


Зарегистрирован: 21.09.2007
Сообщения: 1412


СообщениеДобавлено: Сб Окт 24, 2015 00:12    Заголовок сообщения: Ответить с цитатой

о, прикольно - без Flash и без SMS Smile
Работает.
_________________
Manwe/SandS
www.manwe.ru
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Manwe
Администратор сайта


Зарегистрирован: 21.09.2007
Сообщения: 1412


СообщениеДобавлено: Вт Ноя 10, 2015 09:43    Заголовок сообщения: Ответить с цитатой

Интерактивный шейдер - реагирует на клавиши W/A/S/D
Не забывайте нажимать Like Wink




\ use WASD keys
: b button ; : d dup ;
2 b dt * 200 / d
1 @ sin * swap 1 @ cos *
4 @ 5 @ z+ 5 ! 4 !
2 @ 3 @ 4 @ 5 @ z+ 3 ! 2 !
2 @ x + .5 - 3 @ y + .5 -
5 b dt * 3 * 1 b dt * 3 * -
1 @ + d d 1 !
cos swap sin z* 2dup
.05 + atan2 abs .4 < -rot
.01 - atan2 abs 1 < - 0 max
6 @ sin dt * 2 * 7 @ + 7 !
6 @ cos dt * 2 * 8 @ + 8 !
3 b d d
if 1 @ 6 ! then
if 2 @ 7 ! then
if 3 @ 8 ! then
7 @ .5 x - - d *
8 @ .5 y - - d *
+ .00003 < +
x y ** 56 * sin
237 * d floor -
1000 * 999 - 0 max
+ d d

В этом Forth появился оператор if then, благодаря чему удалось сократить размер интры до 467 байт.

Звёздное небо делается синусом от X в степень Y - тогда в дробной части получается шум:
x y ** 56 * sin 23710 * dup floor -
На GLSL это будет выглядеть так: fract(sin(pow(x,y)*56)*23710)
_________________
Manwe/SandS
www.manwe.ru
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Manwe
Администратор сайта


Зарегистрирован: 21.09.2007
Сообщения: 1412


СообщениеДобавлено: Сб Ноя 14, 2015 23:52    Заголовок сообщения: Ответить с цитатой

Удалось сделать эффект, над которым я давно думал - star field. Типа, летишь среди звёзд. По скриншоту не очень понятно, но эти пиксели летят на зрителя.
Проблема в том, что в этом Forth вообще нет доступа к памяти - ни к текстурам, ни к массивам, ни к переменным. Есть только маленький стек.
Как бы вы сделали star field без массивов и текстур?


_________________
Manwe/SandS
www.manwe.ru
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
BiTL
DOS lover


Зарегистрирован: 22.09.2007
Сообщения: 2947


СообщениеДобавлено: Вс Ноя 15, 2015 00:23    Заголовок сообщения: Ответить с цитатой

Manwe, ты типа сделал, а теперь хочешь чтобы мы догадались - как? Smile

Давай уже публикуй )
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Manwe
Администратор сайта


Зарегистрирован: 21.09.2007
Сообщения: 1412


СообщениеДобавлено: Вс Ноя 15, 2015 11:01    Заголовок сообщения: Ответить с цитатой

А всё равно по Forth-коду не догадаетесь, он запутанный Smile
Если в двух словах, то я генерю 38 Mb псевдослучайных данных в секунду ради отрисовки звёздного поля. По аналогии со звёздным небом в "Asteroids", только намного больше.
_________________
Manwe/SandS
www.manwe.ru
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Manwe
Администратор сайта


Зарегистрирован: 21.09.2007
Сообщения: 1412


СообщениеДобавлено: Вт Ноя 17, 2015 23:36    Заголовок сообщения: Ответить с цитатой

Готово
_________________
Manwe/SandS
www.manwe.ru
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
BiTL
DOS lover


Зарегистрирован: 22.09.2007
Сообщения: 2947


СообщениеДобавлено: Вт Ноя 17, 2015 23:54    Заголовок сообщения: Ответить с цитатой

Manwe писал(а):
Готово


Годно.

ЗЫ: урл там у тебя (www.thesands.ru/forth-demotool) криво написан
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Mikle



Зарегистрирован: 02.12.2008
Сообщения: 427
Откуда: Туапсе

СообщениеДобавлено: Ср Ноя 18, 2015 09:10    Заголовок сообщения: Ответить с цитатой

Картинку звёзд вижу, но при нажатии на Play ничего не происходит. Раньше демки на Forth, вроде бы, работали.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
BiTL
DOS lover


Зарегистрирован: 22.09.2007
Сообщения: 2947


СообщениеДобавлено: Ср Ноя 18, 2015 09:42    Заголовок сообщения: Ответить с цитатой

Mikle писал(а):
Картинку звёзд вижу, но при нажатии на Play ничего не происходит. Раньше демки на Forth, вроде бы, работали.


у меня и без Play сразу все летает. Может у тебя WebGL в браузере отключен?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Mikle



Зарегистрирован: 02.12.2008
Сообщения: 427
Откуда: Туапсе

СообщениеДобавлено: Ср Ноя 18, 2015 11:34    Заголовок сообщения: Ответить с цитатой

Цитата:
Может у тебя WebGL в браузере отключен?

А статическая картинка чем нарисована?
Прошёлся по теме назад - остальные демки тоже вижу в статике. WinXP, может в этом быть дело?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов DemoScene.Ru -> Демо Часовой пояс: GMT + 3
На страницу Пред.  1, 2, 3 ... 15, 16, 17 ... 19, 20, 21  След.
Страница 16 из 21

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах