function UAM_show_STLD(lane_flights,lanes,start_time,finish_time,...
    lengths,speed)
%

clf
hold on

total_length = sum(lengths);
last_time = finish_time + total_length/speed;
num_lanes = length(lanes);
heights = zeros(num_lanes,2);
for k = 1:num_lanes
    heights(k,2) = sum(lengths(1:k));
end
for k = 2:num_lanes
    heights(k,1) = heights(k-1,2);
end

for k = 1:num_lanes
    plot([start_time,last_time],[heights(k,1),heights(k,1)],'k');
    plot([start_time,last_time],[heights(k,2),heights(k,2)],'k');
    plot([start_time,start_time],[heights(k,1),heights(k,2)],'k');
    plot([last_time,last_time],[heights(k,1),heights(k,2)],'k');
end

for k = 1:num_lanes
    flights = lane_flights(lanes(k)).flights;
    if ~isempty(flights)
        num_flights = length(flights(:,1));
        for f = 1:num_flights
            plot([flights(f,1),flights(f,2)],[heights(k,1),heights(k,2)],'r');
        end
    end
end

tch = 0;
