Движение окружности

[Ensoph]

Продемонстрировать движение окружности от левой к правой границе окна программы, в течение движения окружность должна менять цвета

[eoln]

Язык какой и в чём проблема?
setcolor(число от 0 до 15) - цвет рисования
circle(x, y, r) - окружность радиуса r с центром в (x, y)
getmaxx - ширина окна
getmaxy - высота окна (на всякий случай)
delay(миллисекунд) - задержка (поставить надо примерно 20 000-50 000)

[Лубышев]

Вот, чувак, что то подобное(как то раз писал, может не совсем то, но похоже)
на Delphi.

program Project2;
uses
Windows,
Messages;

var
DC:HDC;
Window:HWND;
Brush:HBrush;
Pen:HPen;
a,b:integer;
has:boolean;
k,l:boolean;
begin
has:=true;
k:=true;
l:=true;

a:=0;
b:=0;
while has=true do
begin

//Уравнение движения
if k=true then if a<924 then a:=a+5 else k:=false;
if l=true then if b<668 then b:=b+5 else l:=false;
if k=false then if a>0 then a:=a-5 else k:=true;
if l=false then if b>0 then b:=b-5 else l:=true;

Window:=Canvas.Handle;
DC:=GETDC(Window);
Brush := CreateSolidBrush (RGB (random(255), Random(255), Random(255)));
Pen := CreatePen (PS_SOLID, 1, RGB (0, 0, 0)); { карандаш }
SelectObject (dc, Brush); { выбираем ссылку для текущего контекста }
SelectObject (dc, Pen); { выбираем ссылку для текущего контекста }
Ellipse (dc, a, b, a+100, b+100);
DeleteObject (Pen); { для нормального функционирования программы }
DeleteObject (Brush); { необходимо удалить все создаваемые объекты }
ReleaseDC (Window, dc); { освобождает контекст }
Sleep(5);
end;
end.

Еллипс будет бегать по форме и ударяться об стенки, потом отлетать.
Но будет оставлять за собой след.
Если не хотите этого, то перерисовывайте окно при каждом такте!

[Ensoph]

большое спасибо

[Лубышев]

Извините, не совсем то написал, это код для перемешению по всему экрану.
Вот готовый код(код для перемещения эллипса в окне программы):