Паскаль. Graph

[ProPaL]

Привет, не знаю как сделать.. помогите написать графическую прогу
Задание:
Мимо пирамид движется слон, который при движении меняет положение хобота (или ушей, или хвоста).

[maLoy*508]

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

[ProPaL]

А код можешь написать?, а то я хз раньне никогда не работал с графикой...

[Stepler]

Я бы предложыл другой вариант, слона оставить неподвижным скажем посредине екрана, и двигать только его хоботом или ушами, или чем то другим. А двигать только задний план где будут нарисованы пирамиды, это намного проще чем слона перемещать.

[Stilet]

А двигать только задний план где будут нарисованы пирамиды

По-моему никакой разницы. Все равно рисованины будет много, разве что спрайтами делать.

[ProPaL]

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

program sphere;
uses
  crt,graph;
var
  gd,gm:integer;

begin
clrscr;
  gd:=detect;
  InitGraph(gd,gm,'..\bgi');

 ellipse(300,400,0,360,50,70);
 ellipse(300,330,345,195,30,50);
 circle(200,200,50);
 circle(200,200,52);
 setlinestyle(2,4,3);
 circle(200,200,25);
 circle(200,200,2);
 
circle(400,100,50);
 circle(400,100,52);
 setlinestyle(2,4,3);
 readkey;
end.