Someone could get a similar solution like this animation?
I believe the solution is useful for demonstrations in class to other users who teach Math.
$\begingroup$
$\endgroup$
9
1 Answer
$\begingroup$
$\endgroup$
4
Thanks to J.M.
drop = SetAlphaChannel[#, ColorNegate@#] &@
Binarize@Rasterize@
ParametricPlot[{r Cos[t] (1 - Sin[t]), -3 +
r (5/2 (Sin[t] - 1) + 3)}, {t, 0, 2 Pi}, {r, 0, 1},
BoundaryStyle -> None, Axes -> False, Frame -> False]
Something to start with:
circle = Table[
Translate[
Point[{##, 0} & @@@ CirclePoints[r, 10 + 20 r]],
{0, 0, Dynamic[f[#, t]] &@r}
],
{r, .5, 20, .5}
];
f[r_, t_] := UnitBox[(r - t)/(2 Pi) - .5] Sin[r - t];
t = -4 Pi;
Column@{
Trigger[Dynamic[t], {-4 Pi, 20}] ,
Graphics3D[
{AbsolutePointSize@2, circle,
Dynamic @ If[t < -1.9 Pi,
Inset[drop, {0, 0, -(t + 2 Pi)}, Automatic, Scaled[{.03, .05}]],
{}
]
},
ViewVertical -> {0, 0, 1}, ImageSize -> 700,
PlotRange -> {20 {-1, 1}, 20 {-1, 1}, 10 {-1, 1}},
ViewAngle -> Pi/16, Boxed -> False, ViewPoint -> {5, 0, 3},
BoxRatios -> Automatic]}
-
3$\begingroup$ beautiful...+1 can almost here the drop :) $\endgroup$– ubpdqnCommented Aug 4, 2016 at 11:01
-
1$\begingroup$ @ubpdqn Thanks, but let's be clear, it is not the prettiest one :) Though I don't care, my goal in such cases is to create something interactive rather than a neat gif. $\endgroup$– KubaCommented Aug 4, 2016 at 11:19
-
2$\begingroup$ yes it would not be used in Disney CGI...but terse and perhaps motivates...I am off to sleep :) $\endgroup$– ubpdqnCommented Aug 4, 2016 at 11:53
-
1$\begingroup$ Great job! Now I will study your code. I am beginner and I am thrilled to see that there are several solutions using this software. $\endgroup$ Commented Aug 4, 2016 at 21:25
Graphics3DTablePointand positions dependent of a parameter. p.s. useful search query animation + generative-art $\endgroup$tags within the site by searching, for instance, for "[plotting] animation". $\endgroup$