ReshapeAndAnimate.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      1954,         68]
NotebookOptionsPosition[      1702,         54]
NotebookOutlinePosition[      2057,         70]
CellTagsIndexPosition[      2014,         67]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"im", "[", "name_", "]"}], ":=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"NotebookDirectory", "[", "]"}], "<>", "name"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rs", "[", "name_", "]"}], ":=", 
   RowBox[{"ImageCrop", "[", 
    RowBox[{
     RowBox[{"ImageResize", "[", 
      RowBox[{
       RowBox[{"im", "[", "name", "]"}], ",", "650"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"650", ",", "650"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"exp", "[", 
    RowBox[{"fname_", ",", "series_", ",", "dur_"}], "]"}], ":=", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", "fname"}], ",", "series",
      ",", "\"\<GIF\>\"", ",", 
     RowBox[{"\"\<DisplayDurations\>\"", "\[Rule]", "dur"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.672441495836927*^9, 3.672441529506831*^9}, {
  3.672442611150839*^9, 3.6724426116765337`*^9}, {3.672614916489294*^9, 
  3.6726149334886093`*^9}, {3.67261639884571*^9, 3.672616427700663*^9}}]
},
WindowSize->{808, 655},
WindowMargins->{{Automatic, 215}, {-90, Automatic}},
FrontEndVersion->"10.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 6, \
2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1140, 32, 80, "Input"]
}
]
*)

(* End of internal cache information *)