Assignment 4: 1 - Creating objects in Traffic

note
    description: "Creating new objects for Zurich."

class
    OBJECT_CREATION

inherit
    ZURICH_OBJECTS

feature -- Explore Zurich


    explore
    local               --- Define a local variables
        p1: VECTOR
        p2: VECTOR
        building: BUILDING
        leg1: LEG
        leg2: LEG
        leg12: LEG
        route1: ROUTE

            -- Create new objects for Zurich.
        do
            -- Ein Gebäude auf der Karte anzeigen (grau hinterlegt).
            create p1.make (200, -100)
            create p2.make (250, 0)
            create building.make ("HG", p1, p2)
            Zurich.add_building (building)



            -- Eine Route von ETH über Paradeplatz zur Oper.
            --create leg1.make (Zurich.station ("Polyterasse"), Zurich.station ("Central"), Zurich.line (24))
            create leg2.make (Zurich.station ("Central"), Zurich.station ("Opernhaus"), Zurich.line (4))
            --leg2.link (leg1)
            create route1.make (leg2)
            Zurich.add_route (route1)



        end




end