For Mr. Gif in exchange for some stereoscopic magic.

To see Mathematica code:

MrGifsHat1 := ImageResize[Import["MrGifsHattrans.gif"], 75]dim := MrGifsHat1 // ImageDimensionsd := dim[[1]]Pt := Table[{W*d, L*d}, {W, {1/4, 3/4}}, {L, {1/4, 3/4}}]Hat3D := Table[  ImageCrop[   ImagePerspectiveTransformation[MrGifsHat1,    FindGeometricTransform[      {Pt[[1, 1]], Pt[[1, 2]], Pt[[2, 1]], Pt[[2, 2]]},      {Pt[[1, 1]] + {s, s}, Pt[[1, 2]] + {s, -s},        Pt[[2, 1]] + {-s, -s}, Pt[[2, 2]] + {-s, s}},      "Transformation" -> "Perspective"][[2]],    DataRange -> Full, PlotRange -> All],   {70, 70}],  {s, -1.5, .5, 2/3}]RasterData[img_, z_] :=  ImageData[  Rasterize[   ImageResize[ColorConvert[img, "GrayLevel"], z],  RasterSize -> 64],"Byte"]RasterTable := Table[RasterData[Hat3D[[i]], 75], {i, 4}]waves[x_, y_, w_, a_, t_] :=  Sin[w ((Cos[a] + Sin[a]) x + (Sin[a] - Cos[a]) y) + t*2 Pi]B[IS_, CB_, X1_, X2_, Y1_, Y2_, NB_, wB_, aB_, t_] := Graphics[  Table[   Disk[    {x - 2 + .5 Abs[Mod[t - 1, 6] - 3], -y},    aB*(1 + Sum[waves[x, y, wB, a*2 Pi/NB, t/24], {a, 0, NB - 1, 1}]/(2 NB))],   {x, -20, CB + 10, 1}, {y, -20, CB, 1}],  PlotRange -> {{X1, X2}, {Y1, Y2}}, ImageSize -> IS]G[ImgData_, IS_, R_, C_, X1_, X2_, Y1_, Y2_, N_, w_, A_, t_] :=  Graphics[  Table[   Disk[     {x, -y},     .4 (1 - Part[ImgData, y + 1, x + 1, 1]/255)*     A (1 + Sum[waves[x, y, w, a*2 Pi/N, t], {a, 0, N - 1, 1}]/(2 N))],  {x, 0, R, 1}, {y, 0, C, 1}], PlotRange -> {{X1, X2}, {Y1, Y2}},  ImageSize -> IS]T[t_] :=Table[Show[  B[480, 100, -5, 75, 5, -75, 5, 1.7, .4, t],  G[RasterTable[[4 - Abs[Mod[t - 1, 6] - 3]]],     500, 69, 69, -5, 75, 5, -75, 5, 1.4, 1.6, t/24]  ], {t, 1, 24, 1}]ListAnimate[ T[t],AnimationRunning-> False]MrGifsHat2 := ImageResize[Import["MrGifsHat.gif"], 80]MrGifRaster2 := RasterData[MrGifsHat2, 80]ListAnimate[Table[ G[MrGifRaster2, 490, 75, 70, 5, 75, 0, -70, 5, 1.4, 1.6, t], {t, 0, .95, .05}],AnimationRunning->False]

1. clazzjassicalrockhop reblogged this from intothecontinuum
2. drake-crying reblogged this from mrgif
3. unikus reblogged this from mrgif
4. kubesan reblogged this from txhxt
5. txhxt reblogged this from mrgif
6. ronenreblogs reblogged this from mrgif and added:
kewl
7. sylviend reblogged this from mrgif
8. muffinmook reblogged this from morecashforads
9. morecashforads reblogged this from mrgif
10. rebl0gado reblogged this from mrgif
11. art-aspiro reblogged this from mrgif
12. triplesixgod reblogged this from mrgif
13. desero-boy reblogged this from mrgif
14. total-carnage reblogged this from mrgif
15. criminaltattoo reblogged this from ichbineinninja