Графика\движение фигуры..

[NEymexa:c]

Снова прощу помочь с графикой, ибо с ней ну очень уж туго..

Задание:
Создать объект - закрашенный объемный прямоугольник. Передвигать по экрану с помощью кнопок (вправо,вверх,влево,вниз), за край не выходить.

[Serge_Bliznykov]

первое. графика в разных Паскалях весьма и весьма отличается. Озвучивайте конкрентно, в каком именно Паскале Вам надо (судя по прошлой теме - в Turbo Pascal ?)

второе. у Вас же есть код, где двигается многоугольник (пятиугольник). его не получается доработать?

третье. а что такое "закрашенный объемный прямоугольник" ?

[NEymexa:c]

Сообщение от Serge_Bliznykov

первое. графика в разных Паскалях весьма и весьма отличается. Озвучивайте конкрентно, в каком именно Паскале Вам надо (судя по прошлой теме - в Turbo Pascal ?)

второе. у Вас же есть код, где двигается многоугольник (пятиугольник). его не получается доработать?

третье. а что такое "закрашенный объемный прямоугольник" ?

Да, в TP.

Что смог сделать с кодом многоугольника :

uses crt, graph;
var
    grdriver, grmode: integer;
    k: char;
    dx,dy,x1,x,y1,y,w,h:integer;

procedure pr(x,y,x1,y1:integer);
 begin
   cleardevice;
   setfillstyle (1,15);
   bar3D(x,y,x1+w,y1+h,20,true);
   x1:=x+30;
   y1:=y+15;
   cleardevice;
   bar3D(x,y,x1+w,y1+h,20,true);
 end;
begin
  clrscr;
   write('W: '); readln(w);
   write('H: '); readln(h);
   grdriver := detect;
   initgraph(grdriver, grmode, ' ');
   if(graphresult <> grok) then     halt;
   cleardevice;
   
   x := GetMaxX div 2;
   y := GetMaxY div 2;
   setfillstyle(1, 15);
   pr(x,y,x1,y1);
   repeat
        if(keypressed) then
        begin
            k := readkey;
            case k of
                #72:{движение вверх}
                begin
                  y:=y-20;
                  if(y < (0 + h)) then
                    y := h;
                    pr(x,y,x1,y1);
                end;
                #75:{движение влево}
                begin
                  x:=x-20;
                  if(x <= 0 + w) then
                    x := w;
                    pr(x,y,x1,y1);
                end;
                #77:{движение вправо}
                begin
                  x:=x+20;
                  if(x >= (GetMaxX - w)) then
                    x := GetMaxX - w;
                    pr(x,y,x1,y1);
                   end;
                #80:{движение вниз}
                begin
                  y:=y+20;
                  if(y1 >= (GetMaxY+h)) then
                    y1 := GetMaxY+h;
                    pr(x,y,x1,y1);
                end;
            end;
        end;
    until k = #27;
end.

Нужен объект.. а как его с кодом связать - не знаю.

Параллелепипед..