The simulation of the geometry of a tuna purse seine under current and drift of purse seiner