АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Модификация контурного изображения

Читайте также:
  1. Векторные и растровые изображения
  2. Векторные изображения
  3. Изображения и обозначения на чертежах швов сварных соединений
  4. Изображения производной и интеграла
  5. Кубок из купольного погребения в Вафио (близ Спарты). Золото. Середина 2 тысячелетия до н. э. Афины. Национальный музей.С рельефными изображениями быков.
  6. Методика 21. Агрессивность (Модификация теста Розенцвейга)
  7. Методы изображения двухкомпонентных систем. Правило рычага
  8. Модификация классической психоаналитической теории и техники представителями американской школы психоанализа.
  9. Научение поведению и модификация поведения человека в организации
  10. Общие требования, примеры рабочих чертежей пружин, правила изображения
  11. Пива 14. Модификация международных кредитно-финансовых отношений 413

 

 

В производстве мультфильмов широко используется следующий метод анимации (плавной модификации контурного изображения):

1. Задается массив координат узловых точек исходного (начального) контурного изображения (X1[1.. N], Y1[1.. N]). Соединяя определенным образом эти точки отрезками прямых, получаем изображение.

2. Задается массив координат узловых точек целевого (конечного) контурного изображения (X2[1.. N], Y2[1.. N]). Количество точек одинаково для обоих массивов.

3. Плавной модификацией исходного образа получаем целевое изображение. Для этого последовательно находятся наборы координат X[1.. N], Y[1.. N] промежуточных образов. Каждую i-точку промежуточного образа выбирают на отрезке прямой между соответствующими точками исходного и целевого контуров, т. е. между точкой (X1[i], Y1[i]) и точкой (X2[i], Y2[i]). Таким образом отрезок делится на "m" частей, где m - количество промежуточных образов, включая целевой. Промежуточные образы перерисовывают, постепенно удаляясь от исходного образа.

 

           
 
 
     
 
     

 

 


X1[i] X[i] X2[i]

Y1[i] Y[i] Y2[i]

 

В случае равномерного деления отрезков координаты узловых точек промежуточных образов можно рассчитать по формулам:

 

x[i]:= x1[i] + (x2[i] - x1[i])*k/m;

y[i]:= y1[i] + (y2[i] - y1[i])*k/m;

 

где k - номер промежуточного образа,

m - количество делений отрезка.

 

Перерисовку образов удобно делать двойным рисованием в режиме SetWriteMode(1), либо используя процедуры работы с видеопамятью в режиме XorPut. Задержка видимости образа (delay) определяет скорость преобразования. В приведенной ниже демонстрационной программе задается исходный контур из 12 точек X1[i], Y1[i] - координаты узлов на квадрате, а целевой контур из 12 точек X2[i], Y2[i] - координаты вершин звезды.

 

uses Graph, Crt;

var Gd, Gm, i, j, k, n, xc, yc, r, m: integer;

x, y, x1, y1, x2, y2: array[1..12] of integer; alfa: real;

Begin

Gd:=Detect; InitGraph(Gd, Gm, ''); SetWriteMode(1);

{ координаты узлов на квадрате - исходной фигуры: }

for i:=7 to 10 do begin x1[i]:= 10; y1[i]:= 10+(i-7)*40 end;

for i:=1 to 4 do begin x1[i]:=130; y1[i]:=130-(i-1)*40 end;

x1[11]:= 50; x1[12]:= 90; y1[11]:=130; y1[12]:=130;

x1[ 6]:= 50; x1[ 5]:= 90; y1[ 5]:= 10; y1[ 6]:= 10;

{ координаты узлов на звезде - целевой фигуры: }

xc:= 500; yc:= 300; { центр звезды }

for i:= 1 to 12 do begin alfa:= (1-i)*(2*pi)/12;

if (i mod 2)=0 then r:=30 else r:=100;

x2[i]:= xc + round(r*cos(alfa));

y2[i]:= yc + round(r*sin(alfa))

end;

m:= 60; { координаты узлов на промежуточных образах: }

for k:= 0 to m do begin

for i:=1 to 12 do begin x[i]:=x1[i]+round((x2[i]-x1[i])*k/m);

y[i]:=y1[i]+round((y2[i]-y1[i])*k/m)

end;

for j:= 1 to 2 do begin { перерисовка промежуточных образов }

moveto(x[12], y[12]);

for i:= 1 to 12 do LineTo(x[i], y[i]);

if j = 1 then delay(40)

End

end;


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.004 сек.)