(* 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[      9431,        257]
NotebookOptionsPosition[      9139,        243]
NotebookOutlinePosition[      9481,        258]
CellTagsIndexPosition[      9438,        255]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Manipulate", " ", "[", 
   RowBox[{
    RowBox[{"Graphics", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", 
          RowBox[{"Disk", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Cos", "[", "n", "]"}], ",", " ", 
              RowBox[{"Sin", "[", "n", "]"}]}], "}"}], ",", " ", ".088"}], 
           "\[IndentingNewLine]", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Thickness", "[", ".024", "]"}], ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Cos", "[", "n", "]"}], ",", " ", 
               RowBox[{"Sin", "[", "n", "]"}]}], "}"}]}], "}"}], "]"}]}], 
         "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", 
          RowBox[{"Rotate", "[", " ", 
           RowBox[{
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{".77", ",", 
                RowBox[{"-", ".235"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", ".5"}], "}"}]}], "]"}], ",", " ", 
            RowBox[{"360", "Degree"}]}], "]"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"Gray", ",", " ", 
          RowBox[{"Disk", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1.95", ",", 
              RowBox[{"-", ".25"}]}], "}"}], ",", " ", ".5"}], "]"}]}], "}"}],
         ",", " ", 
        RowBox[{"{", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1.58", ",", 
             RowBox[{"-", ".15"}]}], "}"}], ",", " ", ".33", ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Pi", "/", "4"}], ",", " ", 
             RowBox[{"3", 
              RowBox[{"Pi", "/", "4"}]}]}], "}"}]}], "]"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2.35", ",", " ", 
             RowBox[{"-", ".15"}]}], "}"}], ",", " ", ".33", ",", " ", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Pi", "/", "4"}], ",", " ", 
             RowBox[{"3", 
              RowBox[{"Pi", "/", "4"}]}]}], "}"}]}], "]"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1.96", ",", " ", 
             RowBox[{"-", ".28"}]}], "}"}], ",", " ", ".09"}], "]"}], "}"}], 
        ",", " ", 
        RowBox[{"{", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1.78", ",", 
             RowBox[{"-", ".15"}]}], "}"}], ",", " ", ".07"}], "]"}], "}"}], 
        ",", " ", 
        RowBox[{"{", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2.15", ",", " ", 
             RowBox[{"-", ".15"}]}], "}"}], ",", " ", ".07"}], "]"}], "}"}], 
        ",", " ", 
        RowBox[{"{", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{".01", ",", 
             RowBox[{"-", ".7"}]}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{".15", ",", ".5"}], "}"}]}], "]"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{".35", ",", " ", 
             RowBox[{"-", ".7"}]}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{".15", ",", " ", ".5"}], "}"}]}], "]"}], "}"}], ",", " ", 
        
        RowBox[{"{", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{".94", ",", " ", 
             RowBox[{"-", ".7"}]}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{".15", ",", " ", ".5"}], "}"}]}], "]"}], "}"}], ",", " ", 
        
        RowBox[{"{", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1.28", ",", " ", 
             RowBox[{"-", ".7"}]}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{".15", ",", " ", ".5"}], "}"}]}], "]"}], "}"}], ",", " ", 
        
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", 
          RowBox[{"Thickness", " ", "[", ".0125", "]"}], ",", 
          RowBox[{"Rotate", "[", " ", 
           RowBox[{
            RowBox[{"Circle", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1.95", ",", 
                RowBox[{"-", ".65"}]}], "}"}], ",", ".25", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Pi", "/", "6"}], ",", 
                RowBox[{"3", 
                 RowBox[{"Pi", "/", "4"}]}]}], "}"}]}], "]"}], ",", " ", 
            RowBox[{"180", " ", "Degree"}]}], "]"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{".93", ",", " ", 
             RowBox[{"-", "1.1"}]}], "}"}], ",", " ", ".13"}], "]"}], "}"}], 
        ",", " ", 
        RowBox[{"{", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{".35", ",", " ", 
             RowBox[{"-", "1.1"}]}], "}"}], ",", " ", ".13"}], "]"}], "}"}], 
        ",", " ", 
        RowBox[{"{", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{".01", ",", " ", 
             RowBox[{"-", "1.1"}]}], "}"}], ",", " ", ".13"}], "]"}], "}"}], 
        ",", " ", 
        RowBox[{"{", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1.28", ",", " ", 
             RowBox[{"-", "1.1"}]}], "}"}], ",", " ", ".13"}], "]"}], "}"}]}],
        "}"}], ",", " ", 
      RowBox[{"PlotRange", " ", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "3"}], ",", " ", "3"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "3"}], ",", " ", "3"}], "}"}]}], "}"}]}]}], "]"}], 
    ",", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", " ", 
      RowBox[{"Pi", "/", "6"}], ",", " ", 
      RowBox[{"5", 
       RowBox[{"Pi", "/", "6"}]}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.408918296625*^9, 3.408918426328125*^9}, {
  3.408918458859375*^9, 3.40891849103125*^9}, {3.40891862396875*^9, 
  3.408918639234375*^9}, {3.4089186724375*^9, 3.408918775921875*^9}, {
  3.408918994890625*^9, 3.40891900884375*^9}, {3.408919734953125*^9, 
  3.408919749453125*^9}, {3.4089198461875*^9, 3.40891987671875*^9}, {
  3.408919922953125*^9, 3.4089201005*^9}, {3.408920210703125*^9, 
  3.4089202991875*^9}, {3.408920343796875*^9, 3.408920543828125*^9}, {
  3.408920618703125*^9, 3.408920895375*^9}, {3.408920939234375*^9, 
  3.40892117446875*^9}, {3.40892127240625*^9, 3.408921289453125*^9}, {
  3.408921392953125*^9, 3.4089214233125*^9}, {3.408921553734375*^9, 
  3.408921611703125*^9}, {3.408921874*^9, 3.408922102515625*^9}, {
  3.408922539609375*^9, 3.40892254775*^9}, {3.408922577875*^9, 
  3.40892265075*^9}, {3.4089227110625*^9, 3.40892273375*^9}, {
  3.408922778921875*^9, 3.408922836703125*^9}, {3.4089229599375*^9, 
  3.408923143421875*^9}, {3.408923198953125*^9, 3.40892324596875*^9}, {
  3.408923319109375*^9, 3.408923374359375*^9}, {3.40892341103125*^9, 
  3.408923600671875*^9}, {3.408923669703125*^9, 3.4089236815625*^9}, {
  3.4089237293125*^9, 3.40892398159375*^9}, {3.408924029984375*^9, 
  3.408924060640625*^9}, {3.4089241084375*^9, 3.408924119578125*^9}, {
  3.4089241594375*^9, 3.408924493421875*^9}, {3.408924545265625*^9, 
  3.408924664921875*^9}, {3.408924765484375*^9, 3.408924891203125*^9}, {
  3.4089249409375*^9, 3.40892497025*^9}, {3.408925008796875*^9, 
  3.408925067109375*^9}, {3.408925102671875*^9, 3.408925103328125*^9}, {
  3.408925155390625*^9, 3.4089252788125*^9}, {3.408925312640625*^9, 
  3.4089253135*^9}, {3.40892534790625*^9, 3.40892552828125*^9}, {
  3.40892556453125*^9, 3.40892570075*^9}, {3.4089741659297304`*^9, 
  3.408974166933609*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Robinson.swf\>\"", ",", " ", "%"}], "]"}]], "Input",
 CellChangeTimes->{
  3.408970110975875*^9, {3.408972537194625*^9, 3.40897259877275*^9}, {
   3.40897344558525*^9, 3.4089734767415*^9}}]
},
WindowSize->{615, 734},
WindowMargins->{{511, Automatic}, {Automatic, 13}},
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, 8321, 213, 332, "Input"],
Cell[8892, 236, 243, 5, 31, "Input"]
}
]
*)

(* End of internal cache information *)