function draw_spring( x0, x1, w, a);

% function draw_spring( x0, x1, w, a);
%
% Piirtää hienon jousen pisteestä x0 pisteeseen x1, kummatkin
%  2-ulotteisia vektoreita. w on kierrosten lukumäärä ja a amplitudi.

t = 0:0.001:1;

if ( nargin < 3),
    w = 6;
end
if ( nargin < 4),
    a = 0.1;
end

len = sqrt((x1(1)-x0(1))^2+(x1(2)-x0(2))^2); % jousen pituus
alfa = atan((x1(2)-x0(2))/(x1(1)-x0(1))); % kulma

x = t-a*0.2*cos(2*pi*w*t);
y = a*sin( 2*pi*w*t)/len;

R = [cos( alfa) -sin(alfa);
    sin( alfa) cos( alfa)]; % rotaatiomatriisi

xr = R*[x; y];

% skaalataan jousi
xr = xr*len;
xr(1,:) = xr(1,:) + x0(1);
xr(2,:) = xr(2,:) + x0(2);

plot( xr(1,:),xr(2,:));