%!PS-Adobe-2.0 %%BoundingBox: 0 0 215 90 20 20 translate (arrows.inc) run /rad 5 def % --- draw the control points --------------------------- newpath 0 0 rad 0 360 arc gsave 0.8 setgray fill grestore stroke newpath 60 60 rad 0 360 arc gsave 0.8 setgray fill grestore stroke newpath 120 60 rad 0 360 arc gsave 0.8 setgray fill grestore stroke newpath 180 0 rad 0 360 arc gsave 0.8 setgray fill grestore stroke % --- draw the arrow ----------------------------- newpath [0 0] [60 60] [120 60] [180 0] 5 16 24 60 fillcurvedarrow