colors <- rainbow(10)
xrange <- c(2548180, 2554748)
yrange <- c(6671273, 6679080)
names <- c("1", "3b", "3t", "4", "6", "7a", "7b", "8", "9", "10")
trams <- plot(xrange, yrange, type="n", xlab = "x", ylab = "y")
x <- c(2553013, 2553110, 2553099, 2553002, 2552909, 2552887, 2553031, 2552972, 2552801, 2552787, 2553127, 2553229, 2553053, 2552818, 2552605, 2552601, 2552587, 2552533, 2552473, 2552735, 2553071)
y <- c(6673256, 6673575, 6673745, 6673996, 6674610, 6674736, 6675049, 6675343, 6675430, 6675730, 6676133, 6676308, 6676458, 6676631, 6676885, 6677202, 6677806, 6678039, 6678311, 6678546, 6678733)
lines(x,y, lwd = 1)
x <- c(2553071, 2552735, 2552473, 2552533, 2552587, 2552601, 2552605, 2552818, 2553053, 2553229, 2553127, 2552787, 2552801, 2552972, 2553031, 2552887, 2552909, 2553002, 2553099, 2553110, 2552997, 2553013)
y <- c(6678733, 6678546, 6678311, 6678039, 6677806, 6677202, 6676885, 6676631, 6676458, 6676308, 6676133, 6675730, 6675430, 6675343, 6675049, 6674736, 6674610, 6673996, 6673745, 6673575, 6673446, 6673256)
lines(x,y, lwd = 1)
x <- c(2553272, 2553191, 2552905, 2552680, 2552474, 2552455, 2552331, 2552259, 2552499, 2552427, 2552458, 2552775, 2552884, 2552909, 2552887, 2553031, 2552972, 2552801, 2552616, 2552362, 2552112, 2551771)
y <- c(6672595, 6672381, 6672258, 6672223, 6672204, 6672541, 6672723, 6672928, 6673103, 6673321, 6673575, 6673730, 6673944, 6674610, 6674736, 6675049, 6675343, 6675430, 6675850, 6675892, 6676015, 6676039)
lines(x,y, lwd = 1)
x <- c(2551771, 2552112, 2552362, 2552616, 2552801, 2552972, 2553031, 2552887, 2552909, 2552884, 2552775, 2552458, 2552427, 2552499, 2552259, 2552331, 2552455, 2552474, 2552680, 2552905, 2553191, 2553272)
y <- c(6676039, 6676015, 6675892, 6675850, 6675430, 6675343, 6675049, 6674736, 6674610, 6673944, 6673730, 6673575, 6673321, 6673103, 6672928, 6672723, 6672541, 6672204, 6672223, 6672258, 6672381, 6672595)
lines(x,y, lwd = 1)
x <- c(2553272, 2553067, 2553013, 2552997, 2552744, 2552670, 2552458, 2552082, 2551869, 2551541, 2551382, 2551362, 2551432, 2551606, 2551310, 2551158, 2551506, 2551771)
y <- c(6672595, 6673026, 6673256, 6673446, 6673427, 6673543, 6673575, 6673389, 6673381, 6673659, 6673910, 6674229, 6674585, 6674890, 6675270, 6675545, 6675903, 6676039)
lines(x,y, lwd = 1)
x <- c(2551771, 2551417, 2551158, 2551351, 2551606, 2551432, 2551362, 2551415, 2551541, 2551869, 2552082, 2552458, 2552670, 2552744, 2552997, 2553013, 2553067, 2553272)
y <- c(6676039, 6675884, 6675545, 6675166, 6674890, 6674585, 6674229, 6673801, 6673659, 6673381, 6673389, 6673575, 6673543, 6673427, 6673446, 6673256, 6673026, 6672595)
lines(x,y, lwd = 1)
x <- c(2554270, 2554270, 2553964, 2553787, 2553566, 2553268, 2552997, 2552744, 2552427, 2552222, 2551947, 2551753, 2551606, 2551310, 2551158, 2550732, 2550400, 2549816, 2549575, 2549098, 2548809, 2548556, 2548572)
y <- c(6673260, 6673260, 6673135, 6673172, 6673265, 6673465, 6673446, 6673427, 6673321, 6673587, 6674069, 6674438, 6674890, 6675270, 6675545, 6675867, 6675878, 6676084, 6676282, 6676502, 6676611, 6676304, 6676211)
lines(x,y, lwd = 1)
x <- c(2548572, 2548556, 2548809, 2549098, 2549575, 2549816, 2550400, 2550732, 2551158, 2551351, 2551606, 2551753, 2551947, 2552222, 2552427, 2552744, 2552997, 2553268, 2553566, 2553787, 2553964, 2554161, 2554270)
y <- c(6676211, 6676304, 6676611, 6676502, 6676282, 6676084, 6675878, 6675867, 6675545, 6675166, 6674890, 6674438, 6674069, 6673587, 6673321, 6673427, 6673446, 6673465, 6673265, 6673172, 6673135, 6673188, 6673260)
lines(x,y, lwd = 1)
x <- c(2551495, 2551700, 2551832, 2552101, 2552259, 2552499, 2552427, 2552458, 2552775, 2552884, 2552909, 2553309, 2553506, 2553640, 2553692, 2553690, 2553566, 2553525, 2553740, 2553961, 2554220, 2554425)
y <- c(6672600, 6672575, 6672626, 6672797, 6672928, 6673103, 6673321, 6673575, 6673730, 6673944, 6674610, 6674974, 6675260, 6675586, 6675811, 6676135, 6676511, 6676730, 6677220, 6677400, 6677670, 6677835)
lines(x,y, lwd = 1)
x <- c(2554425, 2554220, 2553961, 2553740, 2553525, 2553566, 2553690, 2553692, 2553640, 2553506, 2553309, 2552909, 2552884, 2552775, 2552458, 2552427, 2552499, 2552259, 2551988, 2551832, 2551700, 2551545, 2551495)
y <- c(6677835, 6677670, 6677400, 6677220, 6676730, 6676511, 6676135, 6675811, 6675586, 6675260, 6674974, 6674610, 6673944, 6673730, 6673575, 6673321, 6673103, 6672928, 6672745, 6672626, 6672775, 6672725, 6672600)
lines(x,y, lwd = 1)
x <- c(2553110, 2552997, 2552744, 2552427, 2552222, 2551947, 2551753, 2551606, 2551310, 2551158, 2551506, 2551771, 2551629, 2551502, 2551538, 2551668, 2552025)
y <- c(6673575, 6673446, 6673427, 6673321, 6673587, 6674069, 6674438, 6674890, 6675270, 6675545, 6675903, 6676039, 6676449, 6676735, 6676860, 6676620, 6676740)
lines(x,y, lwd = 1)
x <- c(2552025, 2552111, 2552255, 2552392, 2552605, 2552818, 2553053, 2553229, 2553487, 2553692, 2553640, 2553506, 2553309, 2552909, 2553002, 2553099, 2553110)
y <- c(6676740, 6677002, 6676950, 6676903, 6676885, 6676631, 6676458, 6676308, 6676013, 6675811, 6675586, 6675260, 6674974, 6674610, 6673996, 6673745, 6673575)
lines(x,y, lwd = 1)
x <- c(2553110, 2553099, 2553002, 2552909, 2553309, 2553506, 2553640, 2553692, 2553487, 2553229, 2553053, 2552818, 2552605, 2552392, 2552255, 2552111, 2552025)
y <- c(6673575, 6673745, 6673996, 6674610, 6674974, 6675260, 6675586, 6675811, 6676013, 6676308, 6676458, 6676631, 6676885, 6676903, 6676950, 6677002, 6676740)
lines(x,y, lwd = 1)
x <- c(2552025, 2551668, 2551538, 2551502, 2551629, 2551771, 2551417, 2551158, 2551351, 2551606, 2551753, 2551947, 2552222, 2552427, 2552744, 2552997, 2553110)
y <- c(6676740, 6676620, 6676860, 6676735, 6676449, 6676039, 6675884, 6675545, 6675166, 6674890, 6674438, 6674069, 6673587, 6673321, 6673427, 6673446, 6673575)
lines(x,y, lwd = 1)
x <- c(2550785, 2550659, 2550612, 2550972, 2551255, 2551315, 2551285, 2551211, 2551362, 2551432, 2551606, 2551892, 2552410, 2552801, 2553202, 2553640, 2553692, 2553690, 2553566, 2553525, 2553740, 2553961, 2554220, 2554425)
y <- c(6672107, 6672338, 6672690, 6672762, 6672782, 6673210, 6673563, 6673892, 6674229, 6674585, 6674890, 6675133, 6675306, 6675430, 6675448, 6675586, 6675811, 6676135, 6676511, 6676730, 6677220, 6677400, 6677670, 6677835)
lines(x,y, lwd = 1)
x <- c(2554425, 2554220, 2553961, 2553740, 2553525, 2553566, 2553690, 2553692, 2553640, 2553202, 2553017, 2552801, 2552410, 2551892, 2551606, 2551432, 2551362, 2551211, 2551285, 2551315, 2551255, 2550972, 2550612, 2550659, 2550785)
y <- c(6677835, 6677670, 6677400, 6677220, 6676730, 6676511, 6676135, 6675811, 6675586, 6675448, 6675442, 6675430, 6675306, 6675133, 6674890, 6674585, 6674229, 6673892, 6673563, 6673210, 6672782, 6672762, 6672690, 6672338, 6672107)
lines(x,y, lwd = 1)
x <- c(2551281, 2551365, 2551367, 2551452, 2551620, 2551890, 2552082, 2552458, 2552775, 2552884, 2552909, 2552887, 2553031, 2552972, 2553017, 2552998, 2552803, 2552536, 2552626, 2552440, 2552354, 2552255, 2552111, 2552025)
y <- c(6671775, 6671902, 6672382, 6672710, 6672976, 6673260, 6673389, 6673575, 6673730, 6673944, 6674610, 6674736, 6675049, 6675343, 6675442, 6675740, 6675888, 6676100, 6676220, 6676527, 6676678, 6676950, 6677002, 6676740)
lines(x,y, lwd = 1)
x <- c(2552025, 2552354, 2552440, 2552626, 2552536, 2552803, 2552998, 2553017, 2552972, 2553031, 2552887, 2552909, 2552884, 2552775, 2552458, 2552082, 2551890, 2551620, 2551452, 2551367, 2551365, 2551281)
y <- c(6676740, 6676678, 6676527, 6676220, 6676100, 6675888, 6675740, 6675442, 6675343, 6675049, 6674736, 6674610, 6673944, 6673730, 6673575, 6673389, 6673260, 6672976, 6672710, 6672382, 6671902, 6671775)
lines(x,y, lwd = 1)
x <- c(2552792, 2552830, 2552665, 2552581, 2552427, 2552222, 2551947, 2551753, 2551606, 2551310, 2551158, 2550732, 2550462, 2550228, 2550148, 2550000, 2549850, 2549665, 2549663)
y <- c(6672531, 6672654, 6672787, 6673000, 6673321, 6673587, 6674069, 6674438, 6674890, 6675270, 6675545, 6675867, 6676126, 6676304, 6676735, 6677200, 6677285, 6677438, 6677720)
lines(x,y, lwd = 1)
x <- c(2549663, 2549665, 2549850, 2550000, 2550148, 2550228, 2550462, 2550732, 2551158, 2551351, 2551606, 2551753, 2551947, 2552222, 2552427, 2552581, 2552665, 2552792)
y <- c(6677720, 6677438, 6677285, 6677200, 6676735, 6676304, 6676126, 6675867, 6675545, 6675166, 6674890, 6674438, 6674069, 6673587, 6673321, 6673000, 6672787, 6672531)
lines(x,y, lwd = 1)
x <- c(2552887, 2552259, 2551620, 2551452, 2552905, 2553191, 2552792, 2553067, 2552474, 2552581, 2553013, 2552680, 2553002, 2553268, 2552830, 2552665, 2553099, 2553110, 2552998, 2552025, 2553787, 2552803, 2553566, 2552536, 2554161, 2551892, 2553964, 2551281, 2553640, 2552255, 2552787, 2552392, 2550659, 2550732, 2550785, 2551367, 2549816, 2551365, 2550400, 2549575, 2552410, 2552972, 2554270, 2553740, 2551158, 2551432, 2552533, 2552473, 2552909, 2552735, 2552362, 2551832, 2552427, 2552499, 2552112, 2551351, 2551310, 2551606, 2553071, 2551255, 2551668, 2552884, 2551700, 2552775, 2552101, 2551495, 2552458, 2551700, 2551545, 2550972, 2551947, 2551538, 2551541, 2551502, 2551988, 2551753, 2553309, 2553506, 2551506, 2552331, 2551771, 2549665, 2549663, 2552082, 2551869, 2550612, 2551890, 2552455, 2553961, 2554425, 2551417, 2554220, 2552997, 2550228, 2553017, 2553272, 2550462, 2553031, 2552670, 2551315, 2552616, 2551629, 2553127, 2553229, 2553053, 2552601, 2553202, 2552111, 2553566, 2552744, 2553487, 2552605, 2552626, 2552818, 2552222, 2552587, 2551285, 2551362, 2551415, 2551382, 2551211, 2550000, 2549850, 2553690, 2553692, 2553525, 2552440, 2548809, 2552354, 2549098, 2552801, 2548572, 2548556, 2550148)
y <- c(6674736, 6672928, 6672976, 6672710, 6672258, 6672381, 6672531, 6673026, 6672204, 6673000, 6673256, 6672223, 6673996, 6673465, 6672654, 6672787, 6673745, 6673575, 6675740, 6676740, 6673172, 6675888, 6673265, 6676100, 6673188, 6675133, 6673135, 6671775, 6675586, 6676950, 6675730, 6676903, 6672338, 6675867, 6672107, 6672382, 6676084, 6671902, 6675878, 6676282, 6675306, 6675343, 6673260, 6677220, 6675545, 6674585, 6678039, 6678311, 6674610, 6678546, 6675892, 6672626, 6673321, 6673103, 6676015, 6675166, 6675270, 6674890, 6678733, 6672782, 6676620, 6673944, 6672775, 6673730, 6672797, 6672600, 6673575, 6672575, 6672725, 6672762, 6674069, 6676860, 6673659, 6676735, 6672745, 6674438, 6674974, 6675260, 6675903, 6672723, 6676039, 6677438, 6677720, 6673389, 6673381, 6672690, 6673260, 6672541, 6677400, 6677835, 6675884, 6677670, 6673446, 6676304, 6675442, 6672595, 6676126, 6675049, 6673543, 6673210, 6675850, 6676449, 6676133, 6676308, 6676458, 6677202, 6675448, 6677002, 6676511, 6673427, 6676013, 6676885, 6676220, 6676631, 6673587, 6677806, 6673563, 6674229, 6673801, 6673910, 6673892, 6677200, 6677285, 6676135, 6675811, 6676730, 6676527, 6676611, 6676678, 6676502, 6675430, 6676211, 6676304, 6676735)
points(x,y, lwd = 0.5)