(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     19101,        523]
NotebookOptionsPosition[     18725,        507]
NotebookOutlinePosition[     19066,        522]
CellTagsIndexPosition[     19023,        519]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"snowman", "[", "x", "]"}], "=", "\[IndentingNewLine]", 
    RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Glow", "[", "Gray", "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "1", ",", 
              RowBox[{"3", "-", 
               RowBox[{"(", 
                RowBox[{"x", "/", "100"}], ")"}]}]}], "}"}], ",", "3"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Glow", "[", "Gray", "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "1", ",", 
              RowBox[{"7.5", "-", 
               RowBox[{"(", 
                RowBox[{"x", "/", "100"}], ")"}], "-", 
               RowBox[{".1", " ", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "^", "2"}]}]}]}], "}"}], 
            ",", "2.5"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Glow", "[", "Gray", "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "1", ",", 
              RowBox[{"11", "-", 
               RowBox[{"(", 
                RowBox[{"x", "/", "100"}], ")"}], "-", 
               RowBox[{".1", " ", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "^", "2"}]}], "-", 
               RowBox[{".01", " ", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "^", "3"}]}]}]}], "}"}], 
            ",", "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Orange", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "2.9", ",", 
                RowBox[{"11", "-", 
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "-", 
                 RowBox[{".1", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x", "/", "100"}], ")"}], "^", "2"}]}], "-", 
                 RowBox[{".01", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x", "/", "100"}], ")"}], "^", "3"}]}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "3.6", ",", 
                RowBox[{"11", "-", 
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "-", 
                 RowBox[{".1", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x", "/", "100"}], ")"}], "^", "2"}]}], "-", 
                 RowBox[{".01", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x", "/", "100"}], ")"}], "^", "3"}]}]}]}], 
               "}"}]}], "}"}], ",", ".1"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{".7", ",", "2.9", ",", 
              RowBox[{"11.5", "-", 
               RowBox[{"(", 
                RowBox[{"x", "/", "100"}], ")"}], "-", 
               RowBox[{".1", " ", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "^", "2"}]}], "-", 
               RowBox[{".01", " ", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "^", "3"}]}]}]}], "}"}], 
            ",", ".1"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1.3", ",", "2.9", ",", 
              RowBox[{"11.5", "-", 
               RowBox[{"(", 
                RowBox[{"x", "/", "100"}], ")"}], "-", 
               RowBox[{".1", " ", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "^", "2"}]}], "-", 
               RowBox[{".01", " ", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "^", "3"}]}]}]}], "}"}], 
            ",", ".1"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", 
              RowBox[{"3.4", "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"x", "/", "100"}], ")"}], "/", "120"}]}], ",", 
              RowBox[{"8.4", "-", 
               RowBox[{"(", 
                RowBox[{"x", "/", "100"}], ")"}], "-", 
               RowBox[{".1", " ", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "^", "2"}]}], "-", 
               RowBox[{".01", " ", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "^", "3"}]}]}]}], "}"}], 
            ",", ".1"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "3.5", ",", 
              RowBox[{"8", "-", 
               RowBox[{"(", 
                RowBox[{"x", "/", "100"}], ")"}], "-", 
               RowBox[{".1", " ", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "^", "2"}]}], "-", 
               RowBox[{".01", " ", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "^", "3"}]}]}]}], "}"}], 
            ",", ".1"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "3.56", ",", 
              RowBox[{"7.6", "-", 
               RowBox[{"(", 
                RowBox[{"x", "/", "100"}], ")"}], "-", 
               RowBox[{".1", " ", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "^", "2"}]}], "-", 
               RowBox[{".01", " ", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "^", "3"}]}]}]}], "}"}], 
            ",", ".1"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "1", ",", 
                RowBox[{"12.8", "-", 
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "-", 
                 RowBox[{".1", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x", "/", "100"}], ")"}], "^", "2"}]}], "-", 
                 RowBox[{".01", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x", "/", "100"}], ")"}], "^", "3"}]}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "1", ",", 
                RowBox[{"12.6", "-", 
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "-", 
                 RowBox[{".1", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x", "/", "100"}], ")"}], "^", "2"}]}], "-", 
                 RowBox[{".01", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x", "/", "100"}], ")"}], "^", "3"}]}]}]}], 
               "}"}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "1", ",", 
                RowBox[{"12.8", "-", 
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "-", 
                 RowBox[{".1", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x", "/", "100"}], ")"}], "^", "2"}]}], "-", 
                 RowBox[{".01", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x", "/", "100"}], ")"}], "^", "3"}]}]}]}], "}"}],
               ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "1", ",", 
                RowBox[{"14", "-", 
                 RowBox[{"(", 
                  RowBox[{"x", "/", "100"}], ")"}], "-", 
                 RowBox[{".1", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x", "/", "100"}], ")"}], "^", "2"}]}], "-", 
                 RowBox[{".01", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"x", "/", "100"}], ")"}], "^", "3"}]}]}]}], 
               "}"}]}], "}"}], ",", "1.25"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Green", ",", 
          RowBox[{"Polygon", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "3"}], ",", 
               RowBox[{"-", "3"}], ",", ".3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"5", ",", 
               RowBox[{"-", "3"}], ",", ".3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"5", ",", "5", ",", ".3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "3"}], ",", "5", ",", ".3"}], "}"}]}], "}"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Cyan", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "1", ",", ".3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "1", ",", ".35"}], "}"}]}], "}"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x", "/", "100"}], ")"}], "/", "1.5"}]}], "]"}]}], 
         "}"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"PlotRange", " ", "->", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "3"}], ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "3"}], ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{".3", ",", "14"}], "}"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ViewPoint", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"0", ",", "2", ",", "1"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Boxed", " ", "\[Rule]", " ", "False"}]}], 
     "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "623"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.409491477641637*^9, 3.409491530453799*^9}, {
  3.409492340446105*^9, 3.409492344432316*^9}}],

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"snowman", "[", "x", "]"}], "=", "\[IndentingNewLine]", 
    RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Glow", "[", "Gray", "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "1", ",", 
              RowBox[{"-", "10"}]}], "}"}], ",", "3"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Glow", "[", "Gray", "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "1", ",", 
              RowBox[{"-", "10"}]}], "}"}], ",", "2.5"}], "]"}]}], "}"}], ",",
         
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Glow", "[", "Gray", "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "1", ",", 
              RowBox[{"-", "10"}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Orange", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "2.9", ",", ".3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "3.6", ",", ".3"}], "}"}]}], "}"}], ",", 
            ".1"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{".7", ",", "2.9", ",", ".3"}], "}"}], ",", ".1"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1.3", ",", "2.9", ",", 
              RowBox[{"-", "3"}]}], "}"}], ",", ".1"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "3.4", ",", ".3"}], "}"}], ",", ".1"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "3.5", ",", ".3"}], "}"}], ",", ".1"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "3.56", ",", ".3"}], "}"}], ",", ".1"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "1", ",", ".3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "1", ",", ".5"}], "}"}]}], "}"}], ",", "2"}],
            "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "1", ",", ".3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "1", ",", "1.5"}], "}"}]}], "}"}], ",", 
            "1.25"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Green", ",", 
          RowBox[{"Polygon", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "3"}], ",", 
               RowBox[{"-", "3"}], ",", ".3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"5", ",", 
               RowBox[{"-", "3"}], ",", ".3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"5", ",", "5", ",", ".3"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "3"}], ",", "5", ",", ".3"}], "}"}]}], "}"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Cyan", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "1", ",", ".3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "1", ",", ".35"}], "}"}]}], "}"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"x", "/", "100"}], ")"}], "/", "1.5"}]}], "]"}]}], 
         "}"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"PlotRange", " ", "->", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"5", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{".3", ",", "14"}], "}"}]}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ViewPoint", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"0", ",", "2", ",", "1"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Boxed", " ", "\[Rule]", " ", "False"}]}], 
     "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"x", ",", "623", ",", "1000"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.40941203789165*^9, 3.4094120484403477`*^9}, {
   3.409491542203724*^9, 3.409491551922412*^9}, {3.409492179655065*^9, 
   3.409492215834455*^9}, 3.409492270679596*^9}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{"snowman", "[", "n", "]"}], "]"}], "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "0", ",", "1000", ",", "1"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Morrison.gif\>\"", ",", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"snowman", "[", "n", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"n", ",", "0", ",", "1000", ",", "20"}], "}"}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.409411593096053*^9, 3.409411607770463*^9}, {
  3.4094119219341164`*^9, 3.4094119234968863`*^9}, {3.4094119692860475`*^9, 
  3.409412030452865*^9}, {3.4094918318893695`*^9, 3.409491832264367*^9}, {
  3.4094919554979534`*^9, 3.4094919557792015`*^9}, {3.409492365316935*^9, 
  3.409492365739004*^9}}]
},
WindowSize->{624, 606},
WindowMargins->{{78, Automatic}, {Automatic, 22}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 11545, 303, 652, "Input"],
Cell[12116, 326, 5721, 156, 432, "Input"],
Cell[17840, 484, 272, 6, 72, "Input"],
Cell[18115, 492, 606, 13, 31, "Input"]
}
]
*)

(* End of internal cache information *)