(* 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[     13611,        379]
NotebookOptionsPosition[     13320,        365]
NotebookOutlinePosition[     13659,        380]
CellTagsIndexPosition[     13616,        377]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Circle", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"a", "+", "3"}], ",", 
          RowBox[{"0", "+", 
           FractionBox["a", "2"]}]}], "}"}], ",", "1"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"a", "+", "3"}], ",", 
           RowBox[{
            RowBox[{"-", ".5"}], "+", 
            FractionBox["a", "2"]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"a", "+", "2.5"}], ",", 
           RowBox[{
            RowBox[{"-", ".8"}], "+", 
            RowBox[{"a", "/", "2"}]}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "10"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"10", ",", 
           RowBox[{"-", "10"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", 
           RowBox[{"-", "10"}]}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Disk", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"a", "+", "2.7"}], ",", 
          RowBox[{".3", "+", 
           FractionBox["a", "2"]}]}], "}"}], ",", ".1"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"3.6", "+", 
            FractionBox["a", "2"], "+", 
            FractionBox["a", "2"], "+", 
            FractionBox["a", "20"]}], ",", 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            FractionBox["a", "2"]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1.5", "+", 
            FractionBox["a", "1.5"]}], ",", 
           RowBox[{
            RowBox[{"-", "3"}], "+", 
            FractionBox["a", "2"]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            FractionBox["a", "2"]}]}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"4", "+", 
            FractionBox["a", "2"]}], ",", 
           RowBox[{"-", "7"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", 
           RowBox[{"-", "10"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"7.2", ",", 
           RowBox[{"-", "9.5"}]}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Thickness", "[", ".03", "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"a", "+", "3"}], ",", 
           RowBox[{
            RowBox[{"-", "1.1"}], "+", 
            FractionBox["a", "2"]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"4", "+", 
            FractionBox["a", "2"]}], ",", 
           RowBox[{"-", "7"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"a", "<", 
         RowBox[{"-", "2.75"}]}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Thickness", "[", ".001", "]"}], ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".9"}], ",", ".2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1.2"}], ",", "1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1.2"}], ",", ".2"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1.2"}], ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1.5"}], ",", 
               RowBox[{"-", ".7"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1"}], ",", 
               RowBox[{"-", ".1"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".5"}], ",", 
               RowBox[{"-", ".5"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".8"}], ",", 
               RowBox[{"-", ".0"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".5"}], ",", ".6"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", ".9"}], ",", ".2"}], "}"}]}], "}"}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Computer Lab\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "30"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"5", ",", "2"}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Mathematica\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "12"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"7.5", ",", 
          RowBox[{"-", "3.25"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Dell\>\"", ",", 
          RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"9", ",", 
          RowBox[{"-", "7"}]}], "}"}]}], "]"}], ",", "Brown", ",", 
      RowBox[{"Disk", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"a", "+", "3"}], ",", 
          RowBox[{".9", "+", 
           FractionBox["a", "2"]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", ".5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Disk", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"a", "+", "3.8"}], ",", 
          RowBox[{".1", "+", 
           FractionBox["a", "2"]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{".5", ",", "1"}], "}"}]}], "]"}], ",", "Black", ",", 
      RowBox[{"Disk", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"7.2", ",", 
          RowBox[{"-", "9.7"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{".15", ",", ".3"}], "}"}]}], "]"}], ",", 
      RowBox[{"Disk", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"9", ",", 
          RowBox[{"-", "8"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{".1", ",", ".1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"10", ",", 
           RowBox[{"-", "9.8"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"10", ",", 
           RowBox[{"-", "5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", 
           RowBox[{"-", "5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", 
           RowBox[{"-", "9.8"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Thickness", "[", ".001", "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"6", ",", 
           RowBox[{"-", "4.5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", 
           RowBox[{"-", "2"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"9", ",", 
           RowBox[{"-", "2"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"9", ",", 
           RowBox[{"-", "4.5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", 
           RowBox[{"-", "4.5"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"7.25", ",", 
           RowBox[{"-", "4.5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"7.75", ",", 
           RowBox[{"-", "4.5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"7.75", ",", 
           RowBox[{"-", "5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"7.25", ",", 
           RowBox[{"-", "5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"7.25", ",", 
           RowBox[{"-", "4.5"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"8.25", ",", 
           RowBox[{"-", "5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"8.25", ",", 
           RowBox[{"-", "8.5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"10", ",", 
           RowBox[{"-", "8.5"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", 
           RowBox[{"-", "8.5"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"Rectangle", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"8.5", ",", 
          RowBox[{"-", "5.5"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"9.5", ",", 
          RowBox[{"-", "5.75"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Rectangle", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"8.5", ",", 
          RowBox[{"-", "6"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"9.5", ",", 
          RowBox[{"-", "6.25"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
     "}"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", 
     RowBox[{"-", "3"}], ",", "0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.406024266467171*^9, 3.406024360471277*^9}, {
  3.4060244693099184`*^9, 3.406024498822835*^9}, {3.40602455711475*^9, 
  3.4060246437484345`*^9}, {3.406024692733631*^9, 3.406024723105389*^9}, {
  3.406024785285514*^9, 3.406024823964612*^9}, {3.4063717228618727`*^9, 
  3.406371846794426*^9}, {3.4063719021183925`*^9, 3.406371969759122*^9}, {
  3.406372015357685*^9, 3.4063720882279654`*^9}, {3.4063721370110903`*^9, 
  3.406372174804353*^9}, {3.406372206540703*^9, 3.4063723375292473`*^9}, {
  3.4063723994252768`*^9, 3.4063724461946344`*^9}, {3.4063724909190035`*^9, 
  3.406372602815784*^9}, {3.4063726822112956`*^9, 3.406372803521268*^9}, {
  3.4063728449986324`*^9, 3.406372907846908*^9}, {3.406373054258725*^9, 
  3.4063731495614386`*^9}, {3.4063732132058544`*^9, 3.4063732206989427`*^9}, {
  3.406373253059716*^9, 3.4063732621919174`*^9}, {3.40637330388783*^9, 
  3.4063733313156543`*^9}, {3.4063734239645653`*^9, 3.406373424229945*^9}, {
  3.4063735060294895`*^9, 3.4063736055782857`*^9}, {3.4063737150242023`*^9, 
  3.406373742935955*^9}, {3.4063738047383204`*^9, 3.406373873643509*^9}, {
  3.4063739684154615`*^9, 3.4063740415823436`*^9}, {3.406374107615182*^9, 
  3.4063742089279757`*^9}, {3.4063742972647495`*^9, 3.406374600250885*^9}, {
  3.4063746435703*^9, 3.406374828571521*^9}, {3.406374864694449*^9, 
  3.4063748879542427`*^9}, {3.406374918270028*^9, 3.4063749267153625`*^9}, {
  3.4063750193018312`*^9, 3.4063750496644487`*^9}, {3.4063751096091523`*^9, 
  3.406375126796423*^9}, {3.4063751718173933`*^9, 3.4063752107190084`*^9}, {
  3.4063752551311655`*^9, 3.406375266667399*^9}, {3.406375298794014*^9, 
  3.406375300042862*^9}, {3.4063753829819794`*^9, 3.4063753832473598`*^9}, {
  3.4063755165931053`*^9, 3.4063755728849287`*^9}, {3.4063756056827993`*^9, 
  3.4063757515950775`*^9}, {3.406375816784943*^9, 3.4063758385773406`*^9}, {
  3.406378860141694*^9, 3.406378872274222*^9}, {3.4063789508221483`*^9, 
  3.40637895740569*^9}, {3.406454097036337*^9, 3.406454097987022*^9}, {
  3.4064541482662086`*^9, 3.4064543681146374`*^9}, {3.406454560709094*^9, 
  3.406454585225715*^9}, {3.4064547840082836`*^9, 3.4064548502795305`*^9}, {
  3.4064548931407557`*^9, 3.406454929440317*^9}, {3.406455546209016*^9, 
  3.4064556775989957`*^9}, {3.4064557254791875`*^9, 3.4064557546717653`*^9}, {
  3.4064557969409976`*^9, 3.4064562574761257`*^9}, {3.406472461545946*^9, 
  3.4064726983530807`*^9}, {3.4064727367851233`*^9, 3.406472782152154*^9}, {
  3.406472848574622*^9, 3.406472868393346*^9}, {3.406473544969503*^9, 
  3.40647354723942*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<weber-swf.swf\>\"", ",", "%", ",", 
   RowBox[{"\"\<ControlAppearance\>\"", "\[Rule]", "None"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.406375958326253*^9, 3.406375968441922*^9}}]
},
WindowSize->{752, 773},
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, 12508, 335, 529, "Input"],
Cell[13079, 358, 237, 5, 31, "Input"]
}
]
*)

(* End of internal cache information *)