(* 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[      7271,        199]
NotebookOptionsPosition[      6942,        184]
NotebookOutlinePosition[      7282,        199]
CellTagsIndexPosition[      7239,        196]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Graphics3D", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"2.5", 
             RowBox[{"Cos", "[", "n", "]"}]}], ",", " ", 
            RowBox[{"2.5", 
             RowBox[{"Sin", "[", "n", "]"}]}], ",", " ", "0"}], "}"}], ",", 
          " ", ".5"}], "]"}], ",", " ", "White", ",", " ", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"2.5", 
              RowBox[{"Cos", "[", "n", "]"}]}], "+", 
             RowBox[{".7", 
              RowBox[{"Cos", "[", 
               RowBox[{"5", "n"}], "]"}]}]}], ",", 
            RowBox[{
             RowBox[{"2.5", 
              RowBox[{"Sin", "[", "n", "]"}]}], " ", "+", " ", 
             RowBox[{".7", 
              RowBox[{"Sin", "[", 
               RowBox[{"5", "n"}], "]"}]}]}], ",", " ", "0"}], "}"}], ",", 
          " ", ".1"}], "]"}], ",", " ", "Yellow", ",", " ", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", 
          "1"}], "]"}]}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "3"}], ",", "4"}], "\[IndentingNewLine]", "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "3"}], ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", "0", ",", 
      RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}], "  ", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4068910490280094`*^9, 3.4068910550895243`*^9}, {
   3.406891090601586*^9, 3.406891121641527*^9}, {3.406891160051897*^9, 
   3.4068912437911773`*^9}, {3.406891292143054*^9, 3.4068913410928936`*^9}, {
   3.406891430627967*^9, 3.4068914724362507`*^9}, {3.406891571471588*^9, 
   3.4068916445103464`*^9}, {3.4068919241699038`*^9, 
   3.4068919258613453`*^9}, {3.4068919714049873`*^9, 3.406891978562293*^9}, {
   3.4068924328223033`*^9, 3.406892565501689*^9}, {3.406892823892099*^9, 
   3.4068928955137987`*^9}, {3.4068929456114745`*^9, 3.406893080300995*^9}, {
   3.4068931301307106`*^9, 3.4068931309278607`*^9}, {3.406893236136083*^9, 
   3.4068932646303024`*^9}, {3.4068933588658614`*^9, 
   3.4068933620387716`*^9}, {3.406893445362835*^9, 3.406893509274314*^9}, {
   3.4068935428633986`*^9, 3.4068935878624563`*^9}, {3.4068936318924484`*^9, 
   3.4068936680917597`*^9}, {3.4068937158729753`*^9, 3.406893719858651*^9}, {
   3.4068937655766935`*^9, 3.406893834239355*^9}, {3.406908642255804*^9, 
   3.406908651950296*^9}, {3.40690908023799*^9, 3.40690909301851*^9}, {
   3.4069091438444557`*^9, 3.40690915731076*^9}, {3.406909215041304*^9, 
   3.406909311347198*^9}, {3.4069093646357317`*^9, 3.4069094058918743`*^9}, {
   3.406909466022662*^9, 3.406909470791978*^9}, {3.40690950191722*^9, 
   3.40690958686092*^9}, {3.406909677212962*^9, 3.406909701386848*^9}, {
   3.406909796695238*^9, 3.406909803132256*^9}, {3.4069099462740803`*^9, 
   3.406909946726074*^9}, {3.406910991972454*^9, 3.406910997536656*^9}, {
   3.406911169169688*^9, 3.4069111915979424`*^9}, {3.40691141078386*^9, 
   3.4069114709614058`*^9}, 3.406994437618354*^9, {3.406996879219595*^9, 
   3.406996884066042*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "[", "n", "]"}], " ", "=", " ", 
     RowBox[{"Graphics3D", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"2.5", 
              RowBox[{"Cos", "[", 
               RowBox[{"n", "*", ".1"}], "]"}]}], ",", " ", 
             RowBox[{"2.5", 
              RowBox[{"Sin", "[", 
               RowBox[{"n", "*", ".1"}], "]"}]}], ",", " ", "0"}], "}"}], ",",
            " ", ".5"}], "]"}], ",", " ", "White", ",", " ", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"2.5", 
               RowBox[{"Cos", "[", 
                RowBox[{"n", "*", ".1"}], "]"}]}], "+", 
              RowBox[{".7", 
               RowBox[{"Cos", "[", 
                RowBox[{"5", "n", "*", ".1"}], "]"}]}]}], ",", 
             RowBox[{
              RowBox[{"2.5", 
               RowBox[{"Sin", "[", 
                RowBox[{"n", "*", ".1"}], "]"}]}], " ", "+", " ", 
              RowBox[{".7", 
               RowBox[{"Sin", "[", 
                RowBox[{"5", 
                 RowBox[{"(", 
                  RowBox[{"n", "*", "1"}], ")"}]}], "]"}]}]}], ",", " ", 
             "0"}], "}"}], ",", " ", ".1"}], "]"}], ",", " ", "Yellow", ",", 
         " ", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", 
           "1"}], "]"}]}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "4"}], "\[IndentingNewLine]", "}"}], ",",
           
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", "4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}]}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", "0", ",", "63"}], "}"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.4069956735625877`*^9, 3.4069958193023267`*^9}, {
  3.406996118190707*^9, 3.406996153853555*^9}, {3.406996204860813*^9, 
  3.4069962116023426`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<Shade.gif\>\"", ",", " ", 
    RowBox[{"{", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"a", "[", "n", "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"n", ",", " ", "0", ",", " ", "63"}], "}"}]}], "]"}], "}"}]}],
    "]"}]}]], "Input",
 CellChangeTimes->{{3.4069965484054937`*^9, 3.406996607430639*^9}}]
},
WindowSize->{1672, 950},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
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, 3601, 80, 72, "Input"],
Cell[4172, 103, 2371, 66, 52, "Input"],
Cell[6546, 171, 392, 11, 31, "Input"]
}
]
*)

(* End of internal cache information *)