function [xx, yy] = trn_xy(klic, x, y)
% [xx, yy] = trn_xy(klic, x, y)

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

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

%% vypcet
tx = klic(1);
ty = klic(2);
q = klic(3);
omega = klic(4) *pi/200;
a1 = q*cos(omega);
a2 = q*sin(omega);

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