New in Wolfram Mathematica 6: Extended Graphics Language  previous | next 
Built-in Arbitrary Arrows
Mathematica 6 supports highly general arrow primitives.
In[1]:=

Click for copyable input
Graphics[{Table[

   Arrow[{{x, y}, {x, y} + {y, x}/5 - 1}], {x, 0, 15}, {y, 0, 15}]}]
Out[1]=