using TyMath
using TyBase
using TyPlot
R = 1
r = R * cos(72 / 180 * pi) / cos(36 / 180 * pi)
x = zeros(1, 10)
y = zeros(1, 10)

for i = 1:2:9
    x[i] = R * cos(i * 0.2 * pi)
    y[i] = R * sin(i * 0.2 * pi)
    x[i+1] = r * cos((i + 1) * 0.2 * pi)
    y[i+1] = r * sin((i + 1) * 0.2 * pi)
end
plot(x,y)
hold("on")
plot([x[1],x[10]],[y[1],y[10]])

A = [x; y]
B=zeros(2,10)
for n = 0:0.1:1
    global B,imm
    B = (1 - n) * [cos((1 - n) * (pi) / 10) -sin((1 - n) * (pi) / 10); sin((1 - n) * (pi) / 10) cos((1 - n) * (pi) / 10)] * A
    plot(B[1,:], B[2,:])
    plot([B[1,1],B[1,10]],[B[2,1],B[2,10]])
    pause(0.1)
end
axis("square")