Assignment_2 01

note
    description: "Introduction to Traffic."

class
    PREVIEW

inherit
    ZURICH_OBJECTS

feature -- Explore Zurich

    explore
            -- Modify the map.
    local -- Initializing a variable to keep count of the loops passed (used later)
        count : INTEGER

        do
            Zurich.add_station ("Zoo", 1800, -500) -- Adding the station "Zoo"
            Zurich.connect_station (6, "Zoo") -- Adding "Zoo" to line 6
            Zurich_map.update -- Updating the map
            Zurich_map.fit_to_window -- Scaling the map

            from count := 1 -- Creating a loop tha will let "Zoo" blink 10 times.
            until count = 10
            loop
                wait (1)
                Zurich_map.station_view (Zurich.station ("Zoo")).highlight
                wait (1)
                Zurich_map.station_view (Zurich.station ("Zoo")).unhighlight
                count := count + 1 -- Incrementing the "count" variable by one (Loop has been completed + 1 time)
            end

        end

end