(* 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[      9054,        257]
NotebookOptionsPosition[      8765,        243]
NotebookOutlinePosition[      9104,        258]
CellTagsIndexPosition[      9061,        255]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Circle", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", "10"}], "]"}], ",", 
      RowBox[{"Polygon", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "3"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"10", 
            RowBox[{"Cos", "[", "x", "]"}]}], ",", 
           RowBox[{"10", 
            RowBox[{"Sin", "[", "x", "]"}]}]}], "}"}]}], "}"}], "]"}], " ", 
      ",", " ", 
      RowBox[{"{", 
       RowBox[{"Yellow", ",", 
        RowBox[{"Disk", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "13"}], 
             RowBox[{"Cos", "[", "x", "]"}]}], ",", 
            RowBox[{
             RowBox[{"-", "13"}], 
             RowBox[{"Sin", "[", "x", "]"}]}]}], "}"}], ",", "2"}], "]"}]}], 
       "}"}], ",", " ", 
      RowBox[{"Circle", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"15", ",", "15"}], "}"}], ",", ".01"}], "]"}], ",", 
      RowBox[{"Circle", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"15", ",", 
          RowBox[{"-", "15"}]}], "}"}], ",", ".01"}], "]"}], ",", 
      RowBox[{"Circle", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", ".01"}], "]"}], ",", 
      RowBox[{"Circle", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "15"}], ",", 
          RowBox[{"-", "15"}]}], "}"}], ",", ".01"}], "]"}], ",", " ", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<XII\>\"", ",", " ", 
        RowBox[{"{", 
         RowBox[{"0", ",", "9"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<III\>\"", ",", " ", 
        RowBox[{"{", 
         RowBox[{"9", ",", "0"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<VI\>\"", ",", " ", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "9"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<IX\>\"", ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "9"}], ",", "0"}], "}"}]}], "]"}], ",", " ", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<I\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"9", 
           RowBox[{"Cos", "[", 
            RowBox[{"\[Pi]", "/", "3"}], "]"}]}], ",", 
          RowBox[{"9", 
           RowBox[{"Sin", "[", 
            RowBox[{"\[Pi]", "/", "3"}], "]"}]}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<II\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"9", 
           RowBox[{"Cos", "[", 
            RowBox[{"\[Pi]", "/", "6"}], "]"}]}], ",", 
          RowBox[{"9", 
           RowBox[{"Sin", "[", 
            RowBox[{"\[Pi]", "/", "6"}], "]"}]}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<IV\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"9", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "6"}], "]"}]}], ",", 
          RowBox[{"9", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "6"}], "]"}]}]}], "}"}]}], "]"}], 
      ",", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<V\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"9", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "3"}], "]"}]}], ",", 
          RowBox[{"9", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "3"}], "]"}]}]}], "}"}]}], "]"}], 
      ",", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<VII\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "9"}], 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "3"}], "]"}]}], ",", 
          RowBox[{"9", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "3"}], "]"}]}]}], "}"}]}], "]"}], 
      ",", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<VII\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "9"}], 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "6"}], "]"}]}], ",", 
          RowBox[{"9", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"-", "\[Pi]"}], "/", "6"}], "]"}]}]}], "}"}]}], "]"}], 
      ",", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<X\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "9"}], 
           RowBox[{"Cos", "[", 
            RowBox[{"\[Pi]", "/", "6"}], "]"}]}], ",", 
          RowBox[{"9", 
           RowBox[{"Sin", "[", 
            RowBox[{"\[Pi]", "/", "6"}], "]"}]}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{"\"\<XI\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "9"}], 
           RowBox[{"Cos", "[", 
            RowBox[{"\[Pi]", "/", "3"}], "]"}]}], ",", 
          RowBox[{"9", 
           RowBox[{"Sin", "[", 
            RowBox[{"\[Pi]", "/", "3"}], "]"}]}]}], "}"}]}], "]"}], ",", " ", 
      
      RowBox[{"Text", "[", 
       RowBox[{"\"\<Sun\>\"", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "13"}], 
           RowBox[{"Cos", "[", "x", "]"}]}], ",", 
          RowBox[{
           RowBox[{"-", "13"}], 
           RowBox[{"Sin", "[", "x", "]"}]}]}], "}"}]}], "]"}]}], "}"}], "]"}],
    ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"2", "\[Pi]"}], ",", "0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.40602103162908*^9, 3.40602105404901*^9}, {
   3.406021092414082*^9, 3.4060214160598955`*^9}, {3.4060214808233824`*^9, 
   3.4060217038760505`*^9}, {3.4060217462040052`*^9, 
   3.4060218010446835`*^9}, {3.4060218717524943`*^9, 
   3.4060221605124598`*^9}, {3.4060222046502347`*^9, 3.406022392278684*^9}, {
   3.4060224829725285`*^9, 3.406022557393592*^9}, {3.406022603684429*^9, 
   3.406022630223261*^9}, {3.4060226718491306`*^9, 3.406022683254119*^9}, {
   3.406022729732179*^9, 3.4060227427129602`*^9}, {3.406022792280196*^9, 
   3.4060228340620847`*^9}, {3.4060228722087297`*^9, 3.40602299415318*^9}, {
   3.4060230635972376`*^9, 3.4060231301705446`*^9}, {3.4060232110976*^9, 
   3.4060233759316735`*^9}, {3.406023428556882*^9, 3.4060236582168503`*^9}, 
   3.40602369573942*^9, {3.4060238653320727`*^9, 3.4060238917928953`*^9}, 
   3.406023956088325*^9, {3.4060239926279745`*^9, 3.406024148568965*^9}, {
   3.4060242515259037`*^9, 3.4060243854994187`*^9}, {3.406024428669876*^9, 
   3.406024618779028*^9}, {3.4065400066316442`*^9, 3.406540020175918*^9}, {
   3.406540098364028*^9, 3.4065401072373238`*^9}, {3.406540150682106*^9, 
   3.406540413256682*^9}, {3.40654055008978*^9, 3.406540581849306*^9}, {
   3.4065406151085443`*^9, 3.406540660506076*^9}, {3.406540727461968*^9, 
   3.406540775655838*^9}, {3.406540851235074*^9, 3.4065408681380777`*^9}, {
   3.406670704625*^9, 3.406670959296875*^9}, {3.40667099946875*^9, 
   3.406671271265625*^9}, {3.406672285609375*^9, 3.406672297703125*^9}, {
   3.4067123380625*^9, 3.406712453*^9}, {3.4067124939375*^9, 
   3.406712521953125*^9}, {3.406712552953125*^9, 3.4067126528125*^9}, {
   3.4067127338125*^9, 3.406712847625*^9}, {3.40671292109375*^9, 
   3.40671292590625*^9}, {3.406713032609375*^9, 3.4067131101875*^9}, {
   3.40671314053125*^9, 3.40671328975*^9}, {3.406713323765625*^9, 
   3.4067133730625*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Spence.swf\>\"", ",", " ", "%"}], "]"}]], "Input",
 CellChangeTimes->{{3.406672616859375*^9, 3.406672639125*^9}, {
  3.406672669546875*^9, 3.4066726969375*^9}, {3.40667273859375*^9, 
  3.40667275440625*^9}}]
},
WindowSize->{980, 957},
WindowMargins->{{2, Automatic}, {Automatic, 1}},
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, 7929, 213, 152, "Input"],
Cell[8500, 236, 261, 5, 31, "Input"]
}
]
*)

(* End of internal cache information *)