VPF::Реализация алгоритма рис. линии

init3

Дата 14.1.2006, 14:10 (ссылка)

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

Загрузка ...

Новичок

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

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

Код

procedure oktant1(x1,y1,x2,y2,Color :integer );
   var
      x,y,dx,dy,D,D_x,D_y : integer;
   begin
      x:=x1;
      y:=y1;
      dx:=x2-x1;
      dy:=y2-y1;
      D:=-dx;
      D_x:= dx shl(1);
      D_y:= dx shl(1);
      while (x<=x2) do
      begin
     PutPixel(x,y,Color);
     inc(x);
     D:=D+D_y;
     if (D>=0) then
     begin
        dec(y);
        D:=D-D_x;
     end;
      end;

   end; { oktant1 }

все ли делаю правильно?
И еще требуется создать поверхность ограниченную линиями. Так вот в описании алгоритмов для каждого октанта свое изменение X и Y. То есть имеет смысл написать 8 процедур, одинаковых по сути но с разным приращением X и Y, или как то хитро анализировать на входе функции координаты, и потом выбирать нужный октант?

Msl

Дата 20.1.2006, 18:58 (ссылка)

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

Загрузка ...

Новичок

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

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

Расчет ведется для одного октанта -
все остальные точки можно и должно построить исходя из симметрии задачи
(1- нет необходимости их соединения, 2-Скорость )

Для растровой графики неважно, в каком порядке ты забиваешь пикселы на Canvas

Удачи!

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