decrease arrow size if it's longer than the vector

git-svn-id: http://dev.geogebra.org/svn/trunk/geogebra@33309 23ce0884-8a58-47d3-bc5c-ddf1cd5b9f9e