function [] = skout_soccer(dat,njog)
%UNTITLED Summary of this function goes here
%   Detailed explanation goes here

figure
campobw

dattime = [(dat(:,4)*0.3333), 75-(dat(:,5)*0.3571)];
plot(dattime(:,1), dattime(:,2), 'ro', 'MarkerSize', 4)

linjog = find(dat(:,6) ==  njog)
plot(dattime(linjog,1), dattime(linjog,2), 'b+', 'MarkerSize', 6)
title(['Jogador = ',num2str(njog)])

end







% campo
%
% Rotina criada por Preto (Paulo R. P. Santiago)
function[]=campobw(tam)
% 08/02/05 ultima atualizaçao  
%
% Cria um grafico com o campo de futebol
% Digite o nome da rotina "campo" na janela de comando

if nargin==0,tam=[110 75];end
%
%

%fcolor = figure;

% whitebg([0 0.5 0]);



% whitebg('k');
% colordef('white')
% set(gcf,'Color',[0,0.5,0])


comp=tam(1);larg=tam(2);


% cor do campo

% line([comp/2 comp/2],[-5 larg+5],'LineWidth',1000,'Color',[0 .7 .0])

% line([comp/2 comp/2],[-5 larg+5],'LineWidth',80,'Color',[0 .5 .0])

% line([comp/10 comp/10],[-5 larg+5],'LineWidth',80,'Color',[0 .5 .0])
% line([comp-10 comp-10],[-5 larg+5],'LineWidth',80,'Color',[0 .5 .0])

%linha central


line([comp/2 comp/2],[0 larg],'Color','k','LineWidth',2.5)

hold on;
axis([-5 comp+5 -5 larg+5]);
%set(fcolor,'color',[0,0.7,0])
%linhas fundo
line([0 0],[0 larg],'Color','k','LineWidth',2.5)
line([comp comp],[0 larg],'Color','k','LineWidth',2.5)


%linhas laterais
line([0 comp],[0 0],'Color','k','LineWidth',2.5)
line([0 comp],[larg larg],'Color','k','LineWidth',2.5)


%grandes areas
line([0 16.5],[(larg/2)-20.16 (larg/2)-20.16],'Color','k','LineWidth',2.5)
line([0 16.5],[(larg/2)+20.16 (larg/2)+20.16],'Color','k','LineWidth',2.5)
line([16.5 16.5],[(larg/2)-20.16 (larg/2)+20.16],'Color','k','LineWidth',2.5)
line([0 5.5],[(larg/2)-9.16 (larg/2)-9.16],'Color','k','LineWidth',2.5)
line([5.5 5.5],[(larg/2)-9.16 (larg/2)+9.16],'Color','k','LineWidth',2.5)
line([comp-16.5 comp],[(larg/2)-20.16 (larg/2)-20.16],'Color','k','LineWidth',2.5)
line([comp-16.5 comp],[(larg/2)+20.16 (larg/2)+20.16],'Color','k','LineWidth',2.5)
line([comp-16.5 comp-16.5],[(larg/2)-20.16 (larg/2)+20.16],'Color','k','LineWidth',2.5)


%pequenas areas
line([0 5.5],[(larg/2)-9.16 (larg/2)-9.16],'Color','k','LineWidth',2.5)
line([5.5 5.5],[(larg/2)-9.16 (larg/2)+9.16],'Color','k','LineWidth',2.5)
line([0 5.5],[(larg/2)+9.16 (larg/2)+9.16],'Color','k','LineWidth',2.5)
line([comp-5.5 comp],[(larg/2)-9.16 (larg/2)-9.16],'Color','k','LineWidth',2.5)
line([comp-5.5 comp],[(larg/2)+9.16 (larg/2)+9.16],'Color','k','LineWidth',2.5)
line([comp-5.5 comp-5.5],[(larg/2)-9.16 (larg/2)+9.16],'Color','k','LineWidth',2.5)
line([comp-5.5 comp],[(larg/2)-9.16 (larg/2)-9.16],'Color','k','LineWidth',2.5)
line([comp-5.5 comp],[(larg/2)+9.16 (larg/2)+9.16],'Color','k','LineWidth',2.5)
line([comp-5.5 comp-5.5],[(larg/2)-9.16 (larg/2)+9.16],'Color','k','LineWidth',2.5)


%circulos

centro = plot(.14+comp/2,larg/2,'k');
set(centro,'Marker','.')   
set(centro,'MarkerSize',6)


penalti = plot(11,larg/2,'k',comp-11,larg/2,'k');
set(penalti,'Marker','.')   
set(penalti,'MarkerSize',6)


ang1=linspace(-pi,pi,100);
x1=(9.15*cos(ang1))+comp/2;
y1=(9.15*sin(ang1))+larg/2;
line(x1,y1,'Color','k','LineWidth',2.5)


ang2=linspace(-pi/3.5,pi/3.5,100);
x2=(9.15*cos(ang2))+11;
y2=(9.15*sin(ang2))+larg/2;
line(x2,y2,'Color','k','LineWidth',2.5)


ang3=linspace((-pi/3.5)+pi,(pi/3.5)+pi,100);
x3=(9.15*cos(ang3))+comp-11;
y3=(9.15*sin(ang3))+larg/2;
line(x3,y3,'Color','k','LineWidth',2.5)

daspect([1 1 1])

text(comp/4.4,-3,'DEFESA','FontSize',12)
text(comp/1.375,-3,'ATAQUE','FontSize',12)

% colordef('white')

end