p=(({{0, 0}, {1, 0}, {1.5, 1.3}, {1.6, 0.6}, {0.5, 1.3}, {-0.3, 0.6}}));(Subscript[x, i_]):=p[[(i-1) mod 6+1]];Off[RotationMatrix::degen]
(Subscript[oldalakon, i_]):=Translate[GeometricTransformation[
GraphicsGroup[{Arrow[{{0,0},{0,(1/6)}}],Arrow[{{0,0},{(1/10),0}}]}],
RotationTransform[{{1,0},(Subscript[x, i+1])-(Subscript[x, i])}]],(1/2) ((Subscript[x, i+1])+(Subscript[x, i]))]
(Subscript[csúcsokon, i_]):=Translate[GraphicsGroup[{Disk[{0,0},0.01],Line[{{0,0},(1/8)#1}],
Translate[Rotate[Arrow[{-(1/40)#2,{0,0}}],Sign[Det[{#1,#2}]]75°,{0,0}],(1/10)#2],
Circle[{0,0},(1/10),Function[v,{v,v+VectorAngle[#1,#2]}][
Arg[Complex@@If[Det[{#1,#2}]>0,#1,#2]]]]}]&[Normalize[(Subscript[x, i])-(Subscript[x, i-1])],Normalize[(Subscript[x, i+1])-(Subscript[x, i])]],(Subscript[x, i])]
LocatorPane[Dynamic[p],Dynamic[g=Graphics[
Table[GraphicsGroup[{Arrowheads[0.02],(Subscript[oldalakon, i]),(Subscript[csúcsokon, i]),Thickness[.002],Line[{(Subscript[x, i]),(Subscript[x, i+1])}]}],{i,6}],
PlotRange->(({{-.5, 2.}, {-.5, 1.5}})),ImageSize->600]],Appearance->None]