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

[ОДИНОЧЕСТВО В СЕТИ]

у меня на ноуте почему то кубик стал абсолютно белым рисоваться.

вот и уменя тоже самое!!!

[DomiNick]

Поставил себе на заставку... ^___^

А тут уже другой "точечный источник"?
Теперь гораздо лучше стало, но я б всё-таки ещё посветлее его настроил...))
Может добавить настройки освещения?

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

А у меня просто немного подзависает и закрывается...

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

Я переименовал файл в Scr переместил в "C:\Windows\System32\" и покопался в настройках...
После этого стало всегда нормально запускаться...

Наверное это было из-за отсутствия параметров в реестре.....

[Ulex]

Наверное это было из-за отсутствия параметров в реестре....

Ага, точно, по умолчанию не инициализируется. Пока в реестре SOFT_HARD не установишь, не фурычит.

А тут уже другой "точечный источник"?

Освещение не менял. Прицепил к моделям материалы. На прежней версии цвет модели определялся диффузной состовляющей вертекса, а теперь материалом.

Щели между фрагментами кубика лутше убрать.

Щели убирать не буду, ибо они специально сделаны.

А у меня просто немного подзависает и закрывается...

Там задержка есть ~3.5 сек после старта - это время, в течении которого приложение по движении мыши закрываться не должно.

[DomiNick]

Там задержка есть ~3.5 сек после старта - это время, в течении которого приложение по движении мыши закрываться не должно.

И при закрытии почему-то тоже...

В моей микроскопической коллекции исходников СкринСейверов на Делфи вот такие способы "закрывания":

var done: boolean;

...

begin
if Msg.message=WM_MOUSEMOVE then
      done:=(Abs(LOWORD(Msg.lParam)-crs.x)>5) or (Abs(HIWORD(Msg.lParam)-crs.y)>5)
else
      done:=(Msg.message=WM_KEYDOWN) or (Msg.message=WM_ACTIVATE) or (Msg.message=WM_ACTIVATEAPP) or (Msg.message=WM_NCACTIVATE);
if done then
      Close;

var po: TPoint;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
...
GetCursorPos(po);
...
end;

procedure TForm1.OnMessage(var Msg: TMsg; var Handled: Boolean);
begin
  case Msg.message of
    WM_KEYDOWN, WM_KEYUP,
    WM_SYSKEYDOWN, WM_SYSKEYUP,
    WM_LBUTTONDOWN, WM_RBUTTONDOWN,
    WM_MBUTTONDOWN: Close;
    WM_MOUSEMOVE:
    begin
      if (msg.pt.x <> po.x) or (msg.pt.y <> po.y) then
        Close;
    end;
  end;
end;

Var IsPreview: Boolean; MoveCounter: Integer;

...

MoveCounter:=3;

...

  Case Msg of
    wm_NCCreate  : Result := 1;
    wm_Destroy   : PostQuitMessage(0);
    wm_Paint     : DrawSingleBox; { paint something }
    wm_KeyDown   : QuitSaver := AskPassword;
    wm_LButtonDown, wm_MButtonDown, wm_RButtonDown, wm_MouseMove : 
                   Begin
                     If (Not IsPreview) Then Begin
                       Dec(MoveCounter);
                       If (MoveCounter <= 0) Then QuitSaver := AskPassword;
                     End;
                   End;
     Else Result := DefWindowProc(Window,Msg,WParam,LParam);

[Ulex]

Давненько меня не было, дела, поездки, командировки.

Однако выдался выходной. Итак:
1. Вынес в настройки параметры источников освещения. Направленный можно просто включить/выключить, а у точечного можно ещё установить закон распространения (Attenuation0-2) и расстояние м.у. источником и точкой (0, 0, 0).
2. Добавил в окошко параметров ScreenSaver_a предварительный просмотр.
3. Научил робота кое-как собирать два нижних ряда.

[Ulex]

Последняя (крайняя) версия.
Изменения:
1. Установил порог на закрывание по движению мыши, как рекомендовал DomiNick;
2. Научил робота собирать кубик целиком (концовка маленько затянута, но оптимизировать логику уже не хочется).

В архивах scr и исходники.

[Ulex]

to triton

А что, по теме сказать нечего, решили остроумием блеснуть? Так не остроумно, ибо баян.
Вы бы как-нибудь пооригинальней подкололи. Я бы хоть посмеялся. А так и не смешно, и не понятно, зачем вообще писали.

[Alex Cones]

Поставил на заставку, подождал 10 минут - вроде красиво. Ушел на 4 часа, возвращаюсь - торможение как ластик по стеклу. Вся система чуть не накрылась. И главно заставка не выключается. Вызвал диспетчер - 99% кушал твой кубик. Где-то утечка памяти. Видать маленькая - только через несколько часов достигла критикала.

[Ulex]

Терпеть не могу такие ошибки. Сегодня целый день гонял заставку на ноуте (Celeron 1600 ОЗУ-1Gb) не увидел никаких тормозов. Самое непонятное то, что в диспетчере задач столбец "Память-использование" выше 3332 Кб не поднимался. Я в непонятках. Вообще в программе памяти динамической то почти и нет. При загрузке программы только GlobalAlloc для инициализации объектов, а вся остальная память статическая. Где дыра, ума не приложу. Может кто посмотрит исходник, очевидно, у меня уже глаз замылился - в упор не вижу.

[Alex Cones]

(Celeron 1600 ОЗУ-1Gb)

Может из-за того, что у меня памяти в 2 раза меньше?