Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

Кривые безье.

Страницы: 1
Кривые безье.
#1
30.09.2010 16:05:41
Собственно, как их рисовать?
 
 
#2
30.09.2010 16:35:06
У Canvas есть функция PolyBezier рисующая кривую Безье. Чуть позже найду и выложу исходник. Или Вас интересует как именно она получается?
 
 
#3
30.09.2010 16:41:10
Хм, интересно. Но наверное нужно все таки как она получается, чтобы работать с ее точками и редактировать ее.
Будут интересны оба варианта.
Изменено: rozpants - 30.09.2010 16:43:01
 
 
#4
30.09.2010 16:44:54
Вот так она рисуется
Код
procedure TForm1.Button1Click(Sender: TObject);
 var
   pusat: array of TPoint;
   i: Integer;
 begin
   SetLength(pusat, 4);
   for i := Low(pusat) to High(pusat) do
   begin
     pusat[i].x := Random(Width);
     pusat[i].y := Random(Height);
   end;
   Canvas.PolyBezier(pusat);
 end;
 
 
#5
30.09.2010 17:35:49
pusat - это массив всегда состоящий из четырех точек?
 
 
#6
30.09.2010 17:45:52
В даннном примере - да, но вообще думаю их может быть больше.
 
 
#7
22.10.2010 18:36:10
Для n опорных точек строится кривая порядка n-1.
Вот http://ru.wikipedia.org/
 
 
#8
23.10.2010 09:06:07
А если n = 10 и более?
Кривую такого порядка трудно считать, поэтому вся кривая разбивается на несколко участков, и на каждом участке порядок обычно равен 3-м.
Изменено: rozpants - 23.10.2010 09:08:14
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)