I don't know a general solution to the problem, but a little playing around with the 'goofy arrowhead' approach produces a version that, for me, is more reasonable and might become quite handsome with a bit more futzing around:
-arrowshape => [2, 5, 4], # less goofy