Здорово народ, ну в общем название темы это и есть вопрос. Короче проблема такая: сделал прогу- рисует машинку. Вопрос на 10 баллов, как заставить эту бесбашенную конструкцию перемещатся по экрану? Через delay со стиранием экрана.

Сначала сделай процедуру, которая рисует машину относительно базовой точки ну а потом выводии ее на экран изменяя координаты ... вот можешь посмотреть на примере движеня шариков : Движение рисунка

Не обязательно для этого стирать экран... Достаточно с помощью GetImage захватить тот кусок экрана, на котором отрисована машинка, а потом в цикле делать, например, так:

Var Img: Pointer;
...
  GetMem(Img, ImageSize(10, 10, 100, 50)); 
  {
    Подставь свои координаты, машинка должна вмещаться
    в заданный прямоугольник полностью
  }

  GetImage(10, 10, 100, 50, Img^); { Сохранить образ машинки в память }
  ClearDevice; { Очистить экран }
  ...
  for i := 1 to 30 do begin
    PutImage(X+5*i, Y, Img^, XorPut); { Рисуем изображение }
    Delay(2000); { Ждем немного }
    putimage(X+5*i, Y, Img^, XorPut); { И опять затираем, особенность XorPut }
  end;
...

А вообще, попробуй поискать по форуму с ключевыми словами "анимация", "PutImage", "GetImage"... По-моему, уже кое-что выкладывалось...

Народ еще один вопрос. прога должна рисовать пятиконечную звезду, но почему то выдает ошибку, проверьте- кому не лень.

Не хватает внешних скобок и пропущены координаты одной точки

Костян, а что, "пятиконечная звезда" напрямую связана с темой - "Машинка-дай газу"? Что за привычка, делать из каждой темы свалку вопросов? Нельзя было задать этот вопрос в "Задачах"?

Большое СПАСИБО за ПоМоЩь!

Кстати, про движение машинки... Если она контурная, т.е. состоит из десятка-другого линий, то лучше ее закрашивать каждый раз (рисовать цветом фона), потому что GetImage/PutImage тут себя не оправдают - производительность упадет без пользы. Оных использовать нужно только если перемещается действительно спрайт. И вообще эти процедуры в Graph'е какие-то неуклюжие... Там, где есть фон и множество перекрывающихся спрайтов, иногда так приходится извращаться... Лучше работать с видеостраницами, а эти процедуры написать самому, под свои требования.

Shura, а , то просто

SetWriteMode(XORPut); 
{ и в цикле }
    ShowAuto(X, Y); { <-- Рисуем машинку }
    Delay(1000);
    ShowAuto(X, Y); { <- Стираем ее }
    { Изменяем координаты }

А видеостраницами ты пользоваться, например, в 640*480 со стандартным EGAVGA.BGI вообще не сможешь... Так что еще большой вопрос, чем стОит пользоваться, а чем - нет...

Ну это ведь то, что я и имел ввиду... Или нет?



Я и не говорил про использование стандартного EGAVGA.BGI. В том-то и дело, что со страницами тут не поработаешь, максимум - GetImage/PutImage, но использовать их без страниц, чтобы сделать что-то красивое, динамичное - супер-изврат. Все идет к тому, что нужно брать другие режимы. Или режим MCGA на крайний случай, или Весу там, например... А в стандартном так и придется, как выше описано.