Loop Weaver

梓馨
/
Loop Weaver
on 5 Nov 2026
2
16
6
1
9999
game.m
function g = game()
%game One-button constellation catching with a continuously curving pen.
%   G = GAME returns the init, update and render callbacks for the Mini Hack
%   player. Tap to reverse the pen's turn; close a loop to catch its stars.
g.init = @init;
g.update = @step;
g.render = @view;
end

function s = init(ax)
% The harness owns the window, timer and input. All graphics are pooled here.
c.bg = [0.025 0.045 0.095];
c.box = [0.045 0.075 0.14];
c.e = [0.13 0.21 0.32];
c.au = [1 0.79 0.35];
c.w = [0.94 0.96 1];
c.d = [0.46 0.58 0.72];
c.b = [0.37 0.86 0.96];
c.r = [1 0.34 0.40];
s.c = c;
ax.XLim = [0 800]; ax.YLim = [0 600]; ax.YDir = 'reverse';
ax.Color = c.bg; ax.SortMethod = 'childorder';
np = {'HitTest','off','PickableParts','none'};
k = (1:100)';
line(ax,34+mod(k*137.5,732),112+mod(k*73.31,430), ...
    'LineStyle','none','Marker','.','MarkerSize',4,'Color',c.e,np{:});
rectangle(ax,'Position',[28 102 744 448],'Curvature',0.025, ...
    'EdgeColor',c.e,'LineWidth',1,np{:});
g.f = patch(ax,NaN,NaN,c.au,'FaceAlpha',0.16, ...
    'EdgeColor',c.au,'LineWidth',1.3,np{:});
g.v = ln(ax,c.au,1,'LineStyle',':');
g.u = ln(ax,c.b,1,'LineStyle',':');
g.tr = ln(ax,c.au,1.8);
g.q = ln(ax,c.b,1,'LineStyle','--');
g.st = mk(ax,c.au,'p',11); g.st.MarkerEdgeColor = c.w;
g.br = mk(ax,c.r,'o',24); g.br.MarkerFaceColor = 'none';
g.b = mk(ax,c.r,'x',9); g.b.LineWidth = 2;
g.p = patch(ax,NaN,NaN,c.w,'EdgeColor',c.au,np{:});
tx(ax,30,29,'LOOP WEAVER',16,c.au);
tx(ax,400,65,'S C O R E',9,c.d);
g.sc = tx(ax,400,32,'',27,c.w);
g.bs = tx(ax,770,29,'',11,c.d);
tx(ax,608,57,'INK',9,c.d);
rectangle(ax,'Position',[620 53 150 6],'FaceColor',c.e, ...
    'EdgeColor','none',np{:});
g.i = rectangle(ax,'Position',[620 53 150 6], ...
    'FaceColor',c.b,'EdgeColor','none',np{:});
g.ss = tx(ax,30,68,'',10,c.d);
g.cb = ln(ax,c.au,2);
tx(ax,400,577,'GOLD: KEEP / BLUE: FLIP',10,c.d);
g.nt = tx(ax,400,130,'',14,c.au);
g.o = gobjects(1,5);
g.o(1) = rectangle(ax,'Position',[145 157 510 317], ...
    'Curvature',0.055,'FaceColor',c.box,'EdgeColor',c.e,np{:});
g.o(2) = tx(ax,400,221,'',30,c.au);
g.o(3) = tx(ax,400,319,'',13,c.w);
g.o(4) = ln(ax,c.au,1,'XData',[260 540],'YData',[442 442]);
g.o(5) = tx(ax,400,417,'',12,c.au);
s.g = g; s.bs = 0;
s = rst(s);
end

function h = ln(ax,c,w,varargin)
h = line(ax,NaN,NaN,'Color',c,'LineWidth',w, ...
    'HitTest','off','PickableParts','none',varargin{:});
end

function h = mk(ax,c,sh,sz)
h = ln(ax,c,1,'LineStyle','none','Marker',sh, ...
    'MarkerSize',sz,'MarkerFaceColor',c);
end

function h = tx(ax,x,y,str,sz,c)
a = {'left','center','right'};
h = text(ax,x,y,str,'FontName','Segoe UI','FontSize',sz, ...
    'Color',c,'HorizontalAlignment',a{1+(x>100)+(x>600)}, ...
    'Interpreter','none','HitTest','off','PickableParts','none');
end

function s = rst(s)
[s.m,s.t,s.sc,s.got,s.co,s.ct,s.iv,s.bt] = deal(0);
s.i = 100; s.p = [400 310]; s.a = 0; s.d = 1;
s.tr = NaN(900,2); s.tr(1,:) = s.p; s.n = 1;
s.b = [400 508; 315 185; 575 335];
q = [400 369; 155 205; 645 205; 170 445; 635 447; 415 175];
s.st = repelem(q,3,1)+repmat([-16 9;15 10;0 -15],6,1);
s.q = [NaN NaN]; s.pg = NaN(1,2); s.ft = 0;
s.cl = s.c.au;
s.msg = 'LET THE FIRST CIRCLE CLOSE'; s.mt = 4; s.h = [0 0];
s.ui = {'LOOP WEAVER';sprintf('Tap to reverse. Close loops to catch stars.\nGold: keep turning. Blue: tap to flip.\nKeep red sparks outside.');'SPACE / CLICK TO START'};
end

function s = step(s,dt,tap)
s.t = s.t+dt;
s.ft = max(0,s.ft-dt); s.mt = max(0,s.mt-dt);
if s.m ~= 1
    if tap && (s.m == 0 || s.t > 0.6)
        s = rst(s); s.m = 1;
    end
    return
end
if tap, s.d = -s.d; end
s.ct = max(0,s.ct-dt); s.iv = max(0,s.iv-dt);
if s.ct == 0, s.co = 0; end
if s.got >= 6, s.bt = s.bt+dt; end
s.i = s.i-3.5*dt;
% Small simulation steps and exact arcs make turn control frame independent.
ns = ceil(dt/0.012); h = dt/ns;
v = 118+min(28,s.got*0.45); w = s.d*2;
for k = 1:ns
    a = s.p;
    [s.p,s.a,ed] = arc(s.p,s.a,w,v,h);
    if ed
        s.n = 1; s.tr(1,:) = s.p; s.q = [NaN NaN];
        s.i = s.i-8; s.co = 0;
        s = pop(s,'EDGE  -8 INK',s.c.r);
    elseif norm(s.p-s.tr(s.n,:)) >= 2
        s = trc(s);
    end
    if s.bt > 1.3 && s.iv == 0
        d = s.p-a;
        u = max(0,min(1,sum((s.b-a).*d,2)/max(sum(d.^2),eps)));
        if any(sum((s.b-(a+u.*d)).^2,2) < 18^2)
            s.i = s.i-24; s.iv = 1.5; s.co = 0;
            s.n = 1; s.tr(1,:) = s.p;
            s = pop(s,'RED SPARK  -24 INK',s.c.r);
        end
    end
end
if s.i <= 0
    s.i = 0; s.m = 2; s.t = 0;
    s.ui = {'OUT OF INK';sprintf('SCORE %05d / BEST %05d\n%d STARS | BEST LOOP %d\nTOP CHAIN x%d',s.sc,max(s.bs,s.sc),s.got,s.h);'SPACE / CLICK TO RESTART'};
end
s.bs = max(s.bs,s.sc);
end

function s = trc(s)
% Substeps travel less than the closing tolerance, including at 20 fps.
s.q = [NaN NaN];
if s.n > 45
    p = s.tr(1:s.n-18,:); r = s.tr(2:s.n-17,:)-p;
    u = max(0,min(1,sum((s.p-p).*r,2)./max(sum(r.^2,2),eps)));
    qq = p+u.*r;
    [dd,j] = min(sum((qq-s.p).^2,2)); q = qq(j,:);
    pg = [q;s.tr(j+1:s.n,:);s.p;q];
    if dd<28^2 && polyarea(pg(:,1),pg(:,2))>900
        s.q = q;
        if dd<7^2
            s = seal(s,pg);
            s.n = 1; s.tr(1,:) = s.p; s.q = [NaN NaN];
            return
        end
    end
end
if s.n == size(s.tr,1)
    s.tr(1:end-1,:) = s.tr(2:end,:);
else
    s.n = s.n+1;
end
s.tr(s.n,:) = s.p;
end

function s = seal(s,pg)
hit = inpolygon(s.st(:,1),s.st(:,2),pg(:,1),pg(:,2));
n = sum(hit); bad = false;
if s.bt > 1.3
    bad = any(inpolygon(s.b(:,1),s.b(:,2),pg(:,1),pg(:,2)));
end
s.pg = pg; s.ft = 0.8;
if bad
    z = 30*(s.iv==0); s.i = s.i-z; s.iv = 1.5; s.co = 0;
    s = pop(s,sprintf('TANGLED LOOP -%d INK',z),s.c.r);
elseif n > 0
    s.co = min(5,s.co+1); s.ct = 9;
    s.h = max(s.h,[n s.co]);
    pts = 10*n*(n+1)*s.co;
    s.sc = s.sc+pts; s.got = s.got+n;
    s.i = min(100,s.i+12+7*n);
    s = pop(s, ...
        sprintf('%d STARS  +%d   x%d',n,pts,s.co),s.c.au);
    % Place safe, separated stars outside the loop when enough cells remain.
    % A field-spanning capture starts a new sky.
    [x,y] = meshgrid(70:30:730,145:30:505); p = [x(:) y(:)];
    ok = sum((p-s.p).^2,2)>100^2;
    for k = 1:3
        ok = ok & sum((p-s.b(k,:)).^2,2)>38^2;
    end
    ok = ok & all((p(:,1)-s.st(~hit,1)').^2+(p(:,2)-s.st(~hit,2)').^2>24^2,2);
    p = p(ok,:); out = ~inpolygon(p(:,1),p(:,2),pg(:,1),pg(:,2));
    if sum(out)>=n, p = p(out,:); else, s.msg = 'NEW SKY!'; end
    ids = find(hit);
    for j = 1:3:n
        [~,ix] = sort(sum((p-p(randi(size(p,1)),:)).^2,2));
        k = min(3,n-j+1);
        s.st(ids(j:j+k-1),:) = p(ix(1:k),:);
        p(ix(1:k),:) = [];
    end
else
    s.i = s.i-5; s.co = 0;
    s = pop(s,'EMPTY LOOP  -5 INK',s.c.d);
end
end

function s = pop(s,msg,c)
s.ct = s.ct*(s.co>0); s.cl = c; s.msg = msg; s.mt = 1.8;
end

function view(~,s)
% Pure view: no random numbers, state mutation, graphics creation or drawnow.
c = s.c; g = s.g; cp = [c.w;c.b;c.r];
tr = [s.tr(1:s.n,:);s.p];
xy(g.tr,tr);
v = 118+min(28,s.got*0.45);
xy(g.v,aim(s,s.d*2,v));
xy(g.u,aim(s,-s.d*2,v));
xy(g.q,[s.p;s.q]);
xy(g.st,s.st);
b = s.b;
if s.bt == 0, b(:) = NaN; end
xy([g.b g.br],b);
g.br.MarkerSize = 24+3*sin(s.t*5);
tri = [10 0;-6 -5;-3 0;-6 5]*[cos(s.a) sin(s.a);-sin(s.a) cos(s.a)]+s.p;
xy(g.p,tri);
g.p.FaceColor = cp(1+2*(s.iv>0),:);
xy(g.f,s.pg);
set(g.f,'FaceColor',s.cl,'EdgeColor',s.cl,'FaceAlpha',0.225*s.ft);
if s.ft == 0, xy(g.f,[NaN NaN]); end
g.sc.String = sprintf('%05d',s.sc);
g.bs.String = sprintf('BEST  %05d',s.bs);
g.i.Position = [620 53 max(0.01,1.5*s.i) 6];
g.i.FaceColor = cp(2+(s.i<25),:);
g.ss.String = sprintf('%02d STARS / x%d / %.1fs',s.got,max(1,s.co),s.ct);
g.ss.Color = c.d+(c.au-c.d)*(s.co>0);
xy(g.cb,[30 88;30+20*s.ct 88]);
g.nt.String = s.msg; g.nt.Color = s.cl;
if s.mt == 0 || s.m ~= 1, g.nt.String = ''; end
vis = 'off';
if s.m ~= 1, vis = 'on'; end
set(g.o,'Visible',vis);
set(g.o([2 3 5]),{'String'},s.ui);
end

function xy(h,p)
set(h,'XData',p(:,1),'YData',p(:,2));
end

function [p,a,ed] = arc(p,a,w,v,h)
t = a+w*h;
p = p+v/w*[sin(t)-sin(a),cos(a)-cos(t)]; a = t;
b = [p(1)<34 || p(1)>766,p(2)<108 || p(2)>544]; ed = any(b);
p = max([34 108],min([766 544],p));
if b(1), a = pi-a; end
if b(2), a = -a; end
end

function p = aim(s,w,v)
p = zeros(21,2); p(1,:) = s.p; a = s.a;
for k = 2:21
    [p(k,:),a] = arc(p(k-1,:),a,w,v,0.025);
end
end
Play Game
Preview

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