Как найти 4 точки рядом с пересечением двух линий

Допустим, у меня есть некоторые растровые данные (черным цветом), по которым некоторые линии были нарисованы вручную в векторном формате (зеленым цветом). Линии примерно соответствуют форме растровых данных. Местами линии пересекаются.

Так что я пытаюсь сделать, это знать положение пересечения зеленых линий, как я могу найти положение A, B, C и D?

Смотрите ниже для некоторых примеров:

Я не уверен, как подойти к этой проблеме, учитывая случайное расположение линий и когда-то они даже не находятся внутри черной формы. Однако, я думаю, что должен быть какой-то способ. Любое предложение?

Я упускаю что-то очевидное в разделе "формат" как. Дата. Рассмотрим пример

d1 < - data.frame (d = c ("1/Jan/1947", «1/Feb/1947», «1/Mar/1947»), d2 = c ("янв/1947", «Февраль/1947», "Мар/1947"))

d1$date1 <- as.Date(x=d1$d, format="%d/%b/%Y")
d1$date2 <- as.Date(x=d1$d2, format="%b/%Y")

           d       d2      date1 date2
1 1/Jan/1947 Jan/1947 1947-01-01  <NA>
2 1/Feb/1947 Feb/1947 1947-02-01  <NA>
3 1/Mar/1947 Mar/1947 1947-03-01  <NA>

так что мой вопрос действительно прост - я не понимаю, почему работает дата1, а дата2 нет.