Revisions to Draw an arrow such that this arrow gradually dims away?

added 1325 characters in body

Source Link

edited Jun 17, 2021 at 16:41

400.5k
18
488
929

Graphics @ 
 {Arrowheads[{{.1, 1, {Graphics[{Opacity[.1, Black], 
    Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[5], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}}, 
    VertexColors -> {Opacity[1, Black], Opacity[.1, Black]}]]}

Graphics@{EdgeForm[{AbsoluteThickness[10],Graphics Green}],@ FaceForm[]
 {Green, Rectangle[{3.9, 3.9}], 
  Arrowheads[{{.1, 1, {Graphics[{EdgeForm[], Opacity[.1, Black], 
        Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[10], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}}, 
     VertexColors -> {Opacity[1, Black], Opacity[.1, Black]}]]}

Replace Opacity[1, Black] with Opacity[1, Purple] and Opacity[.1, Black] with Opacity[.3, Orange] to get

Alternatively, without Opacity:

Graphics@{EdgeForm[{AbsoluteThickness[10],Graphics Green}],@ FaceForm[]
 {Green, Rectangle[{3.9, 3.9}], 
  Arrowheads[{{.1, 1, {Graphics[{EdgeForm[], GrayLevel[.9], 
        Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[10], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}},
     VertexColors -> {GrayLevel[0], GrayLevel[.9]}]]}

Replace GrayLevel[0] with Purple and GrayLevel[.9] with Lighter[Orange, .8] to get:

Graphics @ 
 {Arrowheads[{{.1, 1, {Graphics[{Opacity[.1, Black], 
    Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[5], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}}, 
    VertexColors -> {Opacity[1, Black], Opacity[.1, Black]}]]}

Graphics@{EdgeForm[{AbsoluteThickness[10], Green}], FaceForm[], Rectangle[{3.9, 3.9}], 
  Arrowheads[{{.1, 1, {Graphics[{EdgeForm[], Opacity[.1, Black], 
        Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[10], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}}, 
     VertexColors -> {Opacity[1, Black], Opacity[.1, Black]}]]}

Replace Opacity[1, Black] with Opacity[1, Purple] and Opacity[.1, Black] with Opacity[.3, Orange] to get

Alternatively, without Opacity:

Graphics@{EdgeForm[{AbsoluteThickness[10], Green}], FaceForm[], Rectangle[{3.9, 3.9}], 
  Arrowheads[{{.1, 1, {Graphics[{EdgeForm[], GrayLevel[.9], 
        Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[10], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}},
     VertexColors -> {GrayLevel[0], GrayLevel[.9]}]]}

Replace GrayLevel[0] with Purple and GrayLevel[.9] with Lighter[Orange, .8] to get:

Graphics @ 
 {Arrowheads[{{.1, 1, {Graphics[{Opacity[.1, Black], 
    Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[5], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}}, 
    VertexColors -> {Opacity[1, Black], Opacity[.1, Black]}]]}

Graphics @ 
 {Green, Rectangle[{3.9, 3.9}], 
  Arrowheads[{{.1, 1, {Graphics[{Opacity[.1, Black], 
        Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[10], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}}, 
     VertexColors -> {Opacity[1, Black], Opacity[.1, Black]}]]}

Replace Opacity[1, Black] with Opacity[1, Purple] and Opacity[.1, Black] with Opacity[.3, Orange] to get

Alternatively, without Opacity:

Graphics @ 
 {Green, Rectangle[{3.9, 3.9}], 
  Arrowheads[{{.1, 1, {Graphics[{GrayLevel[.9], 
        Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[10], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}},
     VertexColors -> {GrayLevel[0], GrayLevel[.9]}]]}

Replace GrayLevel[0] with Purple and GrayLevel[.9] with Lighter[Orange, .8] to get:

added 1325 characters in body

Source Link

edited Jun 17, 2021 at 16:35

kglr

400.5k
18
488
929

Graphics @ 
 {Arrowheads[{{.1, 1, {Graphics[{Opacity[.1, Black], 
    Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[5], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}}, 
    VertexColors -> {Opacity[1, Black], Opacity[.1, Black]}]]}

Graphics@{EdgeForm[{AbsoluteThickness[10], Green}], FaceForm[], Rectangle[{3.9, 3.9}], 
  Arrowheads[{{.1, 1, {Graphics[{EdgeForm[], Opacity[.1, Black], 
        Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[10], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}}, 
     VertexColors -> {Opacity[1, Black], Opacity[.1, Black]}]]}

Replace Opacity[1, Black] with Opacity[1, Purple] and Opacity[.1, Black] with Opacity[.3, Orange] to get

Alternatively, without Opacity:

Graphics@{EdgeForm[{AbsoluteThickness[10], Green}], FaceForm[], Rectangle[{3.9, 3.9}], 
  Arrowheads[{{.1, 1, {Graphics[{EdgeForm[], GrayLevel[.9], 
        Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[10], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}},
     VertexColors -> {GrayLevel[0], GrayLevel[.9]}]]}

Replace GrayLevel[0] with Purple and GrayLevel[.9] with Lighter[Orange, .8] to get:

Graphics @ 
 {Arrowheads[{{.1, 1, {Graphics[{Opacity[.1, Black], 
    Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[5], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}}, 
    VertexColors -> {Opacity[1, Black], Opacity[.1, Black]}]]}

Graphics @ 
 {Arrowheads[{{.1, 1, {Graphics[{Opacity[.1, Black], 
    Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[5], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}}, 
    VertexColors -> {Opacity[1, Black], Opacity[.1, Black]}]]}

Graphics@{EdgeForm[{AbsoluteThickness[10], Green}], FaceForm[], Rectangle[{3.9, 3.9}], 
  Arrowheads[{{.1, 1, {Graphics[{EdgeForm[], Opacity[.1, Black], 
        Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[10], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}}, 
     VertexColors -> {Opacity[1, Black], Opacity[.1, Black]}]]}

Replace Opacity[1, Black] with Opacity[1, Purple] and Opacity[.1, Black] with Opacity[.3, Orange] to get

Alternatively, without Opacity:

Graphics@{EdgeForm[{AbsoluteThickness[10], Green}], FaceForm[], Rectangle[{3.9, 3.9}], 
  Arrowheads[{{.1, 1, {Graphics[{EdgeForm[], GrayLevel[.9], 
        Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[10], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}},
     VertexColors -> {GrayLevel[0], GrayLevel[.9]}]]}

Replace GrayLevel[0] with Purple and GrayLevel[.9] with Lighter[Orange, .8] to get:

deleted 1 character in body

Source Link

edited Jun 17, 2021 at 2:46

kglr

400.5k
18
488
929

Graphics @ 
 {Arrowheads[{{.051, 1, {Graphics[{Opacity[.1, Black], 
    Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[3]AbsoluteThickness[5], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}}, 
    VertexColors -> {Opacity[1, Black], Opacity[.1, Black]}]]}

Graphics @ 
 {Arrowheads[{{.05, 1, {Graphics[{Opacity[.1, Black], 
    Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[3], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}}, 
    VertexColors -> {Opacity[1, Black], Opacity[.1, Black]}]]}

Graphics @ 
 {Arrowheads[{{.1, 1, {Graphics[{Opacity[.1, Black], 
    Polygon[{{-1, 1/2}, {0, 0}, {-1, -1/2}}]}], 1}}}], 
  AbsoluteThickness[5], 
  Arrow[Line[{{2.5, 2.5}, {5, 5}}, 
    VertexColors -> {Opacity[1, Black], Opacity[.1, Black]}]]}

Source Link

created Jun 17, 2021 at 2:32

kglr

400.5k
18
488
929

Loading

Stack Exchange Network

Return to Answer