STAR WARS Intro Animation using Nelson | May the 4th Be With You!

[Nelson-numerical-software]

Click on Image ;)

Code:

% Allan CORNET 2025 - May 4th be with you ;)
% STAR WARS Demo Nelson May 4th 2025
% This is a simple demo of the STAR WARS intro text animation and scatter using Nelson.

% Define the temporary directory and file path
tempDir = tempdir;
fileName = 'StarWarsThemeSong.mp3';
filePath = fullfile(tempDir, fileName);

% Check if the file already exists in the temporary directory
if ~exist(filePath, 'file')
    % Use websave to download the file if it doesn't exist
    url = 'https://archive.org/download/StarWarsThemeSongByJohnWilliams/Star%20Wars%20Theme%20Song%20By%20John%20Williams.mp3';
    websave(filePath, url);
end

% Read the audio data from the file
[y, fs] = audioread(filePath);

% Play the audio
playerObj = audioplayer(y, fs);
% --- Configuration ---
numStars = 400;
maxDepth = 200;
baseSpeed = 1.2;
width = 800; height = 600;
centerX = width / 2; centerY = height / 2;

% --- Intro Texts ---
introText = {
    ' restore freedom to the galaxy....', ...
    ' her starship, custodian of the stolen plans that can save her people and', ...
    'Pursued by the Empire''s sinister agents, Princess Leia races home aboard', ...
    '', '', ...
    ' power to destroy an entire planet.', ...
    ' ultimate weapon, the DEATH STAR, an armored space station with enough', ...
    'During the battle, Rebel spies managed to steal secret plans to the Empire''s', ...
    '', '', ...
    ' base, have won their first victory against the evil Galactic Empire.', ...
    'It is a period of civil war. Rebel spaceships, striking from a hidden', ...
    '', ''
};


mainText = 'STAR WARS';
subText = 'A long time ago in a galaxy far, far away...';

% --- Figure Setup ---
figure('Position', [100, 100, width, height], 'Color', 'black', ...
       'Name', 'Star Wars Intro', 'NumberTitle', 'off', 'WindowState','maximized');
hold on; axis off;
axis([0 width 0 height]);
set(gca, 'YDir', 'reverse');

play(playerObj);

% --- Star Initialization ---
stars = rand(numStars, 4);
stars(:,1) = (stars(:,1) - 0.5) * width;
stars(:,2) = (stars(:,2) - 0.5) * height;
stars(:,3) = stars(:,3) * maxDepth;
stars(:,4) = 0.5 + rand(numStars,1)*0.5;

h_stars = scatter(stars(:,1)+centerX, stars(:,2)+centerY, ...
                  5 * stars(:,4), 'w', '.');

% --- Texts ---
mainObj = text(centerX, height + 320, mainText, ...
    'Color', 'yellow', 'FontSize', 60, ...
    'HorizontalAlignment', 'center', 'FontWeight', 'bold','Visible', 'on');

subObj = text(centerX, centerY, subText, ...
    'Color', [0.5 0.7 1], 'FontSize', 48, ...
    'HorizontalAlignment', 'center', 'Visible', 'on');

% Fade in subText
pause(1.5);
alphas = 0:0.05:1;
for alpha = alphas
    subObj.Color = [0.5 0.7 1] * alpha;
    drawnow limitrate;
end

pause(1); % 5-second pause before starting the scrolling text

for alpha = fliplr(alphas)
    subObj.Color = [0.5 0.7 1] * alpha;
    drawnow limitrate;
end
set(subObj, 'Visible', 'off');

% INCREASED: Line spacing from 42 to 70 to accommodate larger text
lineSpacing = 70;
extraSpacing = 80; % Extra space between title/subtitle and scrolling text
textObjs = cell(length(introText),1);
for i = 1:length(introText)
    % MODIFIED: Start from the bottom of the screen
    yOffset = height + 120 + extraSpacing + (length(introText) - i) * lineSpacing;
    % INCREASED: Scrolling text from 36 to 64
    textObjs{i} = text(centerX, yOffset, introText{i}, ...
        'Color', 'yellow', 'FontSize', 64, ...
        'HorizontalAlignment', 'center', 'Visible', 'on');
end

% --- Animation Parameters ---
baseY = height;
perspectiveFactor = 500;
scrollSpeed = 0.8;  % DECREASED: slower scroll for smoother animation
frameCount = 0;
maxFrames = 1500;

% Pre-allocate buffers for better performance
x2d = zeros(numStars, 1);
y2d = zeros(numStars, 1);
sizes = zeros(numStars, 1);
brightness = zeros(numStars, 1);
textScale = 1; % Prevents undefined variable error

% --- Animation Loop ---
while ishandle(mainObj) && frameCount < maxFrames
    textY = 0;
    frameCount = frameCount + 1;

    % Move stars
    stars(:,3) = stars(:,3) - baseSpeed;

    % Reset stars if they reach the viewer
    resetIdx = stars(:,3) <= 0;
    numReset = sum(resetIdx);
    stars(resetIdx,:) = [(rand(numReset,2) - 0.5) .* repmat([width, height], numReset, 1) , ...
                         repmat(maxDepth, numReset, 1), ...
                         0.5 + rand(numReset,1) * 0.5];

    % Compute perspective (using pre-allocated arrays for better performance)
    scaleFactor = perspectiveFactor ./ (perspectiveFactor + stars(:,3));
    x2d = centerX + stars(:,1) .* scaleFactor;
    y2d = centerY + stars(:,2) .* scaleFactor;
    sizes = 5 * stars(:,4) .* scaleFactor * 2;
    brightness = min(1, stars(:,4) .* scaleFactor);
    
    % Use set to update star properties more efficiently
    set(h_stars, 'XData', x2d, 'YData', y2d, 'SizeData', sizes, 'CData', [brightness brightness brightness]);

    % Only update text position every second frame for better performance
    if mod(frameCount, 2) == 0
        perspectiveZ = 1000 + frameCount * scrollSpeed * 5;
        textScale = 1200 / perspectiveZ;
        mainObj.Position = [centerX, baseY + 100 * textScale];
        % INCREASED: Scaled title size from 42 to 60
        mainObj.FontSize = 60 * textScale;

        for i = 1:length(textObjs)
            yOffset = baseY + 120 + (length(introText) - i) * lineSpacing;
            textY = yOffset * textScale + height * (1 - textScale);
            obj = textObjs{i};
            obj.Position = [centerX, textY];
            % INCREASED: Scaled text size from 22 to 48
            obj.FontSize = 48 * textScale;
        end
    end

    % Hyperspace zoom effect (and hide texts)
    if frameCount > maxFrames - 90
        baseSpeed = baseSpeed * 1.05;
        scrollSpeed = scrollSpeed * 1.02;
        perspectiveFactor = perspectiveFactor * 0.98;

        mainObj.Visible ='off';
        for i = 1:length(textObjs)
            obj = textObjs{i};
            obj.Visible = 'off';
        end
    end

    baseY = baseY - scrollSpeed;
    % INCREASED: Using drawnow limitrate for smoother animation
    drawnow limitrate;
    pause(0.01);  % DECREASED: shorter pause for more frames per second

    if textY < -200 * textScale
        break;
    end
end

% --- Final Text ---
% INCREASED: Final text from 28 to 42
finalText = text(centerX, centerY, 'May the 4th be with you', ...
    'Color', 'white', 'FontSize', 42, ...
    'FontWeight', 'bold', 'HorizontalAlignment', 'center', ...
    'VerticalAlignment', 'middle', 'Visible', 'on');

for alpha = alphas
    finalText.Color = [1 1 1] * alpha;
    pause(0.05)
    drawnow;
end

finalText.Visible = 'off'; % Hide the text

% Display "To be continued..."
finalText.String = 'To be continued...';
finalText.Visible = 'on';

% Fade in "To be continued..."
for alpha = alphas
    finalText.Color = [1 1 1] * alpha;
    pause(0.05)
    drawnow ;
end

pause(7);

finalText.Visible = 'off'; % Hide the text

hold off;
stop(playerObj);