Новое в системе Wolfram
Mathematica
8: Усовершенствованная 2D и 3D графика
◄
предыдущая
|
следующая
►
Графика и визуализация
Изогнутые стрелки с изменяющимися положениями остриев
Использование изогнутых стрелок с разными положениями остриев.
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
»