Scaling arrow heads in quiver function

I am having trouble with creating nice flow plots for a velocity vector field. I try to use the quiver command but cannot find how to scale the arrow heads properly. Below a picture of the plot, I want to have the heads make up less space in the hope it will be better readable.

and here some code that makes it work (if I need to supply more let me know, I am new to this blog).

    p4 = quiver(
        xs,
        ys,
        quiver = (vx_dir, vy_dir),
        xlabel = "x",
        ylabel = "y",
        title = "velocity directions",
        legend = false,
        xlims = (0, L),
        ylims = (-w, w),
    )

The velocities are also normalized, and I plot it with a magnitude plot side-by-side using Plots, so I would like the solution to be compatible with plots(p1, p2, …).

Should be arrow = Arrow(0.1) if the backens supports it

Maybe try UniformStreamlines.jl?