Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Clear[trueImg];
- rot[t_] := 8 Pi (0.5 + 0.5 Tanh[6 (t - 0.5)]);
- trueImg[t_][x_, y_] := Module[{xt, yt, f},
- {xt, yt} = RotationMatrix[rot[t]].{x, y};
- yt = -yt;
- f = 0.5 + 0.5 Tanh[8 Sin[5 xt] Cos[5 yt]];
- (*List@@(ColorData["RedBlueTones"][f])*);
- {f, f, f}
- ]
- \[Alpha] = 0.01;
- res = 100;
- photograph[img_, t_] := Module[{dims, \[Tau]},
- Rasterize[Image[Table[
- img[t + \[Alpha] (x + 2 y )][x, y]
- , {y, -1, 1, 2/res}, {x, -1, 1, 2/res}]], ImageSize -> 300]
- ];
- Manipulate[
- photograph[trueImg, t],
- {{t, 0}, 0, 1}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement