(* 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[     12744,        327]
NotebookOptionsPosition[     12450,        313]
NotebookOutlinePosition[     12792,        328]
CellTagsIndexPosition[     12749,        325]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "n_", "]"}], ":=", 
   RowBox[{"Cos", "[", "n", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics3D", "[", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Green", ",", 
         RowBox[{"Cuboid", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", 
             RowBox[{"-", ".55"}], ",", 
             RowBox[{"-", "3"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2", ",", 
             RowBox[{"-", ".55"}], ",", "2"}], "}"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"White", ",", 
         RowBox[{"Cylinder", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", 
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{"-", "2"}], "n"}], "]"}], ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", 
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{"-", "2"}], "n"}], "]"}], ",", ".5"}], "}"}]}], 
            "}"}], ",", ".15"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"White", ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"f", "[", 
              RowBox[{
               RowBox[{"-", "2"}], "n"}], "]"}], ",", ".5"}], "}"}], ",", 
           ".35"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Cylinder", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", 
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{"-", "2"}], "n"}], "]"}], ",", ".1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", ".2", ",", 
               RowBox[{"-", ".85"}]}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", ".2", ",", 
             RowBox[{"-", ".85"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",",
        
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Cylinder", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{".25", ",", 
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{"-", "2"}], "n"}], "]"}], ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{".75", ",", 
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{"-", "2"}], "n"}], "]"}], ",", "0"}], "}"}]}], "}"}],
            ",", ".1"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Cylinder", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".25"}], ",", 
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{"-", "2"}], "n"}], "]"}], ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"n", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", ".1"}], 
          "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"White", ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{".78", ",", 
             RowBox[{"f", "[", 
              RowBox[{
               RowBox[{"-", "2"}], "n"}], "]"}], ",", "0"}], "}"}], ",", 
           ".1"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"White", ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"n", ",", "0", ",", "0"}], "}"}], ",", ".1"}], "]"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"White", ",", 
         RowBox[{"Cylinder", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"n", ",", "0", ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".2"}], ",", 
               RowBox[{"-", ".45"}], ",", 
               RowBox[{"-", ".15"}]}], "}"}]}], "}"}], ",", ".1"}], "]"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"White", ",", 
         RowBox[{"Cylinder", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{".78", ",", 
               RowBox[{"f", "[", 
                RowBox[{
                 RowBox[{"-", "2"}], "n"}], "]"}], ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{".2", ",", 
               RowBox[{
                RowBox[{"f", "[", 
                 RowBox[{
                  RowBox[{"-", "2"}], "n"}], "]"}], "+", ".2"}], ",", 
               RowBox[{"-", ".15"}]}], "}"}]}], "}"}], ",", ".1"}], "]"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"White", ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", ".19"}], ",", 
             RowBox[{"-", ".45"}], ",", 
             RowBox[{"-", ".15"}]}], "}"}], ",", ".1"}], "]"}]}], "}"}], ",", 
       
       RowBox[{"{", 
        RowBox[{"White", ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{".2", ",", 
             RowBox[{
              RowBox[{"f", "[", 
               RowBox[{
                RowBox[{"-", "2"}], "n"}], "]"}], "+", ".2"}], ",", 
             RowBox[{"-", ".15"}]}], "}"}], ",", ".1"}], "]"}]}], "}"}], ",", 
       
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{".15", ",", ".2", ",", 
             RowBox[{"-", ".7"}]}], "}"}], ",", ".17"}], "]"}]}], "}"}], ",", 
       
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", ".15"}], ",", ".2", ",", 
             RowBox[{"-", ".7"}]}], "}"}], ",", ".17"}], "]"}]}], "}"}], ",", 
       
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"Cylinder", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{".15", ",", ".2", ",", 
               RowBox[{"-", ".7"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{".12", ",", 
               RowBox[{"-", ".45"}], ",", 
               RowBox[{"-", "2"}]}], "}"}]}], "}"}], ",", ".17"}], "]"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"Cylinder", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".15"}], ",", ".2", ",", 
               RowBox[{"-", ".7"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".12"}], ",", 
               RowBox[{"-", ".45"}], ",", 
               RowBox[{"-", "2"}]}], "}"}]}], "}"}], ",", ".17"}], "]"}]}], 
        "}"}]}], "}"}], ",", 
     RowBox[{"ViewPoint", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"5", ",", "0", ",", "0"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", 
     RowBox[{"-", ".78"}], ",", 
     RowBox[{"-", ".5"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.408973385888383*^9, 3.408973543390232*^9}, {
  3.408973574624576*^9, 3.408973585862082*^9}, {3.4089736163171263`*^9, 
  3.408973778925864*^9}, {3.408973829486848*^9, 3.4089739120770617`*^9}, {
  3.408973963682308*^9, 3.408973974327546*^9}, {3.408974011126092*^9, 
  3.4089742130427217`*^9}, {3.4089742464902782`*^9, 3.40897432881553*^9}, {
  3.408974362278672*^9, 3.408974374201962*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Export", "[", 
   RowBox[{"\"\<beatty.swf\>\"", ",", "%"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.40871223255832*^9, 3.40871234306784*^9}, {
   3.4087123978448477`*^9, 3.4087123991919518`*^9}, {3.408712430535616*^9, 
   3.40871249023112*^9}, {3.4087125257883997`*^9, 3.40871261828432*^9}, {
   3.4087126585408*^9, 3.408712947823552*^9}, {3.408712987547456*^9, 
   3.408713032785088*^9}, {3.408713108630176*^9, 3.408713113564336*^9}, {
   3.408713148448064*^9, 3.40871315830072*^9}, {3.4087133844262238`*^9, 
   3.408713488074912*^9}, {3.4087135650008163`*^9, 3.408713601889536*^9}, {
   3.4087137173332157`*^9, 3.408713827137856*^9}, {3.4087138820245123`*^9, 
   3.408713963148368*^9}, {3.408714006803936*^9, 3.4087141537949123`*^9}, {
   3.4087141998470716`*^9, 3.408714414974496*^9}, {3.408714457063664*^9, 
   3.408714557469904*^9}, {3.4087146680107517`*^9, 3.4087147119326077`*^9}, {
   3.408714780055344*^9, 3.4087148873224163`*^9}, {3.408714924555744*^9, 
   3.408715111380272*^9}, {3.40871514798704*^9, 3.40871524753176*^9}, {
   3.408715808365616*^9, 3.408715822416224*^9}, {3.4087159654912*^9, 
   3.408716019015088*^9}, {3.408716072351008*^9, 3.4087160920719843`*^9}, {
   3.4087161590669117`*^9, 3.408716296408864*^9}, {3.408716329224944*^9, 
   3.4087164158468637`*^9}, {3.40888970505208*^9, 3.408889796388864*^9}, {
   3.408889835940464*^9, 3.408889837929792*^9}, {3.408889869242128*^9, 
   3.4088898865978403`*^9}, {3.408889982806128*^9, 3.4088899878186083`*^9}, {
   3.408890023548192*^9, 3.408890039102544*^9}, {3.40889008639216*^9, 
   3.408890126679968*^9}, {3.4088901622685757`*^9, 3.4088902528064957`*^9}, {
   3.4088902963994083`*^9, 3.4088903579276*^9}, {3.408890398841968*^9, 
   3.408890423544096*^9}, {3.408890479730864*^9, 3.408890492857296*^9}, {
   3.408890585243568*^9, 3.4088906628586884`*^9}, {3.408890721583024*^9, 
   3.4088907536942244`*^9}, {3.4088907913592*^9, 3.4088908889929123`*^9}, {
   3.408890920571536*^9, 3.4088909982806396`*^9}, {3.4088911239529123`*^9, 
   3.408891375187808*^9}, {3.408891422916016*^9, 3.408891483911632*^9}, {
   3.408891532955616*^9, 3.4088917000435038`*^9}, {3.408891743840048*^9, 
   3.408891817711472*^9}, {3.408891895718192*^9, 3.408891976513104*^9}, {
   3.408892036286928*^9, 3.40889208144624*^9}, {3.4088921176457443`*^9, 
   3.4088921234257603`*^9}, {3.408892192519664*^9, 3.408892356396432*^9}, {
   3.40889252152632*^9, 3.408892568220704*^9}, {3.408892620381824*^9, 
   3.408892887891616*^9}, {3.4088929253599043`*^9, 3.40889292918192*^9}, {
   3.408892966634544*^9, 3.408893258219904*^9}, {3.408893303958784*^9, 
   3.408893363481984*^9}, {3.40889340677728*^9, 3.4088935624461117`*^9}, {
   3.4088936230188*^9, 3.4088936558975363`*^9}, {3.408893696749248*^9, 
   3.4088937828072643`*^9}, {3.40889382923536*^9, 3.40889387152816*^9}, {
   3.4088939022765923`*^9, 3.408893928717424*^9}, {3.408893966953248*^9, 
   3.40889398853824*^9}, {3.4088940258342237`*^9, 3.408894047403552*^9}, {
   3.408969842750848*^9, 3.408969885889504*^9}, {3.4089699193948*^9, 
   3.408970032929576*^9}, {3.408971012692443*^9, 3.4089710709324713`*^9}, {
   3.4089711246241713`*^9, 3.408971145237834*^9}, {3.4089718034861803`*^9, 
   3.4089718910293713`*^9}, {3.40897193148907*^9, 3.408972060335201*^9}, {
   3.408972403675479*^9, 3.408972414102446*^9}, {3.4089724452274885`*^9, 
   3.408972492857999*^9}, {3.408972529531622*^9, 3.408972573592961*^9}, {
   3.408972651164343*^9, 3.4089726535334153`*^9}, 3.408972707164841*^9, {
   3.408972830029279*^9, 3.408972851989953*^9}, {3.408973010016407*^9, 
   3.408973021222741*^9}, {3.408973080449541*^9, 3.408973081322357*^9}, {
   3.408973156119571*^9, 3.4089731644580812`*^9}}]
},
WindowSize->{603, 750},
WindowMargins->{{Automatic, 473}, {Automatic, 75}},
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, 8140, 236, 412, "Input"],
Cell[8711, 259, 3735, 52, 52, "Input"]
}
]
*)

(* End of internal cache information *)