Графика в TurboPascal: Процедуры, рисующие на экране смешанный лес (лес состоит из елей) по курсору

[GreenDay]

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

Решил разбить задачу на куски(рисование березы, рисование ели, управление курсором).
Получилось вот что:
Рисование березы:

program bereZA;
uses graph;
var grD,grM:integer;
begin
  grD:=detect;
  InitGraph(grD,grM,'');
  setcolor(3);
  line (320,240,320,100);
  line (320,100,300,130);
  line (320,100,340,130);
  line (320,130,300,160);
  line (320,130,340,160);
  line (320,160,300,190);
  line (320,160,340,190);
readln;
end.

Рисование ели:

program elka;
uses graph;
var grD,grM:integer;
begin
  grD:=detect;
  InitGraph(grD,grM,'');
  setcolor(3);
  line (320,240,320,100);
  line (320,100,300,130);
  line (320,100,340,130);
  line (300,130,340,130);
  line (320,130,300,160);
  line (320,130,340,160);
  line (300,160,340,160);
  line (320,160,300,190);
  line (320,160,340,190);
  line (300,190,340,190);
 readln;
end.

Управление курсором:

program o_chudo_ono_rabotaet;
uses wincrt,graph;
var grM,grD:integer;
    xmax,ymax:integer;
    c:char;
begin
  grD:=detect;
  InitGraph(grD,grM,'');
  xmax:=getmaxX div 2;
  ymax:=getmaxY div 2;
  setcolor(3);
  line (xmax,ymax,xmax+10,ymax);
  repeat
    if keypressed then
      begin
        c:=readkey;
          case c of
            #72:begin
                  setcolor(0);
                  line(xmax,ymax,xmax+10,ymax);
                  ymax:=ymax-10;
                  setcolor(3);
                  line(xmax,ymax,xmax+10,ymax);
                end;
            #80:begin
                  setcolor(0);
                  line(xmax,ymax,xmax+10,ymax);
                  ymax:=ymax+10;
                  setcolor(3);
                  line(xmax,ymax,xmax+10,ymax);
                end;
            #77:begin
                  setcolor(0);
                  line(xmax,ymax,xmax+10,ymax);
                  xmax:=xmax+10;
                  setcolor(3);
                  line(xmax,ymax,xmax+10,ymax);
                end;
            #75:begin
                  setcolor(0);
                  line(xmax,ymax,xmax+10,ymax);
                  xmax:=xmax-10;
                  setcolor(3);
                  line(xmax,ymax,xmax+10,ymax);
                end;
          end;
      end;
  until c=#27;
end.

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

Помоги пожалуйста рисование деревьев затолкать в процедуры...

[Serge_Bliznykov]

сейчас недосуг правильно нарисовать, поэтому просто, как идея...

procedure Elka(x,y: integer);
begin
  setcolor(3);
  line (x,y+140,x,y);
  line (x,y,x-30,y+30);
  line (x,y,x+30,y+30);
  line (x-20,y+30,x+30,y+30);
  line (x,y+30,x,y+60);
  line (x,y+60,x+40,y+60);
  line (x-20,y+60,x+40,y+60);
  line (x,y+60,x,y+90);
  line (x,y+60,x+40,y+90);
  line (x-20,y+90,x+40,y+90);
end;
...
  repeat
    if keypressed then
      begin
          c:=readkey;
          case c of
.......
            #75:begin
                  setcolor(0);
                  line(xmax,ymax,xmax+10,ymax);
                  xmax:=xmax-10;
                  setcolor(3);
                  line(xmax,ymax,xmax+10,ymax);
                end;
            #13:begin
                  Elka(xmax,ymax)
                end;

рисование "палки-ёлки" по Enter

[GreenDay]

Спс большое, вот что получилось:

program o_chudo_ono_rabotaet;
uses wincrt,graph;
procedure Elka(x,y:integer);
begin
  setcolor(2);
  line(x,y,x,y-140);
  line(x,y-140,x-30,y-110);
  line(x,y-140,x+30,y-110);
  line(x-30,y-110,x+30,y-110);{«Ё*Ёп ®в ЎҐаe§л}
  line(x,y-60,x+40,y-30);
  line(x-40,y-30,x+40,y-30);{ҐйҐ 1}
  line(x,y-60,x-40,y-30);
end;
procedure bereza(x,y:integer);
begin
  setcolor(2);
  line(x,y,x,y-140);
  line(x,y-100,x+25,y-140);
  line(x,y-60,x-25,y-100);
  line(x,y-20,x+25,y-60);
end;
var grM,grD:integer;
    xmax,ymax:integer;
    c:char;
begin
  grD:=detect;
  InitGraph(grD,grM,'');
  xmax:=getmaxX div 2;
  ymax:=getmaxY div 2;
  setcolor(3);
  line (xmax,ymax,xmax+10,ymax);
  repeat
    if keypressed then
      begin
        c:=readkey;
          case c of
            #72:begin
                  setcolor(0);
                  line(xmax,ymax,xmax+10,ymax);
                  ymax:=ymax-10;
                  setcolor(3);
                  line(xmax,ymax,xmax+10,ymax);
                end;
            #80:begin
                  setcolor(0);
                  line(xmax,ymax,xmax+10,ymax);
                  ymax:=ymax+10;
                  setcolor(3);
                  line(xmax,ymax,xmax+10,ymax);
                end;
            #77:begin
                  setcolor(0);
                  line(xmax,ymax,xmax+10,ymax);
                  xmax:=xmax+10;
                  setcolor(3);
                  line(xmax,ymax,xmax+10,ymax);
                end;
            #75:begin
                  setcolor(0);
                  line(xmax,ymax,xmax+10,ymax);
                  xmax:=xmax-10;
                  setcolor(3);
                  line(xmax,ymax,xmax+10,ymax);
                end;
            'b':begin
                  Elka(xmax,ymax);
                end;
            'e':begin
                  bereza(xmax,ymax);

                end;
          end;
      end;
  until c=#27;
end.