Структура данных для кубика Рубика

[Gut]

Здраствуйте!
Первое что всплыло в голову на эту тему было:

type
   tPoint3D = record
   	x, y, z : integer;
   end;
   tColor = (Red, Green, Blue, Yellow, Orange, White, Grey);
   tSide = record
   	Vertex : array [1..4] of tPoint3D;
      Color : tColor;
   end;
   tCube = array [1..6] of tSide;
   tRubiksCube = array [1..27] of tCube;

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