function [xx, yy] = trn_xy_vec(klic, x, y)
% [xx(i), yy(i)] = trn_xy(klic(i,:), x(i), y(i))
%     i-ty bod

%% test vstupnich parametru
if nargin~=3
    error( 'Neplatny pocet vstupnich parametru!' )
end

if size(klic,2)~=4 | length(x)<1 | length(y)<1
    error( 'Neplatna dimenze vstupnich parametru!' )
end

if size(klic,1)~=length(x) | length(x)~=length(y)
    error( 'Vstupni parametry musi mit stejny pocet radku!' )
end
%% vypcet
for i = 1:size(klic,1)
    tx = klic(i,1);
    ty = klic(i,2);
    q = klic(i,3);
    omega = klic(i,4) *pi/200;
    a1 = q*cos(omega);
    a2 = q*sin(omega);

    xx(i) = tx + a1*x(i) + a2*y(i);
    yy(i) = ty - a2*x(i) + a1*y(i);
end
