Ответ: Рисование карт
Вот вам для начала. Дальнейшую обвязку делать поленился.
Sub Ravine()
Dim sp As SubPath, s As Shape
Dim t As Double
Dim out As New Outline
Dim d As Double
Dim x As Double, y As Double
Dim dx As Double, dy As Double
Dim a1 As Double, a2 As Double...