Падающий мяч. и.т.д.

[bartislav]

Итого, уже хреньте сколько мучаюсь и никак ни могу понять как же это сделать.
Задание такое сделать шарик который падает по законам гравитации и оскакивает естественно) в openGl. сама программа есть а вот цикла, или еще чего, выччисление которое будет ускорять шарик и и делать его отскок не могу. кто чем может помогите, последняя лаба осталась для защиты!!! и у меня экзамен автоматом!!)))
с++ openGl

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

float y=0;
float yy=0.2;
float v0=0;
float t=0;
float a=9.8;
float v=0;
float y0=4;
// тут дальше удет всякая всячина....

void Idle()
{
t=t + 0.001;

 v=-a*(t*t)+y*v0;
 y=-a*(t*t)+ v*t + y0;


//делал так примерно ТОЧНО НЕ ПОМНЮ
if (y=0)
{
t=0;// сбрасываем как бы таймер
v0=-10;

}


//сегодня наклепал второй вариант через синусоиду, доума довести не получилось правда....
( проиходит обратное действие... синусоида увеличивается, вместо угасания
float r=4;
float t=0;
float alptha=0;
...

t=t+0.001;
alpha=alpha + 0.001;
y=-y+r*sin(alpha)/2*t*(-1);
...

или как кто знает, способ реализации
тут правда в основном физика...но думаю поможете,
Спасибо за уделенное внимание.

[OCTAGRAM]

Вдобавок к переменным координатам заводятся переменные скорости. Ну а дальше всё просто.

[Alter]

Под Delphi есть, может будет полезным:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Shape1: TShape;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var
     velocity:real;     {текущая скорость в пикселях}
     nextV:real; {следующее значение скорости}
     c:real;     {коэффициент упругости}
     stopped:boolean;
     lastTop:integer;
begin
    tag:=0;
    shape1.top:=0;
    velocity:=0;
    stopped:=false;
    lasttop:=0;
         with shape1 do
              repeat
                nextv:=velocity+1;
                   If velocity>=0 then
                       Begin
                       if (top+ round(nextv)>=panel1.height-height)
                         then
                          Begin
                           LastTop:=top;
                           top:=panel1.height-height;
                           c:=0.9; {устанавливаем коэффициент упругости}
                           nextv:=-(nextv)*c; {потеря энергии}
                            if nextv>-5 then stopped:=true;
                          end
                           else top:=top+round(nextv);
                           end
                             else {подпрыгивание}
                               Begin
                                If top+round(nextv)<0 then
                                top:=0
                                  else
                               if lasttop>0 then
                                 begin
                                 top:=lasttop;
                                 lasttop:=0;
                                 nextv:=nextv-1;
                                 end
                           else
                            begin
                               top:=top+round(nextv);
                            end;
                  end;
                velocity:=nextv;
                application.processmessages;
                sleep(20); {скорость падения}
             
                 if self.tag>0 then stopped:=true;
              until stopped;
end;

end.

[bartislav]

ппц я делфя воопще незнаю....(
что все равно спасибо, буду разбираться!