//exec('horn_view2d.txt')

for k=1:i+1,
d(k,181)=d(k,1);
h(k,181)=h(k,1);
d(k,271)=d(k,91);
h(k,271)=h(k,91);
end

for n=2:90,
for k=1:i+1
d(k,n+180)=d(k,n);
h(k,n+180)=h(k,n);
d(k,182-n)=d(k,n);
h(k,182-n)=h(k,n);
d(k,362-n)=d(k,n);
h(k,362-n)=h(k,n);
end
end


br=4;

//top view
dx=0.15;
dy=0.1;

x=0;
y=0;
for n=1:5*nth/360:nth,
for k=1:ceil(i/br),
x(k)=d((k-1)*br+1,n)*cos(phi(n));
y(k)=d((k-1)*br+1,n)*sin(phi(n));
end
plot(x,y)
end

x=0;
y=0;
for k=1:br:i,
for n=1:nth,
x(n)=d(k,n)*cos(phi(n));
y(n)=d(k,n)*sin(phi(n));
end
plot(x,y)
end



//long side
x=0;
y=0;
for k=1:br:i,
for n=1:nth,
x(n)=d(k,n)*cos(phi(n));
y(n)=h(k,n);
end
plot(x,y+dy)
end


x=0;
y=0;
for n=1:5*nth/360:nth,
for k=1:ceil(i/br),
x(k)=d((k-1)*br+1,n)*cos(phi(n));
y(k)=h((k-1)*br+1,n);
end
plot(x,y+dy)
end


//short side
x=0;
y=0;
for k=1:br:i,
for n=1:nth,
x(n)=d(k,n)*sin(phi(n));
y(n)=h(k,n);
end
plot(y+dx,x)
end

x=0;
y=0;
for n=1:5*nth/360:nth,
for k=1:ceil(i/br),
x(k)=d((k-1)*br+1,n)*sin(phi(n));
y(k)=h((k-1)*br+1,n);
end
plot(y+dx,x)
end

