%% Rick Eckert
%% Fourier Descriptor Demo
%% Digital Image Processing

close all; clear all; clc;

%% Model Square

step = 0.25;

i = 0;
for h = -2.5:step:2.5
   i = i + 1;
   x(i) = h;
   y(i) = -2.5;
end

for j = -2.5:step:2.5
   i = i + 1;
   x(i) = 2.5;
   y(i) = j;
end

for k = 2.5:-step:-2.5
   i = i + 1;
   x(i) = k;
   y(i) = 2.5;
end

for l = 2.5:-step:-2.5
   i = i + 1;
   x(i) = -2.5;
   y(i) = l;
end


s = x + sqrt(-1)*y;

S=fdescrip(s);
