Gráficos & Visualização

Flechas curvadas com a posição da ponta da flecha dinâmica 

In[1]:=

X curve = First[ First[ImportString[ ExportString[Style["M8", FontFamily -> "Times", FontSize -> 72], "PDF"]]]] /. {Thickness[_] :> {}, FilledCurve[args__] :> {FaceForm[ColorData["HTML", "Crimson"]], FilledCurve[args], Dashed, Arrow[JoinedCurve[args, CurveClosed -> True]]}};

In[2]:=

X Animate[Graphics[{Arrowheads[{{0.05, t}, {0.05, Mod[t + 1/3, 1]}, {0.05, Mod[t + 2/3, 1]}}], curve}, ImageSize -> Medium], {t, 0, 1}, SaveDefinitions -> True]

Out[2]=

Play Animation » Stop Animation »