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

[Ulex]

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

[alexBlack]

Красиво нарисовано.
Заметил одну недоработку. Если окно перетащить мышкой, пропадает часть кубиков.
В архиве мой вариант с исходниками (Delphi+OpenGL)- это к вопросу о модели.

[Levsha100]

Моя идея организации модели:

Массив 1..6 из двумерных массивов- сторон куба вот так

************
  storona=record
     Places:Array[1..3,1..3] of byte; {или тип с 6 разными цветами}
  end;
************
Kub:Array[1..6] of storona;

[ROD]

Вообще класно. Еще можно сделать, что бы человек мог запутать кубик, а программа его собрать, ну или наоборот, зупутывал бы человек, а собирала программа. (если нужно, могу дать очень простой и понятный алгоритм сборки)

[DomiNick]

Потрясающе... ^___^

Только надо бы ещё чуть сверху подсвечивать, а то уж слишком темновато получилось (во всяком случае у меня)...

А может можно сделать настоящий ScreenSaver? Я бы себе такой поставил...

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

В архиве мой вариант с исходниками (Delphi+OpenGL)- это к вопросу о модели.

Исходники не компилируются... Кажется что-то недоустановлено... ((

[Error] commands.pas(11): 'END' expected but 'PROCEDURE' found
[Error] commands.pas(12): 'IMPLEMENTATION' expected but ';' found
[Error] commands.pas(19): Declaration expected but identifier 'GLColor' found
[Error] commands.pas(32): Undeclared identifier: 'TPoint3Di'
[Error] commands.pas(36): ';' expected but 'IMPLEMENTATION' found
[Error] commands.pas(11): Unsatisfied forward or external declaration: 'Translate'
[Fatal Error] RubicsCube.pas(4): Could not compile used unit 'commands.pas'

[Sazary]

Понравилось. Красиво получилось..

[alexBlack]

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

Исходники не компилируются... Кажется что-то недоустановлено... ((

Скорее всего версия Delphi. Не компилируется этот фрагмент:

   TPoint3Df = record
      x, y, z : GLFloat;
      procedure Translate(dx, dy, dz:GLFloat);
   end;

не помню с какой версии доступно описание процедур в record-ах. У меня Turbo Delphi (10).

Как вариант можно переписать следующим образом:

   TPoint3Df = record
      x, y, z : GLFloat;
   end;

   procedure Translate(var P:TPointe3Df; dx, dy, dz:GLFloat);

и реализацию соответственно подправить. То-же самое с TPoint3Di.Empty.

[Ulex]

Исправил ошибку с исчезающими кубиками.
Потихоньку адаптирую программу под Screen Saver.
В связи с этим проблема, не могу скрыть окно программы, чтобы при запуске приложения-заставки в свойствах экрана в предварительном просмотре его не было видно. И ещё не знаю как сделать, чтобы программа закрывалась при выходе из свойства:экран->заставка.

[alexBlack]

Вот здесь рекомендации по созданию . Пункт 3 .... и 4, а то кнопочка экран/заставка/параметры доступна, но запускает сам сейвер в полном окне и закрыть его можно только по Alt+F4.

[ROD]

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