EigenDash

Vasilis Bellos
/
EigenDash
about 23 hours ago
3
12
3
1
10000
game.m
function g = game
% Eigendash
% A one-button journey through a neon-themed matrix
% State: m=title/play/failure/win (0:3), d=distance, h=height, v=velocity
% L=[world x, spike count, height, gravity side]; S=side, Z=section
% B=session best, N=attempts, C=resolved gems, E=score, K=collection streak
% U=input buffer; F/T/O=flash/tap/toast timers; R=trail; p=particle pool
% Scroll speed ramps from 360 to 792 units/s. Ballistic time scales with it,
% preserving the jump's spatial arc while progressively tightening the timing
g.init=@ini;
g.update=@upd;
g.render=@ren;
end

function s = ini(f)
% Allocate the complete scene, including every moving effect
f.Color='#060917';
set(f,Units='n',InnerPosition=[0 0 1 1]);
f.XLim=[0 800]; f.YLim=[0 600];
s.t=0; s.B=0; s.N=-1;
s.P=[.12 .92 1; .94 .25 .78; .55 .42 1; 1 .64 .2];
s.L=zeros(40,4);
c=[0 420 760 1090 1530 1840 2250 2590 3000 3290];
for k=1:40
    j=mod(k-1,10); z=floor((k-1)/10);
    n=1+mod(j+z,3);
    if z==0, n=1+(j>3)+ (j>7); end
    s.L(k,:)=[z*4320+850+c(j+1) n 38+4*mod(j,2)+4*z (-1)^z];
end
s=r(s); s.m=0;
patch(f,[0 800 800 0],[0 0 600 600],[0 0 0], ...
    FaceVertexCData=[.015 .025 .07;.015 .025 .07;.055 .035 .14;.055 .035 .14], ...
    FaceC='interp',EdgeColor='none');
% The mathematical skyline is a wireframe saddle with a luminous orbit
u=linspace(-1,1,19); [a,b]=meshgrid(u);
x=610+140*a+65*b; y=320+35*b+65*(a.^2-b.^2);
line(f,reshape([x;nan(1,19);x'],1,[]),reshape([y;nan(1,19);y'],1,[]),Color=[.065 .11 .2]);
q=linspace(0,2*pi,97);
g.m=l(f,"#291A4D",1);
o(g.m,610+130*cos(q),325+130*sin(q));
g.g=l(f,"#3B527A",1);
set(g.g,LineStyle='n',Marker='.',MarkerS=5);
g.l=l(f,"#14293D",1);
g.s=l(f,"#1F4057",1);
g.q=l(f,"#1F3B52",3);
g.o=l(f,"#12334A",9);
g.f=l(f,"#33D9F2",1.5);
o([g.o g.f],[0 800 nan 0 800],[128 128 nan 450 450]);
g.n=l(f,"#291445",12);
g.c=l(f,"#AB59FF",3);
g.r=w(f,"#FF2E78",.06,8);
g.u=w(f,"#FF3B80",.22,1.6);
g.j=w(f,"#FFC23B",.1,7);
g.k=w(f,"#FFD459",.65,1.2);
g.b=l(f,"#33D9D9",4);
g.d=w(f,"#A6FF4D",.1,1);
g.i=w(f,"#B3FF59",.85,2);
g.v=w(f,"#09171F",1,1);
g.e=l(f,"#B3FF99",1);
set(g.e,LineStyle='n',Marker='.',MarkerS=10);
g.p=l(f,"#CCFF99",1.5);
g.h=l(f,"#59F0FF",3);
line(f,[28 772],[520 520],Color=[.12 .2 .3],LineW=1);
% HUD and title screen text
p=[28 562;772 562;28 495;772 495;zeros(4,2);400 48;174 210];
z=[21 14 12 12 46 13 15 13 12 11];
g.a=gobjects(10,1);
for k=1:10
    g.a(k)=text(f,p(k,1),p(k,2),'',FontN='FixedWidth',FontSize=z(k), ...
        Color=[.8 .9 1],Interp='n',Ho='c');
end
set(g.a([1 3]),Ho='l');
set(g.a([2 4]),Ho='r');
set(g.a([1 5]),FontW='b');
set(g.a(5),FontN='Helvetica');
set(g.a(7),Color=[.72 1 .4]);
set(g.a(10),Color=[1 .83 .35]);
s.g=g;
set(findobj(f,'-not','Type','axes'),Hi=0,Pi='n');
end

function s = r(s)
% Preserve the session record and the allocated graphics
[s.d,s.h,s.v,s.A,s.Q,s.Z,s.U,s.F,s.T,s.E,s.K,s.O,s.J]=deal(0);
[s.m,s.S]=deal(1);
s.C=false(40,1); s.R=[linspace(-60,174,32)' repmat(146,32,1)]; s.p=zeros(36,5);
s.N=s.N+1;
end

function s = upd(s,dt,f)
% Integrate at <= 5 ms, including collision and buffered input
s.t=s.t+dt; s.Q=s.Q+dt;
s.F=max(0,s.F-dt*2); s.T=max(0,s.T-dt*3);
s.O=max(0,s.O-dt);
s.p(:,1:2)=s.p(:,1:2)+s.p(:,3:4)*dt;
s.p(:,4)=s.p(:,4)-250*dt;
s.p(:,5)=max(0,s.p(:,5)-dt);
% The title screen supplies jump taps to the same simulation as the normal gameplay
e=s.m==0;
if e
    if f, s=r(s); return; end
    x=s.L(:,1)-s.d;
    f=s.h<=0 && any(x>174 & x<274);
end
if s.m>1
    if f && s.Q>.45, s=r(s); end
    return
end
if f, s.U=.1; s.T=1; end
h=dt/ceil(dt/.005); o=s.d;
for m=1:ceil(dt/.005)
    v=h*(1+1.2*min(s.d/17780,1));
    s.U=max(0,s.U-h);
    if s.h<=0 && s.U>0
        s.v=620; s.U=0; s.T=1;
        s=q(s,8,100);
    end
    s.h=max(0,s.h+s.v*v-1000*v*v); s.v=s.v-2000*v;
    if s.h<=0, s.v=0; s.A=round(s.A/(pi/2))*pi/2;
    else, s.A=s.A-5*pi*v*s.S; end
    s.d=s.d+360*v;
    z=min(3,floor(s.d/4320));
    if z~=s.Z
        s.Z=z; s.S=-s.S; s.F=1; s.R(:)=nan;
    end
    % Triangle silhouette with inset player collision bounds
    c=s.L; x=c(:,1)-s.d; w=32*c(:,2);
    b=x<186 & x+w>162 & c(:,4)==s.S;
    g=x(b)+[16 48 80];
    k=c(b,3).*max(0,1-max(0,abs(g-174)-11)/16);
    l=k>s.h+10 & (1:3)<=c(b,2);
    if any(l,'all')
        s.m=2; s.Q=0; s.F=1; s=q(s,36,260);
    end
    a=abs(x+w/2-174)<25 & abs(s.h-96)<25 & ~s.C & c(:,4)==s.S;
    if any(a)
        s.C(a)=true; s.E=s.E+sum(a); s.K=s.K+1;
        s.O=.7; s=q(s,12,140);
    end
    d=x+w/2<148 & ~s.C;
    if any(d), s.C(d)=true; s.K=0; end
    s.B=max(s.B,~e*min(100,100*s.d/17780));
    if s.m==2, break; end
    if s.d>=17780, s.m=3; s.Q=0; s.F=1; break; end
end
s.R(:,1)=s.R(:,1)-(s.d-o);
s.J=s.J+dt;
if s.J>.018
    s.R=[s.R(2:end,:);174 289+s.S*(s.h-143)]; s.J=0;
end
% Loop the title screen demo without recording an attempt or a personal best
if e && s.m>1
    s=r(s); s.m=0; s.N=s.N-1;
end
end

function s = q(s,n,b)
% Reuse particle slots; deterministic angles leave the random stream alone
i=1:n; a=i'*2.4+s.t;
s.p(i,:)=[repmat([174 289+s.S*(s.h-143)],n,1), ...
    cos(a)*b-70,sin(a)*b,repmat(.55,n,1)];
end

function ren(~,s)
% Render from state only, with combined batches for the entire course
g=s.g; t=s.t; d=s.d; C=interp1(0:3,s.P,3*min(d/17780,1));
q=linspace(0,2*pi,65); b=(.5+.5*cos(t*4*pi))^6;
% Parallax stars, oscilloscope trace and projected graph-paper floor
i=1:65;
o(g.g,mod(i*137-d*.13,820)-10,166+mod(i*83,280));
x=mod((0:55:880)-d*.45,880)-40;
o(g.l,reshape([x;400+(x-400)*1.8;nan(size(x))],1,[]),repmat([128 0 nan],1,numel(x)));
x=0:8:800;
o(g.s,x,289+36*sin(x/85+t*.7)+15*sin(x/31-t));
x=18:19:790; v=12+42*abs(sin(x*.018+t*2)).^3;
o(g.q,reshape([x;x;nan(size(x))],1,[]),reshape([98+0*x;98-v;nan(size(x))],1,[]));
set(g.f,Color=C*(.7+.3*b));
o(g.h,[28 28+744*min(1,s.d/17780)],[520 520],Color=C);
% Three upcoming transpose gates; their silhouettes announce the new rail
x=(1:3)*4320-d+174;
x(x<-80 | x>880)=nan;
X=x+24*cos(q'); Y=repmat(289+161*sin(q'),1,3);
o([g.c g.n],reshape([X;nan(1,3)],1,[]),reshape([Y;nan(1,3)],1,[]));
% Draw each obstacle with up to three triangular faces
c=s.L; x=c(:,1)-d;
i=find(x>-120 & x<850); c=c(i,:); x=x(i);
j=0:2; b=x+32*j; b(j>=c(:,2))=nan;
X=reshape(b',1,[])+[0;16;32];
Y=289+repelem(c(:,4)',3).*(-161+[0;1;0]*repelem(c(:,3)',3));
o([g.u g.r],X,Y);
x=x+c(:,2)*16; y=289+c(:,4)*(-47);
x(s.C(i))=nan;
X=[-9;0;9;0]+x'; Y=[0;13;0;-13]+y';
o([g.k g.j],X,Y);
% Interpolate the cube, halo and ribbon through the speed-linked palette
set([g.i g.d],FaceC=C,EdgeColor=C);
set([g.b g.e],Color=C);
y=289+s.S*(s.h-143); a=s.A;
R=[cos(a) -sin(a);sin(a) cos(a)];
v=R*[-17 17 17 -17;-17 -17 17 17];
set([g.i g.d g.v],Vis=s.m~=2);
o(g.i,174+v(1,:),y+v(2,:));
o(g.d,174+v(1,:)*1.65,y+v(2,:)*1.65);
% Two diagonal entries of I, combined into one patch
v=R*[-10 -3 -3 -10 3 10 10 3;-10 -10 -3 -3 3 3 10 10];
o(g.v,reshape(174+v(1,:),4,2),reshape(y+v(2,:),4,2));
% Clip the trail to the rotated colored cube
p=s.R-[174 y];
p(max(abs(p*R),[],2)<=17,:)=[];
if ~isempty(p), p(end+1,:)=p(end,:)*17/max(abs(p(end,:)*R)); end
o(g.b,174+p(:,1),y+p(:,2),Vis=s.m~=2);
i=s.p(:,5)>0;
o(g.e,s.p(i,1),s.p(i,2));
r=60-40*s.T;
o(g.p,174+r*cos(q),y+r*sin(q),Vis=s.T>0,Color=C*max(.1,s.T));
set(g.d,FaceA=.08+.15*s.F);
% Format and update the HUD and mode-specific text each frame
m={'LINSPACE / warm-up','TRANSPOSE / inverted','FFT / find the rhythm','EIGENMODE / finale'};
set(g.a([1 3 5]),Color=C);
[h,u,f,b]=deal('');
if s.m==0
    h='EIGENDASH';
    f='[ TAP TO COMPILE ]';
elseif s.m==2
    h='NaN'; u='TRAJECTORY UNDEFINED';
    f='[ TAP TO RECOMPILE ]';
    b=sprintf('%d%% COMPLETE   /   %d EIGENVALUES',floor(s.d/177.8),s.E);
elseif s.m==3
    h='CONVERGED'; u='COMPUTATION COMPLETE';
    f='[ TAP FOR ANOTHER RUN ]'; b=sprintf('%d / 40 EIGENVALUES CAPTURED',s.E);
end
set(g.a,{'String'},{'E I G E N D A S H';sprintf('%02d%%   BEST %02d%%',floor(min(100,s.d/177.8)),floor(s.B)); ...
    m{s.Z+1};sprintf('EIGENVALUES %02d/40   TRY %02d',s.E,s.N);h;u;f;b;'SPACE / CLICK = JUMP';sprintf('+1  x%d',s.K)});
p=[969 840 711 582;1063 880 620 752;1063 880 620 752]/3;
for k=5:8
    g.a(k).Position=[400 p(max(1,s.m),k-4)];
end
set(g.a(10),Position=[174 y+48*s.S 0],Vis=s.O>0);
end

function h = l(ax,c,w)
% One batched polyline
h=line(ax,nan,nan,Color=c,LineW=w);
end

function h = w(ax,c,a,w)
% A pooled vector layer with a colored, translucent edge
h=patch(ax,nan,nan,0,FaceC=c,FaceA=a,EdgeColor=c,LineW=w,EdgeA=min(1,a*5));
end

function o(h,x,y,varargin)
% Assign geometry to one or several pooled layers together
set(h,'XData',x,'YData',y,varargin{:});
end
Play Game
Preview

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