%!PS-Adobe-2.0 %%BoundingBox: 0 0 300 300 (arrows.inc) run 20 75 translate /m 10 def /ell 250 def 0 1 2 { setlinecap gsave newpath ell 0 10 30 24 60 mkarrow 0.8 setgray fill grestore newpath 0 0 2 0 360 arc fill gsave 1 0 0 setrgbcolor newpath 0 m neg moveto 0 m lineto m neg 0 moveto m 0 lineto stroke grestore newpath ell 0 10 30 24 60 mkarrow stroke 0 75 translate } for