Gradiente de cores nos gráficos?

Question

Eu gostaria de gradiente de cor (vermelho para azul) a seguinte curva:

gr = Graphics[{Arrow[BezierCurve[{{0, 3}, {.8, 2}, {1.8, 1.7}}]]}]

Qualquer ajuda será apreciada.

Answer 1

Graphics[{Antialiasing -> True, Blue, AbsoluteThickness[2], 
  Arrowheads[.05], 
  Arrow[Line[BezierFunction[{{0, 3}, {.8, 2}, {1.8, 1.7}}] /@ Subdivide[100], 
    VertexColors -> (Blend[{Red, Blue}, #] & /@ Subdivide[100])]]}]

Para obter uma aparência mais suave Rasterizeusando uma grande ImageSizee redimensionar usando Magnify:

Magnify[Rasterize[
  Graphics[{Antialiasing -> True, Blue, AbsoluteThickness[20], 
    Arrowheads[.05], 
    Arrow[Line[BezierFunction[{{0, 3}, {.8, 2}, {1.8, 1.7}}] /@ Subdivide[100],
       VertexColors -> (Blend[{Red, Blue}, #] & /@ Subdivide[100])]]}], 
  ImageSize -> 5000], .1]