(* 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[     11170,        293]
NotebookOptionsPosition[     10820,        277]
NotebookOutlinePosition[     11181,        293]
CellTagsIndexPosition[     11138,        290]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "[", "n", "]"}], "=", 
    RowBox[{"Graphics3D", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Green", ",", "Thick", ",", 
        RowBox[{"Polygon", " ", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"-", ".5"}], ",", "10"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", 
             RowBox[{"-", ".5"}], ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", ".5", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", ".5", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", 
             RowBox[{"-", ".5"}], ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"-", ".5"}], ",", "10"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", 
             RowBox[{"-", ".5"}], ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", 
             RowBox[{"-", ".5"}], ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", ".5", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", ".5", ",", "10"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", ".5", ",", "2"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", ".5", ",", "10"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"-", ".5"}], ",", "10"}], "}"}]}], "}"}], "]"}], ",", 
        " ", "\[IndentingNewLine]", "Brown", ",", 
        RowBox[{"Cuboid", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".5"}], ",", 
            RowBox[{"-", ".25"}], ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.5", ",", ".25", ",", "2"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", "Red", ",", 
        RowBox[{"Specularity", "[", 
         RowBox[{"White", ",", "n"}], "]"}], ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".1"}], ",", ".5", ",", "8"}], "}"}], ",", ".15"}], 
         "]"}], ",", "\[IndentingNewLine]", "Blue", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".5", ",", ".5", ",", "7"}], "}"}], ",", ".15"}], "]"}], 
        ",", "\[IndentingNewLine]", "Green", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".5"}], ",", ".5", ",", "6"}], "}"}], ",", ".15"}], 
         "]"}], ",", "\[IndentingNewLine]", "Purple", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".5", ",", ".5", ",", "5.5"}], "}"}], ",", ".15"}], "]"}], 
        ",", "\[IndentingNewLine]", "Red", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".2"}], ",", ".5", ",", "4.5"}], "}"}], ",", ".15"}],
          "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".5", ",", ".5", ",", "3.5"}], "}"}], ",", ".15"}], "]"}], 
        ",", "\[IndentingNewLine]", "Green", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".7"}], ",", ".5", ",", "3"}], "}"}], ",", ".15"}], 
         "]"}], ",", "\[IndentingNewLine]", "Blue", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.4", ",", ".5", ",", "2.4"}], "}"}], ",", ".15"}], "]"}],
         ",", "\[IndentingNewLine]", "Purple", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1.5"}], ",", ".5", ",", "2.5"}], "}"}], ",", 
          ".15"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".1"}], ",", 
            RowBox[{"-", ".5"}], ",", "8"}], "}"}], ",", ".15"}], "]"}], ",", 
        "\[IndentingNewLine]", "Blue", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".5", ",", 
            RowBox[{"-", ".5"}], ",", "7"}], "}"}], ",", ".15"}], "]"}], ",", 
        "\[IndentingNewLine]", "Green", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".5"}], ",", 
            RowBox[{"-", ".5"}], ",", "6"}], "}"}], ",", ".15"}], "]"}], ",", 
        "\[IndentingNewLine]", "Purple", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".5", ",", 
            RowBox[{"-", ".5"}], ",", "5.5"}], "}"}], ",", ".15"}], "]"}], 
        ",", "\[IndentingNewLine]", "Red", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".2"}], ",", 
            RowBox[{"-", ".5"}], ",", "4.5"}], "}"}], ",", ".15"}], "]"}], 
        ",", "\[IndentingNewLine]", "Yellow", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{".5", ",", 
            RowBox[{"-", ".5"}], ",", "3.5"}], "}"}], ",", ".15"}], "]"}], 
        ",", "\[IndentingNewLine]", "Green", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".7"}], ",", 
            RowBox[{"-", ".5"}], ",", "3"}], "}"}], ",", ".15"}], "]"}], ",", 
        "\[IndentingNewLine]", "Blue", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.4", ",", 
            RowBox[{"-", ".5"}], ",", "2.4"}], "}"}], ",", ".15"}], "]"}], 
        ",", "\[IndentingNewLine]", "Purple", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1.5"}], ",", 
            RowBox[{"-", ".5"}], ",", "2.5"}], "}"}], ",", ".15"}], "]"}], 
        ",", "\[IndentingNewLine]", "Red", ",", 
        RowBox[{"Specularity", "[", 
         RowBox[{"Red", ",", "10"}], "]"}], ",", 
        RowBox[{"Opacity", "\[Rule]", ".95"}], ",", 
        RowBox[{"Cuboid", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "1", ",", "1"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", "Green", ",", 
        RowBox[{"Specularity", "[", 
         RowBox[{"Green", ",", "10"}], "]"}], ",", 
        RowBox[{"Cuboid", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "1", ",", "1"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\[FivePointedStar]", ",", "Yellow", ",", 
            RowBox[{"FontSize", "\[Rule]", "100"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "10"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<Merry Christmas!\>\"", ",", "Red", ",", "Bold", ",", "Thick", 
            ",", 
            RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Felix Titling\>\""}]}], 
           "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", 
            RowBox[{"-", ".5"}]}], "}"}]}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Axes", "\[Rule]", "False"}], ",", 
      RowBox[{"ViewPoint", "\[Rule]", "Front"}], ",", 
      RowBox[{"Lighting", "\[Rule]", "\"\<Neutral\>\""}], ",", 
      RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
      RowBox[{"Background", "\[Rule]", "LightBlue"}], ",", 
      RowBox[{"ImagePadding", "\[Rule]", "40"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "15"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.40700223225*^9, 3.407002252984375*^9}, {3.407002357*^9, 
  3.407002357203125*^9}, {3.407002392671875*^9, 3.407002392796875*^9}, {
  3.407002681359375*^9, 3.407002690109375*^9}, {3.40700276065625*^9, 
  3.40700281925*^9}, {3.407002888109375*^9, 3.40700288846875*^9}, {
  3.4070030611875*^9, 3.40700308871875*^9}, {3.4070152794397993`*^9, 
  3.4070152797796216`*^9}, {3.407023319049255*^9, 3.4070233350101476`*^9}, {
  3.407023435278144*^9, 3.407023510779171*^9}, {3.4070235560868177`*^9, 
  3.40702358154515*^9}, {3.4070236161171556`*^9, 3.4070236915888877`*^9}, {
  3.407023876388583*^9, 3.4070238824604597`*^9}}],

Cell[BoxData[
 RowBox[{"SetDirectory", "[", "\"\<C:\\\\\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.40700240840625*^9, 3.4070024225*^9}, {
  3.4070052466875*^9, 3.407005247953125*^9}, {3.407015249740528*^9, 
  3.4070152499739122`*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Lee.gif\>\"", ",", 
   RowBox[{"{", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"a", "[", "n", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "1", ",", "15"}], "}"}]}], "]"}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "300"}], ",", 
   RowBox[{"ImageResolution", " ", "\[Rule]", " ", "100"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.4070152932953577`*^9, 3.40701529453063*^9}, {
  3.40701553711569*^9, 3.407015557542117*^9}, {3.407015701445016*^9, 
  3.4070157115244493`*^9}, {3.407015962860902*^9, 3.407015962953669*^9}, {
  3.407016015739353*^9, 3.4070160171855497`*^9}, {3.4070160505466957`*^9, 
  3.4070160552378016`*^9}, {3.4070160978444495`*^9, 3.4070160983014517`*^9}, {
  3.4070236993481565`*^9, 3.4070236994926786`*^9}, {3.4070238921190214`*^9, 
  3.407023892389512*^9}}]
},
WindowSize->{751, 745},
WindowMargins->{{37, Automatic}, {0, Automatic}},
Magnification->1.25,
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, 9140, 228, 784, "Input"],
Cell[9711, 251, 236, 4, 35, "Input"],
Cell[9950, 257, 866, 18, 58, "Input"]
}
]
*)

(* End of internal cache information *)