Placing markers on geographic map

Question

I need to mark some objects in accordance with their coordinates (for example, in the form of blue point). And I found out two ways to realise it:

Option 1.

If I have the necessary map (called "EKB") and know the coordinates of image' corners I can somehow to mark the objects. My way is based on some answers I met:

UpperLeftCorner = {FromDMS["58\[Degree]36'01.89''N"], 
   FromDMS["55\[Degree]46'24.20''E"]};
LowerLeftCorner = {FromDMS["55\[Degree]44'59.75''N"], 
   FromDMS["55\[Degree]46'24.20''E"]};
LowerRightCorner = {FromDMS["55\[Degree]44'59.75''N"], 
   FromDMS["66\[Degree]08'20.36''E"]};
UpperRightCorner = {FromDMS["58\[Degree]36'01.89''N"], 
   FromDMS["66\[Degree]08'20.36''E"]};

CoordMapEKB = {UpperLeftCorner, LowerLeftCorner, LowerRightCorner, 
  UpperRightCorner};

Beloyark = {56.842034, 61.319775};
NovoSverdlov = {56.839909, 60.841127};
SredneUralsk = {57.000236, 60.463666};

MaskEKB = 
     Graphics[{Blue, PointSize[Large], Point[GeoPosition[{Beloyark, NovoSverdlov, SredneUralsk}]]}, 
      PlotRange -> Thread[{0, ImageDimensions[EKB]}]];


Show[EKB, Graphics[{Blue, MaskEKB[[1]], MaskEKB[[2]]}]]

As far as I understood, the blue point reflects the position of the necessary object but "in the space of image dimension".

Option 2.

It was recommended in comments:

GeoListPlot[GeoPosition /@ {Beloyark, NovoSverdlov, SredneUralsk}, 
 GeoRange -> 
  GeoBoundsRegion[{{CoordMapEKB[[2, 1]], 
     CoordMapEKB[[1, 1]]}, {CoordMapEKB[[1, 2]], 
     CoordMapEKB[[3, 2]]}}], PlotMarkers -> Automatic]

It really impressed me but what about the image quality? Why it is so bad?

So, Five questions:

1. How to mark and note the names of the objects on the image knowing the coordinates?

2. What is wrong with my code? Do I miss something?

3. Is it possible to mark the objects another way (in both Options)? For instance, using the images:

4. How to connect these objects by the straight line or polyline (zigzag)?

5. Is it possible somehow to improve the quality in the Option 2?

Answer 1

I would recommend reading the documentation for the Geo* functions, since it seems like you may not be aware of a lot of the useful built-ins for this. I hope this helps as a starting point for you to learn about GeoGraphics and so on - there's a lot of powerful functionality available there.

To begin with, I've simplified your starting code:

bounds = GeoBoundingBox[{GeoPosition@{"58\[Degree]36'01.89''N", 
     "55\[Degree]46'24.20''E"}, 
   GeoPosition@{"55\[Degree]44'59.75''N", "66\[Degree]08'20.36''E"}}]

beloyark = GeoPosition[{56.842034, 61.319775}];
novoSverdlov = GeoPosition[{56.839909, 60.841127}];
sredneUralsk = GeoPosition[{57.000236, 60.463666}];

GeoPosition is able to take DMS coordinates directly. Furthermore you don't need all four corners - only two opposing corners, and then you can use GeoBoundingBox. It's not actually clear to me that you really definitely want to use this bounding box, since your three points are all quite close together at that scale.

Anyways, now that we have those points, we can draw the bounding box simply, just to make sure we got it right:

GeoGraphics@GeoBoundsRegion@bounds

Now, we can draw your points, with a line between each of them (using Line:

GeoGraphics[
 {{Thick, Red, Line@{beloyark, novoSverdlov, sredneUralsk}},
  Point@beloyark,
  Point@novoSverdlov,
  Point@sredneUralsk}, GeoRange -> bounds, ImageSize -> Large]

Above, we use GeoRange -> bounds because that's what you asked for, but personally I think using the Automatic setting is better:

Finally, let's add some images and labels, as you requested. Above, I used Point, but now we'll use GeoMarker to add more interesting markers. Because your images aren't separated, I just used example images, but you can replace them with any image you like.

GeoGraphics[
 {{Thick, Red, Line@{beloyark, novoSverdlov, sredneUralsk}},
  {GeoMarker[beloyark, ExampleData[{"TestImage", "Boat"}]],
   GeoMarker[beloyark, "Beloyark", "Alignment" -> Bottom, 
    "Scale" -> [email protected], "Color" -> Blue]},
  {GeoMarker[novoSverdlov, ExampleData[{"TestImage", "Lena"}]],
   GeoMarker[novoSverdlov, "Novo Sverdlov", "Alignment" -> Bottom, 
    "Scale" -> [email protected], "Color" -> Blue]},
  {GeoMarker[sredneUralsk, ExampleData[{"TestImage", "Airplane"}]],
   GeoMarker[sredneUralsk, "Sredne Uralsk", "Alignment" -> Bottom, 
    "Scale" -> [email protected], "Color" -> Blue]}},
 GeoRangePadding -> Quantity[5, "Kilometers"],
 ImageSize -> Large]

Finally, here it is with the original bounds you specify (which, again, is too large in my opinion):

Answer 2

Alright, finally I've brought if off by means of provided some help (thanks to Carl Lange).

What I wanted to get is:

EKB = <<Picture of EKB here>>

LowerLeftCorner = {FromDMS["55\[Degree]44'59.75''N"], 
   FromDMS["55\[Degree]46'24.20''E"]};
UpperRightCorner = {FromDMS["58\[Degree]36'01.89''N"], 
   FromDMS["66\[Degree]08'20.36''E"]};

Beloyark1 = {56.842034, 61.319775};
NovoSverdlov1 = {56.839909, 60.841127};
SredneUralsk1 = {57.000236, 60.463666};

GeoGraphics[{Red, PointSize[0.01], 
  Point@GeoPosition[{Beloyark1, NovoSverdlov1, SredneUralsk1}], Thick,
   Dashed, GeoPath[{Beloyark1, SredneUralsk1, NovoSverdlov1}]}, 
 GeoBackground -> GeoStyling[{"Image", EKB}], 
 GeoRange -> Transpose@{LowerLeftCorner, UpperRightCorner}]

Now it is Ok because in this case I can use necessary map (special one of high quality).

Moreover, I almost managed to use another objects instead of Red Point but, from my point of view, it is related to another topic.

Unfortunately, I couldn't increase the quality of the map given WM but, anyway, my main problem is solved.