Рекурсия и графика, Гдето ошибка Опции

[Anastacia Adesso]

Ребята!
Где-то тут ошибка.
Условие в том, что надо рисовать сначала крест потом круги с радиусом в его концах. А потом опять крест.
И так чтоб все потихоньку уменьшалось в 2 раза.
Вот сделала, но надо чтоб он не рисовал ничего в сторону центра.
Не подскажете, пожалуйста, в чём прикол?

[Michael_Rybak]

Добавь параметр came_from, который будет означать, откуда мы пришли (по какому направлению). Получится что-то такое (не запускал):

(*в начале программы*)
const DIR_LEFT = 0;
const DIR_UP = 1;
const DIR_RIGHT = 2;
const DIR_DOWN = 3;
const DIR_NONE = 4;

...

  procedure ll(x,y,l,sk,came_from:integer);
  begin 
        if came_from <> DIR_UP then line(x,y, x, y+l);
        if came_from <> DIR_DOWN then line(x,y, x, y-l);
        if came_from <> DIR_LEFT then line(x,y, x+l, y);
        if came_from <> DIR_RIGHT then line(x,y, x-l, y);
        if sk>1 then begin
               if came_from <> DIR_LEFT then ll(x+l, y, l div 4, sk-1, DIR_RIGHT);
               if came_from <> DIR_RIGHT then ll(x-l, y, l div 4, sk-1, DIR_LEFT);
               if came_from <> DIR_DOWN then ll(x, y-l, l div 4, sk-1, DIR_UP);
               if came_from <> DIR_UP then ll(x, y+l, l div 4, sk-1, DIR_DOWN);
               end;
  end;

(*в rr аналогично*)

...

     initgraph(gr,gm, 'z:\');
     ll(x,y,l,sk, DIR_NONE);
     rr(x,y,r,sk, DIR_NONE);
...