Украшение для рабочего стола!

[Vervolf]

Всем Здравствуйте!вот украшение для рабочего стола..все вроде работает, только как бы её сделать так, чтобы снежинки падали как можно плавнее.. я уже все перепробывал..и интервалы таймеров и шаги передвижения объектов..

[MyLastHit]

По сабжу ничего нет, но вот это меня испугало:

For i2:=1 to Col do
 begin
 if img[i2].Visible=true then
  begin
  if img[i2].Top<ClientHeight+img[i2].Height then
   begin
   img[i2].Top:=Img[i2].Top+Speed;
   Form1.DoubleBuffered:=True;
   st:=RandomRange(1,3);
   if st=1 then
    begin
    img[i2].Left:=img[i2].Left+RandomRange(3,6);
    end;
   if st=2 then
    begin
    img[i2].Left:=img[i2].Left-RandomRange(3,6);
    end;
   end;
  end;
 end;

По-моему вот так будет красивее и быстрее обрабатываться:

For i2:=1 to Col do
 if (img[i2].Visible) and (img[i2].Top<ClientHeight+img[i2].Height) then
 begin
   img[i2].Top:=Img[i2].Top+Speed;
   Form1.DoubleBuffered:=True;
   st:=RandomRange(1,3);
   case ST of
   1:img[i2].Left:=img[i2].Left+RandomRange(3,6);
   2:img[i2].Left:=img[i2].Left-RandomRange(3,6);
   end;
 end;

[Vervolf]

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

По сабжу ничего нет, но вот это меня испугало:

For i2:=1 to Col do
 begin
 if img[i2].Visible=true then
  begin
  if img[i2].Top<ClientHeight+img[i2].Height then
   begin
   img[i2].Top:=Img[i2].Top+Speed;
   Form1.DoubleBuffered:=True;
   st:=RandomRange(1,3);
   if st=1 then
    begin
    img[i2].Left:=img[i2].Left+RandomRange(3,6);
    end;
   if st=2 then
    begin
    img[i2].Left:=img[i2].Left-RandomRange(3,6);
    end;
   end;
  end;
 end;

По-моему вот так будет красивее и быстрее обрабатываться:

For i2:=1 to Col do
 if (img[i2].Visible) and (img[i2].Top<ClientHeight+img[i2].Height) then
 begin
   img[i2].Top:=Img[i2].Top+Speed;
   Form1.DoubleBuffered:=True;
   st:=RandomRange(1,3);
   case ST of
   1:img[i2].Left:=img[i2].Left+RandomRange(3,6);
   2:img[i2].Left:=img[i2].Left-RandomRange(3,6);
   end;
 end;

да, согласен, спасибо!че то сразу не сообразил..

[MyLastHit]

А вот теперь по сабжу.
Решил твою задачку вводом новой переменной j. См исходник.
Корректируй как тебе нужно. Просто движение получилось слишком синхронным, а додумать уже твое дело. тем более с Рамдмайзом ты знаком как я вижу)

[Vervolf]

Спасибо!

[Gambler]

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

[Vervolf]

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

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

а как фракталы в Delphi реализовать?можно пример?