Badminton
Sergey Karakovskiy
Processing..
Howto:
Распаковываете в путь, указанный по умолчанию. (Можнете в файлике
GameBadmintonV2.ft изменить его на свой, все пути относительны,
поэтому можете указывать любой каталог, осторожнее с
пробелами!)
type main
А дальше -- всё интуитивно ясно :)
Сейчас от всех участинков Хотелось бы ответов на вопросы:
По Вашему мнению:
1. Настколько понятным является код? Может ли он чему-то Вас научить на
микроуровне / макроуровне? Иначе говоря: практическая польза и как
быстро Вы бы могли её извлечь?
2. Насколько он является эффективным?
3. Какие фичи можно реализовать лучше/практичнее/универсальнее?
ну и на десерт:
4. Чего бы вам хотелось видеть, реализованным в этой демке? ;)
Собственные мысли:
1. Юзать математику с фиксированной точкой, чтобы отделить зависимости
реагирования на клавиатуру и движение шарика.
2. Уровни сложности будут представлять собой количество шариков и,
возможно, препятствия на столе в виде кирпичей произвольной формы.
3. Игру можно будет сохранять в файл.
4. Очки/статистика/таблица почёта. Ах кто бы мне сказал, как в Форте
терминал раскрасить -- было бы вообще здорово.
Sergey Urbanovich
> терминал раскрасить -- было бы вообще здорово.
(незнаю как windows, в dos & linux они точно работают)
как их прикрутить к forth'у без INTCALL я с ходу не могу найти
/*wbr*/
Michael Gasanenko
On 9 апр, 18:36, Sergey Urbanovich <Sergey.Urbanov...@gmail.com>
wrote:
> > терминал раскрасить -- было бы вообще здорово.
-- )
IRGB -- это значения битов intensity (яркость), red, green, blue
например,
4 = (i=0, r=1, g=0, b=0) -- красный
10 = (i=1, r=0, g=1, b=0) -- ярко-зеленый
Sergey Karakovskiy
see CONSOLE-IRGB@ <==!!!==>
^ -?
Return Stack: 04003a40 040066dc 04003b00 04009ec8
12:32:02 return stack saved (10h bytes), use the word .SAVED-RSTACK to see it
[1] $40e814{"CONS"} ; 68826104 FORTH ( FORTH ) 68826104 FORTH ( FORTH ) ; 68826104 FORTH ( FORTH )
--
Best regards,
Sergey mailto:sergey.ka...@gmail.com
Sergey Karakovskiy
Что-то дополнительно нужно подключать?
Т.е. каждая Форт-система реализует свою консольку самостоятельно и в
Win32Forth и GForth, Например, даже знание описание этих слов не
поможет?
see CONSOLE-IRGB!
see CONSOLE-IRGB!<==!!!==>
^ -?
Return Stack: 04003a40 040066dc 04003b00 04009ec8
12:32:31 return stack saved (10h bytes), use the word .SAVED-RSTACK to see it
[1] $40e814{"CONS"} ; 68826104 FORTH ( FORTH ) 68826104 FORTH ( FORTH ) ; 68826104 FORTH ( FORTH )
в WIN32fORTH
Есть
----------- HASHED ---------------------------------------------------------------------------------------------
SETRGB:
----------- HIDDEN ---------------------------------------------------------------------------------------------
SIZEOF(RGBQUAD)
----------- FORTH ----------------------------------------------------------------------------------------------
PALETTERGB RGB GDIRGBQUAD
----------------------------------------------------------------------------------------------------------------
Но как их юзать...
see rgb
: RGB lit 0x4 lit 0x100 * + lit 0x100 * + lit 0x100 * + ; ok
тут простое преобразование.
see setrgb:
-1247719192 CONSTANT SETRGB: ok
Это вообще константа
see gdirgbquad
:CLASS GDIRGBQUAD ok
see palettergb
: PALETTERGB lit 0x2 lit 0x100 * + lit 0x100 * + lit 0x100 * + ; ok
здесь тоже мало интересного
--
Best regards,
Sergey mailto:sergey.ka...@gmail.com
Friday, April 11, 2008, 4:24:01 PM, you wrote:
Michael Gasanenko
words irgb
===== FORTH ( FORTH ) :
CONSOLE-IRGB-ATTRIB@ CONSOLE-IRGB-ATTRIB! ok[Dec]
On 14 апр, 12:32, Sergey Karakovskiy <sergey.karakovs...@gmail.com>
wrote:
>
> see CONSOLE-IRGB@ <==!!!==>
> ^ -?
> Return Stack: 04003a40 040066dc 04003b00 04009ec8
> 12:32:02 return stack saved (10h bytes), use the word .SAVED-RSTACK to see it
>
> [1] $40e814{"CONS"} ; 68826104 FORTH ( FORTH ) 68826104 FORTH ( FORTH ) ; 68826104 FORTH ( FORTH )
>
> --
> Best regards,