Модель Кубика-Рубика

[DomiNick]

не помню с какой версии доступно описание процедур в record-ах.
...
и реализацию соответственно подправить.

Я как раз удивился что процедура делает в record'е... Не встречал такого...
А чем больше подправлять, тем больше он начинает ругаться...
В принципе я всё-таки заставил её работать, только одного не понял - copy(FCmdBuffer, 2) - Делфи жаловалась что мало параметров и я наугад дописал Length(FCmdBuffer)-1...
В "Turbo Delphi (10)" и copy подругому можно записывать?))

... и последующем начале вращения граней, у меня верхняя грань начала вращаться без перерыва

У меня тоже покрутился-покрутился и начал крутить верхней гранью как вертолёт... %)

И всё-таки можно что-нибудь с подсветкой сделать?)
Судя по скриншоту из второго поста у некоторых с подсветкой нормально получается, а вот мой > Скрин < ...

[Alex Cones]

copy(FCmdBuffer, 2)

Функция копи имеет следующие параметры:
Copy(S,Index,Count),
Где S - Строка, из которой необходимо скопировать
Index - Номер символа, с которого начинаешь копировать Субстроку
Count - Количество символов, которое нужно скопировать.

[alexBlack]

Сообщение от DomiNick

...
В принципе я всё-таки заставил её работать, только одного не понял - copy(FCmdBuffer, 2) - Делфи жаловалась что мало параметров и я наугад дописал Length(FCmdBuffer)-1...
В "Turbo Delphi (10)" и copy подругому можно записывать?))

Delphi (по крайней мере 10-ка) допускает не указывать последний параметр. В отладчике видно, что в этом случае в качестве параметра компилятор подставляет $7FFFFFFF, то есть копирование до конца строки. Хотя в справке я про это ничего не нашел.
------------
К сожалению из исходников (system.pas) этого тоже не видно, т.к. copy() - это не функция, а нечто вроде макроса. В частности, для строк компилятор подставляет вызов LStrCopy().

[JTG]

http://www.wasm.ru/baixado.php?mode=src&id=361 пароль 12345
медитируем

[AngelOfDeath]

Сообщение от Ulex

Недели три назад появилась идея - написать что-то типа ScreenSaver_a (программы-заставки).
Выбрал тему - собирающийся и разбирающийся Кубик Рубика.
Вот, собрал физическую модель кубика. Зацените.
А с логической моделью как-то не всё гладко. Сначала думал загнать всю инфу по кубику в трёхмерный массив. Каждый элемент массива ассоциируется с одним элементом кубика-Рубика.
Элемент кубика Рубика - это тоже кубик, некоторые из граней которого окрашены в разные цвета. Таким образом, каждый элемент массива определяет какие грани элемента кубика окрашены и какими цветами.
И, вообщем, неудобная модель получилась - при повороте граней, приходится перегонять очень много данных внутри этого массива, причём не просто перегонять, а ещё и интеллектуально (в зависимости от направления поворота грани) менять значения элементов массива.
Может кто другую модель предложит, более логичную.

Показывает просто чёрный экран
У меня windows 7

[Ulex]

У меня тоже покрутился-покрутился и начал крутить верхней гранью как вертолёт... %)

Эт нормально.... Пока нормально. У робота, который должен кубик собирать, голову сносит. Голову сносит, т.к. внятной логической модели не было (сейчас она есть - в процессе реализации).

И всё-таки можно что-нибудь с подсветкой сделать?)
Судя по скриншоту из второго поста у некоторых с подсветкой нормально получается, а вот мой

Не понимаю. В сцене два источника освещения. Направленный и точечный. У DomiNick_a не включается точечный источник. Внешними настройками видеодрайвера у себя добиться такой ошибки не смог. Причина непонятна.

[DomiNick]

Хм... У меня двухъядерная видеокарта.......

[Ulex]

1. доделал настройку параметров. Конфигурация заставки хранится в реестре. Куст HKEY_CURRENT_USER\Software\Ulex\Scr eenKubik.

Параметры (все DWORD):
SPEEDROTATE - скорость поворота граней в режиме просмотра
SPEEDDESTR. - скорость поворота граней в режиме разбора кубика
SPEEDSTRUCT - скорость поворота граней в режиме сбора кубика
Все скорости получаются умножением значений из реестра на 0.005 (в радианах).

COUNTROTATE - количество поворотов кубика в режиме просмотра
COUNTDESTR. - количество итераций при разборе кубика

SOFT_HARD - тестовый параметр (вообще режим, в котором инициализируется Direct)

2.
Сделал выход из полноэкранного режима приложения по кнопке ESC и по движению мыши.

3.
Добавил тестовый режим (запуск заставки с ключом /t). При этом "Кубик" запускается в оконном режиме.

4.
Пароль делать не буду.

5.
Установил для моделей материал. Может поможет тем, у кого с освещением не всё в порядке (очень маловероятно).
А может и наоборот, у меня на ноуте почему то кубик стал абсолютно белым рисоваться.

P.S.
На XP-ке переименовать ехе в scr и положить в WINDOWS/SYSTEM32

[Вадим Буренков]

У меня полностью белым рисуется.

[ROD]

У меня тоже. И еще такое замечание. Щели между фрагментами кубика лутше убрать. (ну или, хотя бы, сделать внутри элементов крепления, а то выглядит не очень).

http://igrushka.kz/vip43/kubrub.php вот тут можно посмотреть, как выглядит он внутри.