function drawframe(f)
    % Create a figure
figure;
hold on;
axis equal;
axis off;
% Draw the roads
rectangle('Position', [0, 0, 2, 30], 'FaceColor', [0.5 0.5 0.5]); % Left road
rectangle('Position', [2, 0, 2, 30], 'FaceColor', [0.5 0.5 0.5]); % Right road
% Draw the traffic light
trafficLightPole = rectangle('Position', [-1, 20, 1, 0.2], 'FaceColor', 'black'); % Pole
redLight = rectangle('Position', [0, 20, 0.5, 1], 'FaceColor', 'red'); % Red light
yellowLight = rectangle('Position', [0.5, 20, 0.5, 1], 'FaceColor', 'black'); % Yellow light
greenLight = rectangle('Position', [1, 20, 0.5, 1], 'FaceColor', 'black'); % Green light
carBody = rectangle('Position', [2.5, 2, 1, 4], 'Curvature', 0.2, 'FaceColor', 'red'); % Body
leftWheel = rectangle('Position', [2.5, 3.0, 0.2, 0.2], 'Curvature', [1, 1], 'FaceColor', 'black'); % Left wheel
rightWheel = rectangle('Position', [3.3, 3.0, 0.2, 0.2], 'Curvature', [1, 1], 'FaceColor', 'black'); % Right wheel
leftFrontWheel = rectangle('Position', [2.5, 5.0, 0.2, 0.2], 'Curvature', [1, 1], 'FaceColor', 'black'); % Left wheel
rightFrontWheel = rectangle('Position', [3.3, 5.0, 0.2, 0.2], 'Curvature', [1, 1], 'FaceColor', 'black'); % Right wheel
% Set limits
xlim([-1, 8]);
ylim([-1, 35]);
% Animation parameters
carSpeed = 0.5; % Speed of the car
carPosition = 2; % Initial car position
stopPosition = 15; % Position to stop at the traffic light
isStopped = false; % Car is not stopped initially
%Animation loop
for t = 1:100
    % Update traffic light: Red for 40 frames, yellow for 10 frames Green for 40 frames
    if t <= 40
        % Red light on, yellow and green off
        set(redLight, 'FaceColor', 'red');
        set(yellowLight, 'FaceColor', 'black');
        set(greenLight, 'FaceColor', 'black');
     
    elseif t > 40 && t <= 50
        % Change to green light
        set(redLight, 'FaceColor', 'black');
        set(yellowLight, 'FaceColor', 'yellow');
        set(greenLight, 'FaceColor', 'black');
        
    else
        % Back to red light
        set(redLight, 'FaceColor', 'black');
        set(yellowLight, 'FaceColor', 'black');
        set(greenLight, 'FaceColor', 'green');
        isStopped = false; % Allow car to move
    end
    %Move the car
    if ~isStopped
        carPosition = carPosition + carSpeed; % Move forward
        if carPosition < stopPosition
            %do nothing
        else
            isStopped = true;
        end
    else
        % Gradually stop the car when red
        if carPosition > stopPosition
            carPosition = carPosition + carSpeed*(1-t/50); % Move backward until it reaches the stop position
        end
    end
    if carPosition >= 25
        carPosition = 25;
    end
    % Update car position
    % set(carBody, 'Position', [carPosition, 2, 1, 0.5]);
    set(carBody, 'Position', [2.5, carPosition, 1, 4]);
    %set(carWindow, 'Position', [carPosition + 0.2, 2.4, 0.6, 0.2]);
    %set(leftWheel, 'Position', [carPosition, 1.5, 0.2, 0.2]);
    set(leftWheel, 'Position', [2.5, carPosition+1, 0.2, 0.2]);
    % set(rightWheel, 'Position', [carPosition + 0.8, 1.5, 0.2, 0.2]);
    set(rightWheel, 'Position', [3.3, carPosition+1, 0.2, 0.2]);
    set(leftFrontWheel, 'Position', [2.5, carPosition+3, 0.2, 0.2]);
    set(rightFrontWheel, 'Position', [3.3, carPosition+3, 0.2, 0.2]);
    % Pause to control animation speed
    pause(0.01);
end
hold off;