MATLAB Archery Cup

KARUPPASAMYPANDIYAN M
/
MATLAB Archery Cup
about 13 hours ago
0
8
4
0
9716
game.m
% HOW TO PLAY - step by step
% 1. You are the RED archer (YOU, front lane). MATLAB is the BLUE archer (back lane). Both stand astride the white shooting line.
% 2. Shooting order: YOU, MATLAB, YOU, MATLAB ... 3 arrows each per set (a set = 6 arrows).
% 3. AIM: move the mouse. The green crosshair sits under your cursor on your target. It already includes the wind push,
%    so if the wind is +1.0 (to the right) the arrow drifts right: that is already shown, just place the crosshair on the spot you want.
% 4. DRAW: click once when the crosshair is where you want. The bow stretches (about 1 second). You may still fine-tune the aim.
% 5. TIMING SKILL: when the bow is fully drawn, a yellow marker swings along the bar at the top. Click again to release.
%    Click when the marker is inside the GREEN zone = arrow goes exactly to the crosshair. Clicking at the ends of the bar = arrow flies off to the side.
% 6. SCORE: the ring hit gives 10 (gold centre) down to 1 (outer white), 0 = MISS.
% 7. SET POINTS: the set winner gets 2 points, a tied set gives 1 point each.
% 8. END: first to 4 set points wins (can happen after the 2nd set). If nobody has 4, set 3 decides; equal points = DRAW.
% 9. After the match ends, click to play again.
function g=game()
g.init=@initGame;g.update=@step;g.render=@draw;
end
function u(h,M,o,s),set(h,'XData',o(1)+s*M(:,1),'YData',o(2)+s*M(:,2));end
function A(h,a,b)
n=size(a,1);v=b-a;K=[0 1;0 .3;.9 1];f=@(c,k)reshape([a(:,c)+k(1)*v(:,c) a(:,c)+k(2)*v(:,c) NaN(n,1)]',[],1);
for m=1:3,set(h(m),'XData',f(1,K(m,:)),'YData',f(2,K(m,:)));end
end
function q3(ax,o,s,x,y,k,w)
C={k*.5,k,min(1.3*k+.15,1)};W=[1.25 1 .3];
for m=1:3,line(ax,o(1)+s*x,o(2)+s*y,'Color',C{m},'LineWidth',W(m)*w*s);end
end
function P(ax,x,y,a,b,c)
t=linspace(0,2*pi,20)';n=numel(x);c=c.*ones(n,1);
patch(ax,x(:)'+a(:)'.*cos(t),y(:)'+b(:)'.*sin(t),reshape(c,1,n,3),'EdgeColor','none');
end
function T(ax,x,y,h,g)
B=[0 .75 .38;-.28 .62 .3;.28 .62 .3;-.2 .95 .27;0 1.12 .22];
patch(ax,x+h*[-.06 .06 .025 -.025],y+h*[0 0 .85 .85],[.33 .21 .11],'EdgeColor','none');
P(ax,x+h*B(:,1),y+h*B(:,2),h*B(:,3)*1.1,h*B(:,3),min(g.*(.6+.5*(B(:,2)-.6)-.3*B(:,1)),1));
end
function S=initGame(ax)
global Q
L=[110 60 130 600 229 105;210 255 85 700 365 70];t=linspace(0,2*pi,36);
Q=struct('A',ax,'L',L,'tm',0,'go',0,'pp',0,'m',.5);
ax.Color=[.55 .76 .95];tx={'Color','w','FontWeight','bold'};n={'YOU','MATLAB'};
sh=[.9 .15 .15;.15 .3 .9];sk=[.9 .7 .55];dk=[.05 .08 .22];
cl=[1 1 1;.12 .12 .12;.2 .55 .9;.9 .15 .15;1 .85 .1];
pe=@(c,r,k,f)patch(ax,c(1)+r*k*cos(t),c(2)+r*sin(t),f,'EdgeColor',[.3 .3 .3]);
a=@(c,w)line(ax,NaN,NaN,'Color',c,'LineWidth',w);
ah=@(w)[a([.55 .5 .45],w) a([1 .55 0],3*w) a([.35 .35 .4],2.5*w)];
patch(ax,[0 800 800 0],[0 0 440 440],[.33 .53 .24],'EdgeColor','none');
x=0:55:800;y=425+14*sin(2.3*x);h=62+22*sin(x*.37+1);
for j=1:15,T(ax,x(j),y(j),h(j),[.14 .4 .16]);end
for j=2:-1:1
o=L(j,1:2);s=L(j,3);c=L(j,4:5);R=L(j,6);q=@(x,y,k,w)q3(ax,o,s,x,y,k,w);
patch(ax,[o(1)-.7*s c(1)+.5*R c(1)+.5*R o(1)-.7*s],o(2)+s*[-.3 -.3 .3 .3],[.43 .64 .32],'EdgeColor','w');
line(ax,c(1)+R*[-.2 -.55 NaN .2 .45],[c(2)-.8*R o(2) NaN c(2)-.8*R o(2)],'Color',[.45 .3 .15],'LineWidth',5);
pe(c,R*1.12,.42,[.85 .75 .5]);for k=0:9,pe(c,R*(1-.1*k),.42,cl(ceil((k+1)/2),:));end
Q.hl{j}=ah(1.5);
line(ax,o(1)*[1 1],o(2)+s*[-.3 .3],'Color','w','LineWidth',2);q([-.2 0 .2],[.05 .95 .05],[.25 .25 .35],.11);q([-.3 .12;-.12 .3],[.03 .03;.03 .03],[.12 .1 .1],.07);
q([-.18 -.3],[.85 1.25],[.45 .3 .15],.08);q([-.3 -.27 NaN -.32 -.33 NaN -.28 -.22],[1.25 1.42 NaN 1.25 1.4 NaN 1.25 1.38],[1 .6 .1],.02);
patch(ax,o(1)+s*[-.15 .15 .11 -.11],o(2)+s*[1.42 1.42 .95 .95],sh(j,:),'EdgeColor',sh(j,:)/2);q([.1 .3],[1.43 1.47],sh(j,:),.08);q([0 0],[1.42 1.5],sk,.07);q([.1 .68],[1.43 1.52],sk,.06);q([.68 .68],[1.38 1.66],[.2 .12 .06],.06);
P(ax,o(1),o(2)+1.6*s,.11*s,.12*s,sk);P(ax,o(1),o(2)+1.65*s,.115*s,.09*s,[.15 .1 .08]);
text(ax,o(1),o(2)+1.95*s,n{j},tx{:},'HorizontalAlignment','center');
Q.bw(j)=a([.25 .15 .08],.04*s);Q.sg(j)=a([.95 .95 .85],1);Q.dr(j)=a(sk,.06*s);Q.ar{j}=ah(max(1,.02*s));
end
Q.fa=ah(2);Q.rc=a([.1 1 .2],2.5);
rectangle(ax,'Position',[0 0 800 30],'FaceColor',dk);rectangle(ax,'Position',[300 546 200 14],'FaceColor',dk);rectangle(ax,'Position',[380 546 40 14],'FaceColor',[.1 .7 .2]);
Q.mk=a('y',2);set(Q.mk,'Marker','s','MarkerSize',10,'MarkerFaceColor','y');
Q.Hu=text(ax,14,15,'','FontSize',10,tx{:});
Q.Hm=text(ax,400,330,'','FontSize',16,tx{:},'HorizontalAlignment','center','BackgroundColor',dk);
Q.Hd=text(ax,400,575,'','FontSize',13,tx{:},'HorizontalAlignment','center');
set(ax.Children,'HitTest','off','PickableParts','none');rs();S=0;
end
function rs()
global Q
Q.set=1;Q.pt=[0 0];Q.rp=[0 0];Q.fi=1;Q.ht=[0 0];ns();
end
function ns()
global Q
Q.k=1;Q.tn=1;Q.J=1;Q.sm=[0 0];Q.hs=zeros(0,3);Q.wd=3*rand-1.5;Q.dw=[0 0];Q.fl=0;Q.w2=1;Q.ft=2;Q.mp=[400 330];
Q.msg=sprintf('Set %d',Q.set);
end
function S=step(S,dt,p)
global Q
dt=min(dt,.05);Q.tm=Q.tm+dt;Q.ft=Q.ft-dt;d=Q.dw(1);e=p>0&&~Q.pp;Q.pp=p>0;Q.m=.5+.5*sin(5*Q.tm);
C=Q.A.CurrentPoint(1,1:2);
Q.rp=(C-Q.L(1,4:5))./[.42 1]*61/Q.L(1,6)+[6*Q.wd 0];
if Q.J==4
if e&&Q.tm-Q.go>1,rs();end
elseif Q.J==3
Q.t3=Q.t3-dt;if Q.t3<0,nxt();end
elseif Q.J==2
Q.fl=Q.fl+dt/.7;if Q.fl>=1,land();end
elseif Q.tn==1
if d==0&&e,d=.01;end
if d>0&&d<1,Q.dw(1)=min(d+1.2*dt,1);elseif d>=1&&e,fire(1,Q.rp+[(Q.m-.5)*40 0]);end
else
Q.w2=Q.w2-dt;Q.dw(2)=min(Q.dw(2)+1.2*dt,1);
if Q.w2<0,fire(2,[6*Q.wd*(.2-.4*rand) 0]+(4+6*rand)*randn(1,2));end
end
end
function fire(i,a)
global Q
Q.ht=a+(i==1)*1.2*randn(1,2);Q.dw(i)=0;Q.fl=0;Q.J=2;Q.fi=i;Q.msg='';
end
function land()
global Q
i=Q.fi;r=norm(Q.ht);p=max(11-ceil(max(r,.01)/6.1),0);Q.sm(i)=Q.sm(i)+p;Q.hs=[Q.hs;i Q.ht];
Q.msg=sprintf('%d',p);if p==0,Q.msg='MISS';end
Q.ft=1.2;Q.mp=Q.L(i,4:5)+[0 1.25*Q.L(i,6)];Q.k=Q.k+1;
if Q.k>6,se();else,Q.J=1;Q.tn=2-mod(Q.k,2);Q.w2=1+.5*rand;end
end
function se()
global Q
d=Q.sm(1)-Q.sm(2);Q.pt=Q.pt+[2*(d>0)+(d==0) 2*(d<0)+(d==0)];Q.J=3;Q.t3=2.5;Q.ft=9;Q.mp=[400 330];
Q.msg=sprintf('SET %d  %d-%d\nPoints %d-%d',Q.set,Q.sm,Q.pt);
end
function nxt()
global Q
if Q.set<3&&max(Q.pt)<4,Q.set=Q.set+1;ns();return,end
r={'YOU WIN!','MATLAB WINS','DRAW'};Q.J=4;Q.go=Q.tm;Q.ft=99;
Q.msg=[r{find([Q.pt(1)>Q.pt(2) Q.pt(2)>Q.pt(1) 1],1)} ' - click to replay'];
end
function draw(~,~)
global Q
L=Q.L;t=linspace(-1,1,21)';
for i=1:2
o=L(i,1:2);s=L(i,3);c=L(i,4:5);R=L(i,6);w=Q.dw(i);
N=[.53-.45*w 1.52];E=N+[-.28-.1*w -.15+.09*w];B=[.68-(.3+.12*w)*t.^2+.16*t.^4 1.52+.86*t];
u(Q.bw(i),B,o,s);u(Q.sg(i),[B(end,:);N;B(1,:)],o,s);u(Q.dr(i),[-.08 1.43;E;N],o,s);
a=[NaN NaN];if Q.J==1&&Q.tn==i,a=o+s*N;end
A(Q.ar{i},a,a+s*[.72 0]);
H=Q.hs(Q.hs(:,1)==i,2:3);d=H.*[.42 1]*R/61+c;A(Q.hl{i},d+[-1 .22]*.5*s,d);
end
A(Q.fa,[NaN NaN],[NaN NaN]);
if Q.J==2
i=Q.fi;o=L(i,1:2);s=L(i,3);P0=o+s*[.88 1.52];P1=L(i,4:5)+[Q.ht(1)*.42 Q.ht(2)]*L(i,6)/61;
F=@(q)P0+(P1-P0)*q+[0 90*s/130*sin(pi*q)];A(Q.fa,F(max(Q.fl-.1,0)),F(Q.fl));
end
y=Q.J==1&&Q.tn==1;k=L(1,4:5)+Q.rp.*[.42 1]*L(1,6)/61;z=.1*L(1,6);if ~y,k=[NaN NaN];end
set(Q.rc,'XData',k(1)+z*[-1 1 NaN 0 0],'YData',k(2)+z*[0 0 NaN -1 1]);
c={'AIM, then CLICK to draw','DRAWING...','CLICK in the GREEN zone!'};m='';w=Q.dw(1);x=NaN;if y,m=c{1+(w>0)+(w>=1)};if w>=1,x=300+200*Q.m;end,end
set(Q.Hd,'String',m);set(Q.mk,'XData',x,'YData',553);
set(Q.Hu,'String',sprintf('SET %d/3  Pts YOU %d-%d MATLAB  Arrows %d-%d  Wind %+.1f',Q.set,Q.pt,Q.sm,Q.wd));
m=Q.msg;if Q.ft<=0,m='';end
set(Q.Hm,'String',m,'Position',[Q.mp 0]);
end
Play Game
Preview

Play Game opens this in MATLAB Drive. Click Run this app there to play.