gistfile1.txt

LineOffset[{x1_, y1_}, {x2_, y2_}, d_] := Module[{r, dx, dy},
  dx = x2 - x1;
  dy = y2 - y1;
  r = Sqrt[dx^2 + dy^2];
  {{x1 + d / r dx, y1 + d / r dy},
   {x2 - d / r dx, y2 - d / r dy}} // N
];

ArcOffset[{r_, a1_, a2_}, d_] := Module[{da},
  da = 180 d / Pi / r;
  {r, a1 + da, a2 - da} // N
];