Jana2dpp:= (p1,p2)->plot([p1,p2],thickness=2,color=green);
Jana2dpv:=(p,v)->plot([p,[p[1]+v[1],p[2]+v[2]]],thickness=2,color=blue);