Cell[CellGroupData[{Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "/", "2"}], ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], ",", "0"}], 
         "}"}]}], ",", 
       RowBox[{"c", "=", 
        RowBox[{"{", 
         RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ",", 
       RowBox[{"d", "=", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], "-", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "/", "12"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", "6", "]"}], "/", "3"}]}], "}"}]}], 
       ",", 
       RowBox[{"e", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "/", "2"}], ",", 
          RowBox[{"-", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "/", "12"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", "6", "]"}], "/", "3"}]}], "}"}]}], 
       ",", 
       RowBox[{"f", "=", 
        RowBox[{"{", 
         RowBox[{"1", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], "-", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "/", "12"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"Sqrt", "[", "6", "]"}], "/", "3"}]}], "}"}]}], 
       ",", 
       RowBox[{"k", "=", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", 
          RowBox[{"2", 
           RowBox[{
            RowBox[{"Sqrt", "[", "6", "]"}], "/", "3"}]}]}], 
         "}"}]}]}], "}"}], ",", 
     RowBox[{"Graphics3D", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Polygon", "/@", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"d", ",", "e", ",", "f"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"a", ",", "b", ",", "d"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"b", ",", "c", ",", "f"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"a", ",", "c", ",", "e"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"e", ",", "d", ",", "a"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"d", ",", "f", ",", "b"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"e", ",", "f", ",", "c"}], "}"}]}], "}"}]}], ",", 
         RowBox[{"Polygon", "/@", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"a", "+", "k"}], ",", 
              RowBox[{"b", "+", "k"}], ",", 
              RowBox[{"c", "+", "k"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"d", ",", "e", ",", "f"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"a", "+", "k"}], ",", 
              RowBox[{"b", "+", "k"}], ",", "d"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"b", "+", "k"}], ",", 
              RowBox[{"c", "+", "k"}], ",", "f"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"a", "+", "k"}], ",", 
              RowBox[{"c", "+", "k"}], ",", "e"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"e", ",", "d", ",", 
              RowBox[{"a", "+", "k"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"d", ",", "f", ",", 
              RowBox[{"b", "+", "k"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"e", ",", "f", ",", 
              RowBox[{"c", "+", "k"}]}], "}"}]}], "}"}]}], ",", 
         RowBox[{"Polygon", "/@", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"a", "+", "k"}], ",", 
              RowBox[{"b", "+", "k"}], ",", 
              RowBox[{"c", "+", "k"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"d", "+", "k"}], ",", 
              RowBox[{"e", "+", "k"}], ",", 
              RowBox[{"f", "+", "k"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"a", "+", "k"}], ",", 
              RowBox[{"b", "+", "k"}], ",", 
              RowBox[{"d", "+", "k"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"b", "+", "k"}], ",", 
              RowBox[{"c", "+", "k"}], ",", 
              RowBox[{"f", "+", "k"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"a", "+", "k"}], ",", 
              RowBox[{"c", "+", "k"}], ",", 
              RowBox[{"e", "+", "k"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"e", "+", "k"}], ",", 
              RowBox[{"d", "+", "k"}], ",", 
              RowBox[{"a", "+", "k"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"d", "+", "k"}], ",", 
              RowBox[{"f", "+", "k"}], ",", 
              RowBox[{"b", "+", "k"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"e", "+", "k"}], ",", 
              RowBox[{"f", "+", "k"}], ",", 
              RowBox[{"c", "+", "k"}]}], "}"}]}], "}"}]}], ",", 
         "
", 
         RowBox[{"Cuboid", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", ".2"}], ",", 
              RowBox[{"-", ".2"}], ",", 
              RowBox[{"-", "1.7"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1.2", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], " ", "+",
                ".2"}], ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{".5", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], "+", 
              "dist"}], ",", 
             RowBox[{"-", ".3"}]}], "}"}], ",", ".2"}], "]"}], ",", 
         RowBox[{"Cuboid", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{".25", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], "+", 
               "dist", " ", "+", ".1"}], ",", 
              RowBox[{"-", "1.0"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{".75", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], "+", 
               "dist", " ", "-", ".1"}], ",", 
              RowBox[{"-", ".5"}]}], "}"}]}], "}"}], "]"}], ",", 
         "
", 
         RowBox[{"Cuboid", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{".15", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], "+", 
               "dist", "+", ".1"}], ",", 
              RowBox[{"-", "1.1"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{".24", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], "+", 
               "dist", " ", "-", ".1"}], ",", 
              RowBox[{"-", ".5"}]}], "}"}]}], "}"}], "]"}], ",", 
         "
", 
         RowBox[{"Cuboid", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{".76", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], "+", 
               "dist", " ", "+", ".1"}], ",", 
              RowBox[{"-", "1.1"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{".85", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], "+", 
               "dist", "-", ".1"}], ",", 
              RowBox[{"-", ".5"}]}], "}"}]}], "}"}], "]"}], ",", 
         "
", 
         RowBox[{"Cuboid", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{".3", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], "+", 
               "dist", " ", "+", ".1"}], ",", 
              RowBox[{"-", "1.7"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{".48", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], "+", 
               "dist", " ", "-", ".1"}], ",", 
              RowBox[{"-", "1.01"}]}], "}"}]}], "}"}], "]"}], ",", 
         "
", 
         RowBox[{"Cuboid", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{".52", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], "+", 
               "dist", " ", "+", ".1"}], ",", 
              RowBox[{"-", "1.7"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{".7", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], "+", 
               "dist", " ", "-", ".1"}], ",", 
              RowBox[{"-", "1.01"}]}], "}"}]}], "}"}], "]"}], ",", 
         RowBox[{"RGBColor", "[", 
          RowBox[{".48", ",", ".59", ",", ".23"}], "]"}], ",", 
         "
", 
         RowBox[{"Polygon", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"5", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Sin", "[", "x", "]"}], ",", 
                RowBox[{"Cos", "[", "x", "]"}], ",", "0"}], "}"}]}], 
             "+", 
             RowBox[{"{", 
              RowBox[{"0.5", ",", "0.433", ",", 
               RowBox[{"-", "1.7"}]}], "}"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "0", ",", 
              RowBox[{"2", " ", "Pi"}], ",", 
              RowBox[{"Pi", "/", "20"}]}], "}"}]}], "]"}], "]"}], ",",
          "Gray", ",", 
         RowBox[{"AbsoluteThickness", "[", "1.5", "]"}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"MemberQ", "[", 
            RowBox[{"options", ",", "circ"}], "]"}], ",", 
           RowBox[{"{", "
", 
            RowBox[{
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"1", "/", "2"}], ",", "0", ",", 
                  RowBox[{"-", ".3"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"1", "/", "2"}], ",", "5", ",", 
                  RowBox[{"-", ".3"}]}], "}"}]}], "}"}], "]"}], ",", 
             RowBox[{"Line", "/@", 
              RowBox[{"Partition", "[", 
               RowBox[{
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"1.659", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"Sin", "[", "x", "]"}], ",", 
                    RowBox[{"Cos", "[", "x", "]"}]}], "}"}]}], "+", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"1", "/", "2"}], ",", 
                    RowBox[{".95", "+", 
                    RowBox[{
                    RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}]}], 
                    ",", "1.35"}], "}"}]}], ",", 
                  RowBox[{"{", 
                   RowBox[{"x", ",", "0", ",", 
                    RowBox[{"2", " ", "Pi"}], ",", 
                    RowBox[{"Pi", "/", "30"}]}], "}"}]}], "]"}], ",", 
                "2", ",", "1"}], "]"}]}]}], "}"}], ",", 
           RowBox[{"Sequence", "@@", 
            RowBox[{"{", "}"}]}]}], "]"}]}], "}"}], ",", 
       RowBox[{"Boxed", "->", " ", "False"}], ",", 
       RowBox[{"SphericalRegion", "->", "True"}], ",", 
       RowBox[{"ViewAngle", "->", 
        RowBox[{"\[Pi]", "/", "20"}]}], ",", 
       RowBox[{"ViewPoint", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"zoom", " ", 
           RowBox[{"Cos", "[", 
            RowBox[{"-", "t"}], "]"}]}], ",", 
          RowBox[{"zoom", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"-", "t"}], "]"}]}], ",", "1"}], "}"}]}]}], 
      "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"dist", ",", "2", ",", "\"\<distance from statue\>\""}],
       "}"}], ",", ".5", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"2", "Pi"}], ",", "\"\<rotate\>\""}], "}"}], ",", "0", 
     ",", 
     RowBox[{"4", " ", "\[Pi]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"zoom", ",", "6", ",", "\"\<zoom distance\>\""}], "}"}],
      ",", "2", ",", "7", ",", 
     RowBox[{"ControlPlacement", "->", "Left"}], ",", 
     RowBox[{"ControlType", "->", "VerticalSlider"}]}], "}"}], 
   ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"options", ",", 
       RowBox[{"{", "circ", "}"}], ",", "\"\<\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"circ", "->", "\"\<show circle\>\""}], "}"}], ",", 
     
     RowBox[{"ControlType", "->", "CheckboxBar"}]}], "}"}]}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.35696210375764*^9, {3.3738943057443185`*^9, 
   3.3738943197129793`*^9}, {3.374943367806501*^9, 
   3.3749433682872066`*^9}, 3.374943437208372*^9, {
   3.3824545919076915`*^9, 3.3824545923295636`*^9}, {
   3.382454655235411*^9, 3.3824546753290324`*^9}, {
   3.3824619664506025`*^9, 3.382461968106863*^9}, {
   3.382462442828651*^9, 3.38246244735993*^9}, 3.760824888416088*^9},
 CellID->127976274],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`dist$$ = 
    2, $CellContext`options$$ = {$CellContext`circ}, $CellContext`t$$ \
= 2 Pi, $CellContext`zoom$$ = 6, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`dist$$], 2, "distance from statue"}, 0.5, 
      4}, {{
       Hold[$CellContext`t$$], 2 Pi, "rotate"}, 0, 4 Pi}, {{
       Hold[$CellContext`zoom$$], 6, "zoom distance"}, 2, 7}, {{
       Hold[$CellContext`options$$], {$CellContext`circ}, 
       ""}, {$CellContext`circ -> "show circle"}}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`dist$128308$$ = 
    0, $CellContext`t$128309$$ = 0, $CellContext`zoom$128310$$ = 
    0, $CellContext`options$128311$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`dist$$ = 
        2, $CellContext`options$$ = {$CellContext`circ}, \
$CellContext`t$$ = 2 Pi, $CellContext`zoom$$ = 6}, 
      "ControllerVariables" :> {
        Hold[$CellContext`dist$$, $CellContext`dist$128308$$, 0], 
        Hold[$CellContext`t$$, $CellContext`t$128309$$, 0], 
        Hold[$CellContext`zoom$$, $CellContext`zoom$128310$$, 0], 
        Hold[$CellContext`options$$, $CellContext`options$128311$$, 
         False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
        Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> 
      With[{$CellContext`a$ = {0, 0, 0}, $CellContext`b$ = {
          1/2, Sqrt[3]/2, 0}, $CellContext`c$ = {1, 0, 
          0}, $CellContext`d$ = {
          0, Sqrt[3]/2 - Sqrt[1/12], Sqrt[6]/3}, $CellContext`e$ = {
          1/2, -Sqrt[1/12], Sqrt[6]/3}, $CellContext`f$ = {
          1, Sqrt[3]/2 - Sqrt[1/12], Sqrt[6]/3}, $CellContext`k$ = {
          0, 0, 2 (Sqrt[6]/3)}}, 
        Graphics3D[{
          Map[
          Polygon, {{$CellContext`a$, $CellContext`b$, \
$CellContext`c$}, {$CellContext`d$, $CellContext`e$, \
$CellContext`f$}, {$CellContext`a$, $CellContext`b$, \
$CellContext`d$}, {$CellContext`b$, $CellContext`c$, \
$CellContext`f$}, {$CellContext`a$, $CellContext`c$, \
$CellContext`e$}, {$CellContext`e$, $CellContext`d$, \
$CellContext`a$}, {$CellContext`d$, $CellContext`f$, \
$CellContext`b$}, {$CellContext`e$, $CellContext`f$, \
$CellContext`c$}}], 
          Map[
          Polygon, {{$CellContext`a$ + $CellContext`k$, \
$CellContext`b$ + $CellContext`k$, $CellContext`c$ + \
$CellContext`k$}, {$CellContext`d$, $CellContext`e$, \
$CellContext`f$}, {$CellContext`a$ + $CellContext`k$, $CellContext`b$ + \
$CellContext`k$, $CellContext`d$}, {$CellContext`b$ + \
$CellContext`k$, $CellContext`c$ + $CellContext`k$, $CellContext`f$}, \
{$CellContext`a$ + $CellContext`k$, $CellContext`c$ + \
$CellContext`k$, $CellContext`e$}, {$CellContext`e$, $CellContext`d$, \
$CellContext`a$ + $CellContext`k$}, {$CellContext`d$, \
$CellContext`f$, $CellContext`b$ + $CellContext`k$}, \
{$CellContext`e$, $CellContext`f$, $CellContext`c$ + \
$CellContext`k$}}], 
          Map[
          Polygon, {{$CellContext`a$ + $CellContext`k$, \
$CellContext`b$ + $CellContext`k$, $CellContext`c$ + \
$CellContext`k$}, {$CellContext`d$ + $CellContext`k$, $CellContext`e$ + \
$CellContext`k$, $CellContext`f$ + $CellContext`k$}, {$CellContext`a$ + \
$CellContext`k$, $CellContext`b$ + $CellContext`k$, $CellContext`d$ + \
$CellContext`k$}, {$CellContext`b$ + $CellContext`k$, $CellContext`c$ + \
$CellContext`k$, $CellContext`f$ + $CellContext`k$}, {$CellContext`a$ + \
$CellContext`k$, $CellContext`c$ + $CellContext`k$, $CellContext`e$ + \
$CellContext`k$}, {$CellContext`e$ + $CellContext`k$, $CellContext`d$ + \
$CellContext`k$, $CellContext`a$ + $CellContext`k$}, {$CellContext`d$ + \
$CellContext`k$, $CellContext`f$ + $CellContext`k$, $CellContext`b$ + \
$CellContext`k$}, {$CellContext`e$ + $CellContext`k$, $CellContext`f$ + \
$CellContext`k$, $CellContext`c$ + $CellContext`k$}}], 
          Cuboid[{{-0.2, -0.2, -1.7}, {1.2, Sqrt[3]/2 + 0.2, 0}}], 
          Sphere[{0.5, Sqrt[3]/2 + $CellContext`dist$$, -0.3}, 0.2], 
          
          Cuboid[{{
            0.25, Sqrt[3]/2 + $CellContext`dist$$ + 0.1, -1.}, {
            0.75, Sqrt[3]/2 + $CellContext`dist$$ - 0.1, -0.5}}], 
          
          Cuboid[{{
            0.15, Sqrt[3]/2 + $CellContext`dist$$ + 0.1, -1.1}, {
            0.24, Sqrt[3]/2 + $CellContext`dist$$ - 0.1, -0.5}}], 
          
          Cuboid[{{
            0.76, Sqrt[3]/2 + $CellContext`dist$$ + 0.1, -1.1}, {
            0.85, Sqrt[3]/2 + $CellContext`dist$$ - 0.1, -0.5}}], 
          
          Cuboid[{{
            0.3, Sqrt[3]/2 + $CellContext`dist$$ + 0.1, -1.7}, {
            0.48, Sqrt[3]/2 + $CellContext`dist$$ - 0.1, -1.01}}], 
          
          Cuboid[{{
            0.52, Sqrt[3]/2 + $CellContext`dist$$ + 0.1, -1.7}, {
            0.7, Sqrt[3]/2 + $CellContext`dist$$ - 0.1, -1.01}}], 
          RGBColor[0.48, 0.59, 0.23], 
          Polygon[
           Table[5 {
               Sin[$CellContext`x], 
               Cos[$CellContext`x], 0} + {0.5, 
             0.433, -1.7}, {$CellContext`x, 0, 2 Pi, Pi/20}]], Gray, 
          AbsoluteThickness[1.5], 
          If[
           MemberQ[$CellContext`options$$, $CellContext`circ], {
            Line[{{1/2, 0, -0.3}, {1/2, 5, -0.3}}], 
            Map[Line, 
             Partition[
              Table[1.659 {0, 
                  Sin[$CellContext`x], 
                  Cos[$CellContext`x]} + {
                1/2, 0.95 + Sqrt[3]/2, 1.35}, {$CellContext`x, 0, 2 
                Pi, Pi/30}], 2, 1]]}, 
           Apply[Sequence, {}]]}, Boxed -> False, SphericalRegion -> 
         True, ViewAngle -> Pi/20, 
         ViewPoint -> {$CellContext`zoom$$ 
           Cos[-$CellContext`t$$], $CellContext`zoom$$ 
           Sin[-$CellContext`t$$], 1}]], 
      "Specifications" :> {{{$CellContext`dist$$, 2, 
          "distance from statue"}, 0.5, 
         4}, {{$CellContext`t$$, 2 Pi, "rotate"}, 0, 4 
         Pi}, {{$CellContext`zoom$$, 6, "zoom distance"}, 2, 7, 
         ControlPlacement -> Left, ControlType -> 
         VerticalSlider}, {{$CellContext`options$$, \
{$CellContext`circ}, ""}, {$CellContext`circ -> "show circle"}, 
         ControlType -> CheckboxBar}}, "Options" :> {}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{498., {249., 255.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.760824888416354*^9},
 CellID->39664310]
}, {2}]]