Pascal. Работа с графикой.

[Тыковка]

Нужен небольшой кусочек кода, не могли бы вы помочь? нужно передвинуть изображение так, как вроде оно выезжает с правого бока экрана по горизонтали до определенной координаты(изображение написано попиксельно). Спасибо.

[Sazary]

Координаты изображения должны зависеть от некоторой переменной x, которую и будем менять.

Вначале устанавливаем x = getmaxx. Таким образом изображение будет за правой границей. Допустим, нужно остановить изображение при x = K.

while x>K do
 begin
 cleardevice; { очищаем экран }
 fun(x);  { это ваша функция, которая рисует изображение в зависимости от x }
 delay(10);  { задержка в миллисекундах. }
 end;

Есть одна оговорка: на современных компьютерах delay работает непредсказуемо. Но в Free Pascal все как надо.