Шарики движутся рывками

[wint1000]

У кого есть исходник, на подобие типового кода.
Написал такой код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Timer1: TTimer;
    Shape2: TShape;
    Timer2: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Timer2Timer(Sender: TObject);
private
    { Private declarations }
public
  procedure krug();
  procedure mois();
  procedure krug2();
    { Public declarations }
end;

var
  Form1: TForm1;
  PosX,PosY,VelX,VelY:single;
  Pos2X,Pos2Y,Vel2X,Vel2Y:single;
  LastMouseX,LastMouseY:integer;
  MouseVelX,MouseVelY:integer;
  mousebutton:boolean;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
 PosX:=3;
 PosY:=7;
 VelX:=2;
 VelY:=2;
 Pos2X:=2;
 Pos2Y:=6;
 Vel2X:=4;
 Vel2Y:=4;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
mousebutton:=true;
VelX:=0;
VelY:=0;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
mousebutton:=false;
VelX:=MouseVelX;
VelY:=MouseVelY;
end;

procedure TForm1.krug;
begin
 PosX:=PosX + VelX;
 PosY:=PosY + VelY;

 if PosX>ClientWidth-Shape1.Width then
 begin
  VelX:=-VelX;
 end
 else if PosX<0 then
     begin
       PosX:=0;
       VelX:=-VelX;
     end;

 if PosY>ClientHeight-Shape1.Width then
 begin
  VelY:=-VelY;
 end
 else if PosY<0 then
     begin
       PosY:=0;
       VelY:=-VelY;
     end;


 Shape1.Left:=Round(PosX);
 Shape1.Top:=Round(PosY);

end;

procedure TForm1.krug2;
begin
 Pos2X:=Pos2X+Vel2X;
 Pos2Y:=Pos2Y+Vel2Y;

 if Pos2X>ClientWidth-Shape2.Width then
 begin
   Vel2X:=-Vel2X;
 end
 else if Pos2X<0 then
      begin
        Pos2X:=0;
        Vel2X:=-Vel2X;
      end;
 if Pos2Y>ClientHeight-Shape2.Width then
 begin
   Vel2Y:=-Vel2Y;
 end
 else if Pos2Y<0 then
      begin
        Pos2Y:=0;
        Vel2Y:=-Vel2Y;
      end;

 Shape2.Left:=Round(Pos2X);
 Shape2.Top:=Round(Pos2Y);

end;

procedure TForm1.mois;
var
 mouseX,mouseY:integer;
begin
  mouseX:=Mouse.CursorPos.X-Form1.ClientOrigin.X;
  mouseY:=Mouse.CursorPos.Y-Form1.ClientOrigin.Y;

  MouseVelX:=mouseX-LastMouseX;
  MouseVelY:=mouseY-LastMouseY;

  LastMouseX:=mouseX;
  LastMouseY:=mouseY;



  if mousebutton=true then
  begin
    PosX:=MouseX-Shape1.Width/2;
    PosY:=MouseY-Shape1.Width/2;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 krug;
 mois;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
krug2;
end;

end.

Можно один или несколько шаров летают по форме. Я изменял настройки, ничего не помогает. Шары дёргаются. Кто пришлёт исходник - 500 деревянных. Подробности потом обговорим. Скиньте координаты.

[Mad_Cat]

скажи что тебе надо сделать - я сделаю! контакты в профиле!

[wint1000]

Попробуй. Только не подумай, как два пальца стукнуть. Посмотри сюда
http://www.programmersforum.ru/showthread.php?t=124053
И реши получится или нет. Получится-флаг в руки (шли исходник), я посмотрю и переведу 300. Потом запрошу подробную роспись кода, что и как и зачем работает. Ещё 300. Естественно деньги вперёд(из-за особенностей темы) не получится.

[Black Fregat]

Не совсем пойму, чего Вы хотите.. Вот файл во вложении. Тут тоже дергается? Или нет?

[AlexTuka]

Если я правильно понял, то нехватает буферизации изображения.

[wint1000]

Если на Fly долго смотреть заболят глаза - обычное Дельфийское округление. Без него с вычислениями не справляется процессор. Я на ваш вопрос вопросом отвечу. А чем отличается это движение от Виндовской заставки шаров? Небо и земля. Этот вопрос -выше ссылка мы обсуждали, надо копать в графике. Гдето может FlexTuka прав насчёт буферизации. А видеокарта такие данные видно не обрабатывает(это визуальный факт!) т.е. если ей подают усечённые округлённые координаты, то она их и обрабатывает в точности с ними(ресурсов у неё ес-но хватит, но она не может искажать данные!) Здесь по ходу разобрались, нужно работать с графикой, а не с простенькой фигнёй. И изучать, как избежать округления. Я просто со станрартной компонентой решил поекспериментиравть (ставил другие типы данных в верибэл, но раз работа кода у нас последовательна, то любой тип там запарывается по скорости.) Наверно в графике чтото типа параллельного применено. Буфер-обработчик процедура. Только она будет то-же последовательна. Короче не знаю я принципа. У видеокарты всё получается, но как ей данные доставить? И ещё одна мысль - преобразование в видео формат. Может графика так и работает. Медленно вычисляя координаты, преобразует их просто в видеоформат (вспомним преобразование оболочки фильма в Nero -ооооочень медленное!). Там уже чисто под такие данные (развёртка) видокарта и заточена. Здесь наверно и собака зарыта.

[Black Fregat]

Что глаза заболят - так это от большого количества летающих объектов, специально делалось, чтобы показать, что Дельфи вполне справляется с просчетом графики, а не так, как тут писали.

Что Вам не нравится в движении объектов - я так и не понял. Но, судя по всему, на графике GDI нужного Вам качества просто не бывает. Если Вы хотите использовать возможности видеокарты, Вам надо копать DirectDraw.

[wint1000]

О каком просчёте графики вы говорите, если там невозможно разглядеть ничего на движущейся картинке! Я вообще больше нихочу про неё говорить. На помойку такую работу! Вы что то если Выше читали, то давно уже пора понять, что надо копать графические движки. Если Вам нравится дёрганная анимация, то обратитесь в соответствующую ветку форума.

[DeKot]

В этой теме http://www.programmersforum.ru/showthread.php?t=124053 Mihali4 привел Вам пример - ManySprite.rar. Это моя програмка и выложил я ее на форум, что бы показать, что обычными стандартными средствами Дельфи на канве можно создавать вполне приличную анимацию. В примере одновременно двигаются 6 спрайтов (персонажей), плюс динамический текст, плюс постоянная смена фонового рисунка (иначе не воспроизвести заход персонажей за деревья). Все это реализовано, повторюсь, стандартными средствами библиотеки Дельфи. Далее, эдесь не нужна видеокарта, встроеный видеоконтроллер на PIII вполне справляется с выводом на экран. Еще, да дельфийский таймер работает с минимальным интервалом 55 - 64 мсек. Это уже особенность "железа". Но его вполне достаточно для работы с графикой на канве (кто не разбирается - поясню. Человеческому глазу достаточно смены кадров с частотой 25 Гц. Так работало раньше все телевидение и кино проекторы. 25 Гц это соответствует длительности 40 мсек, так что это вполне удовлетворяет.) Просто при работе с канвой надо всю работу с графикой проделывать в памяти компьютера и только результат всех обработок выводить на экран. Это по сути и есть понятие буферизации графической работы. Еще раз напомню, речь идет о простй графике, использующей обычную смену рисунка (спрайтов) и простые приращения координат. При больших количествах спрайтов и текстур, использование рендеринга (а это уже OpenGL или
Direct X), выполнение сложных матаматических расчетов требует уже подключения процессора Видеокарты и другие принципы построения графики. Но это уже другая песня.

[wint1000]

Понял. Но всё это слова. Мне нужна работа. Хоть там рендеринг хоть OpenGL хоть что ещё! Дак вот требуется запустить шарик(и) или любой объект(ы) который не дёргается как мандражка, а летает как и нормальный объект. Видите всё просто. Об оплате выше сказанно. Поддёргивающие объекты можно оставить себе и меня ими не грузить. Успехов.