Передвижение красного кружочка стрелками в графике. В чем ошибка?

[Мики6277]

Вот код моей программы. ДЛя передвижения красного кружочка с помощью стрелочек.
В чем ошибка?

uses graph,crt;
var u,ou: pointer; ch: char; curx, cury, curx0, cury0, lx, ly, hx, hy: integer;
    size: word;
procedure graphinterface;
var gd, gm, error: integer;
begin
gd:=detect;
initgraph( gd, gm, '');
error:=graphresult;
if error<>grok then
    begin
   writeln(grapherrormsg(error));
   halt(error)
    end
    end;

begin
graphinterface;
hx:=5;
hy:=5;
lx:=100;
ly:=100;
size:=imagesize(0,0,lx,ly);
getmem(u, size);  getmem(ou,size);

setcolor(4);
setfillstyle(1,4);
circle(lx+20,ly+20);
floodfill( lx+20,ly+20, 4);
getimage(100,100,lx+20,ly+20,ou^);
curx:=0;
cury:=0;
getimage(0,0,lx,ly,u^);
repeat
ch:=readkey;
if ord(ch)=0 then
     begin
     ch:= readkey;
     curx0:=curx; cury0:=cury;
     case ord(ch) of
     77: if curx<getmaxx-hx
     then curx:=curx+hx;

    75: if curx>hx
     then curx:=curx-hx;

     72:if cury>hy
     then cury:=cury-hy;

     80: if cury<getmaxy-hy
     then cury:=cury+hy;

     end;
  if (curx<>curx0) or (cury<>cury0)
  then begin
      putimage( curx0, cury0, ou^, 0);
      getimage( curx, cury, curx+lx, cury+ly, ou^);
      putimage (curx,cury, u^,0);
      end
      end;
  until ord(ch)=27;

readln;
closegraph;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Poma][a]

circle(lx+20,ly+20);

Вот тут Вы указали только координаты X и Y, забыв о радиусе

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

[Мики6277]

Пожалуйста помогите. Где ошибка? Кружочек рисуется, а при нажатии кнопки не передвигается.

uses graph,crt;
var u,ou:pointer; ch: char; curx, cury, curx0, cury0, dx, dy, lx, ly, hx, hy: integer;
    size: word;
procedure dv(dx, dy: integer);
  begin
  setcolor(4);
  setfillstyle(1,4);
  circle(lx,ly,20);
  floodfill( lx,ly, 4);
  lx:=lx+dx;
  ly:=ly+dy;

  setcolor(4);
  setfillstyle(1,4);
  circle(lx,ly,20);
  floodfill( lx,ly, 4);
  end;
procedure graphinterface;
var gd, gm, error: integer;
begin
gd:=detect;
initgraph( gd, gm, '');
error:=graphresult;
if error<>grok then
    begin
   writeln(grapherrormsg(error));
   halt(error)
    end
    end;

begin
graphinterface;

lx:=100;
ly:=100;


setcolor(4);
setfillstyle(1,4);
circle(lx,ly,20);
floodfill( lx,ly, 4);

repeat
 ch:=readkey;
 if ch=#0 then
     begin
     ch:=readkey;

     case ch of
    #77:dv(0, 5);


     #75:dv( 0, -5);

     #72:dv( 5, 0);

     #80:dv(-5, 0);

     end;

     end;

    until ch=#27;


readln;
closegraph;
end.

[Stilet]

А может просто шаг слишком мал чтоб заметить движение?

setcolor(4);
setfillstyle(1,4);
circle(lx,ly,20);
floodfill( lx,ly, 4);

Это стирание предидущего? Тогда наверное цвет должен быть не 4 а другой. black видимо.

P.S. Проверил у себя. Если оставить так:

repeat
 ch:=readkey;    ch:=readkey;
     case ch of
     #77:dv(0, 5);
     #75:dv( 0, -5);
     #72:dv( 5, 0);
     #80:dv(-5, 0);
     end;
    until ch=#27;

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

[Мики6277]

Так-то работает, но кружочек не идет. Я сделала шаг больше, не помогло.
Стирания предыдущего там нет, а вот это

setcolor(4);
 setfillstyle(1,4);
 circle(lx,ly,20);
 floodfill( lx,ly, 4);

рисование того самого кружочка.
Не понимаю, что не так??

[Stilet]

но кружочек не идет.

На турбопаскале идет.
Паскаль то у тя какой?

[Вадим Мошев]

Кстати, турбоПаскаль можно скачать отсюда: http://www.programmersforum.ru/showp...1&postcount=86
Простите за спам.

UPD. круг двигается, но:
1. Двигается только сама окружность, то есть, контур круга.
2. При движении круг оставляет за собой след.
3. Движение происходит совсем не по стрелкам, то есть, нажал ВВЕРХ, а круг поехал ВПРАВО. Проверьте
_____________________
Чтобы исправить, поступите так. перед тем, как нарисовать круг в новом месте, сотрите старый круг, для чего нарисуйте на том же месте круг того же размера, но только с цветом фона (цвет должен быть как у границы, так и заливки), после чего рисуйте круг на новом месте нужного вам цвета, у вас это красный.
Со стрелками разберитесь сами.

[Poma][a]

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

[Вадим Мошев]

Сообщение от Poma][a

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

Возможно, ибо сижу я щас за Win XP x32. В институте так же ОС была.

[Мики6277]

У меня Free Pascal . Подскажите как мне сделать лучше зарисовать кружочек цветом фона и нарисовать новый или есть лучший способ?