Novos Recursos do
Mathematica
8: Gráficos 2D e 3D Melhorados
◄
anterior
|
próximo
►
Gráficos & Visualização
Flechas curvadas com a posição da ponta da flecha dinâmica
Use flechas curvadas com varias posições de ponta.
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
»