Show[{
DensityPlot[Sqrt[(x - 1)^2 + y^2], {x, 0, 2}, {y, -1, 1},
ColorFunctionScaling -> False,
ColorFunction -> Function[r, Directive[Black, Opacity[1 - r^4]]]],
Plot[5 Sin[x + 0.4], {x, -4 \[Pi] - 0.4, -0.5},
PlotStyle -> {{Darker[Red, 0.2], Thickness[0.01]}},
PlotRangePadding -> Scaled[.1]] /. {Line[x__] :>
Sequence[
Arrowheads[{{.02,
1, {Graphics[{Thickness[0.01],
BezierCurve[
3 {{-1, -0.5}, {-0.7, -0.2}, {-0.3, -0.07}, {0,
0}, {-0.3, 0.07}, {-0.7, 0.2}, {-1, 0.5}}]}], 0.1}}}],
Arrow[x]]}
}