F1 Racing

Jesús Zambrano
/
F1 Racing
about 6 hours ago
1
8
5
0
9454
game.m
function g = game()
%GAME Grand Prix Tap: tap repeatedly to accelerate, ease off to slow.
g.init = @initState;
g.update = @updateState;
g.render = @renderFrame;
end

function s = initState(ax)
ax.XLim = [0 800]; ax.YLim = [0 600]; ax.YDir = 'reverse';
ax.Color = [0.055 0.09 0.12];
p = {'HitTest','off','PickableParts','none'};
% Random radial circuits stay closed and inside the racing area.
n = 14+floor(rand*5);
theta = pi/2-(0:n-1)*2*pi/n;
phase = rand(1,3)*2*pi;
radius = 0.85+0.14*sin(2*theta+phase(1))+ ...
    0.1*sin(3*theta+phase(2))+0.06*sin(5*theta+phase(3));
radius = radius/max(radius);
x = 400+300*radius.*cos(theta);
y = 300+155*radius.*sin(theta);
n = numel(x); t = linspace(n+1,2*n+1,1500);
xx = interp1(1:3*n+1,[x x x x(1)],t,'pchip');
yy = interp1(1:3*n+1,[y y y y(1)],t,'pchip');
a = [0 cumsum(hypot(diff(xx),diff(yy)))];
s.length = a(end);
s.arc = linspace(0,s.length,1201);
s.tx = interp1(a,xx,s.arc); s.ty = interp1(a,yy,s.arc);
ds = s.arc(2);
dx = gradient(s.tx,ds); dy = gradient(s.ty,ds);
s.angle = unwrap(atan2(dy,dx));
curve = abs(gradient(s.angle,ds))/2;
s.limit = min(90,max(28,sqrt(16./max(curve,0.001))));
line(ax,s.tx,s.ty,'Color',[0.21 0.38 0.31],'LineWidth',65,p{:});
line(ax,s.tx,s.ty,'Color',[0.9 0.92 0.91],'LineWidth',43,p{:});
line(ax,s.tx,s.ty,'Color',[0.83 0.16 0.19],'LineWidth',43,'LineStyle',':',p{:});
line(ax,s.tx,s.ty,'Color',[0.19 0.22 0.25],'LineWidth',34,p{:});
line(ax,s.tx,s.ty,'Color',[0.45 0.49 0.5],'LineWidth',1,'LineStyle','--',p{:});
startAngle = s.angle(1);
R = [cos(startAngle) -sin(startAngle);sin(startAngle) cos(startAngle)];
for k = 0:7
    row = floor(k/4); col = mod(k,4);
    checker = R*[-8+8*row+[0 8 8 0];-16+8*col+[0 0 8 8]];
    patch(ax,s.tx(1)+checker(1,:),s.ty(1)+checker(2,:), ...
        repmat(mod(row+col,2),1,3),'EdgeColor','none',p{:});
end
text(ax,400,300,'GRAND PRIX','HorizontalAlignment','center', ...
    'Color',[0.37 0.51 0.49],'FontSize',22,'FontWeight','bold',p{:});
text(ax,400,325,'3 LAPS / AUTO STEERING','HorizontalAlignment','center', ...
    'Color',[0.37 0.51 0.49],'FontSize',11,p{:});
s.g.rival = patch(ax,zeros(1,4),zeros(1,4),[0.1 0.72 0.98],'EdgeColor','none',p{:});
s.g.car = patch(ax,zeros(1,12),zeros(1,12),[1 0.21 0.16],'EdgeColor',[1 0.64 0.4],p{:});
s.g.wheels = line(ax,NaN,NaN,'Color',[0.015 0.02 0.025],'LineWidth',5,p{:});
s.g.cockpit = line(ax,0,0,'Marker','o','MarkerSize',5,'MarkerFaceColor',[1 0.86 0.24],'MarkerEdgeColor','none','LineStyle','none',p{:});
s.g.ahead = line(ax,0,0,'Marker','o','MarkerSize',18,'MarkerEdgeColor',[1 0.77 0.2],'LineWidth',2,'LineStyle','none',p{:});
s.g.hud = text(ax,30,32,'','Color','w','FontSize',17,'FontWeight','bold',p{:});
s.g.speed = text(ax,765,535,'','HorizontalAlignment','right','Color','w','FontSize',24,'FontWeight','bold',p{:});
rectangle(ax,'Position',[565 565 200 16],'FaceColor',[0.2 0.25 0.3],'EdgeColor','none',p{:});
s.g.speedBar = patch(ax,[565 565 565 565],[565 565 581 581],[0.3 1 0.63],'EdgeColor','none',p{:});
s.g.time = text(ax,770,32,'','HorizontalAlignment','right','Color',[0.7 0.8 0.85],'FontSize',13,p{:});
s.g.mode = text(ax,35,515,'','FontSize',23,'FontWeight','bold',p{:});
s.g.tip = text(ax,300,545,'','Color',[0.85 0.9 0.95],'FontSize',11,p{:});
rectangle(ax,'Position',[35 545 200 13],'FaceColor',[0.2 0.25 0.3],'EdgeColor','none',p{:});
s.g.grip = patch(ax,[35 35 35 35],[545 545 558 558],[1 0.65 0.15],'EdgeColor','none',p{:});
text(ax,35,569,'TIRE LOAD / ease off before it fills','Color',[0.75 0.8 0.85],'FontSize',10,p{:});
text(ax,35,591,'Tap SPACE to accelerate / ease off to slow','Color',[0.75 0.8 0.85],'FontSize',10,p{:});
s.g.card = patch(ax,[135 665 665 135],[195 195 405 405],[0.06 0.1 0.14],'EdgeColor',[0.4 0.55 0.6],p{:});
s.g.title = text(ax,400,242,'','HorizontalAlignment','center','Color','w','FontSize',26,'FontWeight','bold',p{:});
s.g.msg = text(ax,400,320,'','HorizontalAlignment','center','Color',[0.8 0.88 0.93],'FontSize',14,p{:});
s.best = Inf;
s = resetRound(s);
renderFrame([],s);
end

function s = resetRound(s)
s.distance = 0; s.rivalDistance = -35; s.speed = 0;
s.clock = 0; s.load = 0; s.boost = 0;
s.started = false; s.over = false; s.finished = false;
s.lapStart = 0; s.lastLap = 0;
end

function [x,y,a,limit] = track(s,d)
u = mod(d,s.length);
x = interp1(s.arc,s.tx,u);
y = interp1(s.arc,s.ty,u);
a = interp1(s.arc,s.angle,u);
limit = interp1(s.arc,s.limit,u);
end

function s = updateState(s,dt,pressed)
if s.over || s.finished
    if pressed, s = resetRound(s); s.started = true; s.boost = 0.18; end
    return
end
if ~s.started
    if pressed, s.started = true; s.boost = 0.18; end
    return
end
% Each tap adds a short engine pulse; all speed changes scale with dt.
if pressed, s.boost = min(0.36,s.boost+0.18); end
oldSpeed = s.speed;
powerTime = min(dt,s.boost);
s.boost = max(0,s.boost-dt);
s.speed = max(0,min(90,s.speed+55*powerTime)-14*(dt-powerTime));
s.clock = s.clock+dt;
oldLap = floor(s.distance/s.length);
s.distance = s.distance+(oldSpeed+s.speed)*dt/4;
s.rivalDistance = s.rivalDistance+36*dt/2;
[~,~,~,limit] = track(s,s.distance);
s.load = max(0,s.load+(max(0,s.speed/limit-1)*2.5-0.35)*dt);
if s.load >= 1, s.over = true; end
if floor(s.distance/s.length) > oldLap
    s.lastLap = s.clock-s.lapStart;
    s.lapStart = s.clock;
end
if s.distance >= 3*s.length && ~s.over
    s.finished = true;
    s.best = min(s.best,s.clock);
end
end

function renderFrame(~,s)
[x,y,a,limit] = track(s,s.distance);
R = [cos(a) -sin(a);sin(a) cos(a)];
b = R*[17 10 5 -9 -12 -16 -16 -12 -9 5 10 17;3 3 6 6 9 9 -9 -9 -6 -6 -3 -3];
s.g.car.XData = x+b(1,:); s.g.car.YData = y+b(2,:);
w = R*[8 8 NaN -10 -10 NaN 8 8 NaN -10 -10; -10 -6 NaN -10 -6 NaN 6 10 NaN 6 10];
s.g.wheels.XData = x+w(1,:); s.g.wheels.YData = y+w(2,:);
s.g.cockpit.XData = x; s.g.cockpit.YData = y;
[rx,ry,ra] = track(s,s.rivalDistance);
r = [cos(ra) -sin(ra);sin(ra) cos(ra)]*[13 -13 -13 13;5 5 -5 -5];
s.g.rival.XData = rx+r(1,:); s.g.rival.YData = ry+r(2,:);
% Preview the next corner early enough to slow down by easing off taps.
look = s.distance+linspace(0,160,36);
limits = interp1(s.arc,s.limit,mod(look,s.length));
[target,j] = min(limits);
[px,py] = track(s,look(j));
s.g.ahead.XData = px; s.g.ahead.YData = py;
s.g.hud.String = sprintf('LAP %d / 3',min(3,floor(s.distance/s.length)+1));
s.g.speed.String = sprintf('%03d km/h',round(s.speed*3.6));
s.g.speedBar.XData = [565 565+200*min(1,max(0,s.speed/90)) 565+200*min(1,max(0,s.speed/90)) 565];
s.g.time.String = sprintf('TIME %.1fs   LAST LAP %.1fs',s.clock,s.lastLap);
if s.boost > 0
    s.g.mode.String = 'ACCELERATING'; s.g.mode.Color = [0.3 1 0.63];
else
    s.g.mode.String = 'SLOWING DOWN'; s.g.mode.Color = [1 0.65 0.26];
end
s.g.tip.String = sprintf('Corner speed target: %d km/h',round(target*3.6));
if s.speed > target*1.08
    s.g.tip.Color = [1 0.58 0.22];
else
    s.g.tip.Color = [0.85 0.9 0.95];
end
s.g.grip.XData = [35 35+200*min(1,s.load) 35+200*min(1,s.load) 35];
s.g.grip.FaceColor = [1 max(0.15,0.7-s.load*0.55) 0.15];
if s.over
    s.g.title.String = 'SPUN OUT';
    s.g.msg.String = sprintf('Too fast for the corner (%d km/h)\nStop tapping earlier and watch the tire load\nSPACE to restart',round(limit*3.6));
elseif s.finished
    s.g.title.String = 'CHEQUERED FLAG';
    result = 'The blue rival wins';
    if s.distance > s.rivalDistance, result = 'You beat the blue rival!'; end
    s.g.msg.String = sprintf('%s\n3 laps: %.1fs / session best: %.1fs\nSPACE to race again',result,s.clock,s.best);
elseif ~s.started
    s.g.title.String = 'GRAND PRIX TAP';
    s.g.msg.String = sprintf('SPACE to start\nKeep tapping SPACE to build speed\nStop tapping to slow down before corners\nAuto steering / beat the blue rival over 3 laps');
end
v = 'off';
if ~s.started || s.over || s.finished, v = 'on'; end
s.g.card.Visible = v; s.g.title.Visible = v; s.g.msg.Visible = v;
end
Play Game
Preview

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