VPF::[PASCAL] нарисовать лес - Форум программистов

Алкоголик

Дата 9.5.2009, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 26.1.2004

Репутация: нет
Всего: нет

Заготовив 2–3 дерева разного вида (размера), в одной из частей экрана нарисовать лес (можно предусмотреть рост деревьев).

Собственно нужна помощь...

volvo877

Дата 9.5.2009, 18:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Ну, вот тебе пример: ельник в 46 строк кода smile

Светлые ели - "ближе" к наблюдателю, темные - "дальше", как бы фоном... Устроит тебя такое?

Код

uses graph;
const
  min = 1;

procedure Fern(level: integer; x, y: integer; l, u: real);
begin
  if l > min then begin

    if (level > 1) and (level < 5) then
      Fern(5, x, y, 21, u);

    line(x, y, Round(x + l * cos(u)), Round(y - l * sin(u)));

    x := Round(x + l * cos(u));
    y := Round(y - l * sin(u));

    Fern(succ(level), x, y, l*0.45, u - 14*pi/30);
    Fern(succ(level), x, y, l*0.45, u + 14*pi/30);
    Fern(succ(level), x, y, l*0.73, u + pi/30);
  end;

end;

const
  count = 6;

var
  gr_driver, gr_mode: integer;
  i, j: integer;
begin
  gr_driver := detect;
  initgraph(gr_driver, gr_mode, '');

  for j := 1 to 2 do begin
    i := j;
    if odd(j) then setcolor(green) else setcolor(lightgreen);
    while i <= count do begin
      Fern(1, i*(getmaxx div (count + 2)), getmaxy, 75, pi/2);
      inc(i, 2);
    end;
  end;

  readln;

  closegraph;
end.

P.S. Также посмотри в сторону других фрактальных деревьев, они все очень просто кодируются, но очень красиво выглядят.

Алкоголик

Дата 10.5.2009, 06:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 26.1.2004

Репутация: нет
Всего: нет

Спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »