Diagnostics/Basic/HalphaRadiation/Sketch/das.nb

(* 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[    105330,       1932]
NotebookOptionsPosition[    104874,       1913]
NotebookOutlinePosition[    105209,       1928]
CellTagsIndexPosition[    105166,       1925]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"R", "=", "40"}], ";", 
   RowBox[{"r", "=", "15"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Tokamak", " ", "parameters"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Tra", "=", "15"}], ";", 
   RowBox[{"Trb", "=", "100"}], ";", 
   RowBox[{"Trc", "=", "17"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Transformer", " ", "core"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"Torus", ",", "Transformator"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"ToFileName", "[", 
    RowBox[{"Extract", "[", 
     RowBox[{
      RowBox[{"\"\<FileName\>\"", "/.", 
       RowBox[{"NotebookInformation", "[", 
        RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ",", 
      RowBox[{"{", "1", "}"}], ",", "FrontEnd`FileName"}], "]"}], "]"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Torus", "[", "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "[", "t_", "]"}], ":=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"R", "+", 
         RowBox[{"r", "*", 
          RowBox[{"Cos", "[", "s", "]"}]}]}], ")"}], "*", 
       RowBox[{"Cos", "[", "t", "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "[", "t_", "]"}], ":=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"R", "+", 
         RowBox[{"r", "*", 
          RowBox[{"Cos", "[", "s", "]"}]}]}], ")"}], "*", 
       RowBox[{"Sin", "[", "t", "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"z", "[", "t_", "]"}], ":=", 
      RowBox[{"r", "*", 
       RowBox[{"Sin", "[", "s", "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{"ParametricPlot3D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", "[", "t", "]"}], ",", 
          RowBox[{"y", "[", "t", "]"}], ",", 
          RowBox[{"z", "[", "t", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"s", ",", "0", ",", 
          RowBox[{"2", "*", "Pi"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", 
          RowBox[{"2", "*", "Pi"}]}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"Specularity", "[", 
          RowBox[{"White", ",", "50"}], "]"}]}], ",", 
        RowBox[{"Mesh", "\[Rule]", "None"}]}], "]"}], "]"}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Transformator", "[", "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Graphics3D", "[", 
       RowBox[{"Cuboid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Tra", ",", "Trb", ",", "Trc"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Tra", ",", "Trb", ",", 
           RowBox[{"Trc", "+", 
            RowBox[{"2", "*", "Tra"}]}]}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"Graphics3D", "[", 
       RowBox[{"Cuboid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Tra", ",", "Trb", ",", "Trc"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Tra", ",", "Trb", ",", 
           RowBox[{"Trc", "-", 
            RowBox[{"2", "*", "Tra"}]}]}], "}"}]}], "]"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Graphics3D", "[", 
       RowBox[{"Cuboid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Tra", ",", "Tra", ",", "Trc"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Tra", ",", "Tra", ",", "Trc"}], "}"}]}], "]"}], "]"}], ",",
       "\[IndentingNewLine]", 
      RowBox[{"Graphics3D", "[", 
       RowBox[{"Cuboid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Tra", ",", 
           RowBox[{"R", "-", 
            RowBox[{"1.2", "*", "Tra"}]}], ",", "Trc"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Tra", ",", "Trb", ",", "Trc"}], "}"}]}], "]"}], "]"}], ",",
       "\[IndentingNewLine]", 
      RowBox[{"Graphics3D", "[", 
       RowBox[{"Cuboid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Tra", ",", 
           RowBox[{"R", "+", 
            RowBox[{"1.2", "*", "Tra"}]}], ",", "Trc"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Tra", ",", "Trb", ",", "Trc"}], "}"}]}], "]"}], "]"}]}], 
     "\[IndentingNewLine]", "]"}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RogowskiCoil", "[", 
     RowBox[{
     "x0_", ",", "y0_", ",", "z0_", ",", "A_", ",", "a_", ",", "h_", ",", 
      "n_"}], "]"}], ":=", 
    RowBox[{"(", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "[", "t_", "]"}], ":=", 
       RowBox[{"x0", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"A", "+", 
           RowBox[{"a", "*", 
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}]}]}], ")"}], 
         RowBox[{"Cos", "[", "t", "]"}]}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"z", "[", "t_", "]"}], ":=", 
       RowBox[{"z0", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"A", "+", 
           RowBox[{"a", "*", 
            RowBox[{"Cos", "[", 
             RowBox[{"n", " ", "t"}], "]"}]}]}], ")"}], 
         RowBox[{"Sin", "[", "t", "]"}]}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"y", "[", "t_", "]"}], ":=", 
       RowBox[{"y0", "+", 
        RowBox[{"h", "*", "t"}], "+", 
        RowBox[{"a", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"n", " ", "t"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Show", "[", 
       RowBox[{"ParametricPlot3D", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"x", "[", "t", "]"}], ",", 
           RowBox[{"y", "[", "t", "]"}], ",", 
           RowBox[{"z", "[", "t", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", 
           RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}], "]"}]}], ")"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Coil", "[", 
    RowBox[{
    "x0_", ",", "y0_", ",", "z0_", ",", "A_", ",", "a_", ",", "Phi_"}], "]"}],
    ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "[", "t_", "]"}], ":=", 
      RowBox[{"x0", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{"a", "*", 
           RowBox[{"Cos", "[", "t", "]"}]}]}], ")"}], "*", 
        RowBox[{"Cos", "[", "s", "]"}]}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "[", "t_", "]"}], ":=", 
      RowBox[{"z0", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"A", "+", 
          RowBox[{"a", "*", 
           RowBox[{"Cos", "[", "t", "]"}]}]}], ")"}], " ", "*", 
        RowBox[{"Sin", "[", "s", "]"}]}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"z", "[", "t_", "]"}], ":=", 
      RowBox[{"y0", "+", 
       RowBox[{"a", "*", 
        RowBox[{"Sin", "[", "t", "]"}]}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", 
      RowBox[{"ParametricPlot3D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", "[", "t", "]"}], ",", 
          RowBox[{"y", "[", "t", "]"}], ",", 
          RowBox[{"z", "[", "t", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", 
          RowBox[{"2", " ", "Pi"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"s", ",", "Phi", ",", 
          RowBox[{"Phi", "*", "1.1"}]}], "}"}], ",", 
        RowBox[{"PlotPoints", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"10", ",", "10"}], "}"}]}], ",", 
        RowBox[{"MaxRecursion", "\[Rule]", "0"}]}], "]"}], "]"}]}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Loop", "[", 
    RowBox[{"A_", ",", "z_", ",", "Phi1_", ",", "Phi2_"}], "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{"Show", "[", 
     RowBox[{"ParametricPlot3D", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"A", " ", 
          RowBox[{"Sin", "[", "t", "]"}]}], ",", 
         RowBox[{"A", " ", 
          RowBox[{"Cos", "[", "t", "]"}]}], ",", "z"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "Phi1", ",", "Phi2"}], "}"}]}], "]"}], "]"}], 
    ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"photocelll", "[", 
     RowBox[{"x0_", ",", "y0_", ",", "z0_", ",", "a_"}], "]"}], ":=", 
    RowBox[{"(", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ParametricPlot3D", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x0", ",", "t", ",", "z0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", 
           RowBox[{"y0", "-", 
            RowBox[{"2", " ", "a"}]}], ",", 
           RowBox[{"y0", "*", "0.99"}]}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ParametricPlot3D", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x0", ",", "t", ",", "z0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", 
           RowBox[{"y0", "*", "1.01"}], ",", 
           RowBox[{"y0", "+", 
            RowBox[{"2", " ", "a"}]}]}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x0", ",", 
             RowBox[{"y0", "-", 
              RowBox[{"1.2", "a"}]}], ",", 
             RowBox[{"z0", "+", 
              RowBox[{"1.2", "a"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x0", ",", 
             RowBox[{"y0", "-", 
              RowBox[{"a", "*", "0.8"}]}], ",", 
             RowBox[{"z0", "+", 
              RowBox[{"a", "*", "0.8"}]}]}], "}"}]}], "}"}], "]"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x0", ",", 
             RowBox[{"y0", "-", 
              RowBox[{"1.2", "a"}], "+", "0.3"}], ",", 
             RowBox[{"z0", "+", 
              RowBox[{"0.9", "a"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x0", ",", 
             RowBox[{"y0", "-", 
              RowBox[{"a", "*", "0.8"}]}], ",", 
             RowBox[{"z0", "+", 
              RowBox[{"a", "*", "0.8"}]}]}], "}"}]}], "}"}], "]"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x0", ",", 
             RowBox[{"y0", "-", 
              RowBox[{"1.2", "a"}], "+", "0.9"}], ",", 
             RowBox[{"z0", "+", 
              RowBox[{"1.1", "a"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x0", ",", 
             RowBox[{"y0", "-", 
              RowBox[{"a", "*", "0.8"}]}], ",", 
             RowBox[{"z0", "+", 
              RowBox[{"a", "*", "0.8"}]}]}], "}"}]}], "}"}], "]"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x0", ",", 
             RowBox[{"y0", "-", 
              RowBox[{"1.2", "a"}], "-", "1"}], ",", 
             RowBox[{"z0", "+", 
              RowBox[{"1.2", "a"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x0", ",", 
             RowBox[{"y0", "-", 
              RowBox[{"a", "*", "0.8"}], "-", "1"}], ",", 
             RowBox[{"z0", "+", 
              RowBox[{"a", "*", "0.8"}]}]}], "}"}]}], "}"}], "]"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x0", ",", 
             RowBox[{"y0", "-", 
              RowBox[{"1.2", "a"}], "-", "0.7"}], ",", 
             RowBox[{"z0", "+", 
              RowBox[{"0.9", "a"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x0", ",", 
             RowBox[{"y0", "-", 
              RowBox[{"a", "*", "0.8"}], "-", "1"}], ",", 
             RowBox[{"z0", "+", 
              RowBox[{"a", "*", "0.8"}]}]}], "}"}]}], "}"}], "]"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x0", ",", 
             RowBox[{"y0", "-", 
              RowBox[{"1.2", "a"}], "-", "0.1"}], ",", 
             RowBox[{"z0", "+", 
              RowBox[{"1.1", "a"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x0", ",", 
             RowBox[{"y0", "-", 
              RowBox[{"a", "*", "0.8"}], "-", "1"}], ",", 
             RowBox[{"z0", "+", 
              RowBox[{"a", "*", "0.8"}]}]}], "}"}]}], "}"}], "]"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"ParametricPlot3D", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x0", ",", 
           RowBox[{"y0", "+", 
            RowBox[{"a", " ", 
             RowBox[{"Cos", "[", "t", "]"}]}]}], ",", 
           RowBox[{"z0", "+", 
            RowBox[{"a", " ", 
             RowBox[{"Sin", "[", "t", "]"}]}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", 
           RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"ParametricPlot3D", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x0", ",", 
           RowBox[{
            RowBox[{"y0", "*", "0.99"}], "+", "s"}], ",", "t"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", 
           RowBox[{"z0", "-", 
            RowBox[{"a", "/", "2"}]}], ",", 
           RowBox[{"z0", "+", 
            RowBox[{"a", "/", "2"}]}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"s", ",", 
           RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}]}], "]"}], ",", 
       RowBox[{"ParametricPlot3D", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x0", ",", 
           RowBox[{"y0", "*", "1.01"}], ",", "t"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", 
           RowBox[{"z0", "-", 
            RowBox[{"a", "/", "1.2"}]}], ",", 
           RowBox[{"z0", "+", 
            RowBox[{"a", "/", "1.2"}]}]}], "}"}]}], "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ")"}]}], ";"}], 
  "\n"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.404655934029041*^9, 3.404655940394425*^9}, {
   3.404655972110733*^9, 3.40465597664006*^9}, {3.404656009045347*^9, 
   3.404656012265537*^9}, {3.404656125640313*^9, 3.404656193529587*^9}, {
   3.404656227299682*^9, 3.404656228477265*^9}, {3.404656282399265*^9, 
   3.404656341928886*^9}, {3.404656385032161*^9, 3.404656388495854*^9}, {
   3.404656434845703*^9, 3.404656450795105*^9}, {3.404656486517996*^9, 
   3.404656558255974*^9}, {3.404656593896826*^9, 3.404656629792374*^9}, {
   3.404656674203516*^9, 3.40465668299355*^9}, {3.404656726885248*^9, 
   3.404656727540799*^9}, {3.404656763765394*^9, 3.40465677002684*^9}, {
   3.404657336874845*^9, 3.404657372115238*^9}, {3.404657483807309*^9, 
   3.40465749503212*^9}, {3.404657551088064*^9, 3.404657630039472*^9}, {
   3.404657669122344*^9, 3.404657703334019*^9}, {3.404657745417585*^9, 
   3.404657748024309*^9}, {3.40465779718277*^9, 3.404657804318244*^9}, {
   3.404657934925129*^9, 3.404657991645849*^9}, {3.40465813408797*^9, 
   3.404658211734417*^9}, {3.404658261540709*^9, 3.404658271661035*^9}, {
   3.404658356397773*^9, 3.404658367907024*^9}, {3.404658405377888*^9, 
   3.404658457143135*^9}, {3.404658515180059*^9, 3.404658550633686*^9}, 
   3.459967838208127*^9, {3.459967931991937*^9, 3.459967934121558*^9}, {
   3.459968535547238*^9, 3.459968675475857*^9}, {3.459968720997042*^9, 
   3.459968801900226*^9}, {3.459968846759987*^9, 3.459968854280269*^9}, {
   3.459968884612447*^9, 3.459968886268609*^9}, {3.459968952069373*^9, 
   3.459968973521439*^9}, {3.459969065409065*^9, 3.459969075145593*^9}, {
   3.459969131517883*^9, 3.459969134649936*^9}, {3.459969246179485*^9, 
   3.459969252125969*^9}, {3.459969314911907*^9, 3.459969319585769*^9}, {
   3.45996936723349*^9, 3.45996939166628*^9}, 3.459969434219877*^9, {
   3.459969477083788*^9, 3.459969478986596*^9}, {3.459969591043896*^9, 
   3.459969632454361*^9}, {3.45996978534739*^9, 3.459969868254021*^9}, {
   3.459969919000782*^9, 3.459969923192658*^9}, {3.459969965334101*^9, 
   3.459970004408836*^9}, {3.459970049424631*^9, 3.4599700519918*^9}, {
   3.459970108921066*^9, 3.459970207375286*^9}, {3.459970283680215*^9, 
   3.459970318001148*^9}, {3.459970398708057*^9, 3.459970435814572*^9}, {
   3.459970469990554*^9, 3.459970470309839*^9}, {3.459970507400653*^9, 
   3.459970543240649*^9}, {3.459970597979796*^9, 3.459970662227385*^9}, {
   3.459970726865388*^9, 3.459970729471859*^9}, {3.459970759477036*^9, 
   3.459970805249146*^9}, {3.459991883208319*^9, 3.459992237477376*^9}, {
   3.459992270744854*^9, 3.459992272460737*^9}, {3.459992481436746*^9, 
   3.459992565700594*^9}, 3.459992598702917*^9, {3.459992816297528*^9, 
   3.459992845366479*^9}, 3.459992879764185*^9, {3.459993005716633*^9, 
   3.459993014495977*^9}, 3.459993047945717*^9, {3.459993112556765*^9, 
   3.459993151254699*^9}, {3.459993465794897*^9, 3.459993547158323*^9}, {
   3.459993692076207*^9, 3.459993730736916*^9}, {3.459993780067303*^9, 
   3.459993782872663*^9}, {3.45999397805869*^9, 3.459994101268737*^9}, {
   3.459994159514763*^9, 3.459994180991885*^9}, {3.459994297750979*^9, 
   3.459994310033304*^9}, {3.459994342532783*^9, 3.459994344273357*^9}, {
   3.459994729535451*^9, 3.45999475761405*^9}, {3.459997593242922*^9, 
   3.45999761717288*^9}, {3.459997992462418*^9, 3.459997993835021*^9}, {
   3.459998054516489*^9, 3.459998080338824*^9}, {3.459998134745414*^9, 
   3.459998136411501*^9}, {3.459998418195888*^9, 3.459998498212929*^9}, {
   3.459998621875301*^9, 3.459998628119337*^9}, {3.459998715619484*^9, 
   3.459998788083623*^9}, {3.459998967940812*^9, 3.459999035979961*^9}, {
   3.459999083411742*^9, 3.459999106788625*^9}, {3.459999242281587*^9, 
   3.459999302292851*^9}, {3.459999701460591*^9, 3.459999707023466*^9}, {
   3.4599997776015*^9, 3.4599997809953*^9}, {3.459999852065837*^9, 
   3.4599998601221*^9}, {3.459999894691895*^9, 3.459999898578124*^9}, {
   3.45999997271023*^9, 3.459999989514212*^9}, {3.460000078830072*^9, 
   3.460000089985409*^9}, {3.460000239918647*^9, 3.460000266800308*^9}, {
   3.460000435953249*^9, 3.460000437994623*^9}, {3.460000534615767*^9, 
   3.460000541766284*^9}, {3.460000597264694*^9, 3.460000598973872*^9}, {
   3.460000871106303*^9, 3.460000873123525*^9}, {3.460001444814086*^9, 
   3.460001445126542*^9}, {3.460004288532718*^9, 3.460004369716317*^9}, {
   3.46000443147378*^9, 3.460004441852417*^9}, {3.460004514732893*^9, 
   3.460004531913541*^9}, {3.460005711278651*^9, 3.460005723970239*^9}, {
   3.460005867655437*^9, 3.460005870979238*^9}, {3.460010392917912*^9, 
   3.460010503645799*^9}, 3.460010570946352*^9, {3.460010955370188*^9, 
   3.46001096753062*^9}, {3.460010999969954*^9, 3.460011269345295*^9}, 
   3.460011301630184*^9, {3.460011494297676*^9, 3.460011523069331*^9}, {
   3.460011569081785*^9, 3.460011570645385*^9}, {3.460011621000042*^9, 
   3.460011640855555*^9}, {3.460011701842728*^9, 3.460011714511139*^9}, {
   3.460011771123272*^9, 3.460011836772237*^9}, {3.460011877589907*^9, 
   3.460011881139081*^9}, {3.460011965744658*^9, 3.460011991163675*^9}, {
   3.460012021662054*^9, 3.46001205057078*^9}, {3.460012097710407*^9, 
   3.460012408876211*^9}, {3.460012582163406*^9, 3.460012587955901*^9}, 
   3.460012674064052*^9, {3.460012724930323*^9, 3.460012725761537*^9}, {
   3.460013129494626*^9, 3.460013239843769*^9}, {3.460013507582743*^9, 
   3.460013556656816*^9}, {3.460013720344392*^9, 3.460013870595415*^9}, {
   3.460014098446765*^9, 3.460014099091202*^9}, {3.460014190074234*^9, 
   3.460014289471283*^9}, {3.460014322489788*^9, 3.460014323487724*^9}, {
   3.460014355308974*^9, 3.460014355838162*^9}, 3.460014474576921*^9, {
   3.460014525275622*^9, 3.460014644625872*^9}, {3.460014682658881*^9, 
   3.460014813562805*^9}, {3.460014849623088*^9, 3.460014900934555*^9}, {
   3.460014951115002*^9, 3.460015019065653*^9}, {3.460091321721295*^9, 
   3.460091382135592*^9}, {3.460091426690536*^9, 3.460091528628064*^9}, {
   3.460092729658786*^9, 3.460092730179787*^9}, {3.460092762983636*^9, 
   3.460092763590771*^9}, {3.460092805644906*^9, 3.460092860684422*^9}, {
   3.460092901564842*^9, 3.460092928926918*^9}, {3.460092960221888*^9, 
   3.460092977839807*^9}, {3.603435222337969*^9, 3.60343522772683*^9}, {
   3.603435431333658*^9, 3.603435439459012*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"FS", "=", "20"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"DAS", "=", 
  RowBox[{"Show", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Torus", "[", "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"photocelll", "[", 
     RowBox[{"0", ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"R", "+", "r"}], ")"}], "*", "1.2"}], ",", "0", ",", 
      RowBox[{"r", "/", "4"}]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
    RowBox[{"ViewPoint", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Pi", ",", 
       RowBox[{"Pi", "/", "2"}], ",", "2"}], "}"}]}], ",", 
    RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
    RowBox[{"Boxed", "\[Rule]", "False"}]}], 
   "]"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.460012904715206*^9, 3.460012914592038*^9}, {
   3.460012995378421*^9, 3.460013013188689*^9}, {3.460013059911344*^9, 
   3.460013090155587*^9}, {3.460013304056705*^9, 3.460013304606058*^9}, {
   3.460013451708481*^9, 3.460013476675089*^9}, {3.460013922151074*^9, 
   3.460013957523273*^9}, {3.460015078439322*^9, 3.460015078940345*^9}, {
   3.479618034935429*^9, 3.479618037117065*^9}, {3.47962456748077*^9, 
   3.479624577766145*^9}, {3.568050725477705*^9, 3.568050730359889*^9}, {
   3.603434513753569*^9, 3.603434518202021*^9}, 3.603435215773918*^9, {
   3.603435456916277*^9, 3.603435464085045*^9}, {3.603435500511452*^9, 
   3.603435509029904*^9}, {3.603435610226389*^9, 3.603435649680676*^9}, {
   3.60343569042504*^9, 3.603435764735785*^9}, {3.603436286922951*^9, 
   3.603436460462355*^9}, {3.603436573094321*^9, 3.60343661404492*^9}, {
   3.603436690444267*^9, 3.603436712656006*^9}, {3.603436788856899*^9, 
   3.603436968124767*^9}, {3.603437081297757*^9, 3.603437081723968*^9}, {
   3.603437116750567*^9, 3.603437117333085*^9}, {3.625290705184005*^9, 
   3.6252907105714808`*^9}}],

Cell[BoxData[
 Graphics3DBox[{GraphicsComplex3DBox[CompressedData["
1:eJxlm3lcj9kXx7M0GAZDClmytAwpJkr6ypMkbRgT2bNlmxlrluzELyZ7lDAz
RmObZAkh+rqyEy2MrBOJLIXI0qB+36f7Odfzvbz89bzu63zPfZ/Pc+455z41
GzGxT0hFExOTKpVMTAz/TZp9LCsrm++nLLX9d0P13BL3fluq6cfp7rgvsLnU
/M5JXyWvzZy8eo4l7pdz5m6bVrWhcnDgqvUNEnooN4qbFGx3fed+7V7PrTNC
bZXfnLKHdI73UsKPfdO3Vkixu0nw8eFTurRRno9v+FNqYFel0O7GhSylyD0g
eqaj+vzc9qg5advclWYHzWZNv1Hgnmc9s55qx2X+2GXeczopfVoE7dlQ+Njd
Zk9ozVDD77p9MvhZ1lHpsS9xakJEvru3+YP0U5H3dM5Y/wPWN+frmWw/l9tn
BfDnGfzx5/6wjfB/IfyvyP1n+7Hff7DfO3y/bB745IJPAefDZJ6VHRJVnvpN
BY+vZZ7toUysMXSR+V0XhTgPrJ41epGlged/51padHRRiPOuWnYjF7l1V1Kq
tNWdG9dBIc4L7pfufrDEUwlPKcw6fPl7hTgf/3brkiqLFaXZ2jVDQzMcFeJ8
rzQmMXOzm7LuRsnvfTe0UoizY+vdVzLvuChf1c17ceiDjUKc/22/rYnT/5yV
BZ3cgw/vt1aIswPWm2I9cZbtE+dk+NME/hDnufB/Afwnzjuw32TslzgPAJ9s
8CHOMk/iPDb+m/Qh1h7KlIDzgfUXeAnOXTcufZqxR1EK8jaVTXzWTXD2Tqi6
w/eMu3LO4Xb8Y19PwXnFqJ+Yr6mbcnTG8I8VihTBuSz00b0zt52VlmveD3+4
Syc432ybW+WspZNy6Ps6ZvXfugjOizoPfDUhvK1So79vZLVD7QVn19PHVv1t
76gMOuZR5Wikk+BM66tjPXGW7RPnj/CnGfwhzsvgfxL8J87dsN/T2C9x9gCf
Z+BDnGWexNkiddchh1l2yub4Aod56b6Cs/PwzO+KMmwVv++vHmli7is4F4S1
upny1lrxqhG283DNHoLzp24Hoxf4tFDM/YtT7Ky8BGf/8XkHi3pbKdXvDXBt
mOMhOA+77fV+rLelkjuyMNH8fmfBuTT+VVjFKAtlpd+yIz2yXAXnWdb3VkQo
5so/JY0+LgvuKDh/wvoVWE+cZfvE2Rf+VIM/xPkD/DeD/8T5KfbbFfslzu3B
xwd8iLPMkzgvNre9226WHYtzummi5ZwcNd+tOMOWDetZGqnlXNsyJYG9tWZf
XbKar+W8zq+kTrhPC1bp5bZYLedKTWzTX/e2YvfbxjXUcnau3XbOz96WLDU9
ar6W8/rUbeGmURZs8Ue75VrO/34q/ulXxZxFZ7lmaTmvw/pwrCfOsn3iXBH+
3IM/xHkt/DeB/8T5G+y3EvZLnI+Az1DwIc4yT+I837to0lBrD2befM9VC03e
WHm/xtLMPQpbObh0oTZv9N2++oLfGXfWM7ViR23eYB0jT/iZurGKyo5obd5I
unH0yNnbzqxe7duH8jR5w3lSwHHDe81ON2y32EKTN3SPu62cGN6WtZnxuqY2
b7DzdZPi7R1ZVNO8NUc0eYPW22O94CzZJ84H4E8d+EOcj8N/E/hPnH/Afv2x
X+K8AnxWgA9xlnkS548hzCHrbA8W7aN8U09zDlr20+kNeZ7Nq6Q/Wk9zDv6a
feaA4VxgkbNGFJ7RnIMmKy68NpwjrMXywt1JmnNwUJslJw3nDvvPquUvUzTn
YNynw+ZZm93Y08a2ZT9qzsHElk7WWXdcWHSrX5ce1JyDJzN/mGQ4B9m0R9Vr
JGnOwf3SeuIs2yfOA+DPO/hDnEuXc/+t4D9xjsB+l2K/xLkB+MwBH+Is8yTO
9mXldQjr+unijjV9S3XEefp35XULG/PX4Tr/hH/SEeeJQ8rrHHai0K1iq44f
dMS5knN5XcSGjPFY/ubROx1xfvtzeR3FRocnJY3rWKwjzvZ/l9ddrFLXU/4d
8l/qiLPNovI6jW0e9TjOzKVQR5xNyv+5skvp6Xs3RT3TEWdrrN+E9cRZtk+c
i+HPKPhDnE3g/wD4T5x/xn6PYb/EORR8RoEPcZZ5EudP4L+W82fEuRHiNYvH
ixHnSOP4MuJcYYWRHpis57dcP4w4/wW9PeJ6Y8T5APQZxfXJiHMq9DyF65kR
Z9L/WqwnzrJ9Wc+v4I+s58bwnzgvxX6XYL/EuSH4hIEPcZZ5EucFyCdmPJ8I
zquM84/g3A/5KoDnK8H5JPJbBZ7fBOfDyId1eT4UnF2QP1N5/hScOxvn28+c
kZ/X8vzM5PzcGuuJs2yfOB+EP7XhD3FOgf9lXbj/xLkP9uuL/RJnOr8iwYc4
yzyJcyzOx638fBScr+A8DebnqeDcHOevKT9/BedtOK8r8vNacP7WuN4QnANQ
D5zk9YDgvNO4fhCcX6LeWM/rDcGZ1i/CeuIs2yfOteBPDvwhzlvhf9kL7j9x
bor9VsR+iXMa+AwBH+Is8yTOxSd5vfc7r/cEZzPUhwG8PhScL6Oe9Ob1pOCc
i/qzPq8/BecOqFdr8HpVcHZFfZvH61vB+S7q4VW8HhacB6F+zub1s+B8x7je
Fpxl+8TZCf58DX+I8z34Xw/+E+dL2G837Jc41zHuLwRnmSdxDkb/Esb7F8HZ
Ff1OMe93BGdn9EeXeX8kOM9DP3WC91OC8yv0Xw68/xKcr6Bf0/N+TXAOQ39X
l/d3grMd+sERvB8UnGl9HawnzrJ94vwS/rSGP8R5Fvw/Dv+JsxP2ewn7Jc4d
wecV+BBnmSdxXod+PJL344JzIPr3Yt6/C85x6Pezeb8vOM/GfCCWzwcE5yOY
J3jzeYLgfAPzh4N8/iA422Fe0YzPKwTnbMw3NvL5huBM662wnjjL9olzEvzp
Bn+I80z4Hw3/ifOf2O817Jc49wGfV+BDnGWexJnmS2N2zYytnluil+d1M8Pr
PKznWKKX53UtYnep8yu9PK8bNStCnXfp5Xnda5suF7OUIr08rwt6yNR5ml6e
170veqbO3/TyvG6ATZfQhIh8vTyve4f18ryO7MvzuiL4I8/rhsN/eV7XDPuV
53UzwEee1xFPcQ7WDR63aouvkjQncN7AXnZKgnnaV7cPfK14FUU5N3LxUZYN
sDs1yNRWqellEzzmYHNlrcmR/aEDvRSzhQ/bDqriIdb/PC39yVxDn3lY/3CS
kyE/UbxOOpw60Piuj+I9IebwxaD37mSnkX/YjbT47kro4ekTkhNbKiEt2zaZ
XKW1UuyVOmVDx27K/yJidU5WivjdrLIhY2t6eCt9+vyys9KDN+60vvLmxB5/
zvdUvs+qHa273ExprYajrI1Sfd2pB2VlnkqN4PM1i7JeudPzvw8E66f9qCg/
zPJdMje9sbIks83xSQY7jv+wUUV6Rdl59XLx8SUv3On50DyLHP/VbkqDnmnv
OrVqoLh8G7lntMGfnE41+5z20iknLrx/7bD5qTs9//bnndtGp3RUkjuc2tU5
2lxp7vNofbaBT+N5ecOSGjor4ZZ+lRK2tBN2pp9IvN19mKvSrgWr7Zeb707r
ZTsN+HM22n74V6XXnZSm1jm/JP/lKOzLdmj9EMl/Z/67X9ih9f9iX3rsi9bv
Arfe4LaY82GNsK9F2BetdwDP7eBJ6ysiXm2N48WqIV5fG8eLNYBOJkMn43nc
WTr00At6oOee0G0EdGvJ9cNOQIde0CE93wD9H4L+b3I9s1fQ4RLokNbf3rl+
yZ1efor3X+H64wdL3Gm9rH96v9bgfamL94XWb4129FTnCJmV0q8b6lYxB/gz
JHR8zwMuim2zXj5TN/UQ79fvXzeLUucLTcwenDTUs5/nvSerWfg4dFVObt2f
GVSmE+9RYLuAovWTnZVqHxPW/RTgLd6jm4/WrX3t1UU51O/TvmUvO4r3ZdLr
a2WBjp2Uir27xhy73168F5eXKzp1ntKzZrj5OcM5TPnQ1PR8RtVD7ZVOuk53
DPW+mCcExzR9vH+pnfKhZ2K+SZir0Hmt3h2C1DnOhPNdfHYbzn/Kkz/81rix
h6mNsnZY5x1Fd5yFnitL9il/yutJtxPgfwX4T3obCn/+gz+kz+vgcMCYA1PA
Uw+epKtpv5qX5vt6Kr5brg30N9QRlG+3II4ZiCPl2x/Bvyr4k37kOJJOtiDu
Nog76STX1LWyOgeZHVb0RD0/SSfLZ/Q16O+J3iqe65F0Yj96fx+zuy7Kb1a7
Bxn6S6GTE+Prr7vbpr3yoVv7h4tfdxM66X/wJ8P78Fif35a/H6ST5ldCx70b
2E5JW7z3vzeVuwqdJFoGRTSv3UZZ++O4Vlfs3YVOhuo7O6rzoOT/zvUw9NNC
J9Pa37124IONEvbH9N6G/lvopPun84b8ckvv0pnnG9LJn8lTRhzab60ENrGL
VesX0klv3XpDXsvWrznJ8xzpJBT2Z8I+6UReTzrZB//XwH/SiRf8cYY/pBMr
cLhkzIGlgGcJeJJObBM/eKnzrD+Omt1R6yDSyT3EMQxxJJ30A/+H4E86keNI
OolE3Jsi7qQTt6KeefUcn+iP2PHzn3SSXcX0bq8DLqzoudnLKZp8Mm7X3g3V
c5/ox5XyuoB0cr1Cd0M+fahnFYaW51eRTza69I6Z7MxWmjgq2nzyduV2Q77O
1R9cz/M36cSn/XpD3s/RR13n5wDpJPHBvbDpN+7of9zF6yDSif/gVoY66YZ+
/EJeN5FOLOOOjDmw1I45nAiM1OYT+5+XTk2IyNb3KuP1F+mkiuv4aV1Nbdi2
zv0CtfnED/bHwT7pRF5POvGG/2vhP+mkIfxpA39IJ2/AIdGYA7sKningSTq5
r3vzbLtrvj5lMK/jSCeuiGMS4kg66QP+y8GfdCLHkXRCcX+JuJNOMsu6TjQ3
1N8h7SLWavNJq7Yv200b6MV2+zRePVBT1yW0Tj+nzqc+7LpWQZtPkvdsTP+3
TXsWlOkWq80nMa/aFBjOTeZ9I+iv7zX1WwWvjJnvB7Zj7nH9j2rzyZWJLKBl
7TZs7sHS45c1+aR0du30QEMfYlq2Iy9Tk0+mNnXRqX3Lxp0vSjI1+eRdoz8e
GuoQltT99uDdmvrK/Ntth9Q54Ivw2d7afNLq7KK5hvqHWWxs4HlUU0dNgf1Y
2CedyOtJJ2nwfzb8J528lfwhnZR14xx0xhzYEfAMBE/SyTGPC+vOGvqo9sXT
I7X5JANxHIU4kk7Wg3938CedyHEknXyHuMcj7qST3s0uM7UfHqb3ddXWJ1se
NYsx1EtszO7Bg4M0/cLAjm5map/8IqysqbY+6dCiw2LDecry/sk/0U9Tn5xc
/2S4oU5juVeTLvXX9BdLcof0LPbqwlakhJ9ZqqlPzG1r/9bXsRPr+bR+VrKm
Phm1o1maOk+snWkx4qymPmnzuEmAOkfoF9VL0dYn55Kn1wxY7caqPf7jqIum
njd5vjZNnWMOPpffPF5Tn+x7aJ9hqMPZueA41klTz5P9vrBPOpHXk07M4H8A
/CednIU/VeEP6WQROEQac2BO4HkPPEkntUqeT1bnGjv+9u/op6lPeiKOwYgj
6eQE+N8Df9KJHEfSyR+I+2jEnXRS6+TYrep8qvHsnYmvMmy/0EkwX89IJ0Nf
5lqoc6t3P4/1aavpE6tunlhmqPPZoo3bTh3W9IOkk1vcT0Y6udSiw3hDH8Hq
vEvz7aTp+/pOnXDL0Kewid3vJoRp+rvtG5VYdU637G2n5PHq3A46YS0HbFXn
eoUuaaWVoiy+0EkFHhdGOskd3Tq/fD649unHpYr5FzphPO6MdHIC9gtgX9YJ
rSedBML/X+C/rBMT+EM6uQAOtY05MFPwnA+epJOAgrQodc5odmmq54m31kIn
3yCOloijrJOb4E86keMo62Qo4i7rxJzbF/Mxe+P884VOXnL7TNbJbL4vRjrZ
YJz3vtBJDc6HyToJ4ZyZrJMFXCdM1skjHkcxZysxzvNf6EThOhHzt9Y4R+rx
c+QLnTyEfdKJvF7WySj4Tzp5D38OwR9ZJ9WNOQidzARPWSffcJ0wWSdmiCPp
hM59L/CXdUJxJJ20Rtz/RtxJJz8Y5yuhk9vG9YzQyWDkq+c8XwmduCBP5vI8
KXQShDpqBa+jhE4ikG+X83wrdFLfOG8LnYzGuVOLnztCJ47G54LQSRPjulHo
pALOnUH83BE6+dq4LhU6cYD9QNgnncjrSSd0bvrDf9IJ+WMPf0gni8HhV2MO
jM7xHPAknXyLc2cbP3eETqh+GIo4kk76gn8k+JNO5DiSTm4h7i8Qd9LJP8b1
j9DJqcP1mKYvFjrZj/rnP17/CJ2koO7qx+suoZOLjmZHNX2x0Ekl1LGdef0m
dJKFOnAOrwOFTirO4XVsZV7HCp1MN64zhU4GVoh9o+mLhU4aoI59zutYoZO7
SR3qaPpcoZNpsL8B9kkn8nrSSQb8nwX/SScD4A/6YqETqud1xhzYMeM6VuhE
b1zHCp1cRRxHIo6kk/Pgj75Y6ESOI+kkFXFHXyx0ct/8q0eavljoZBXmLfZ8
3iJ0sq9sykZNPyV08nTnqV2avljoxBNznpp8ziN0cvDy81qavljoxOJ+8ltN
Xyx08io3e7amLxY6Kal+d6+mLxY68cNcy6RX+VxL6GRTcvNpmr5Y6ETB3Cya
z82ETt7DPvpioRN5PemkHvxHXyx04gt/yvicTegkERwSjTmwfPBEXyx0crzT
r4WavljoJAdxRF8sdOIB/jXAn3Qix5F0shJxb424k07SMZ9ZwOczQifLML9t
yue3QicNMZ+J4/MZoZO9mAuZeJXPhYROCjBPXsPnyUInZpgvZfD5ktDJJsyp
YvmcSujEB3M2xudsQicjMQebx+dgQidmmM+v5PN5oZPVmLMN4HM2oZOhuBdw
4vcCQicjYH8u7JNO5PWkk1j4HwP/SSeyP6STOuBwxZgDSwDPT3zOJnRijjlb
HJ+zCZ1cRhznIY6kk6fgvwr8SSdyHEknFPcmiDvpZCPmvXf4vFfoJAb3CP/y
ewShk/WY97bi816hEzfMma/xOfPnfIL7i738/kLoJA3z6rN8Xi10EoK5d20+
9xY6OY25/SA+txc6+VSZz9W9+Fxd6GQw7ok8+T2R0EkVzO0X8bm90ElN3E/l
8PspoZOPsN8N9kkn8nrSySj4XxP+k04GwZ+u8EfUseBwypgDcwXPTPAknfyC
uf1QPrcXOtmAON5GHEU+Af8E8CedyHEknUQj7ncRd9JJ51tR09TvcdvE9zv9
RtPv3MH90T6LxieOHyzRi3ks7o9y+P2R0ElD3H9F8/svoRO6V92ttztyMei9
XtQnuF/rxe/XPtcnuC/rWvJCvS/Tkx261wvn93pCP3R/uiCloyF/v9KTHadK
+SHqd8yr7azdJ2j6I7o/jS5b9ub4khd6spOd9X6a+j20uf/8qlU0fRPdn6Zu
jSl22PxUT3or1PVIUb+rDh5bditS0zfR/aZDUs9v/XLz9aS367BfD/ZJb/J6
0ttO7Hch9kt6o3vPk/BH1DngGWDMU9xvrsN+yY4F4hWFeJEO6X5znjFPNmJn
6Hj1e+7icV/VT9X0WXS/2QXxIjtu0JU9dCX6dOghHnoQ82FJV6RbusfcCx2S
bkmfPXC/SfpU8Ltf8d8Vc55LV2ecUufL7/oFRPc2nKu0fgz2dZXvS3zPfH/B
i3rq/Pp12u6yGLVugm47snkR6vfuvpctf1js00J855yZ7V1d/T4+YnqPO8W9
rT5/Tw4djuQ6FPOcm9DDC79yPYh5Tqs31kPUeX2BzRLbg4Y6hfT2Anpz43oT
8xyfv3NbqfcBXy9Z3czTUAeR3m7A/nPYJ73J60lvsp/0vcd38OcZ/CG9pWO/
/8N+6TuQDuDjDT70HcgocM4AZ9KPO+JVGfEineSAfxH4k04uIo5vEUfSQ6T9
0S7qXNipe40phn5dxHcG8moA7kMpvr3KnPurc2fduQd2sYbzluKrb35xpPqd
/SYryy7+pm4ivq0D0oLV7/Ljl8a1PHfbWcQ3e2BcNXVuvnr8R9vDhnpBxCsz
KeHIX47K2DV1j6p1B8VFfk785ftr4k/2V8E+8beDP7vgj/h7AfgfA/+Jf0/s
1w37JZ7E7XtwI55dU4dd6tvLTikMqLRHPTeI53eoZ7bi3pB4tq5V2ivI1FZ5
FLJuhnouEc/cyYUN1O/pm913sMhb4il4spBfQidnOCqXjk7PUb/bIp5Ficsa
OrdqoOxvYWMTYDhXiWfxlLr+rtHmymSriQ/V85l4ys+Jp3zPSzzJ/j7YJ54p
8OcC/CGeOfC/Kfwnnq2w3zzsl3h6gFsBuBHPTuv7F/ZXz925ygItzwe4X2O4
XyOe/WMmeg80nOvOp939tTybNHgSWCskTz+uA//einjatD56IUu5rw/l390L
nqcsk/q7GuqSfr3PvfXX8Bzm59RBZ6hvVu96mqzlKT8nnvJ9KPFMhf2+sE88
reHPFPhDPC3h/2j4Tzz7Yb/tsV/i6QpuN8CNeN4IWXhPnce9q3+tKFTzvqeg
f3fBPZTguW/mS3Xed73RzL0bNO/7gG2FXdTvAi+6jMp4oNHnlFu3QqZmODKT
LVFxWn3Gtqu7T51X2l3xiEvSvO+zhs25oc49r5cUeWjfd/k58ZTvDYnnBti3
hX3iOQH+lP7B/SGeQfD/PPwnnkHY7zXsl3hmg9tbcCOex6omNlL7zFGHj7fo
pTkfaW4Wj/sa4lk0b8J4tY+dOjp1S7TmfAwcvPiC+j3r2F4fuvhp8mdI5pPq
6vev82wz/M9q8ueFiPCjah/+tHHBjkTNeadPvzBX7efPP/O84KE51+Tnoj6X
7teI53nJPvEcAX/mwB/i2Qf+j4L/xPMF9jsZ+yWeyeA2EtzE9zCY76yqnFRn
plWpjnj2xrzaAvcaxPP3dnx+9Me+eyPCIz7qiGdck8vx6nfY6eevX1uoqTfe
LC39Tv1uO/a0aeorTb1h4s7nX03M3j077PhCRzy9Uvkc7UOqor/y6ZmOeMrP
iad8D0U8yzBfawT7xPM1/ImBP8RzC/xPg//EczP2+xv2Szzvg9tKcCOex8F5
OOfMZJ61Mf8nnq8Qr0k8XkzmeYH7w2Se67j/4nvmi9BPPtcPk/V5huuQyfqk
5zJPuq8hnqT/R7Av81wLf2SeZ+E/8XyJ/U7AfoknvdfDwI143kQeeMPzgOBZ
F+/7LszJiecA43wiePbF+zKGvy+C5xi8X3P5+yV4bkR+s+H5TfCcjTx5jedJ
wVN+Lr4vle41iGesZJ94joI/s+AP8fwR/o+E/8STzour2C/xpHOnGNyIZy/j
c0rwZDiPnDFPJp4/4bzrwM87wXOw8XkkeE43Po8+f29vfP4KnlNxjq/i57jg
KT8nnvL8X9SfsB8I+8RzqvF5JHgOhP/n4D/xHIf9OmG/xLMnuGWDG/G0Qh31
nNdRgucJzF1RLwme1VGPPeb1mOD5zzH/fpp6SfB8ZvrooqZe+vx3IqgPD/D6
UPC8hjpzCq8zBU/5OfGU5+TE8zLsJ8I+8XwCf1AvCZ5Z8B/1kuBZzbjeFjyb
Gtftguci1PluvM4XPOujnt+O+STx7I5+oRvvFwTPq6iHrXk9LHjuQP18hdfP
n3mif9nA+xfB8y76oIm8DxI85efEU54nC56wHwP7xPMv+JMGf4hnBvxvAf+J
pxf22xX7JZ4Lwa0TuBHPM+hD6waV96GC5yT0m8MxxyOet9DP1rxc3s8KnkfQ
ryXwfk3wtEJ/l8z7O8GzBfrxarbl/bjg6Ym+viXv6wVP+TnxlOeuxLM57FeF
feLZGP4cgT/E8xD83wX/iedN7LcG9ks8T4NbHXAjniGYD7zDfIm40TxhHJ8n
CD40f9jK5w+Cjzz3EzrB+j+xnvx3gv0xsE/+520vjTvu7WfoL3uzGjH1Defi
+gNNc/7rIj+fwp+feIDn/lPLnzNaLz+n9Tsf+V459qOf8mSmT627f9YX3xc5
xF4ZXTjVT6nSs0Xynusl7rSentdZnqI+15P97bCjhJXbEXMz2Q6tl3+X1st2
ZH/od8mf/wMa6sbV
    "], {
     {EdgeForm[None], Specularity[
       GrayLevel[1], 50], GraphicsGroup3DBox[Polygon3DBox[CompressedData["
1:eJxNnAXYVcUWhve/sePahQWIgo2YqFcBC0ywW0DFFhUTEUVFxA4wrgUqooKJ
iYmICiYq107sumK393v/ec+Dz3PnzvfPWTN79lrrnP3tbw227tNvxyPrqqqG
z15VLdJ3yh8fpmds0/zfV+nnSOsc/E36OdO6Bf+aft60zYO/Tz93Wtfgb9PP
lbZJ8Bfps2y1SFNV/Zx+ybSFgn9Iv0TarrH5Lf1Saf8O/jT9bGlbBv+Ufp60
HYI/S79wWs/geTJ/keCtg/9KP3/avzI2f9piwTtmfL7gRYM3Cp5RlfvqHvxH
+vnSFsjnM9Mvzv0Ef8S+0lZhXlq74L6xXy145eDLg08J3je4ZfoWacsGL5d+
rrRWwcuknyNtueD9Yt86uE3w7sGLBbcMviL41OD9gvcJnje4dfABwYsHtw/e
I3iJ4KWDewWvELxC8EHBawSvEtwh/Zppqwa3T79w2krBa7OvtNWD12KNtNXw
b/ol05YJXjF9W1rwSukXTFsx+M+sP3twnbYNwU//r3Trpl+e65EP+CNt3eAu
XD9tveBjYr968PrkRvqOaRsFH5fxLYI7EV/8mrZOMAm3IXbBxwZvFrxB8OnB
ewZvFbwxa6StTayZl7Zx8MDY9AzuErxT+h3TugbvnH6TtM2Ct2Vf/I3/+Txt
i+Ct0m+ZtmHwaVlnc/4mD9N3Tts8eN/0+6R1D74oNkcH7xp8cXD/4N2Chwb3
CN4+eFhw3+Adgo/g87Sdgg9Nf0haz+BzYnNwcI/g/dNvRws+LONtgjswN3iD
4LWCexMDGrnEXtK2xj79Ltxz8Inp+6TtGXx8+l5pe+Dz9Mem7R48OP1pfBZ8
Qdbfi/nBA9IfkLZ38IiMH8Q9B/djjbSdg8/I+N7B3YJPDt4BHxGj9Ien9Q7+
MP1zadcFXx2bY1g3+Nrgs4MPDL4u+Jzgvvgw/clphwWfn/6EtIODz0p/VNr+
wTekvz7t+ODz0p+bdlDwjekvYE7wmemP5P6xz/qD2FPwlenPYK3gq9IPSTs6
+Jr0Q9OOCR4d++HBRwSPC74OfwVfmP4kYhZ8W8ZHBR8XfGvwsOD+fH/TX57W
L/im9BelnRj8SPoxXCP45vSXpA0InpJ+fNqFwfdknduCTwm+M/1/0k4NviP9
7WmDgu+KzQh8FHx3+quJH3PTX5s2OPih9KPTzgoeH/uxwQODJwTfx/0HP5b+
lrRh4IyPCz4neGLwE/gU+/QP4qPgp9JPTjs/+IHYjAw+nWsFPxB8ZvATwU8G
n8e9B19GDIKfTn8XsQl+Nv29+CV4WvqX0oYHv5z+4bQRwa+mfzTtsuCXss5b
wVcFPx88KfhK/Bb8YvClwV+nfw3/Bv83/eNpVwS/FZs3g28Ofib4efwe/E76
t/Ed18r4C8EjmRv8UfCo4NeCPyHPgt9N/0zaNcGfp38l7cbgF2PzBnEK/jL9
dPwe/Fn6T9Nu4Fo87/A1c4NnBt+PffCc+A7fpr8/4xcH/5z+g7Tb+O5k/OPg
O4J/TT+DPAj+OON/4lP2Fvxd8K3i74lZ8EfBvwffGfxDUxkfG/xj+vfSxgX/
nf6vtLuD5+N5GvxQ8Lw8Q9MmBH+Vfu66rPl+Pp9KngXPxrM++L7gfwX/QvyC
F+R5HfxIMAThC/IbCE8Ivif4pOBOwZsGf8szl3gHfxe8cNpjwUvzrEmbHPxT
+rnSnsI/6ZdLezq4ffoF0p4NbsvvZNqU4KXStyBXqsIZ4BjwgV+CW6U9UxXu
AW+BAywR3ETeB6+SfqG054I7pu+Q9lLwOumXTJsWvF76lmkvE5f0i5BbVeFF
cAl4wkrB86dNrQrHgLfATz6uCndaMO13ntfkcVV4FNwJfgJXgXvw/IVTwZfg
IfzO85vPbzj8B34FL4K3wHPgA93kMHAJuBa8Cx61tc9rnu88u3mGw0/gQvAi
+AM8DU4FB4PzwKlaVYULwcfgAHAzeBpcAs4GN4MLwbvgVG2qwmfgJ/CiuZsK
d1q+KjwNbta6KrwOzgOf+S14Nb6HVeE28BA4DJwEHgWHgQvBl3gOwp3gPDwH
4T9wFXgCvAWuAh+AL8HN4BtwMHgU/AQ+AxeCY8CL4HJwlVZNhaetURWOB9eC
t8Ax4CTwB/gS3Anesn5T4Tz/rgr/4RkNlzjMZzS5DR+Dg8Ft4IpwMzgMz3G4
Teeq8Bw4TJeq8B+4E/wE7gRfgpPAW+AePNPhS/ATnrlwFXgUPAROBf+BA/As
hv/AN+A5fNfgEvAouBbcCY4KF4X7bd9UuNC2VeFpcK0t/Z7yTIfDwKngUfAT
eBEcDJ4Ad4IjwQfgSPAouM3ixDdtYlU4GzwBjgR3gqvAPeBm8DH4D7wRrgi/
glfAr+BRBzYVLrRXVTgVPAoeMtFnDb+98Cg4T6+q8B/4Ve+qcC24Sp+qcDM4
DxwDngNng4fAu+Bg8G04BvwEDgDPgQvBN+AtcBWe73A5eBo8Hx4Fp4J7wJHg
/3AM3gXg8PAH+Dz8iucgHAw+Bp+BI8FP4CFwSHgjXAjeAs+Bk8DN4FFwCfgS
HAkeAt+Ak/D8hZ/AQ3imwxvhnHC2S5sKjzqpKvwHPgNngF/BheAePKPhKvAN
OBg8Cj7zffCiaY9XhQvxHIc/wLXgY/AuuBlcCK4F54FTwU/gYHAeuAc8DT4G
f4AvwdngCXBL+CQcD94FdxrMfTUVXnR2VTgSPAd+AmeDp8GF4GzwtNOq8lzj
WcZzamBT4auHVoXzwKPgMHAkeFEzv2oqvAXuAYeBC/HMhRfBYeAGE5sKL7q8
KhwMfgVvgefAheAb8CL4FbwFbgZPgxfBu+B4cBj4BvxkVFV4EdwJDgOPggvB
PeBFcD94BTwQXsSzFT4GB4PnwNPgZvAZuBM8AS4NZ4DPjKwKF4JHXV8VHgV3
gp/AYeAh8AS4E1wFLgRvgVPBSeBXcCH4A1wdLgTHgPPwrIcnwKngXfArOCpc
FI4Hj4IXwStebyq866aq8AQ4PxwGfgWngsP8r6nwtHurwqPgS3AD+BKcCh4C
v4WvwkXhdfA3OAY8Cp4DX4Knwc3gNnBIeCNcC74H14Jf8f7Luy3vcXAeOBXc
ht9Efhv5HYMjwaPgG3AquBA5Dy+Ct0ysCmebU+4xR104z5NV4WbwK3jLEvIN
uAGcB54Dl/greNm68Bj4G1wOXgT3m1sOA3eCL8Fh4E5wIbgHvGhheQUcbB55
y/f+rsIZ4GDwycn+3jbJVb7z+8vzFF4HN4OHwKngUa8Gb1gXHgJXgV/Bqaaz
ZlPhBrzXt5XDvF4VrgUverMq3Abe9UZV+Bic6r9V4U5wobeqwot4pr8d/AfP
RK8HB4OnvVYV/gO/ejf4k6pwp/xZbVwXvLD7hD/Al+Bg8K738XOLsi58Cv4A
j3qnKpwNnvZe8PbObVUVTgu/neJ1PilLVJ9XhZu1sOdv9KUvq8IbwYuIF7Xn
MzSr/1WFs6F99agLX2pN3laFW87uHPBi3tdn+vwr7Zi7WV341eJi+B6crUtd
eCBzdxLDwfj8u6poaN+4jzm1/8Z1fqwK98Nmi7pgeN3OXgv+9ktV+B66HJzx
z6poX7vUheO183Ps0Nl+rwrnnMeev9H3tqoLD1zSa/3s/hfWp/hvKee01P4n
x3Zzbnuv/4drwmf/rop2t7R/L+PYX+5zu7rkKnpaU1PVzG+xp28yh1u65tL6
40fvd9u62C2rL7/Vh4zDObnW4XXhdXA5rjO71+K6czh3LzF6GrkGb24lhvuS
t00tinbGd+szbcgB8hPOCTcmtvBs4ru342s6zvsAObBvXXhsB/MKvo1v24hX
MFfg84uai/DtNsYATExW0Kat/b/EPVyf/f/gfsilA+vCh9d3nHcA8qd3Xfg2
XBoftNQn5NjC3gu5wHtCOzFzlzDHFnWdPtqva54v6H7212Y984P3hZWNJe8X
xHZl8SrmB+8OfL6KeFVzbHH30NJ1lvLzpbRpIV5GzL3Ajfesy3MEm4Prwrc3
NO7LanOIGO2RuC1n7OYVtzJGvL+01lfLmDPEmvcI3jsOFfMe0azX6sNm/dg8
WdDxdYzjCsZ3LTHvQfiurfnQUby2+dPGvXVwP2v5+YraLChua3zbOd5PvJm+
XcNYsM/2xu5gfcX70VF1eZeBz+P7VfT/ouL1xO3NAWK9quscLd7C3FjZ++V6
vNORC+uLeZ/i/WpN47KqmD1u4D47GccWxovPO2jPftdyz/3r8s61pTm/uvtc
WnvWXlZ71jnefOCdi2f9HC3K854Yrmsc24jXNL68Z/HOyG8K74mdq2K/vjlw
Ql3e47bR57wfdQ0+0bm8x53i+I7m3jrun9+rTl6XmG1kPnQRd7XfWDxAe97v
iO2/je9a7o0cWdnxdbTZ2Hxg37zDdtFmU2ONT7fU56s6TkzPrMu70u6OdzG+
xLqrc1d3fD3zp7P7OVWbnY0p76fEn/dY3md5Fx6k/U7GcXPX7+Z+uttvJe4o
3tD82cJcwpfd9OeWXovrDHbNXZzbzbh31A9rmQ/dXf9MMVpN87u1sesk3sSY
8m7Le/dZ4r2NSw/th9RF89nTdbY3f/A/7+abmjPbuJ/tHd/BPOG9mPdr4r2j
8eoh7mm/k3gTcVdzpqf5ebb72Uebnc29zmJidK7X6l2VWO1qTHnn591/N8d3
N46bi7cwvnsYO/y8lzb4fU+/j+fV5b2+jzHa2u/I+c7d3xzYzb3t4lyuf6Fr
8r6PrrCvebibf4O7i8mXS8xV3tO7a8/n+Hg//dzN+9pKP+zq/rtrs4f2vY0d
cezjeK+qaAJoDsR8f+PeQ7yd+cD7LLrHcPFhxuIg7S91zUNc50Bzidj39Xt9
ZV00BHSGfRzf13gxzl6IPRoIebGfuJf9oeJdxD3Nn4PNscvcz+HaHGYO7Cbe
UXyEsdtDjK/w+7HmBvE90rnc04neF3HrZz5cVRdt5BjjfpRr/se5R5tvR/s9
PUB8oNftZ56QD8eIrxGj7RDz45pm7QuMttPXv8H7eu/7aX+8eULOnKAN10PP
6WuO9TcP+2hPDqDzo+ejmY90LloKzxdqtHAJ/DrAWJMD6DnoG9eL0XDIi4Hm
yY110XZOdnyAOcOeT/H7e7gYbQqfnanfLnMu9mPqouegtxxprvazHyw+XNxL
fLo5xrpoX0eaS6eab0dq09ucPMN1jnIPjTgOcR10KPQotKabHT8teFRddKcT
zYeh7h+fn+13/BbHB7v+WeZMf22ONe7DHD9GG/JhrOOnG/dzzB/ic74xAp9n
rM8VH+/38STz4STtwbfXRQdDE2vMac4p1z/OHLjAdZh7offI/V7kde8QU0O8
sy5aGfoYuXCpuYH/h/t9JAaXGWtyY4Q5c71z0Qbx01X68GTnDtTnV5sD5MXF
5sZA10QzJIZXGEfwldoPERNHPrvcfLi3LloZetrd7ucc7a8yvmO0GeS8K8T3
uR90PPx0g75i/9cY60fqon2hv91fF90PrY9Yopeeoc+v8/s+zLnHGPeRrvOg
GG3weq81xLy61n2yFrrrme7nRuN7kfgE4z7auWe61hBtbjKOx7kO+zpeG8Ye
di73coq+GGQOjPFaj4ipkz5aF90SnZDY3mp8iddYfxPOEaOL0tBIzzOXmHu2
cRlnXj0uRockVjebP6c4l7Xxx936hLjd4T7Bdxrrq8WnmgPon+ilXPt28SAx
a0/S5hrn3m3cyYHxrsl17zG+6LJosuixk+uio15njO7zu3yxGI2Xht6Llvt0
XTTVkebMvV7rEu93mPlwv9ca6XUHG9MHzKsh7oMxYvKQMRotHiGeYA48a66O
NtYPu3/mPmJML3VNxp/03tGHp2p/oz67Qx8Sw8fMAXRZ9Fl05ufqos2O0Wai
sSYHnvA7eKWYegqN2spV5hVzLzcfJrn+C+Kb3dtU43Wec1kbX07Rn8TzKfcJ
flr78eILjPsz7plrTxafL2btadqMc+4UfTLZ9bF/2f2gP+Onaf/Ijee0J57P
GlPu77/6h9x43u8+ufGCufSKc283Li+aSyO1H+X9Pqv9KG2ur0pDn7/B/bxs
7B4VjzCmr2jzuni886Y5Pty/L3Xuq+YPuTTdNd8QU2ef5H0RL7QI9J3W3u/r
xpRYv+F3/GbxLcb3TX2CT982H96si4aPJv+2Nvcbr7fMn/frorfDbW5x/Fbj
8oGxI4bviqeKrzG+1HSoKbwnfsjrv+P4rf491rnvG+vnxNeKPzReL4ib49hU
ag/jjemMxlzvi/oFtQpqFtQXZtRFt0fnny5mzQ+c+4jx/cQcuFN8lznAOuQI
8fvUfLhLTL3jk7rUGp4w7l84Pt19EtNxfq+HOf6l8f20LrWGSd7XZ02zrvOZ
67yhDffL/X1t7N4UjzGm1DXuNV7f+r2+X/yAsZ7p3C/E1EQ4F8LZkgmu/z99
SIy+M5ceEGOLz37Vb2Odi+03dalTUAchR340N8iBn1z/a/FUbX42x8iRH5pm
rfeD9jO0uc2c/MVces/1wR+7H2KKnyhAjDeO1Hea61Z1qdFQl6F+Qh1lsrnx
h/dCTP80Zx51LnUlYvCX+TBT++fNn9/c/+PaTKxK/P/+R25Q02H8B/E098l5
mknmALWnJ5xbif9yHeb+qA3nVYjzbO5/ppiYflaXOhW1rWXErxo76l/kwlPi
p82BuVxnefF084HaFvOoV1G3ouYyQfyg/byOP609tsSW8QnmAzUmYk3cqGM9
ZA7M79x24je0oZZG/vwmflhMXY3Yreyab3qt+Vwfn1DbI///0J6YrlqXmhf1
LGJGPe4F47iIa64ufts4Uncj7tToqMlRj3vMueTFC9pQv5uoHfNeFGPf5NyJ
5t5C3te6daltvW8+LKk9sV3CuD9mHj7u+FLGvUmbaeZDS/Hf6df379nN7VfN
B/xCfOsWRd9cxthTK3zK78Ly2hO/Vn6+Ql3wa9q2Njeo+1FTpJ7IGJ9RN5zi
Z6yxYl0wNtz3qsaL9VbQHn+vov+J50rGkVxo51zG2zt3IfGzXmdF9za/+5mi
/crm0kKu/5bxoo5J/NesC6bOiO+Jx3vuZ3Xt8eGyfo+wXdPcWLsutU7siVkH
c4C2hnlFv5br83lH7Rnjs3e9bsd61hprO/5hVWqs+V9zLNc3T1q0KDFez+/K
St4j9pxXW0hMnXVB565jbiwpZp0Z2rM+z8EX/G38yLmsQ62Ps27UUqlzUe9s
1AA5h9eoo4JnE3MOr1EjBVMzpYbJubfFxZyNo076reNzas/4Ytp0EVNX5Bzb
3NpzBo560/fiuRzfzPV/EDdsmEsdk1rVFuLvxdjM9FqL65ONvXeuy5m8pcRb
OZeaJ2fyGnVI8Lxizu01aptgapqNs/XULn9znaW04Qwf9SnqluBGrRP7ZcXb
avOr+5nHGFFrpH5E7Yn65XJeazvnzjB2xIt6E/atqlIz2VYbYsoZvtZVqSXu
oD3jPbRHi0ArGKAN5wLbVKU+yVlDalLUmKjzraj/dxZTSwJTD6JGt6v3Tp2I
emE7/c/ctu6T+tkaxmsX5y7vODWX+b3uovpzN9ehZshZw0adcA9jwf1SK6LW
Q90K+/b6jZrfaq6zq+PLOk4tb2nnrub6uxt3uDfnFzu4JmcTqV+0dhx/oquj
1/d0nDOOjZoeZxw7ivfTn6y5r/fYVpuGb6nbUaOhzkJdjXpKG+076GfqatR0
VnM/7d3bgdqvLl5f/7MOdRzqaZxlpBbXzms11+Zcc13XxGYD47i79szlTGSj
XneQ/kfPp461sbGjTkaNYz1xo47G2cpG3YwzlJ31P3M3cvww7xH7w51LveZg
bTo5vqn3yHnHLb0X6m1djQV4M+/rKHFncXOdq6mc3ewiPsJ44fOjtekqpsax
mdfCn9Q++ntdajUnuR9qUJzvbNSsjtNX7L+5tqRPqBttq9+o/Wzt3GP1+dLe
L7Wt7s7d2j1gQ81iG+dSQ9nONbdzP83/lqMq9QhqUdvrtwHa7GKuou331J5Y
UEsaqE86eV/b6+f++qGnNj3056B6Vo0ATF0AzRZtF00S3Z76UKNmxNnTRm3n
NH3I+GBtqMlwfrRRbzrVNffSpjGXM6lo8mjs1FT2ce7p+qeH43vrK+o36PZ9
xHvqN+o0aO8HiPfW59T/qCPs4366uebQelYdZqj+AXOutFFbGKb/qV1wNvRA
xzmrup/Xoh6A3ov2Ti2nd1U0duooffTneY4f4twe+vN8bY4S729MWaeXvuKM
bKN+coF+owZycT2rpgHuK75If/by3vcQUxc5SL+hj6OHo7df6Pp7idnDCdpj
s5HfL373TnIu9SCeIzxTFjF21C3QpQeJG/UNzuA2ahGX69tmjbouujQ2I4wF
NpzTbdQ6rtDPaPOciz1OPzO3n+PXGpeh5mqjjsBZ4Uad4WrvkfFrtEHr/o+5
faSY/QzTpjGX9dGEz3UPffUPdQJ0YvTgm9zzBY6foE9G6AeexWj9J+kfzgGj
A1/i+AB9O8q5w7U5XPsbtblIG+oRIxxv1Ao4HzzQ+6JmgMaL9jtGfIZ4kPsZ
bryu1v60qmi5aOuDq1Jb4L5OEY82jkO1wZ7nL2eKltRvnIc+XTzWddDUx+lD
MOePGxr8bcYUv6HRD9En6ODootc5F113tDYNbf8OMRomWja65RjHh3rvjJ+v
r9DT0W3GiRsaPGeUGxr8eH2I/V3a3OJ+hmnDuduGXn6P/hmr/cn6875/7Ifa
ALoimiS69kX6GYwei0bFOdpRVdHFH9CH6KLo3eifIx0Ho3NP0CcjtWHN8V73
Qm04J32pfkPXRrN81P1c5n2hKTfryeIr9A/nntEhH3Yu+3/QNZv/fZk252j/
uHMniRsaNv82oKFhT9TP6MNP6ENih9aMrvmMuKFFPymeKm5oxZy3HlkVXREd
GS3xeccv1s+T/2H/dD1Lb0TbvVH7Z+pZ2jD4EjFnuK+vir47RR8+7Fw0PXQ/
dN7R+vNZ13zBa430frnHq/QtmuZN+ofz3zeL0XabdT9xQ/flXHhDr31RH6KV
ocmO0+Z5/YwNZ8cbWuxLXvcZ7Rva7MvOfc39jHHPnAvn/RGNDh32dn0Lvs2c
nKB/PtKee/zANW9znenO/Vjc0G7J7TvN1bHmNjnPmfi7jAt6a0NrRSdF9/tK
fI97RhtFF/pGjFaGboYeiib2heuM159v1bN007f0LXvjvPij2rztOmhT6IBo
TeiW7+pPfI7uiQ72k/gh7/19MXrqO/UsvRaM5vaLNg/r2w/Ev7uHO9zPDK+L
nve5e/7Dcfb5qb4iJ9GTOB//uPeLLjmxKhrjx/qT9TlPj/6E1oTNE/rzU/Gf
2hAXtCnGJ+lb9KYn3Q/n49GR0JfQGZ/S5+DJ3ju+amiNX3rv6IpfOY79585F
k/nMuXNrg9Z0nc+O/voZbXGKPkR/nGqM0ODQjtCFwM/pK87oN3TBb/Ub4zO1
Qef7rp6l/4Eb+h/n+NF+0I5mus5ijuNntDHO1qN3ocOg903Tbz+KW4pf1lec
45/u3J+8d3Qzzty/Jv5Z3za5JjoS2tc39Sx97Bf9g371q3tDf/qtnqVTcXYf
3amDuPnfI3gmPy5oPguJZviK6zAXXYvz+th8SFw8F71AVc5Gg9Ek0BmZS9wW
cQ9oaHzOWeoFXAOhiWvNqcb1QVU0rq+NHWugXbIH9C9sWtqji33gOuwb7az5
v2/QopzzxoZ10dH+D45VQdk=
        "]]]}, {}, {}, {}, {}},
    VertexNormals->CompressedData["
1:eJxNXHk8Vl3XliQlzaGSNGjSYAgV3XeDWUokETJENFEiQ6WolAbKTIlKoUlR
FO6DyFgRiZKSoULIEDL0nWuf4/2e9/f807Hvdda+9rXXutba+7xzrB0NbPn5
+PhGj+Tjo//j0+79R/+vjfqWZvVrZkUUz28E/ZAvmnd0VZlOenkLtdnAamur
eySvouXjh6ycT1TEitf60Z11FP+K/sKlfIG8xqXrfr4U+El5VkYnX/Yspvwl
c3+v6vDgCXopSl+Tb6M2VFJXrnoWcztuK08dlPXkhJXntETSz11b9ebEdNZx
9VIv3hxTe5Wz+07fBtjpCY7LoN/LffB2+Zs8pUhOu0vHX4p+r8sA8ZOr+FCz
1mNqFEfBcKVhzQsjzjaT008w/uqFhJcYf71FeXFmzifu6wq5cbCvvyjwMuyb
q781pO1zHdwHZeCPgvHkpAHanwrtwA7aH27ya+tp/rT/b+s2662m/VeZkTib
9p+rED+4D/P1rf9Sj/nGW18pgx0PaXdT4HNGQNcS+NQtqgmh8eF69jF4js1g
8LS9GXIx4V0ERy86eTPGq2/IyAOOp8Qvr6vhu8HrXrWy+G3fT2qSopFLjkAV
1Ri9pAR/N9OJfP62r5YK1hrSU9UvpQx1UhuAT0ua/Oij8QXUtPLABKuUVErc
yJXgvOnoaF+P+AKuwg0hftuUVG6FdSnBedei+EMlfbXcpBnvR6zVL+V6KJoT
nAVO8MmV9P3k3tiZ/Jl+L1dMorcXOO/uqtADnqVtRkWYj2ZyEKfY1pBzvXvK
Aow//HV5GcanlxjIAGc96qA57O89bdJK+8ldn6u2DfhoHZgkA3+klbsTdtP+
vIy+QXCWnCJoA/8nph3js6b99736gOAsGt3+GvM98zrQCvNNbkwlOM9Vb6gA
PhZuhn7AZ5MyNxh+LY1h8JTYyOD5ZOv3TLsXERyXiUPGWK/7EqfrMM/rxopb
bQZu8BKj9qfBfsjAheUn/BopydQX5fhdvd5e8xm1ldRv/4M3I+W/UOuNSn7h
d3Y7JB4pZmdR5/Kr1XLVXlF/U9MJzqdfekuuys7iprUZ6+erveJefp1PcF4/
ap/DzNpK7phS085r8l+4vI4FBOcQ87Z/9Hu5J9aN96PfyxVMVCB85ru2Dn5y
ryrPrMc8H4/8zJegaMTpGs3tw/iKP/4nMZ5zb8cS4Dy5yVQP9n+uXlIC+5PN
phOcJxVtq1Wm/dlcf5oP/jTdPUNwHlQT/wP/5aruBMF/0b93CM5nf3uewXw5
sj8/YL4nVy0nOCvtLaWAzweL3LXAR+xYcyhwXjOJwfP2LAZPJS2dng8BERzl
+Ctkvz/eoURwObc4MqnvQDTPz2lwHNbX02DHyUczW6i2U1aFwNnmyFWC55Sh
k4ZXnOuoxih7Ejeic+KqRU3jqcnXG/R4OUVUjlzzfNgr9dZSnmEaz5XT3Tg2
O6eIyzs7SHDmneraq0TPd+WBy7OvOtdxhwYPE5z7rM7Y0e/lRvYFttDv5W5c
7/YPOAsoF6fQfnKnKIyGn9yc30n/Pu3ezon1LTXH+NQs4TqML1Kcsgg4P36x
zxj2P3YvGgv74q6dJG54h9R8nU778/P2tXtZ8CfZl+AcmNUnJUb7b3jtbQL8
T3M5R3D2/P0xD/OdPH7GQcxXt+0OwVlWc7448CnW8b8IfBQlTEjccEtg8Jxs
yuAZnnqi3OttBEezZXYo4pWWriuZf8eCs5/zLaJ5YmFZJ7G/0qKcdWEnz9GM
8PmMT9dM8POv2Z2VeO/6hi8kbvQqvlACnneVeBPhp+W7MPIezS69uFm0/2lH
N1VjXj+XZZL3pNxVK6ftUFYu/n9pO1xeaNlG2BkjJPKDfi/V9GvhC+CmFbBx
ADjrpJoE0n5SHoce4Pfc71o+/LFF+hxz0081GH+nYVoixkuELF4InAXGmGTD
/vYLrY2wP+pbLcH5b1W7GfwZEZPiDn9um7oTnDeWCQXC/4bPs1zgv9fOVIKz
jnffCsx36ddAHcz3nHQ7wbkj9Pwl4PN8sYgp8Bk8qUtw9v7F4BmzicHz3tpN
BGe37b1SyBc6DWvJPPWNArURN/Y2TD2I+OY3c1H0cXpfmMcdITgvqee3wn40
lkr/HkHvo+WmHt/xOzO/0QfAn3tnwrJy6H23elEF4fME2RHvMN9TV/Iz8+h9
OjP4NXn/3MBEGwl6Pyrn7pbBvnbqUSN8lgs2fkq/l4p6mNJHv5d7UHxuH3C+
EHt4Nu0nNf3RETXM8/bIMwKIG5lH4h9g/C+boHaMP5CXSOIG5/OAJuzHjIsT
gn1F7QGC82k6L8OfNPWwQ/Dn+womPgccSr4N/y+LOYxG3BDJyiA4n1Fp8cJ8
Pae3T0DcWBOwgeB8Q/PgUeATpl97D/iYOi4nOHOMGTw3NDJ4ZkQI9yJuxG93
J/l9dtyzfsxnzChBBxfXaB43LUUG+aVQZH1lNh3n36R21ADn2c/KBxAPV0gf
klWh80Kd6rtG2NsydtIR7N9r0+MkLOk8ouZbSHCOnVTcCL7JF/jttaHzzg7D
doLzM5MlKcDHvupYPW2H63mlcD3sLHY7E0S/l4pyuLT2JZ3XjgmeI36N/jAZ
flItDpaD9L+5DQFFRoU6Ozhfek/6YTx3spQCxh/Otic4d5qK34T93Gi5Etgf
6HAi8XnuOHF/+POixmca/Dk65iTB+cfPiXnw30XtsT38f68cTHB+8UNiMvA0
uNquhvkGf+snOHfmLVIBPoIHpb4DH9OxuSQ+dxszeFrGM3hqLdqVhTw41M/o
pevlulKL7plywvDPfzd421WJruPODUkQsOw04hg1MbpOSYHoOu7RcdajE930
OaUyjK67X0N0HVdnV6eU4kFlzqcTjK7zqiG6jjq/S8zmeIYybx+r68Z2EF1H
Tf27V+NLoD5PP5bRdTnhRNdR+fG9UsLLtvMcnRldR2QdrZd2L4uVPTTFlHdM
n9F188yJrqNevLETx3jJJkbXWX8kuo6qe/V1JexrqTG67q4X0XXUxdMa4+HP
fVbX1ZURXce9+/yCE/yfyOq6t/eJruNOtymfhfkGWTG6zngx0XXczLNBE4GP
9QJG1y0fZPCMeM/geegGo+vcRgoS/RkSqEb0UPGPcnvwWShSZR7W62XLYn7w
5HlLWyVw7ldY0gY+B0fGaoAn748WtwAflTUPrcCHAAkjFZoP3K26OwnOVTbf
v4E/kUO912j+UPKZPgTnOFWnR+BbdW7aEHiy7uBrgvOL7HzCz+MZg7b0eylP
ls/GXrMJntKlH8FX6pbd1O3g8863B09ivMahUWYYnyDCJfMYeOIdCftLVfya
YX+Yz28uu3vDn5IqZVX4c+boPYKz33SHF/C/obkwAP7PSUonOE9v1RIGn6VG
bLLCfIf5vKHMgujPlty8CcBnB8vnLAEGz7IgBs8b+uOFNrym8+DrXGHEk2V7
pYkfmw9Y6SA+H4o6twP2NdbfS0DcO6sj2QSc12+6qYl49Xugt5+Oz9xlbHx+
IffICPHtVahSAR2fuS/yDAnO1ksMMhAPX61d+JqOh1Rv4gDBeae0oC7i51az
iVw6flKObHzWX3yD7HdHK/vR0EtrSxYiTlCv1gXCT6qfpwc/KckZi0h8Lgv/
SvB8btw5hDiZazGVxA0/+9mysJ+QsG0W7HsouBM+y+m2noQ/CqvjTsKfbuOL
BGcliRVB8H9zVbAYHZ+5GiciCc72ad52mK9LQe1sOj5zTztFlsPOGf+5tsBH
0MXtBfAxYeOzwBsGz+n7GDzLgkZ9KS6P4MwLt1uK/CimcYm8TzxXJhm67qN9
2iLk014nd33k8UxWb7jeNP8K/Tn13bhVyONcVm9YHn7ZBL1ULOY8m87XXDuJ
UQRn45Sf25HfJ+z5/ZXO79QPVm8k+MRfxXyHXusNIY8P642bhoLI49T3J/so
5PErun8JnxO//VyC/Z488hb8pER6/vBX07rOaKK/D8YH+ek+xfjprN5Y05BB
8Gyvu98E+wKs3rj/0W1QgvbHY6jvBPyZPeYYmXfi9sS10Bvp/gPu8P8EqzeW
jNvShfnGf6vXw3yzEkcQnF/whJSAj6ql8C7g08fqjd0RDJ5HNRk8n8dtJXrj
wFZpUdSb6QO3id1vh97VQNdtayqCLqV0/k1wgZ3O4t0NwLnP/+ov6MlVW3u2
4L31rH7O6PafA/05Q6GHAz9HVfoSnAPeKF+F/+bdk0fR+pnKYPVzfvS8OPBn
VpaMBK1vqTPtTD1opUm9wv6tdTf8AdxuKR8h8Xnpdi0xxM9O2yD4SX1cM54P
OHPeL07HeIXstGqM71etIPtVfZMr4Wf0uihB2Fdd9I/g3NHtqwJ/PDc53QHO
Gax+VvzBOwb/e8UDb8L/1OVJjH52/DdKCfpE7/JezFeH1c8NJg8PAp/LLpd9
gc8Y3jWC810DBs+pQwyeW88OPjSi+bxowvf9qF+OcT68w++zvUqP/Yy9wbvy
9VgB6p3v7XESqLOyTHeTuNEz7r036qNNzz9HYh8J9l0meuP+RrlXwJ9n/UEJ
++5NjB/B2Xx0rgL055P+Bxvo+ouaq3qL4Pxbu8sH+9HfQq4G+zqNrQctunlT
sB83Fa33QNz494ipB6XNnsNP7uyn/fCTurZn/QjEjVtH88ZhfNuv54cwfmZh
O+Hz7eX1e2D/bB5fGuxPZOvBBV86OsDPzorSdsSNz15hBOfbr7oJniMTX5+F
/1tuJROc8tr2x2C+72uiszDf42w9+EC07D3wkZWcuwz45Hp0BwHnShbPHVwG
T6eGHBI3Tvw2JP2Qu3fcSBw3c5Ih/Y2FoftKUL/n7J2lhb5B2NY5P4FzwYBH
Juzfljssh77BFra/0btiYArWd3q320krOo+ccGfi82nx3QHYX3aGCz/thl5i
+xsTY7+7AZ++HbQ0pPPUUba/If3vC9FLs3ZeTETfYCLb3+AMOJD8brVsFvyk
VvN510ybZcz5sOofyUcWcX6xGN//oZLg3KPyYDfsv8veWAL7HLa/od2euhL+
HGut9oY/OWx/49fzqQfgv+mM1Ar4f5btb9Rvm1SB+frVq2pgvno51wh+zauj
vgGfJqvbJsBHg+1v7Ohg8HS7y+Cpn3WH5MElbH+pUOnukHpHBMeX7dfJrWb6
dSFb5dYJq4Vx3rL9OglZpl8X7KLqJ1wUwKlj+3XyVUy/LsBwV7J411HOcL+u
j+3XHTE76ews4cYLYXVdK9uvO3BJo2J5RQDPiu3XXQ9h+nVXNm0xOGQcxmti
+3ULWL00zvmAttRQBG8+26/rZ/t1kxS+a2F8KNuvU//A9OvM5FxzYN+U7dfN
9WD6dffXms2CP8P9Ooc3TL8u1Js3ajrt/3C/7hnbr+MTmh2D+d5h+3UrFzD9
uqhWMz3g85nt15n+ZfDMV2bwNGf7dbd8qVbzva1UI5Xk85KOVzG74q4GoT/4
8PDi5bt/UBGu839gv6/SWOSOfP+5PWgBnhtnFnAR93Z2NwVg/JPH/u+AX9rf
Meb4NzX4uRpxfqVs+1A2jZ/OhDvJIkmhvNjUKFfYSbod99ln8icq6ZrRVvDq
ub/2L/j9fPYmi0P+ddTAN2sb7PeitLluGL9D848c8N607Od7M3U/nuINkVaM
1z1RYHhtlj/n9jbVeHv7/Rx+VmenecWpujb5c1YMjj7RvpWzdvi5WPbjK2cm
03myoPkL+oe300JOwY7fh/1/sD7VLQXLpc75ce6LzyTPlxVcy6Hny81eu9Kp
gI4nBdZ9j4H7ds11kcD7h7236/H6UE7c/GtPSL84Ze5ii72t3MiXPpk0ntyJ
I/MOBQAPm6gqel5cHaWM+dfp+DN/zJ0kjDec+12Y1J3Rz51rJaM4Vb8knTB+
2mGJ+bDjdvBXGuwk54sX08+5JS3Tt8GfbUfO70Hf5pBQ40GMHxRXF4SdyZba
B2Ent7ziHcYnx5QnYfzFvEQr+O/59GQe4u/ac3e34Hn09UEb2BF6HEjGD/bK
X8C8AiYs34N5jRXJeIXxyZUV9sBtfoVlGnDL0Lh3Afy+/qziDea1aW+jCOZl
KitN7J/v+10APE1VdQSA58yfJWS8wcv+dwVt5zi/zqWZcHLsOGbMunAnWFfm
dAee53iYPR0ZsGnV2uHnjbUfR5ymeRLoanUYPLkxuKMedlYIj98JPrwLKxgA
H0aHLyLPFVSiV4Ofd8J+/gFvV1ub7MZ+W2K6TwT7+HumeTZ4eEbUlTzPcdzR
C/77VLpeBP/tvOY1BtI47DIT3g8e5r65egg8TM6UsMX4KYIKVeC5pmhK4p8n
13k3RZ/+wPixSQz/u/oZ/h+WU2T0j0PvMvjjvOChOvaLQ9amZozfPELNHPq4
4FZ/OvQyJbCjlsSxmVbV2BfSlWol0Bt81+QOw96etJ/92EfZlQ4e2A/Lny7T
QF3QJBAo++Hpe6rLoP0p6pcIF5UW8DZC45AcnieZWX/Fe0atmUH2nafYvwUt
nec4pbfuJys0+vxvv4yJos5XPn3P1cxQeYO4bVIlQ/hvMT21FPmy3uFgGa3f
uQ/bD5F4qNDVkQqdnTJvcFQpnTecllwj8VCT9yiJfi+3dYfsAeRTz8+hhOd9
hQW9tP9cnz/bTgDH6uwix1mnDTmxEpYi9Ppy0yI3j0qkdc4bb9fD4LPSlyMP
YZ8aFBtB7D8xJfHzndcrIYxXa/flw3jxleZvwduk+XYO8P+xq+Rj+D+5PIbw
TX1lwx34M/LMj13wZ2zKFMJnvYXrTO3++XB6a08vXNbg9T8etoT0aAO37Fax
YuCZvlqK8Mq8OiYZ/a9C4YtttB6hhJf1kXibN0NmH/BVdpPPwzr+ackMR7yV
EpFRhp2sz0pt+LugRqEN5r09nVnHU1XMOlr2WV0YkxfB2ZssUYd1/2ez4QPW
PXDfqibwJHLEp7nogxz+a2aK+rUjprIMPKl6tV43z+8yp+anSgl4Z7Wt7Ax4
kh6VoIB1ELlwm8RT2WYtFegT78Qgw3TxfOrFpulPYG/l0/Pk76UaMnOiuOc5
ggpMnL6VwsTnBa+9A8Y/8eS88pu00ijr4v944ldpWpUhns+VM2giOidusPkk
7DyrcduNurfnVXkZdET1bWNS15zUzj5Nv4+r2zeUCd2RaHeN1DXzog+vDCo4
x1utw8TR2/OY+MlReaaIPpSA5wL4x20vvLAN9btS9GYZ383+vJnSTLwMb2bi
5KUHGz1h/4H5vBTY5xsnQniy9+JdaYzPmcnExTPvmHjocOfgA/jfqug8B/5P
np9HeNKlc2E+/PnWz8S/UeOYuLfu2BKnGfKunIbS+Xrewr7/48n3fUmOwLPz
3FzSx7u1vrQOdvobNfPX0LxpOf1ADnx4NOYL0T+HQ6tlMa5x/IAd1jFHiS8M
PKk4lb8C+A+YMfHp1DQmLp28waxjJbuO0ne2Nl+ZGcnhvye0DeteLMTEIaup
TPwpM92RdeDtRY6uCqOPeth+1+POxKuI20unT7MFr0Q3y10ET/ZtlT8T99Gf
M5Lpn1GqfIy+Gut2yVfUwpPjrsvk2+woJs827vwTiP3lLM29CD4/uZhyBDyR
X+a1XOfEigz+M0y+HeaJgY+a1cnDnrz0T0xeXc3mU5VXijti6314or8ZnRXM
9s1S6x2Gnjpc5GWGMTpr4hFGXwkbz5teRe+jv/nHxLB/+w2WkXhinLv37uM8
fx77Pu7SrYzuuq3flUvPl7LMTo9E3fT7qP5e8GSBgGMn7EuaMbqMYvtsC8qP
ZGK82P7RIRgvGWpSBZ78ttVThP8vBpk8FveDyV9RF38Lwx+b7IIx8EdvF4fw
hJuj/UFt7eIMbTsmjw3zpFpfJBF4bp3A5KvAMCZPWSw7eER0ymlO5T1Gx1Wx
fTlfu/4SrKPeIkbHCSxk9NuWpIJI4G8cZhIG/OtGNBGeRBgw66jAnBtTStGM
rlv94FQk1v1T0IwDWPc3WaNawBOBw/yZ6EN5fSj/Cz0e7DsxFzxJXCqbCT3g
EKBzHH2DQpOjseDJpH3ufZh/odQuss9Xdf3bg75fXO/Ij9hHYlsH9cHrHRmK
hCc69dc+Qg+4/26Yi/75h49+nuDJdeXjWyY+8eR9PlhWsO0/8aQmSNiaovdR
DG/CT/j1cs5KwhPpPxVeqEPOZSsGIJ7w7ftOeKLjYIx9SyVo2ppjv0tbXSHn
MuZfSowP0/n6pt30FuQr3ePzSTz5Pn5MD/qAI491w3/unEmBK3HOu9NIsh15
+XX5xVuou893PCZ5R656tDjsh597YQj7gcVShCeBLfXNGJ/kuDwa43s1rUvB
ky6+JBX4LxbMzYL/nwQrCU9ENs3eBH8a9Rbj/JH743FhLniy4nr9x5nyrrxZ
9Uqdp/4TT5735PYCzx3v37sAzxbJa4QncUYFtYir1z89a0FdNWcFc15sqjvm
Dd6X6NwwEvFEXsqb8GTe7bCfwF8ku2gN8A8u8iZ5Z/N+Zh0nz2XW0SB6N6mz
Nh7PzsO6Byi9OY11XzNwneiTw3b8Tci//3pTRiGOGV2p7wBP1JebEX2rsOBu
IkXrpVrXNBvw5FWdK4njZneMCe6qVo0Zh+OieR6j7z9F/p2r/WQU8umUCzdJ
PEu8FG6E97Zb3arC+cvqLTmkvkhzlXlF6xOe8kiPFnlan/CxPAmbljAN+27a
HXNJ5HfBdhXCk3ezBSKgz7yVbT6jT1Aydik57zgVVKyJPsLhpS8NwJ/PCp9J
PFHcYEDWPXV/wp5XtB7e5fOU+LtuZFMEfle0TQjxhdsm5cePvsSRf/es6PlS
D5c3faPny921JILknZljH3Jh/2Oo9ibYb9Qekga+mUJ7zTB+p+msGozvHJQg
+iRQqq2D3r+Uusk9fvh/YXEr4cl8w9Ff4U+wxSQT+COyIZbo547DWh9pfcJT
kdGrk/mPPtGpv1MGPCW3WEoCz0fy2oQnpdQ9D/As/OW5HnLuXV7P8GTsi79Y
x4bPRVOxjs5dV0jdLTpK3Y6s+9FPP4C/i6shiSe99cw6brnLrOM/jUOk7+En
37AC655zJeoZ1n1j7PpW8EQ0MRp5hTtUWBbqFl9ACQpu/wSedAv+mIfx+h1r
JmbSOAzzJFlj3DjkY78/gQeA47xVhqQfGP58aBR0XXb5x484Jyq1eNyG9Z02
rnkr/Jz01GMu8CnIWEF44nV7rzdd9/EWF+xM2v2fuu92X1YW4vn8tqvO1nSd
kndA2Bt2zvJqx0N/f/961wt9o0ideUSfqDV/fY/4+D6rrp/2n1uo/pz0t3+n
zGvBumwr7kyk30sN80Rz7Clh0ne0kTiKdRVRf2Z0Qmw7p/qaGFn3euuJavR8
qRMXV5G67xBPoBj2j6yr64D9qV+ek35LpkvNdowvCtflYnwXy5NL84Yi4H9U
2nJ9+K+4N4rwhBNT/Qn+/DQVuwl/hnlSxyc4srDtHG/dTSNllf/UU8cv7FcE
nnJDCwVxf0Yp9C/RJy/fq5gjfo2Z+awGfbL3arakrxsoV076sBo7o+5gHf/o
GTDnm2HK1sDfcK6ZHPD//HcV4YmIFrOOuT3MOrbbLniEPuSe6v1LsO5PVb5M
w7rHL/5IeOKramkJ+wcC5H4Bh6fXv1aDJ0IXzz2G/dHdCf7w6wubd5wc9Ylu
KxedSHSbhVknuXeRPjka9SB3TZmhAvpO/SHnCE/cYiXLEfe0+MZpYR8MfbZ2
Bk8mnTE7Dp54hBeI2trvH9YLlK30jAzgrNC0OBf3c4Z5MtnOXhg8USs8n07z
hIpgebJQ6TWpxybIRRu60/i4+/EPgSe3l8jqIs7f67bFuTNV8sqF6JOP4y3g
PyUdOwd5grpfI0p4kuCYU4t1jD9q/AzxVlmAj+gTN1X+PNj3tnmkA/tiLE+0
7Ed9xvhHPpefYHyvl0058BghaxgC/30PDsTA/2GezFuezYU/XUtk/iD+f2fz
zrXV8UN03c1buO/hWZonvGGenH1lLws8C9eOtQCeiixPOm/0mmA9MrXrxLBf
ylmenNjV7oR1fPJEfwDr2MPyZEpLcTXwV3rRbAz8QyPvEZ6UOjHrKCbOrKPT
WhtSF++eXPYc6778umYI3qPM5p1D2Z7fyD0AXzlJxNVFTl24n0UZV48n/Ydn
Dxcdxvu7Bt/sAk+W5l8nen33DGWiwzJMV/CQd4JqJ99DnHz+uFUc+fPsSB6p
i222xOyHjjoemxKM9zxmdWxZaPNz5J2poTH8dF38P570f10qRPLOe80V0CPD
eSdFQ/UM1lujt6gD9WBzkyHRJ6bBh1cjL/BfWmmDeJvS/I3w5MDhYBL/M7bl
SuHvwzr2zIbn8J86d3/qK6IDpx536z1iwnH5PiYM6zsyfcsd8GLd72YST0xP
nZbD76Wjas1gPz+Qn+iTNb92BGL8jTdOMRif5ZlQAryNHWoa8N6Lx0WmwP/h
vDNVSp08n/bFbArsrXHsIDz55XT6DfJO1+zkkUsbvP7HE+HLEvnA80mVKO4n
cE9HFBOevOme6oD1VvrkOgn5V1GtldQ74RmpLcB3KHHnAqyjE5t35JsCjgL/
I+aTY/D3WlbHmhcw67h9JrOOV3eYkLzzN6DwANZ95AUJN6z7a1bHXldJDob+
+WrhAP3DfW84hfDE+vqSSr+ec5zlTaQu5lqwdfGP36eIjv9c00zmH39cjpxf
e6TrPYfuqlyevRt15FL1mGasb8cqXUPDnz4cI6Yu5sawdXHpBTtp6Ni8t1cq
aB37/zxxyVwFHbhs3ohOnC/nsDpWWXS7NXC/aasfivUa3MvoWOEFEV0YVz5V
xh76bT6rY/8IqB56/N2Hd5Kpi6mbbF38ONEZ/lNrDdrgPzVgO9kYdXFNyYf+
9/nneO5MXUyFsHXxeMHTzbAfqLraAvbLxHoIT9yVLHowfp4EqYspb7YuNvi2
ZzL8v9InW4TfDevYE9ddd8OfJQOkLqYE2Lr4ZPWWVOjY0HDHIVrH/o8nTa9W
lAPPzNY1p4Cnid84ok8UX1O54E3OVf5u3At4Po45FxDuEL6BdXzaozgB67iC
1bEVN0otgL+OOamLuV5sXby4k1nHxV+ZdWy9uJjcAxlnZvwF6z5zDKmLueZs
XTziqLaYiLgvJ4qpi7ldbF28rpufH33Fvz/0X4FXXxTVT4InezdvzJrmeJ6z
i71Xsoati3nHS7YUCbtyCpi6mJvJ1sWmUzX10Oe5kfHgA/hsEW5O+tXvTw+M
rbJdnGHB1MX/40l1hVTwOhlX3thqUhdTw3WxQ3vwU9FXXrytTF1MBbJ1Mf8G
hYvONWd5k9h7JSJsXbwt3u099mNgsYgt9q8722fLWbQm7f2G87xd7Pvms3Xx
M19vJcT5x+5jBhAfptgcsgdPxCrNfGD/IFMXU2lsXbyzrJ/kBafbm/5gvN+W
cZXgCb9M1CH4P2aI1MXUXbYuvvm1LA/+2FjWbYc/zqJbiD45vVz0dpLp/Iwg
pi7+H08iLZycgOcNpi7mXmXr4keVugYDV7w44uy9lUq2Lj67/t08rOMNpi7m
jmDrYuOv+SbAv5BvbAPwv3qkhvRpzbYw6+jP3qeWZeviz4NOY7Du5Smj32Dd
L7F9Npc33jqou2Qul+iDh+1sn+335rBVyL9Xyz8sQ59cVVDWAjw5vtLNDOvQ
aMn0fUa7J5D7XfmtU13RF+qOLIwH/xXYPpvQk0EH9JN7n+9TxP209VW30Ael
eowHk9Fn62nXkjH6TzzpjKj9i30kPcpvLepRtyO3CE/OvWo9gX20+qnLa8ST
T2yfLc1jzwO879J5RfTBqIdsny3EUbQJefnSEaGR1+l89fz1g0Tw5GDSdfjP
3WSRX0fq+sBQSmyVAWe+RIot8nLvjpyt0EENbgf3gSfPa37cgv3OXyYPYL9f
mOmzCb35a4nxnwIG9TBe6mfQe/AkfZpxBfxXCw4XI+eSbJ9Ndx5FdMIzlaxf
yJ/Fp5l+rOgMv6vosx3+0bve+z/xZP/SI6HAs3/j3yK8X7nCkvAkvyPkK/ps
6jc1lyC/iC5l7ttsrC7ejnXU6r9K+gO87tGkH2smd9Ud+OtuvrMF+D9m+/mU
IrOOK62ZdfS9eY7Ek7qE4xys+7gRaXJYdye1X9/Ak+YtsvvRf1k4Rz0B781h
+/abjs3uxjlCtF//FJzXhLDnaE8Vl5G+3u1/L0n8Sr7skgl9Uik1VxW81Tvh
FYP1XDY4m/Ckr2rTcrz3ydaZgbjnrMSeuwXca1VE3/5az9lr/9Unx0x/RiCf
Tvp98TnyzLxIYcKTPftmNSAva/DvScG9m/B6c8ITq7xJ+dgnK7RGd4I/+9m+
vXrIKdIHqH2pLllA1xdLvy1IBk+SVJ+OA67OR02BFzWxqmgU6mLHEZmkHtx5
N2wTzk3GsOdcQ6umUbDvP8OzBfYrtXnkvnGKxlJSFwzJnNLE+MLY0RXgyYfB
cqIHfj46ch3+v+r5THjyRMOJ6MNtnw5Mgj+3m5k+2xHzgD3o258fEfnvv/rE
f48piQM+pcWpwDON7dtn3+vMR9++YcWkCnJvne3bu90644F1LHEXxf1Trmdz
IYknu+w8yLr7OH+NAf4r2fOjRiVmHUP5csi/pe0jaqBPrH48GsK6T6p/JoF1
rxqZTs6PgvbHqSBuFoRNyfKkdfKae3rkfvjP70y//s0o2eap6hGcsO2MPmk+
1VxJzk/NI37h9/Yao8n95xNCB8i5wNqUjS24V5nCnpO+Zs9VvffZBB0TC+bc
ZM9V/ebu0Md56OFAL3n7/9Q7AlpMP/dqbc8aC0tfzkr2/FRZ1D4U+upYjLeb
LV1HhE+4ycSZk0w/1zT1hEt385qMYTt9GyTaoNenzB97fzVdH136t5Dwan0l
0+fdqOUZO/G4L+8em9e2fguLQ5zd02g47xhd12wKPc3ch2TPT588LVWbNz6Y
d5s9Py290gkcuF8sRIADJRQcLYB7OLLzmL6/ooppgdLWCF4pe056tWXjddif
aNsvDvuBqoXkvlnVdKbvPyM/PAfjeex56PhLuQcx304LB0PMN409x7zVx/T9
n9hsUYY/o9hzT13v0I84r1zjoiLA+U/dtO4v0xeu8PrkhfnOYM8309RvjEZ+
CQ3YIoLvQYbPK5PY882U5grhHYGKGcN2+HnpHNR1gScKx9B4cl8KehJ+VrPn
m2GZ/uZYr1Hs+abonjZN8GreBO1i8Mp8ygjC2yz2fPNkSlg0+HCSPd/c6MPw
qtuC4ZWo4BVSp1ey55h919M7wMMI9hxzPsvPv0rL43C+GcPyM3tK23K89/Zi
aRngPNitT+5rOdooKeF5xp9rJmfpeaus/OOJ8fsP583BvG4edVoPnqgnnSX3
Euut6myx71bMLFEkdZWyIKm/Ro3+3JNBx4UrUZvezzSNpzq4CeSexuwvvFzc
j9fN1zWZbRrPvXEqhtzTUPed2wweXhn97Ddw82d5uP+D6S3w4dsOBS/aT64h
y7cUh0/kvnjf6QXp9Hu5k1PdCd9ed88pA98yfwsa0n5zjTq/bkad3uahsR92
HHYeuUDPi2tvUUH00qPaUWF4bvvh4xHYj2T5Zqv10A7Pg9omnsV4j0dxJA+e
FyypgJ871Rd9IX5eyiP3PQz+rSd1bnyZ6EP4I76/iPBNaEjRGvNN37l/SJKe
r3z1EXIP5HN8pAW+BzikPUMB9/guv2a+c3Ecrb0GOO8TLzEGzrksf26uvLAe
66JfvUAF66X2VI3wRNXutxPwP1Dhsg74v91/i/BkwvbDazG+OSHIEusop8ht
Ax/0kt9Lw/73sLlCK+i4aPROy5fo5K4jFxFXv033fov6N9/b9QfwVzb6cRPP
XTeoTEcfYtHJFU5YX+cV2sfwncDICvtn6DvttdtK1nc75XsK9/KlRsfPBz6v
lz4i6zunW9Ea+WuvWbo/bYe7qn4VuXeRqtSD7x+4r1PnKNP+cBVexpD+04RT
OzXxXPBApDyex18QKQP+GyY4PYIdqUyxVJxfh2f+IvifD+kmfaKV7od8YN98
KnNvoW72Uzn4E9nB14D7btFXvAn+H97U5cL/wW3mf+D/eP1sgr/fwsvxmG+1
+bq5mO/QXh7B85HjMRngpshbNQG4jWhxJPtr7R7/TvBcJ9BgHfp/n72MLgHP
rZfHJkDPSGmriSNvntpm1kS+Q5K5dh7vbQ3cegh56eU0A0fgyX9O02EXHb/q
pmpH4x6WD38G+S5ghG1bKvqGY5X5pyE+9PdmEzx/ljYI4D6cT/MWAeATe06A
1Auyb0OW4T7i4uIbHsjPNnNvkrj65pH7IjxP+jbKBc/tv28lfB4RoG6A/HpL
vi0TeXPH2UnkntgeY9k/uGesk/2pC3nb8Ukb4bPvu3YL+KN1vysV98j+3Ysk
eKbfXPoY/ofc3doB/yXOxxA8J5WWBGC+EhOV3DFfbwMZotOmBq8ZAG5CuqXa
wK3L9i6jx0zEsrBfrI+2j8Fzv1obd+A5snyyCc7XuPLMvTBR9j7Y40lHvLC+
5vfy1sL+bh1Xoq+WFojuPu+8nzP2M3NfrJG9/z/md/CPmEf7eZXVzH0xF/ae
mEz41Am4X+Jc5lCJ+RadsCPxpMdoRi/ufcpEKG0Ebl3BskQXOSbIdOJ5/dW3
a/F8/iM9ko/+nVu8EeehB6qYe2GX2Hv+VWu98J0bdSnCKR/2fUQ7CJ7iQdO9
4Q//Cea+WAp7T2y2V0YO/F/3jrkvNpO9J5ZfJOWP+a6r79iM+Z6abUXOg2ar
Tc8HbsWW1ycBN6GR+8h+t3tQ8wP7qDBaeh/Gj1ooFwk8g6aaFGLdjYSsynEO
VWS5geA5mLj6NfaR0zjJYOjrGyZix8l+v7i8D/fjz4eFrMP6npF9SviZveCJ
Hu7x6CR/TwYfYmc8JngmntsQgnog/ZTFFOzHZwdfEDxn902agLri1QfrCOCw
L8eXnNPN0swifdrGa2tC8LxxVArpn7+NNDkAHVmyeeRx8POscQPBM+Db3JOw
v8dgymjYb2g4QPb7isDK37jfv/CEnxH8kdqYRvDMDhDXI/1Q0xFX4P+tRuZ7
t4z05XWYr/RH4VjMt2xZPdnvNcn8rcCNkopxBm4S44tJ31tv+o4byAvfD7hc
gy5octh/jdzTKFTYDjshIc4fcV7DL3+C3L9dM2NyOvLC567iQujZkXX2LsBz
nYf2OOzf8qzIMYg/r6PHEn6+2/BmPHgiO+GHI+KVz5+3BE+dlnZy/mXpdNsA
+vpQw0GC57hxmysQ5x9/2VaC+t5snJ0z8FyhnlOK5x9/dBfhuYf2/SJyX2Ky
gAtwU/OupaCfLd6NJfu9avxl0ucsUF2oBvve2dGEn2dv6OC7L4p/nq4c/LH5
4UfwNHDN2Ab/byarqsH/efLPCZ4RzxfnYb5/YnZWYr5xobJM/X7VhejG7T9V
Y4Fbz7TZpD9cwfb1UhUCb71dZsqJNmT0yYpvB7WB/xbtm8WwHxcYiu9NKdGV
TP+uYe0u31fJhpxNbB9v4JnCUsQ3gdjObeJ0Pt2nHk7wnFLn3Y19amiZnE/r
EK7WxxqC5wZdph83L+7L+QrNbbzNbF9u9gKm7yY/+9aVG8ImvA9NjC4tYPtr
qS6zLuF5bimjP8cm2+I7Q2qsYtd+9NWT39UTfjax/bWagOpjsP9QmNGfS3N0
guHP1MZPTvAn1pf5rupk4qKr8P++9Jgn8D8imomfYy2YfpnkmryrmO8Stm+W
y/bF2mZOvwfcYqYwem95/oVA4Nw+PasA675A4GQC8Nx1X0YDeBYcfTsKfiaw
eH6Td3qM9XpueasV/R7HDfePAk/rcxsWwh8/6YB7tD/cYTxd9+xth/+uMSPm
QrdosnjO/TSDnJ++bdyO+o8a5qf1vc9F4OHQBIMhrPuLFksH4Jnxwhx9Oipi
hGAfnjfs3knOQcJ3tvwBngslK+JxXvOUxXPE1jBZ2P/DMce9MOoUy8+bWvIB
8GfEgsWF0JnDeJafUr4E/53vxgrhe45IFk+JSS2kng2LDBnAfAMe+ZD4mSXD
FwXcPPsUy4Db1R63WuA5Xk+/HLj1qfh5Ii51LmDiZ4XGzLXkHt1iy1/0fuce
i7hG4mdli+VTPL81ouMO+iK1Zm1ED9/ZKz+EfOpfozET3xkM7/c3L3+RvFBD
bT6F7zyG9/uVqBOu2KfifGOkoEOS2fgpZu5E+OYaIHYPcalr5URH4HnCJY3g
NnD/0B08f7h43QfgqWxx0hp2pH6Kf4CuM2f3O/dCoxWeu5Wtmgr7RmvMCJ4y
m349xn6P7L27Hv6YtoUTPG9cKdLEfjdY0Uu+Q/p57h7B0yJSPxfzvWI77wnm
W2ieRvA04Vp+Am4zFP56Azf+h5KEnzOvqFkhT12YIz8BeXNv579jwLNXuech
8pF0Rl81+smDTaWkvsgW2yyPfDfyxvINsGPN5vco/j2vkI9U85Zw8T3HohJ7
gqdTdKck8lHtvu/QJ5Rj5MRfwPN7jHY25nUnuKga+BSw+V3CjxcE/vQN1moh
b3ay+T225q0/nif+8UDep6TY/M6fXrkF+ejb71mnoevOsPkoXyM5CfYzzd4V
k7zM5nfJl6mvkY/GCPpZwZ9J7/2Z7xrSbWchH+mFHg+H/61WTH5furF2HeZ7
Sr2VnJPXq8qR+PnXwcUeuPUfniwG3ATZ/O6n2GOOOqJyWhfRIT4iUzYDz/ej
NRai7+rF6CXusF4y/2afBz1WdeHfbthP2TaZ3FsUmGHxZPcXO445o5e4w3op
zdeucUOmHU/uM/Pd5LBeEs08aAw+aGlH/MN8b7L688eQrT/23dmcZ9CZ1KUJ
S22B58uPSefxvD3G3RHPd7P6szq1JxB98nhGL1HDemnDkbXasO9/dzy537FP
ZiTJ7xqWksHwZwejl6inrF76rjeJz5b2P5jRS9wZrF7qMVxagfm+WC/jgvmK
v1EnePLm1lsDt98rTYiu+60lTurpdPGZpP4Kle/twXgNtj4KKFAl9wAFOoYm
QoccZ/W8eqpHKuqFyWe2CEGHiB43JucF2336L0IP39JJDMX6nmL1fLDiwBfo
Z0OJSGFaz1N/WT2ffXbOcewjYfs4H7Lfl/kRfrbM1NyFfbSho3UB6o4VbH10
RChgJ56fNNKYi+fBL8eT/pt9yPkD2Efn59qlgZ8jZ2wjeK7s/rcH9s16Jh6F
fRO2PjptaO0Lf7Rtrj8CP10OhRA8a+I2V8P/8K+t3+H/LFbPtxoUFmG+Nbnh
iBvcAbY+alIv5QK3nKdzwAfuzTcZpG8msTGW1KG8T+YyqKPDJfc/A55/YrfH
wM6BUoOn0CHD9Wa4hK4j6tnjzzLHo46exPYT3MRU/LCOJ7a2kO+8h+vNL3/+
ED181t5xPOplFV45wTPioTu5J1MatTIIdbEI2x/ofeBB7kXM0wqzRl385fgn
oj9bTe3IOfibL0nmeO7C1vvO42NJfBNU3xyFvuvHhL0EzxVqX5thP/LX/LOw
L8rW+4FKFhvgz7QkiRLEzyi23uyubX8P/6emqn6D/yJsvclJaiB9Sw+tCHHM
V2+BKsHTcM0ULeC2zO6vEnBrFA1vAJ5FHw0kgbPwC/kW6DGzC0Pk//ejaf81
IfD5w/EAT+gKx3gBgs/tBROKETfWbr7TJEnnxyi237I6u+Aj+CNtfSyc9P3Y
PkZLoJ0txitXJV7E+KaP5DtFbpVLwm7Yz9rVXgT7HubM92qPKfkSvfA2atd7
11lhnumU8sl7v17Ep1PaMotL8Xxm1zZJPFfxrY+jn3O/3g8jz39N2aUQ6pnO
7f1w2zmNHj97MKMczwX+rlTCc32Hr1cxvvZB4KHjxW3U3i6BWxg3qfPVO2pm
NM/hMscFz2/WGik+mhXFe7/mRhTGP/kyxxnPjz2cevj+uwiOSEnQSvzuetcM
Mt54sRfxY2pUwodjdyM4PTXMeIO3RgqwI8aOX/CIee/lbua9x0ba7FO/E8HZ
0cnYkV/E2Omy93f5JRbNW+jP+FOaXe2M975m/fk/JNK4gA==
     "]], {{{}, {}, 
     {Hue[0.67, 0.6, 0.6], Line3DBox[CompressedData["
1:eJxt0FtI02EABfCZQ6JSTGflUmylaZmXLlrZrH+5iTSnzrItwyBDA6sNC0FS
Zq6mBV4T1JHlBQc2rBRcCy9zmlruwRmsbEzn2spoTBOl3EONeis634Hz8ns6
HFauJDNvHY1G4/+pJ+1vro1HetAoPkX7L7oam5ZDcIZIUXqf4AMOL5ffSfQN
vralsFPoXdnNszwOuv0b/WVTCno20yKOEaBz7EuO6cvog9tjz8UXodcze/M4
Fei51XV3xpoJP0ja6tar0JkTPt3aQfS3tsGrwQb0LZKHTMqKLpR8mDGuoIfN
c+9G0dPABQGrxugA9OJh98GOcPQoU4LMdATdkv/OIuOhO/ufzxtz0O9J+w0O
MfqOF7umbpSjc3OGBrQP0POL1ZpSJfqn84tCuwZ9WZX1xXsS3SUJkqvM6NWd
/n4bF9HLWk8nMdzo132sslrfdPCvTmXvFAv90gn9Utkh9HhR9LQpGV1hHW1b
E6KvzarLKgvQ7SkmvrkEfV8JWzdThV7IclPJreicw8s9xT3o/iNUTPArdEn/
SIvciB5xS/as8TP63NP2qUAXem2XS9xDzwCP7jP82uSD/rNjwpK4Fb1+Mksz
HYIeupfRFLQHXTpaINbvR/c6/rEpNQG9arXiTWUSusk6thyaii5eYF/hEZzu
7JsrJHjsWqdeS/AKb3mniI9+IIErqkoj7GwYH17NQN+pSIxnCtA1j9XdFMFt
T5SKaoIf1clvhmeiLzi54RfOoJeuDD0qJ/hmVxyji+Bsz90e3wneEOhlrjmL
HhEiFagJrg398dpMcEfMQl9EFvrtuIuR6QQPOPa+vYjgKiptWwvBqeSJmtF/
/De+hBUR
       "]]}}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], Line3DBox[CompressedData["
1:eJxt0V1I02EYBfCl5kbIX1ybJjbDaGoWqQuyWVYjybnUpoVa6UQzWSMsi8K2
/JotdEX4EZq6SDAU51Y0V1kW1tTlbJoXlVrRVsxS+mCOIZiWdVd03gPPze/q
cJ6QvBNpRz1oNFryn/Ok/c2TB/yiOK14F+2/yILZYzkEZ1U6NykJLk3q+Gom
uK+NJRV3oUu8nJIjOvTFlPak6lvoMQ5m+CsDuk4Y9In7CH3a0dsyMYCeln++
LWcE/SHnuOHGa/QZyt0jsKH7x3aZNdPop4TKUOss+tUrsyXZP9CNVM27Ds9U
8BazmXfAB/1OLuftSxb64JY2NRWM3rr7abQ2FL1YTdl/RaKXGRX2MD56sn/F
hEGAHmi4Oz4nQteplKOa/ehx9aXWhSz0xcrm1ZEF6EpdSv5AIbq3L6+bWYye
2qmfN5WjD4cm1iVUowver+Sp6gg7jJy1rGtB751jSEtuonM9ezO1evT0hOUC
/j101WBpVEUfukJRE7BhiPBHlkncOYbe/3ltrX2SsL8ryHLuI3p9TDzD+oWw
g9FrZ7kbPZg19YzxE31e784QeaeBN5dpbN8odP6l04WiVeh0uWyfIgRd0zof
RkWgRy7roR/ajF7dRNno29H92CqGOh69cTiCP5iM7rgvzc1LR5c/to9XEdy3
PzPlNsFjR4XbFgle6whnN2Sg7/CbGbJkEnrKjkVFH0bfePJDewbBTWcOckoJ
/r08ccVzgsc3rnfkZ6E7+2car2WjX7TkUn0ED3oxeWGK4HveWIp4EvTrzs69
VoLz5kJMLoIPLTRtDcxBd3uruQUEV/t4aC4TfA1TzuwmuDHAVTVJcBFHtrT0
j/8GGvYPog==
       "]]}}, Line3DBox[{{0, 61.5, 4.5}, {0, 63., 3.}}], 
    Line3DBox[{{0, 61.8, 3.375}, {0, 63., 3.}}], 
    Line3DBox[{{0, 62.4, 4.125}, {0, 63., 3.}}], 
    Line3DBox[{{0, 60.5, 4.5}, {0, 62., 3.}}], 
    Line3DBox[{{0, 60.8, 3.375}, {0, 62., 3.}}], 
    Line3DBox[{{0, 61.4, 4.125}, {0, 62., 3.}}], {{}, {}, 
     {Hue[0.67, 0.6, 0.6], Line3DBox[CompressedData["
1:eJxN2Xc8lV8cB3AjZCUaykoZ2V2VVcopCqXucyklIhJlJJLMCEX8CpHZMIpE
RkbJjkRRikSysmeRbO7v+KNzHn++X/d1n/s6z/d8z/fjbLZw0D/HxMDAQDAy
MDAz4L8lOvxzoAG2NTJhN7bE7/3n92rf/1z2vbtixYdjvDT++U9l+eBlF9C7
wJAScxu5yrGts0vQX5tSHkjtiEQurFMgt+wDd9YZuMY8QH5cq1tiEXpZxiWb
Tu9E5E2BT3rmoYsa1cgw7EhGnqA4+WIGOqdbU4hCzHPkwybX30xBD99QnSOc
nIXcy/Rp1CT0uvqzfPHeL5DXr6q6+wv6e7n+75Hb85GfPq9f+xN696XaJY3o
YuQxkmUrO6A/HtSxinEsRa55vY6jFXrKW4vwK0/KkPcvvDf7An2fDX3i9bU3
yCllDkdKoMvY035yK1Yhz3/irxoMff8awS2JEXXI6fXen/yg5/UxJkz5fEQu
UEuR84RuOuiao2n/CblpZqGy3fL6lAUadifWIw/PSQ/VhZ4jF9W40+MLci7f
PqPZizQwLUQvmZFpQv5r+7SBPPQeP9NLu2+24fdITbQWhm5Sp/s2mqUdOdsX
RRVu6HqTfX6j/tj3PVnNMWJPA2FtQemefh3IV04aeCdDt0uWbl5f1ol89QPL
9FXQXZyKTrYV/kR+6q2WarotDYywTJ3Yl9mHfG6FeLjweRpwK6/Yf/n6GPK/
4lf25JvSgDq46ihqMoU8/tvjw6L6NOBcJrfff3EBuZNLM88ogM/VUV+h1swI
/rlQ2vbkOnkayLQKMVfKWoH89A+rzLXrYZ0v2PiKXmBD/mqeoVFqgQD77s3S
LqazI08VZd/F9pMACmcM2LZacCIfHmIzWFlJgP1DTvvmKrmQs0a9yLxXQYCs
/qGi7TXYzfTi5rdAp5+lrLOsw34kNtp8zxsCvOVbPJH9Ffsu4TMXHMsIYL5m
nH2qF7vaa4HrTUUEUG3L1djKwo08oPxdzL08Avh1vjDYshd79tHYdZuhbw55
GuC8D/sWF+CfnksAG/NY91It7A07PHZV5BAgfQclVuMw9gmvRu7f2fD3ZBek
DpzAXi7peEE7gwCbTL+ZtDlgX61dWTqaTIBz6q9Y9WKx9102FHWHri8xEP30
Pnb9i8VXWaH7t2UJLT3EPsbpyrnpCQEyfjZOhSdh/7j5cQ01iQB9gXv7bNKx
d29jKMh8RAAByZY9b4uwd/ZelLCJhu939E2QVDP2vEnJyL9RBHha3mSS2ILd
zEGa8Tp0z9fzvOtasb+s9qyKiiQAy+WN4r1t2I+pWvO+jSCAuPW59m3d2Bev
xpeJhBFAN6fVymGEtG4pbN2poQQYNqZqXR3FXkBzYVSCvs5cgMF1DLuRV8v2
wyEECLhWwWv5GzvfgQqbq7cJMC8uFNX3B7tLXYD2p1sEWLiqtxgxi110tF+T
gK45+YVTZQ673M60PZ8DCUBVCMquJ3lL+aB0QwAB9D51lg/NY1/zRm6w6QYB
7O9wTRQsYmdYCm48AV1Noy9vwxLJ/W1Lmv0JYDLWwuNAcgn2XXe++xGgoSTr
BhMde5rhJWdj6Ga+NgkaJJ8IyjP64UuAN4HD+s4kz9We39x+nQAfYjiuVpI8
Q1STxQy6lPTdwQ6S61+XGujwIcCnFbnjEyRX5fv0/gx0+lebkEWSc3ieet7l
TYDjiTlv6CT3sB4LsYBe++F28Cz5e7wynLqvEaBs9fzgEMl7z5Uct4Q+Ekxv
ayA5z/t9ar1eBLDOTbDOJflmfRNhK+iPTw/d/I/kp5MVmfo9CeD4sme3Ccl1
DeI+DngQIIZ9q/VP0jp/W0VzGXEjgPKOicpbpPelrStlaQ/dufdduAjZA74Z
jLnCz5cvzjxbwO6YoKf2+yoB8tlXBTwj1YOV0lXRySsEeBDWladFqreo/Llr
C45wP77kD+idwH5yBWucF3RKtV79n3Hs0kfECpcuEWD3NHPOLKnOPeW2rGSE
Hp+95uAIaV+InVvXwnKRALxRs8/shrAPXfx1ZbUNAThkEwq+d2AfTntnHHuB
AFzaHnKe7djHdTZoi0O3fF9psJ60r18u3lNQPU+AqPMs5Tu/Y6+7JqN1xooA
B2zVRQUasa+zGUnMtiBA3ZyBdkAV9ugnm2eMjOFz43i0xp5g3/Bb9cA7PQLs
KjPeyk0l9XP6tWxd6As1wt2xpD58RuS+XO1hAhzc91xZVAe7Ydww9fMhAnDr
KqXykvq8xfpPR3/oECDEzqU5ZDt2SuC6I3+1CLCad6Xe3BrsSlZrD+7cQ4CN
p/OsQ+rxudMtYzYyKk8Aq941BxgVsbuFJFD4eGG/WuP7xzaWA3nX88qdpb+o
wID+y080byXyK9URToXFVNDN/Jg1fTcrXp8xDjnZCCpIc+F/4xbGjFy3+dEe
V3sqyFz8OBV7ggH5BSHGrOCjVOBswGxMVM3i+SFmUeSaKhXYbVDl/zE8gbyL
J8hHHnoMe1WhfR32TuoOyzYVKvAWM2aay8BO91F5sRe6uYl5NJMTdoMaL1s2
ZSqot4xvbZweR16RA6yyd1CBjEmL+Q0m7HZXBled30YFGlPpD1Ok8Jwz/vlW
21bo807ZxL2hUTwfanynDChQgeWqWFf3dOyHWxrO2UDP5GV2lKVgd0kS5rwi
TwUjj2X+SquMIH+VJKufJEsF937Lfn+qOYS8kMFC01KKCkw8xllkT+B57Nx6
nyEV6PkNDoInhbATzMxsXNBt6FeyvLt6kT+dtIjP20oFppLPw0tssV+tzTu+
CrqC8MaWBe8e5GNM9xu+SlDBWOVr5cAUPB9eD+cyLRajAk8rKSvfPjyv9pTm
Vz6CHpXEZJ7ngJ3VfijBF7pwZMnKrpkfyH/LcpbpQne8LvZ1Cyf20pm/wW1b
qCAkav6BwbbvyMM+yJ8XhK5usKPZzwXPzwODi0a/Ramgmu8k/QcjnttFpSL7
uqD3TfR73uXHc/5oUkVvA3Sp+0Ys++Rrkcs+HN5dAL2YzsEfdPI98oikKu1b
0LeeFDD7koFzxIOIMxeuQReuET1uWPkWud6dlMXL0Gutr6//2lKJXN714LUz
0CXkU1orVlQgb5Zn69wL3dB4j3hLbgnONbK6USrQHaNWccZ2FCH32aJbToHO
pi/OcYyjENen9S17cege9JV8eWYv8edTa3+JQLeLoM2bBOUhZ65p6NkIvTXv
czE9Nwe5rdH2rbzQ18q6h6hw4Hzn3BXszA1dZubwUuyFdOQFV57v5IAetEeU
r6zkKXKZtihrNuhzwrO7OtY8Qa5dcZibBbrtgpnR7PkEvI9e1UgwQ//eWRIn
4hmHfBeFL5sR+qQo64SmZATy9/4SmQzQucZNRqvjbyF3/8MsuuwWFO00tqEr
yP0ePmde9kbWY2yb8k+X/vOM/7acWvbvjvy5QRa+yI+kWogtP1e1uilUMiAU
+d5KezMm6M3CRQ3MbVHIR8I0V62AfsI40bx1+yPk1LTubazQG0pfFR3XSkJe
HefzgRN674DaZv7YZ8iDBD0P8EAP/VD2akwrA7mhqsb2NdDrw4JvdUxnIbe3
22ApBL2cwqOdlJiLXCzvr9TO5fo/+YZtZLoQ/84GbrXd0J1F8qIU6oqRd3N1
F+6H7tYjwGaTWIrcx7d4owF08cisLsvkcuQcl2aV3KCP/OVXDiXeIk/8ZTP2
HbpSt6tcT1It8vcnE84OQT+sXWSzJrEO+Y6qTLM56MMen2i74j8ibwjcPyK4
mQpE3bcsKR+tRx5/+pXhOegBHRyu2w99Qb5gqGDHC/tDrVuDpfS+JuQi697Z
foR95uPfd4SwTDvydv7zWWPQWfSvHbF5it21lM2DR5wK3n6XT82Q7EDuMiKc
qA+99Fjq1Tu8ncivsMcqd0A/HSE49Ja7C/kxoRkHXkkq0GmPnNNl6UYul1v7
tQX253A+0wGZ333IKazenmzSVHDOSbPUVaYfr//WxEgl6JYnAwbKLLEbBnJL
hEOvecY2q9GC/c05pVQDGSo4e0fLd7p8APnAEk1rCJ4vCrpHijXuDuE6v7rb
zh6eayJ1VWc/y48hV5T6fKoanqcdK6zfjCdPII9TJyKaqPD31LGYhQnN4Tqn
as8wOcDz0bHN7YQXQ9k/d//xXNbkLuy3JzaGJzswI2frkOLuL4Hr5tzpHKHH
ivzR4Gf9xFEqcDVRPJT/YCVyFz857moeArRTvF6X+XMgT/aI+l0sR4BkcxWr
1WJcyCVXh2+Uh/OP3yXjnRQp7NJviw3vQz8X2C6hK4/9jNBObg8FmEccOS9a
qWAvBOnWahQCjGknXDp6GPvhlzOvC3YQ4O8zbcUGR+z79X0Fq3cRoP7J0dsp
Bdjb/1N/vU6XAAqudqlgJzd+7tHnNXehPy+q6x1Qwf7uXO4AD5wPE4qZKgN3
YzdWnzrGAefJz3YV5pn7secKm/ykw/nziZAkazSB3f+sRvYoQYA/iQHrm2yw
c+5jE2s4CfOj4PDkUjT2mwdudNCMCGCz1z8qJg67tjR/Sj10nz2WpbIPsSdT
ew0/niLAKR32+8pJ2JleKCq9NyGA+Z+fzn3p2Df059VWnIH5lzONK6MEe1OG
8vliOLffHNwR3tyKPdL+V/VOOOdfMw77oNOG3eWI0bZ06ANKH+9kt2Nvla3h
ioM5Ii3FO9euC3uzUhOrmx3MrTYml2/1YY8fCGhTgjlli9+Em8kv7CVLx4Of
Q1d4umnX8d/Ye8Om1SVgDtrnY+NzcBx736M9aWudYH6RsnnI9wd7lXpo1p/L
BDi29GsjbQo7pV9M6wXMZWGb5Xqs5rEbHJLYLANzXKMX11g/yRvCBBkSoVcU
SHqYL2Av5HWoCIN5cOJAmMjeRexDNqEp7O4ECPJ6tjOB5OuGFG5fhx5+NqRu
geQpUbYmjjCHFsdZBDxYIq1nd92BQehqH6Se/iR5QZgSxRzm2a6zNodF6dgv
Z/oLtkC3Z9zgaEhytsMP2GgwF9uKiG+8QfI9TuaT1dAPrPXTTCd5zvacLgBz
90FB2d8fSN4T4/zpFfTIQ2s39ZB8W15AMQXmehCtWj9J8o6wj2lPoau0hDMv
kZyyRzZW1IcAtHKxAjrJTSq9A6OhH+ru/z1L8gc7M1xWX4frn9X1bITkSnHR
loHQD7qv7f9Gcg+WzfoMvgTY63DjSSHJuwQiZH9Dz/mjkWpHcq2u/fzn/WCu
V38wpkby3i5+pk7oCmJn8umk9Q9+X9T4yZ8AN+r165xJvvprmk3mTdjf7s4I
sJDeL0U3a0I8gABaJpScaFL9DJUvusZCd5/t3CBBcvcRJp8bgQTotBQ+IkWq
Q22HeGfjIAIwFbqaNM+Q9tF+zw7WOwQYauJV7ZjALiDXstcTenjEo1d00n7h
YS+KHYe+gVBk30jyn+OJ2j9CYD3/0RBUJu3HtQxdTtlhBOAZ9mcXGMZ++qDX
1Kl7cH89kNe5RdrvRQfYeOuhP2TN61PuJH3P4jHJA8v/D1S8YdRG6hsn5D6A
bVEwR2seKV77g9QnmVdvZ44hgBDn/E35JuyPvtiOpt4ngOqMlTNbDanflmow
TyQRYFTK5aFZKqn+Fzr5Lz2G6/Njl9xMMml/zahsGYMuNE89FfgYu02TK//Q
E7gfvRRiQx5hH1e38OlKIcBxqcgitXvYLd6XyH1MI8B6u7jti9ewh3inTD/I
IUD3hE/4QT3stof5kngq4PklamG04SM+pwIGm2s4O2D/V2OMXvsfJ/KlKtcd
+fMEsLqVAfjy2JEfv5NIyVpHA7HCT+myl9mQS1eKnb0nSwObEi5cqZ9dgVy1
1HvKHNCASldQUvwvRuT7dZpNXxE0YPrB9Jb2w0U0V/SvM18bc5oGimwz9wZz
TOP5sORQa6M1DQgk5rt4cfxCntuZ6fQHenOhia3kZzzPVLqc+sx7nga+dwU3
vYvCfuWERc8R6Edak3UmxbGvOH3pTAV0v6lNEn/3jiKvSD/6LOkCDVTIOPMk
OQ4jF7+8y1DNlgaiethv8H3B85jb0HQ1Ab3AsTiuNwo7TV6K6Tz0qf/A6IvT
2G/avn93D3oqS7Kb+iCeD7NU3R+NQTdK+1TFxYC98XOzxz07GmgX483IkOvB
82o3S9VLexpQzGyqM/bF8yqwUvhRA/0Mi7txIcD+Lag9tRW6qaHIkOwSnnvP
CJbZLkG3TFNQdZvGc7JQ299AcJEGgPzJxqTBH8gnQjvFX0I/6J4nYlLbjDzy
slR2JXTT2ww+ITrYGW+mTX6GTinLci+s/IacLm6QMAw9eHD6x2IRnuerw4pC
BR1oQJ3x4WvK80bkkordlfbQWW5Wcjn9h/PCrVvSFS7L93qnBNr3rcR+t9bZ
1Rv6z+OUmI0rPyHfFsyzMhT6nlOOWtLTOL/4ruUtfA5dKFxWsauxGrkVoeaY
C31VqP7V3bXvkD95ZtD+GrrFlzeedyqqkM/OGbZVQZ8tkl4p+qISuWOm1cXl
+82Oo3KTs3fKkH/sG21dvg+9PUDwHOTCuUyE8RRDz/J9q/Zg6Z25IuSyA632
w9CP5ZRqsn57hfys46/8Mej6TP1Gym/zcb0ZduePQ/9zw8fbLAfnx/TE863L
97yJ1L/XHoXgvOnkOkNfvhde8run4jCfjnN0wLnWOej0Cq77kd+eIvfQyLRf
gK7JpX8xP+cxztESX/OX76OdT14Y/xQSjzy5sSl/+f6aaXN2ffW3aOSZ9Bz7
5XvwI3pH5YZCcB6/f9Guddmd37hMc4X6IP93z85n+nj5nr3kf47w0ws=
       "]]}}, 
    GraphicsComplex3DBox[CompressedData["
1:eJzVnH+QVeV9hxldGhU0/BBEjOimVOi0JGsU0cQhxjQE0A2CRNqwbRoB21JJ
ZqhJhIS4nbZx24wFad2xsSQxyswVNx3tplRLhIJBB5uYoiYsEGfxRwWJrlx1
1YtuaOeePpd5n+974u5/Lf/xzDvv/b7POfd7zn7Oe0/ztV9YsOyEYcOG/fbw
YcNOHHb835Izh/9m27yrLpt3bMIDx44NbDM/Z8W4lv2ba4G/sm90ZfOK/sC3
zT7t3PWTq4FPqs/zYuBb6+OfCfyhOt8dePG/71xqvr0Y/1Hzfy/mD/zcop6S
8dXAjxTrLZmnFvj/+mzwG5+4a8asq6JnuD3D7Rluz3B7htsz3J7h9gy3Z7g9
w+05HV8N3J7TeWplPhv8lm9cPqtlfvQMt2e4PcPtGW7PcHuG2zPcnuH2DLdn
uD2n46uB23M6T63MZ4N/93eeWThxQfQMt2e4PcPtGW7PcHuG2zPcnuH2DLdn
uD2n46uB23M6T63MZ4P/68BNS5qujp7h9gy3Z7g9w+0Zbs9we4bbM9ye4fYM
t+d0fDVwe07nqZX5bPAfbZ60si/jGW7PcHuG2zPcnuH2DLdnuD3D7Rluz3B7
TsdXA7fndJ5amc8Gf+YLD7X3LIye4fYMt2e4PcPtGW7PcHuG2zPcnuH2DLfn
dHw1cHtO56mV+WzwN6a2rd3x6egZbs9we4bbM9ye4fYMt2e4PcPtGW7PcHtO
x1cDt+d0nlqZzwYf8ezRDV3XRM9we4bbM9ye4fYMt2e4PcPtGW7PcHuG23M6
vhq4Pafz1Mp8Nvi5d/xDV+ei6Bluz3B7htsz3J7h9gy3Z7g9w+0Zbs9we07H
VwO353SeWpnPBp++8OIt7b8bPcPtGW7PcHuG2zPcnuH2DLdnuD3D7Rluz+n4
auD2nM5TK/PZ4HNP3bNr+e9Fz3B7htsz3J7h9gy3Z7g9w+0Zbs9we4bbczq+
Grg9p/PUynw2+Gcf+WLPws9Ez3B7htsz3J7h9gy3Z7g9w+0Zbs9we4bbczq+
Grg9p/PUynw2+A03nX5w5uLoGW7PcHuG2zPcnuH2DLdnuD3D7Rluz3B7TsdX
A7fndJ5amc8G/+uLu/untkXPcHuG2zPcnuH2DLdnuD3D7Rluz3B7httzOr4a
uD2n89TKfDZ43xcXtuyed9VlMy4644YV+9/eZm7/8IuL8WEez//L/Uv6uhfH
+eGeH+75qd+cHNLzw8vmeZd6GuPvebSrq/N/5nl44oTOzS+/s838hwVvjP/4
34xY2bc4jod7PPOU5dIeT/1l87t+5imr3+M1TzjPXQ/55LLecduPffRoqP8r
28Y8duymN7Z5vDnjb/32e588tu3VMN6c8Z+q1/lyGG/O+NX1z30hjDdn/JX1
eZ4O480ZP6fOfxzGm6c5fyXk/J8uxgfPHg/3eOZZUNQZ5jFn/JrCQxhvzvj5
hecw3pzx64vjGMabM/6rxXkSxpsz/rriPAzjzcl7fd7CfX7CfR7Cfb7BfV7B
ff7AfZ6k+Xkl5Oc+7nAfX7iPI9zHC+7jArd/uD2T99oz3J7h9gy3Z7g9w+0Z
bs9pfl4J+bk9w+0Zbs9we4bbM9ye4fZM3mvPcHuG2zPcnuH2DLdnuD2n+Xkl
5Of2DLdnuD3D7Rluz3B7htszea89w+0Zbs9we4bbM9ye4fac5ueVkJ/bM9ye
4fYMt2e4PcPtGW7P5L32DLdnuD3D7Rluz3B7httzmp9XQn5uz3B7htsz3J7h
9gy3Z7g9k/faM9ye4fYMt2e4PcPtGW7PaX5eCfm5PcPtGW7PcHuG2zPcnuH2
TN5rz3B7htsz3J7h9gy3Z7g9p/l5JeTn9gy3Z7g9w+0Zbs9we4bbM3mvPcPt
GW7PcHuG2zPcnuH2nObnlZCf2zPcnuH2DLdnuD3D7Rluz+S99gy3Z7g9w+0Z
bs9we4bbc5qfV0J+bs9we4bbM9ye4fYMt2e4PZP32jPcnuH2DLdnuD3D7Rlu
z2l+Xgn5uT3D7Rluz3B7htsz3J7h9kzea89we4bbM9ye4fYMt2e4Paf5eSXk
5/YMt2e4PcPtGW7PcHuG2zN5rz3D7Rluz3B7htsz3J7h9pzm55WQn9sz3J7h
9gy3Z7g9w+0Zbs/kdfYMt2e4PcPtGW7PcHuG23Oan1dCfm7PcHuG2zPcnuH2
DLfna97+Sf/UTM55weR3ukdk8sxRrVNX9mXyTHJy+/yPb7X3dWfySXJa+/z6
kZ7lqzJ5Y1muSP32Sf32Sf32Sf32Sf32Sf32+aff/3zT2Ez+Nvvpb+7oz/j8
jV97tL0nkwOf+MHXZm7J5L0HFp0zsCGT625tv2JLeya/veOeL69akslpy3JX
6rdP6rdP6rdP6rdP6rdP6rdP6ncfaF9x6tiBjOff77xkd28m5/zwtmVrd2Ry
zgmHbm3dmMk5+0dtHdGRyTmfvOTwruWZnPO+a8d3tA4h56R+e6Z+e6Z+e6Z+
e6Z+e6Z+e6Z+e77tvK7mg5mcc+W8nt5dmZxz3o1N3+rK5JzT7mxpW5vJOU95
rG3iykzOefDVjp6FmZxz51n/0jljCDkn9dsz9dsz9dsz9dsz9dsz9dsz9dvz
Pb1zW3Zn8rebT/pyX3cmf1t6/l1dnZn87fLP/GT5qkz+ds5fvD21LZO/vXPv
lIMzM/nbvqeu3tg8hJyT+u2Z+u2Z+u2Z+u2Z+u2Z+u2Z+u156+0vztySyd/+
cfu4gQ2Z/G3V4Y9tac/kb4vGfn7Vkkz+duGl35wxK5O/jV72SP/UTP72yi2v
do/I5G9lOSf12zP12zP12zP12zP12zP12zP12/OT8ztaN2byt/tXf39ERyZ/
+9u7Duxansnfrv/RyI7WTP42p//iWS2Z/O28Scuaxmbyt6ZP3rqjfwg5J/Xb
M/XbM/XbM/XbM/XbM/XbM/Xb86FTprStzeRvj1xw9cSVmfztrrabehZm8rf2
v7q3c0Ymf/uDf9qzcGImf/vInhPHDmQ8nzmsZXfvEHJO6rdn6rdn6rdn6rdn
6rdn6rdn6rfngYd3Ll+Vyd/2v1Sd2pbJ3x4YN+ngzEz+dtvMuRubM/nbn/3R
l5Y0ZfK3q9Z9t/lgJuf8wIOP9+4aQs5J/fZM/fZM/fZM/fZM/fZM/fZM/fY8
Zs3SVUsy+duRjetmzMrkbz9+/Af9UzP526Y3D3WPyORvHeeOW9mX8bxszsda
dmdyzo+vXNHXPYSck/rtmfrtmfrtmfrtmfrtmfrtmfrtecpFJ3a0ZvK34Z/9
4KyWTP727M2Lm8Zm8rdt9928oz/jecPe7vaeTM65+oQDM7dkcs5FvzVyYMMQ
ck7qt2fqt2fqt2fqt2fqt2fqt2fqt+dLX7mzc0YmfztzwuMLJ2bytzcvOzpm
IOP5qT85b3dvJuf85/UL1u7I5Jxrt3ytdWMm57z++U0jOoaQc1K/PVO/PVO/
PVO/PVO/PVO/PVO/Pc+vXLaxOZO/fWD39UuaMvnbyKO3Nx/M5Jwvvn9n765M
zvnoFdUNXZmc8+4bzm5bm8k5/3zDnIkrh5BzUr89U789U789U789U789U789
U789X/e53u4RmfyN/XX23Nw9o2V3JudkX6I9/7xpXVdnJud8cNoPlq/K5Jyd
1xya2jaEnJP67Zn67Zn67Zn67Zn67Zn67Zm8yz7h9k/eZY4HzwMvO45l+ao5
+Zvnpx7vW4Z7vyXc+5nh3s8M935muPczw72fGV787zshP/R+Zrj3M8O9nzkd
Xw3c+5nTeY7vZyZns0+4fcLtE26fcPuE2yfcPuH2CbdPuH3C7TMdXw3cPtN5
ok/vByZPs2e4PcPtGW7PcHuG2zPcnuH2DLdnuD3D7TkdXw3cntN5aoHbM7mZ
PcPtGW7PcHuG2zPcnuH2DLdnuD3D7Rluz+n4auD2nM5TC9yeycfsGW7PcHuG
2zPcnuH2DLdnuD3D7Rluz3B7TsdXA7fndJ5a4PZMDmbPcHuG2zPcnuH2DLdn
uD3D7Rluz3B7httzOr4auD2n89QCt2fyLnuG2zPcnuH2DLdnuD3D7Rluz3B7
htsz3J7T8dXA7TmdpxZ42XsG7Jlcruw9A/bP+LL3Ffi4MH6w7ytg/GDfY8D4
wb7fgPGDfe8B4wf7PgTGm5e9J4Hxg31/AuMH+14Fxg/2fQvp/O/+HgbGD/b9
DGk97/7eBp1vDU6e6fMW7vMT7vMQ7vMN7vMK7vMH7vMEXvzv+PkA93GH+/jC
fRzT8dXAfVzSeWqB2zO5pT3D7Rluz3B7htsz3J7h9gy3Z7g9w+0Zbs/p+Grg
9pzOUwvcnskn7Rluz3B7htsz3J7h9gy3Z7g9w+0Zbs9we07HVwO353SeWuD2
TA5pz3B7htsz3J7h9gy3Z7g9w+0Zbs9we4bbczq+Grg9p/PUArdn8kZ7htsz
3J7h9gy3Z7g9w+0Zbs9we4bbM9ye0/HVwO05nacWuD2T+9kz3D7h9gm3T7h9
wu0Tbp9w+4TbJ9w+0/HVwO0znacWuH2S101vHXPJ/jdibjl8y2n3b/5ezC03
zR+/YPKuw4HPnfbey/df9GzgT40etXTynCcDr9TXdWfgFy499ZezxxwIdf59
x+mnrb/7UOCrf3bq2hV3HAl80x+PPmP9868Hvu/o6d/ePK0W+Mm3TJiy/0vH
/ZCzXVFf1/GcHz69/l6CXwT+0/p6nwv8F/Xj9dPA76t7uD/wk+8e+9Ls9QdD
PYWfI4EvfWPU11csfj3wwttbgfv9AORd6/RcA76jPv6lwD9X/9znAz+hXv+e
wEfWz88HA3/6uTP3zR7zSqjnnL8c1T/7idcCnzf+9DUrznor8K9Vzhi+funx
dZEvteq5DPzl+nH5r8DPqte5N/AH6sdre+A99eP+Wvjc4ji+Gbjfd0E+s0rP
ieAfqo/fH/jBev07A/87Pa+B7zh/7OLJJ78Z+KsPj39u9oLj9ZBjzNXzKfj4
up9dga/R8yB4V71vHH/+wt/vn9BzrnfbF7RUz2vgF6qPwZvUx+D3qI/B56iP
wZ9QH4Pfrj4GX6TncfDp6m/w29Tf4F9Rf4Pfq/4Gd3+Dn6L+xt9Bq/V8Ez5X
fQ9+ofoe3H0Pflh9D96lvge/Ws8r4e6H8Onqh/Bl6ofw29QP4e6H/P3iftj4
O0v9EO5+CHc/hLsfwt0PG38/qh82/s5SP4S7H/L3gvsh3P0Q/j71Q/i/qR/C
3Q/hJ6kfwt0Pud+err4Hf0l9D+7+Bnd/4z7zk+pv8NHqb3D3N/j31N90XxHu
c8rub0/SeN2/BV5233JvUU+4r5hSrCtcN6uFn3Bd3l74DPytwn+Y5yPF8QrX
u4v0Hif4e4rzIfCfFedP4I8V51uY/9eL8zPwanE+h+vdV4vvRbhuXll8jwJ/
X/G9C7yn+J7G63XxvQ6fO7LoA4FfV/SNwHcWfSZcT/2eKPj6or8Ffm3RDwO/
oOifgQ8v+m3g/1n07VDPa0WfD3xvcV0I/JLiOhL4lcV1J9wn+HsB7ymud4FX
iutj4DcW19PAby2uv4GfX1yvAz9QXPdDnfuL+4TAW4v7isCLvnE48PcU9y2B
zyjucxo8fZ9DfE4xqeR5R1/Jc4qtJc8jzi557vBQyfOFLb/qOcIf3h+eFzxc
8lxge0n+31yS828vyfOrJbl9c0k+vEn9E+7+yXXW/bORo6p/wt0/4e6fXB/9
Hjy4+yd8j/on/FH1T/j71T/THPJ4/+R6ukb9E96q/gk/W/0Tvlf9Ez5N/RN+
ivonfKn6J/yH6p9cr3eof8LdP+Hun/APqX/Cm9Q/4XvVP+Gvq3/C96l/wj+s
/glvVf/kPsF9Eu4+CXefhK9Tn4S7T8JfVp+E/1x9Ev4p9Um4+yTcfRLuPsl9
l/dzwr2fE+79nI3cSX+nw72fE+79nOn+vfj7X+/bhHvfJtz7NuHetwn3vk3u
D+0Bbg9we4DbA9we0n13lbDvzuuFe71wrxdetl7nDGW/q4XbA9we4PYAt4d0
X1wl7IvzeuFeL9zrhXu9Zb9jhXtdcK8L7nWl+9AqYR+a64e7frjrL/sdaON+
XnXCXWe6j6sS9nG5zsbfEaqzcT+vOst+Lwl3Pel+p0rY7+TPhftzy34nmO7z
qYR9PoP9XV4jp1Jfhft7BPf5BvdxhNtbI68b4u/yyrj3z8Pdh+HuS3B/T+E+
f+A+jnD7L/tdHtye4fac5n4vBG7PcHtO93tUwn4Pe4PbG9ze4PYGtze4vZX9
ng5uP3D7gdsP3H7SfRqVsE/D64V7vXCvF+71lv1+De51wb0uuNeV7ouohH0R
rh/u+uGun/t21wN3Pen+gUrYP+DPhftzy373BPfnps/TK+F5uj8XXvY7F8/D
/UnZe1fcr7i+ezy87P0hZfP4+8v11/PDPT+87L0Z/lx42ee6b3CddT1w1wN3
PfCy90u4TrjrhJfV6e8712vXD3f9cNcPd/3wsvc2eF1wryt9rvdC4GXrch/g
vsLrhXu9jVxO64V7vXCvF172/gR7gNsD3B7g9gAv81D2PtL/L+93/b/+HtfG
c8CS9xu4fq6nHg8v+51+2Tz2wPXO88M9P7zs9+n+XHjZ59o/10HXA3c9cNcD
L/sdt+uEu85GrlhSp88TrqeuH+764a4f7vrhZb+P9rrgXlf63PCFwMvW5fOf
+wSvC+51NfI0rQvudcHLfo/s9cK9XrjXC/d64WXr5fv+30wQzw4=
     "], {{
       {EdgeForm[None], GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJwtmXfgVuMbxs8zvpHSMFI0NYwiEsrIyPgRoWFkJ4VKqKxkzwoJFUUZTTN7
rxBRVqnIqqQpKSnz97lc54/7+3zO/T7nfM/7nue57+u+T6Pu/TpdGIuiuJc/
ifEJxjuAz+AmAR/HzeGmcIZbwI3hCO8K14f/xprBRS6KL7BKfHYKvjaMZ+P+
l+t9jr+C4x3w/4E1xl+P8S+sKfyP/idz/uW4EVYwd2eGHeEA7wLPZk5r7Ga4
Av932GbwJ/j2wW6BE75vsUpwFcZFWGV4M8bvsc3haoxrsTpwVcZfsNpwZcaf
se3gbRjXY3XhwPgNVgFvxbgO2wGuy/gn1gR+hPF67vMxeCw8CH4EPpjvtDUn
XsvxQfBW8DXww8y5jnEqc+6Hr4AfgsfAV+pzeAR8MXw/fADnVufcyzluB9eE
r4YPhGvAg+EHmH8V46PM/4vf4xM++x3fh/Cu2HX4a3H8G1YP/hPfbOZs4Hh7
bBO2I/46jBv1HOAGfP4rdgDX7YavLWN3/G/Bw+EP4Rrwr7oG3Ja5Vbmfi/is
Er7VWC38f2NfB6+xGsxZjDVjzjaMP2G7wdsyLsN2h2sxLsdawtUZF2FN4fa6
R8aj9Rzx/YA10TH+XRg74a+Jbwm2k9Yb48/YPnBdxjXYvvAJzN+D8WTmb4nv
e6wxx4fqezMehb85vAW8F9wJ3lPrGt6OuSuwVhzXZlyJ7QW/z5drgl3NnO3x
rcb2xl+HcRXWWtflOjvr/+v3x74K/y31Yms+X4q10L7SmmVshf8Drrczdq2+
F/4fsaraHowrsW207RhXYdvC1RmXYFX0vRgX6zvAH3ONPbAbtR+xheG/7VrM
wtcKu0n3gG8ptiU8E18L7Hrta3wrsK2FnDQH20x7UvuJcU/85zMen7yG12A/
YkuwTfg+1jPWXud4GWNNxo/w747dAM9gbIZdoziALWfOVowdGHflup3hNlyj
Cuuqn9Y3/hsYH8d/N3wJPAa+HD4p+re6Bj4jOla01v1y7lkc14fXYvvDlzHn
xOj/u5fiFnPO5PhS/F2jn+NV8KnR93klfEr0PhoS/J3vgofCF8Aj4FvgnvCd
8EC4CzwYHgB3hq+C+8Od4EHwTXAP+Hb4RvgceBh8A9wdHgrvw71V5t7O0/fB
f65iNP7r4bPhIfAguFv082rK/I1Ye30H/KdHP99f+I3fx38Xx+/iv4fxY/xH
4buMz16G/wdfCr8Ed4ZvTt7jkxn7Z8fukfAr0fHzXs2Njpk/8NnL0bF0FP5X
o2PC4Zw3gOPn4SPg/vAL8JHwQPhF+Hj4Bt0ffBx8Pfwe3BG+Gn4LPhYeDL+p
/QjfBH8AnwDfCM+Aj4Y/wO7mf3dgHIT/dfzHwFfBb8CDuc/TovdCM/ybsMM4
bqxYiB0CN1HsxA6FFzB/WvS6fRW+H36n8D0+Hn2fzwX/z9fgZ+ER8Kvlb1u3
wrHymeDf/hX8U+Hb4GnwY/AQfQ6/At8Hv11+90acOzr6uzeER8H7w9Xgy+B7
mN+fcayeBTxAeQAeCQ+EH4T3Zf4WzFein4D/RsYnyt+kAf6R5W9Vv8I6oD1c
C74FPgzeDr5VsRHeFr5Ze4/rDGV8tnymdfDfrpwN/4kdofjA+Bd2JLwHY2LO
cfBOWkfY4fCOjL9hB8GNGNdj7aQbuP7BjOdx/UvgE+Ar4YZ8vg47UHGHMXPN
4xWjFTMY91Msgv8HXwzvzpzAnGOj19v28B3R63wH+M7o9VkbHqZ9xbl9Ge/l
3NvhPvqN4WFwb/hueDcFTuYfw3ELaRasA9yc8R/saLglY2ROR52vNR6dB1sr
juoZwq0UC+G28NPMuSo77j8FD8qOrY/Dl2frrcfgy7L10DR4cHZ+el5xOvu6
zynPZ/8WzypvZP+PZ5SXFEP1LEp91YbhMOUQrS/4CeZcka35jpQOUkzH3zU4
954Bnxict8/UvlbOgTvCLYO1276KV8Ea8CB472Dd1w5+kutfma0j9w3OIQfj
PxiuoWcCnxSct8+CD4Kr617g2sG5Q5pkGdd5LXut/6Q4k70HliouZeeDHxXP
svXTuOC8MZlzHwzeB5PgScF76Cl4sZ5R9vNeopiWvQ7GB2uZKcx5A//t2brh
zGBt0gv//fjPzc6dVbSe8R8hnRCc9xrCDzCnV3YeHQefn52zH4TPy87ligcX
Je/9M4J1UE94PL4LsrVUO6xaef3v8T+bnQ9eg4dka4suwZro9DKGN2Mdjud4
NHPOydYHXTUX/6P4T4J3hScqrvHZQ4wzOfdO5m+Udoen438Y/0fwcHzdsrXL
M/jWc1xDawPfLlxnAr5TpGXgyfDJcHN4kvZ+sCbdg/kTOe/ibK35CHxhtrZu
FqxJWzJnAv6LsjXro3C/bF0+FR6YXT/cB/fI1kZvaJ9E61vlqbOza4DX4aHZ
GlG5qXu2NnoY7putX1+SDlKMYM6L0kqKa/AL0imKEfrdmVeL8TjFavy3ZuvF
zsH68TTlCPy3ZevU04I1XQ/8Y/H3zNY3DYPrDtU4HRnrM+dE5Ti4HtxV2ob5
p2fXHoohZ2TXNsq5Z2bXPyPg07L13BR4QHZN8hDcJ7vOeVm1kfKH7pvjBnrm
XP/0YN19LnwXc07N1ujfwc9k65Jv4WnZumRycP3xdKnfHijjnrTlg9nx8DP4
kWx98wU8IVsDSU+OLWOjNOe47Jj8OfxotjZSfTc+O2aqpnsoO18o1zdl/YyD
v8L/RLam+Rp+MlvnSSePLnON9OSoMgf1Ctb7F3HPX+Kfkq3h5sKTsvXfHHhi
tuabDz+WrfkWKL9na4V58NRsjfUp/HB2TnoLvjO71r02OBfdVuqZxtzzAxxX
wPOz42wlxgXZcXMz7aHs9aS48W32OkiMX2bv8xbBMbu18g5cFd4bznw+Lzs+
HhL8bBU/q2pdZD/jzfU8s+P4FlpH2WurbfBaPoT573H/OyZrVOmuHbnnsXz2
Lr6GyXp1OmP9ZL26X/CeOBQ+AN4BPgx+h8+3T87R+wfvofalNmvCNR/UOguu
hy7E3zO4JusH9wiujfrCbwbnZOk61cfnJ+ull4I1iHTg68FaQ1rxjeB8Lu33
QrA2kcZ7MVi/SCsqnt3Kdb5SDgqum6U5XwvO+dJva6Q3szXNz/C72ZpskbRq
du4fHazBxzP/vmD9/5B0r7Rtdg3wDfx0tnafElzXS+NpPCuZXy5jveL8CunZ
7H7BE8F1vLTxSmne7Hp+uXRrdl/gqeD+gfR5n+C6fEDh53VPtubXM703W9P2
Dq51+jPnnOA6tQ/cPbh+7V2456M4v6xwDTsyW5u9Cd+RXff2DdZcA5mzZ5mv
25Rr4+5snfw2fFe2blsNv5Ndpz0d3P9QfTEt+Lnqma5SrsvumyyEn8quZ4YH
12r3MadfsDa8DL4wWBteqtwUXKuNLtfeiGzdrlzwenTfpgu+j7LzlmLpC9E1
8s/Yr8V/ZW2xCVurZ1i4bl2HVcc+K/Og1szc4Jz2jWJIcJ78Fp4TnD8Xwg3g
NdIu8B/8r97ZvSQ9537lc1deUv9FuekXbCP2U/n/dR/LS/967IvCtfNb0bn1
0+AcvqBwb2d2tK5QD+cTuEF5nd/K7zI/OPd+D38SHDvnl999BbZI91m4tqlZ
/l/dy9Lyt9G8xdiGkvVb6ZkvK+PM4tKv63wcHDPm6lzu58PsGmYdPDO7Xpod
HAPmMWdWcFz8Ep4RXNN8orUXXIvMhqVP55drbF6wdvgO/iC4HvpUsSu4XplV
fm99/9XlfW0ov6ee4S3Jekb17xUlr1WsStYzqhnrVbgeVhy4BJteWD8vj+4F
SWOvhDsU1tgrontQkXPnYltG69LTkmsr6dJTk3sUyjsHJ/cKlB/3S67rlYPa
JfcKlIMOTK7rlTcPSO4JSLcvKWOs9G235B6j8ub+yb0CrdvfC/dcVEcsKuOz
aoevomsi1RQ/lDF/P90v3/fSaE34WnQ/c4vgGl71u/Zv7+R6Vvv0guR69hDl
Mc69KTp2dU+uARWjzk6uYRW7zsGeK1yzLIiucVQrK+Yq3mptXJesLbVmrk3u
OauuWVzmDtUjX0fXSqodFsIHFI7PFyfX4K24nwru5+TofaN1vKpwrfB2dL2g
HmNO1lTqsyW4S+F+Y0Wy7tJzvCY7vyq3Lo2uZQ4MfraHF87LP8L7FK4rWybH
Q9V6eybHJdWDzZPjrWrevZJj167aE9l1qfqxY+Cjomvkpsn6RHVxo+T8qNxy
XLlmVG/ulhznVWPuojVauP5tozVdWGOs5pwDC/fbv4V3h0/l/pvD5xTusX8Z
HaO2Yv6w7P7aMcypG/2bVMZ3c3Zel5bYEF1/ST+sL38H9Vf/ja4N1Tv9S9co
3I/9M7qWVL47Mzk/qmf4XbTml/5ZFV0PSv/8HF0nSqusia4H1Zj8Jlr/q/f7
d3SNqb7xP9Ha+/dy3Vcv18Dk7N6f+g+Nk3XFFOWe6P7qhuT1p/i2reoHuFrp
/135vowfisHKgzOD86LW5EfwGHgOPCY5ji8p+TdpI61P5eYy3krXfxCt7TeW
a1LxfGV5z0vKOLW2/F+ryjlLy7g0I7t/tK6cr/N255r/BK+9W4PX+3D4b627
7HcwyqvnJb9TUP95y+SaXf3nqsn1oPrVWyTXKeqHV0+utdVvr5RcF6gn1iBZ
j6l/Xi253ldfsV6yflAPvIpiHHwB/3u/6DWp/sw2yTWF+jnbJtew6vPUSq6X
1YPdKnlNqs9WJ1mH6F3D1sm1Uj14ePb7BvXldlAMKqy92yb3PCdpH2S/t1DN
9QdzuxXWLZWx8+FRfNYL/zh4b+Y+l92fVU/4iGStrt7vkfCthfV8zeTekeq+
tdG9emmb2tjl5b39kv2d1ZvtmPwsVGdtjH6noH5112R9onciJyXrGdXOz0b3
t1Uj356cy1QjD0vOg8qzP5W5T70F1bTSDOrFXZhcf6mndyI8qnA8fz2736fF
Pq9ce+pXbJ7cQ1M8fDM612uPL8ze86pzf41+b6L3Uz2T+yTq9fWBnyycE87K
fn+md089kvsneid1RrIe1p6YWu6LicG5Refq/dS5zJlY7kfpDWkG9Rj7Jvde
9I6sV3KPRXt0TLlPtae0B5eVe2pGdG5S3b0p+l2MavZ10e8IFNN+zI53X6in
wPh14f+pHoX+r/okIfm9pHLZ9Ox+qGrzd6Lffz0fnN/UN1bfICa/81K/4rPo
9x3qwZ6evK7UG/8i+j2RekddsAmFexofRb8/Vf9nevR7T/WmTin3qXoaH0e/
V9X63LzC61XadacKfwfVFyckvxNUP2QWvt0K1+nHJPd7pZ+PSn5XqJq9Q3JP
WD2BOdH1o2qTo5Pflajv9G70u0v1kY5N7hWrrzI3usZU7dMp+T2melbvRb+r
VQ1+WHKPVH2D56LfDamPNDRZv6n/8GH0e1v1mm5LftegPft59Lstxa5Ps+Oa
6utDkt+hKFf+XeZH9Teej37PpR5d5+T3m6r9D8dGFtbbs7L1t/o5M6PfTat+
b5/cv1VvakiyVlSNf2hyL1e9tfej31//Hw/e34U=
           "]], 
          Polygon3DBox[CompressedData["
1:eJwtmgWUJdUVRateVTO4w+DM4O6ugwaXIcDgNrgnBHd3d3d3dxgsARICBPcg
wS2CBALZe85bi0//Pa9/9/9V75177rk9dOvdh+9WmqbZlv/1fN29a5rjeH5f
2zSPwhvB97NwOXw9vAn8IHwlfCO8Onw7fCZ8Ifw9rz0GXgfeEN6T9SfhB+DH
4H+yfhS8Gjwc3on1x+A74AfgwfBp8B7wPvCYfP07j/d4DOLxFK/fmfXpeD4L
6z/Ax8LrwiPgb+Aj4FXgdeAJ+XmnwDvAe8A7wqPg2+H74R3gw3jNbfB98CD4
JNa3hLeHv2XtSHhVeF3fD+snw1vBO8BrwHfAZ8EXwYvDV8CHw8fDS8BXwkfA
J8Bv8PP2gxeEl4D/Dh8ILw4vB78O7wsvAC8Ovw8fBC8BLw/fV3I9vC5jwZ/C
h7G+PLwq/AF8MLwkvAL8GrwPPD+8GPwmvD+8ELwkvAfv7wn4fngUfAx8Gd/z
Avw6vC/8FOuj4KfhW1i7mccn/m4eLesnsL4R61vBt7J2HY/3ef4Zj3VYv4v1
81m/DG7g4+ER8Jbge3zvAfBi8DBfAx8OrwCvBn8CHwovB68CfwxPyGMY/Bt4
FX7eLayfBp8HLwtfBx8HnwrvB/8Rfgx+Bl4Nvg0+A74AXhq+Bj4aPhleFL4c
Pgw+Dl4Svgo+Ej4RXgq+Gj4KPgleFb4VPh0+Hx4B3wdfBl8H/8h7PQ4eDm8E
D2f9HvhC+Ap4Pfhe+CL4SnhteEdecx58KXwo/Azrz8AvwIfAT8NPw8/DK8I3
wyfDZ8FD4R/hbeHd4P3hP8GPw8/C68J3wxfAl9fr+So8X90fm7L+EHwVfBM8
AfwVvGG9X56nr+v9837/G36d5/91jcd48Besr8+/bV7P45v1/rq/v4JfhxeB
l4W/ht+AF633/y54M7jAk8J3wpsqTPAkfLkb3hzu4cngO+BN4F94PjGP8fn9
X8IbsL4F/CLrv4fngBeA/wzvAc8MzwW/BP8BngteCL4N3hj+mecT8XgB/h08
O+vzw2Pw8z+B16769jzre8KzwfPBo+Dt4CnhofC4fP/n8G/hzeC/sb4XPCe8
IPwgPBKeGJ4afg5+Dh4MD4FfgZ+Hp4dnrefB/T9/1YcveP4a6wvDy8Ar8Ptu
gk+Cz4Q/Yv1leB54EfhP8Dc8H5fHlPAf4b+wPjY8BfyqZx8eAs8G/wN+BZ4X
XhR+CN4WnhSeBn4X/hs8a/38y/P7b4RPhM+AH2B9G3hCeCr4HngLeAx48nr9
/gpPUa+XevBSvZ5e7/vhreHx6/vdso/++X7HaqOHW/X5PL7/5fj9N8AnwKfD
w+Dr4ePh0+rna0r2u5/nWZ7vzvpM8Jzw0/Cu8Azw7PDOvP5x+E74Qfgn1t+D
V4TXVM5Y/wheA/4t/D/1GV4JXqvqr79vaP15Pd//D9bXhNf3/LD2Frw0vBJ8
svevaux78Hd8fYf1Zave/Qd+G14GXrnq6Ye13lmfflF74ZXhteE1Wb8TPhu+
2OsHPwxfD98Gbww/AF8B3wD/yus/gH9T6+cWrO+npsO3wlvBj7B+A3w7vDX8
KHwjfEfd/5+0OT+ex0fgP/fRB8/TM/Bu8Ix8zxxN/MK7ffRcfbf+flr9w4j6
en/eFPU8PAnvxPq08Mzw2Hz/Z/B68KZ1f+/S53q7fx+Dt4engmeAZ+P7z4f3
hQ+FH2d9B3hqeEb4CXhHeBp4JngZvv9a+Bj4FHgA/hheC96gnh/P05B6Pqdk
/TvWt4Z3hieH/w1v0cZPTAb/C94c3g6eFP4nvBm8rdcM/gbeBN6miR/6T/Uj
+o1p4e/hbeBd4Engb+FN4ZFeY/hUeEd4T/hY+Fn4RfgN+G3e74vwLPC88Iys
/xfeDt4dfpn1veG54YWb1LKPung/a5q16kNrYpOapTf8R5e9o0e0trzfpbZZ
Y9xbH3fxiu4xa4s1xr34h5Ja+EGX2mdNnJnnP/Fv27fxa94776Ha/1mbWmJN
cW8OrlrrnnOvfdrmXnpPrR2ft7mX3lNrxRdttFbNHVdtbONlP+lS6/S0nhXP
jPd6uxJv+24Xb6fH1Wu81aXW6zn0Eu908b56intLNEptGtxEe17tokVqkF7o
711qr55I7/B2Fy+ih/BsftrlbHlG9Zbv1eulx7TWvwmf3aTmq/VvdKn9ar7a
91oX7VUD1eLXu9QCNVntVsPHU9vbnCXPlFr8JXwc3zvrANeM539uUoutyQPu
nTa1+M7aK7wFX8DzZ/n6hT+vSW22Ro/B83faaL2aP8haAV/vveDr5/CHTWq3
NZxf27zZplZbsz2L/23j5b3fy8FT1NpsjVZW32jTS9hT6HWnqrXVGuvZ/alN
bbfGqxU/wyfyi+bgw/yR53/1GsGzw0/Bz3mP4NngJ+G/NNESNcXa822b2mCN
sJb9s42X0FNMqza38QLWNGvZD228gx5C7fmxjfapgdb6f7WpPdYga+m/29RK
a+Y4Xh/4JN7PnLyfP7Xxez/U+qAffLHWi7kG4gf1h9ZCa6K9wfttaqc1dGz4
gza9zxddei17IGu/GqZ2fd3Ge/zE+vRNPIi1+ecu2qsGn+H5gg+Af9emVxsF
79ukZ7sUfg4+Gj64jZd+vksvpKe+DP4rfAx8SJte6YUuvZE9k1qr5qrNG5b0
Xvd06RXtwdQ2NW5rePGS/XF3l9pnDbRXuKNLL2TPYG90Z5dewh7J3uIuePUm
PYa92YtdvL092iXwX+Cj4IPaeP2XuvQGev7z4Fm7aOsq/P5zvH7wIfDerJ/r
fqnvf582tcaa42t87QXuH54fxvp+rJ+uvsH7w3vCZ6pX8IHw7+GzPJ/wQfBe
bXqRv3XpPexJLnb/wUfCB8IXuZ/gI+AD4Avdb/Dh8P7w2fBT8MHqb5ve8rYu
58ce0+ttz7u8taykl7yd9RWb9JSet3vh9Zr08Hqjnat+HlnSS37Vpde3p7S3
/7KLd7LHNwv4Wk/VJBPQO3yuR2niIezVvu3Sq4zu2eB/ddnro/c8/Cs8T5Ma
pjfWI+ttf2lT646tr7+8etlfuuxva7ReVfGy9ulZ9SY/duld9Cj2ut906RVH
97zqS5ez5Rmzl9q/fp4zSrKFR+t+MGMwi7i/S69nJmFW8Ai8Y5PM4Gg/T8n1
nLokK7mvi9fR85g9PNyl1lvzT4RLvd5zlPTaD9X9b8+tV277eG89s73vK128
rj2wve3LtZ7Z49qLPgBv3KQntRd/sEsvZ093CPxhSe0ft/YO9hB60/Hq+9Wz
6dWGlPw8e1zP1wx8naPLnnOvuccX6KIJaoFnaoYue3D03vMedjkznhXP0Exd
zpRnyT16fj0znhU921xd9rh72z09T5cz4N53z3u9x6zXf359fpcz7Vn2jHh9
B9XrPR/rQ7qcMc+WZ266LmfQs6fGeX8nrNdnsRL93LH6ncNr76Lee/2/r/tJ
z6peflz3mz2Sve4YJfvLTMXs6bSS87FT9UdHlOz//ao+n157QXtC9+t39X7b
Iw2DB9Xezx7QXmTSut/tcextfq3nRc9nbzhQ0uvb89tLTFDSi9uT26tMVtLr
2fPZW4xvneui+Wq9GjVNF81Sq/Zrov+D634dVuI/lqv6s0mJ/1i+6tOmJfq1
ZNWz35bo/+K1ngwv0eMlqv6tV6K/S1W9Wr/E76xQ9XmzEn+0RtVnM0z92Sq1
3mxV/dvqVS9HlvitVWu92brET61Y69XmJX5utVoPtik5P0tXfd+gxM8Nq3q6
ccl5W7bq+UYl/nfd6r92rv52ePVfu5T45Y2q3/sdvFCXmmgt9D3ot0dUf7ln
id9er/q7XUv89MbVb/6+xL+ayepP9yqpt4vWerJuid80g9N/7lTiL+0B9Z/7
l/Ry9nRXWC9K9Nie7krrSYlem+Ha251Q9d3MUH96fIk+mkmNgs8r0etDq/6f
X/JZxh2IV/YzrQ+PDZ9irWySN84yEK1Vc9eCx4SPbZPfmYeNNRAtU9O8t4MG
4iW8xxvC48Cntsn/5odbeDd4b3hO+BdrlN6yybUwX9OLe03m7ZrR5nZXvSJP
F4QLvHub/Hlu+Fdevwu8F7wyPAbrh7bJB82uzLDstScvqT3mp9Yua5BZq5mr
WVNfku2a8dr7lpIs2EzY7KGr+t5WvzN7iT431d/MVuJfzEjNbicpyXbNGMwW
2pIsVX0wOxmz1m8zYbOtcUrqvZmy2dPYJf7IDNkseuIS/2TGZLY0UUk2bUZt
djZWiY/5uU+tG91f9sng9VtDfR+s/09N0/s22Yv9QPTCPWmeMMFA8s3L4O3g
ieBL9H6eQXh8+Nw2+ad71fzBXsk9695zPmFv5B4cae3m+y+21sHbwxPDl7bJ
X3eDJ4evbZNf7AJPCl8N39wk/59kIL2tPe6u8GTwNfAtTeYhgweSf5iXqP3O
C+x1rQGbweOxfo7e0TMJTwHfBN+tpsMzwA/BT8F/gKeEb4bvgfeGp4Jvge9t
UhumGcg8whqhtgwMpP6pMQfA08J3wQ/B+8BTw7e2mV8cCE8H3w0/DB8ETw/f
Az8CHwnPCD+s12pydocOZN7jGT4anhl+tE3efxQ8E/yI3gc+GB4C39tmPrQw
3A3E+9sDWD+6Pn7MzFB9+azqh5mR92bZPvfae2T/d1qX/t4M137lnC79lZmf
/czZXfovMz77v1O79PtmTPba9txjNpkRWd/6PvXPjM/+86wuvbiZo/3r6V3y
ATNl+9szuuQDZs72V6fw+LLJjON7nn/Xpbf9uEnvaA/5Ds+vLsm/b+frB01m
HuYL53Xp58x0b2DtAu+J+gD/pwt/CH/UpHezh3uP59eW9Hr2fO/C15T0pvao
b8NXlfSm9qhvwVeW9IvnduknzVjVQjXR67t7Sf95TZfza4ZtVmRmpBYuWZLt
m/Gb/SxSkm2ZcZlFzV2SJZopmuXPXJJtmnGaZc9UkoWaiZq9zViSjZuRm23N
U5J1mnmO9LOWZItmjGbzs5RoqZpqLdiiJMtU77bky6wlWaeZp1nptCXZoP7N
LG3ekmzUjNQsbrqS2YMziF3hhUqydzN4s7IFS7I3Mzi1fumSWYEzA2clC5dk
cWZyav1SJdmdGZ61ZJmSrFL/a/Y/fUn2aAZp1rdASVanH7J2LFsyK9E/mmUt
WlK7rGHWqi1L8o5ru+ixMwrziuu7+G9nEp5dz7DZxNklZ9szbjZxVom2qDEv
wxeWnFXP7KvwxSVn1TNr1nFOiZapaZ7dY0vOvhpgtnBuifapgWrH0SXaqYaq
HceUaIca8gp8UUktt6arvQ6S1T418En4xJJewp5iqTY9j72MPc3GbXoYeyF7
otXb9DjTs/4DPLLNPbzRmse/vdQka1Lr1Dy16JQS7VRD1bKTS7RVjVVrTyrR
UjVVLTu1pLZYY9T2fUryouu61EdnMtYma5S1Yt+S2mCNUFsPLclrruxSz50Z
mOdc0aV+m2mbP17cJX8yUza/vKhLnmUGbV50FTx3kxmUfuDGLvXXma/1/IYu
9dcZj1msmayz7v+1yZeu7lLf7ffMPy/ski85czLfO79LHuWMxvzzki75l5m2
tdKaaW06qKT2WoOtRQeX6LM11Fp0SEktsCa8Bl9S4tX0bM6GLy3Jxy7r4j/M
3J3NO6NXb79qky9e2uX9m9mbn13exf84Y9Eb6hGt1XuUeD0936XwDiV54pld
8klnfnqzefucRz2a+jRBn/7FmYf6NH6ffsgZjHoxeZ/zan+tXo1nz9BkhmP/
M0af/siZpP3UgJ6/yUxNfzeoT//mjFI9maKP3jnT8/wP1oM3mUGof5P10SNn
hHqf+fv0Snoga+V8ffTBmqkeTtjHPzpzUf8m6pNvm2epn5P0mS05M1KfJ+2j
h84gnD05g9rG/Vv1YO0+50/PYV4+Zp9+0RmssyZnTv68aUq88jx99FDPrBee
u4/+6Yn1znP28XJ6aP3grV3yIf9mwVnETH30b5taX6br836cSTiLnqXPWXYm
rZ6P3SdPcIalt56rTz3SY5v9z9anHjkDUG/H7dOvOiNS78fp0586E3N2MWsf
/XaGof5P2ac+OYO2vk3dp944w9a7zt5Hj/Ww6v9UfeqbM2P1bZ0++qFHUh/X
6qOXeiT1SD/wBPxgm17FnkXvt33V94X69Ab2KOrNkn3W9bTWuwXhY5v0EO73
Rfr0OsfV+r1Yn3poT6OerdznvOoZ1dtF4XOa9FDq1VJ9zoueWn1fsY9+6VnV
r2F9zpceV++rB9Y7HlWiB0urKU08tPq/fB9vrAdWH5bpo+96dPV9JfiuJh7X
+rBCHz3VY+uF9cS+fu+S8714n3pnD6iX1dP6eUfUerVuH/1+pNa7NfrUHz2r
+jO8j97rSa1/q/d5/3pc68EqffRKD2y9W7NPvdKj6pX1zM4yzqz6tV6fejCq
+rOHrQtNZhPOPpyBvAlfUevLb/roox7derJqn3qgR9ePrd/n5zsz0K9t0Kc+
O1PQL27Yp347c3C254zP87REif/bqE/9NV/U/43oU6/N/PUP0/TxQ+Zzzj78
ewv/xob/RvuNGfr4IfNC+8mbuvSH/o2Rs8gZeezUZCap/xnSx985g7RfvKXL
fEV9sF+9GV6qyd8I6X+G9vFzzjCtzTP38VMjq77Z47nf16n+afo+fs+Z5v8B
k0q9gQ==
           "]], Polygon3DBox[CompressedData["
1:eJwt12e4VNUVANB5M/OUKoKAimDBgiICEUTp0qWJUkUpoRqlRZpGamgaAUGK
YAHsklgTUIwUjQqiUiyAhWIsaETslZ61v/N+7O/sve6+0+4959w5q/+IzsOz
mUzmHVEoHshnMhfnMpk/iFryKx28Ub5fTJE/XJDJPKmvv3qfGMfuZ4+wZfpr
x3mipryjY/3kX4lb5ffpe1jfUsdqsosi5B0cO1P+mmgh/52dIb9WfCFGsvnO
vd+5Q9TfiKnsEfYUK++DN3PONPYoe0w01rNNdGNj1ZP0lVSfHN+P9Wc3srnq
KqJBfE92g7hO35diFFugXqJvvp5K7FRxjry5YyXkp8jryAfoG6KvNKvELmGD
2DDWk+0VN7F57D72oJ66rI6oLe/k2Any0+T15IP1DddXhlVml7Lr2QhWKj5H
nM8GsqFsiboGv1DUkLeP62Ksrr4gXN6ONZd/IK6Tj3fuNOfe59i94p7oF20d
2xy/pb5f9FQUp+t7jy1nB9WniXPYu+xxdkBdSZzNtrN/sMPqKuI8to39nR1S
Vxbnsk1xDdnP6vLRy15jS9nX6qyowN5kD7Ef1SfGe7O34l5kP6nLxWvGPcwe
Y7+rTxVVWVX1etHSsQO+21lx/cQG0YodZGdHLnaKPmySc29z7sJ8ui/jXjwv
n16jnPx0eUP5EH0j9d2dT+8Tr10tn153gfF0dRVxbj7d1wPie4nx8iXOfdS5
LdUfid5sIpvBFuXTZ4zPdb68dVx7+eXyyfJn9b2gb7H6vHj9uMbyNo41kL8j
OstH6Ruvr4X6Q9GLTWDT2Tz9leN+i/eRN3OsoryqvKl8hL6x+k6K788asaFs
FBvJvhMz2ZNsJVsZ97y4ni1id4ub9Hwr7mBPqFfoWx7zT1zDbo/fWfxFz/fi
LvYv9Wp9Vczpdvrms5XsOXGlnnrsT2yxepm+juy/YhCbweawDuqPxUA2nd3J
blX/IOaxFWwNK1aYPvPgbPoc8Xma6NkuurOb1ZMzaa16K5fm1LF8WrfOFxtz
6Tc/zKrJW4u68j+yuc5d7Nw2McdZXzaHLcqka/Z6Ll3XQ/l0/RqKd0UXNlrf
BH1HiubjFdm0LsX6FHP8zVyay0fzab5vic9g/M3xaqKWc7fGa7NfY/6JmqyR
+j3R1bExbCLro27kdW6Juc2eYX+NeSXuZavZq6y++m1xNRvJxrHLYp9w7lVs
cvx+bDBryiaxZ9gq1oy9H+s5G8emssvVO0RPdiubEuu4+kznNmbD2GhWIeYV
a8KGszGsF/ufGM0WsqWxdxWm+6oHuyXuqfjcMc/07ZNnYo2J/UPPwbh/1WfE
uia6qS/jI/QvUz+urwerz/7MHmDLWXd2KYsNc2nsM2wga8ImsqfZ86x3XE92
c6yN7Gk2OdYvcQ97kb3CBqkb65vAnop7PPYP36MBG5NNcyjm0tp8srHZtLfF
HtfZuZ+KIWyWeoFz26p3iX5sCpvJ2ql3i/5sKpvFrlZ/Im5kM9l81l69Rwxg
09hs9krsIewr9dFYC8Qb7MGYS+yEWPPZ+vjd2H51PvYLlleXj7niWG82MK4R
qxB7P+vDBrG/sW7sEbaN7WQ5dlLsZ6wXG8COycvGPDP2YH3ZUfmJsQYau7M+
rJrfryt7iL3KXhOHYm+NNdXYVd0r5pa8TMw9YzfWm90R8549yrazXexb+fGs
orF1rEGx9+TTezzM3mPvxu/q3GvY4+x99R59q2Mt5J+pS4uSbE2sXexzdRlR
ir0Q93GsWepCUYwdp67o9Wo51pcNZrNjvrDl7AP2MZvJerDH2A62m01lV7El
sY+z7WxazF22lG1hO9j02CfYMraVvc9mxBrEHmBvsw/Yi3Evxv0W30GUYN+w
Qn3ljS1ZB7Yn1kd9hcZLWGNWVv1yzC/Wk/VnB2Ndib3G2IK1Z5O8VlaUZo1Z
I3Eg5krM/3huUbeLNVu9TtRmV7OerLj6pViLWGd2LesSv7sYymazhewU9X9i
H2X92A2Z9Ez3Si7tf7/m0/Pd90XPhPXZtfqui71QfcSxo7GWiovED44/z04x
1lc393p75Tm9JxibsFZsR6zV+o7F2izqsR/ZKnZq7NmsBdudjYnj2hvrxV6k
3KUuLk7Lpt8kfpuP5QXseOOl6qb6fpK/4PUqGRuylpn07PdGLj3PxV4Sz4Ff
yPPyMsam+lrr+13+71h7jc1YW9Y17lExjN0Z+zlbJV8Q64Q6J45nK2KvYx/F
PIu5G88C7C7JTnYkfaXMrlgfWd54bvx+7DP5P1kJ44WsLvs8ngFYSWMNdgnb
GesjyxnPiT2QfSR/kmWNZ7ML2X75cd6sgrEV68g+lT+rr7ixOqsTW4F6Tezh
rG2spew7eTHnnmxswzrFc2zRPVkqm653XPdPYl9zbjHjBeqLM+n/0uZc+r9T
UJj+O80oum6VWYe4xwvS8+CrufTf4bd8ejbcEPuL8RvHjxMne73NRXvUt+ri
Md/EL/pKxjOl8crYs/R9KH9CX4GxKqvOfpWXiv9Pxk6sO/ta/lysqca6MbfY
PvlKVs5YhzVkX8lXsLLGi1kD9rO8RHxWY0fWlWX1rBUXsHasC1snvzfuL/VJ
sTewtewetlddNtbATPp/uCmX/vPFH874rzhctPQet8c9rO8lh4axFuy2mCds
XSb9X9qSS/9Js4Xpv9MsPeXiOSib5mnM18Py0vFcb+wS89e5z8nnxf6oPpbe
OvM8mx/7IyuI359NUXdy7v2ObWLb2MR4T7aYbWRbWT22NZf+t+XiOTKubT79
D52eTc+r8dw6NK43mxFrRezlzt2YT8+2C7Jpf4p9am/R96ieTfdK3DM3x9xl
c9nL6o3OHcfas4VsPdvE3i5am44UpOeZeK4Zq76Cz9H3kvp1fePjd2d3sw1s
MxvNWrFZbE3sl2wUa81ms7VsPRvD2rA72Tq2gU2Ie54tYq+zLexl+QH+ZdzL
8VnY/wEFBeEI
           "]]}]}, {}, {}, {}, {}}, {{}, {}, {}, {
        Line3DBox[{251, 474, 1114, 252, 488, 280, 1231, 503, 295, 1235, 518, 
         310, 1241, 533, 325, 1249, 548, 340, 1259, 563, 355, 1271, 578, 1171,
          370, 593, 1186, 385, 1287, 608, 400, 1291, 623, 415, 1297, 638, 430,
          1305, 653, 445, 1314, 668, 460}], 
        Line3DBox[{253, 475, 1115, 254, 489, 1126, 281, 504, 1137, 296, 1236, 
         519, 311, 1242, 534, 326, 1250, 549, 341, 1260, 564, 356, 1272, 579, 
         1172, 371, 594, 1187, 386, 609, 1199, 401, 1292, 624, 416, 1298, 639,
          431, 1306, 654, 446, 1315, 669, 461}], 
        Line3DBox[{255, 476, 1116, 256, 490, 1127, 282, 505, 1138, 297, 520, 
         1147, 312, 1243, 535, 327, 1251, 550, 342, 1261, 565, 357, 1273, 580,
          1173, 372, 595, 1188, 387, 610, 1200, 402, 625, 1209, 417, 1299, 
         640, 432, 1307, 655, 447, 1316, 670, 462}], 
        Line3DBox[{257, 477, 1117, 258, 491, 1128, 283, 506, 1139, 298, 521, 
         1148, 313, 536, 1155, 328, 1252, 551, 343, 1262, 566, 358, 1274, 581,
          1174, 373, 596, 1189, 388, 611, 1201, 403, 626, 1210, 418, 641, 433,
          1308, 656, 448, 1317, 671, 463}], 
        Line3DBox[{259, 478, 1118, 260, 492, 1129, 284, 507, 1140, 299, 522, 
         1149, 314, 537, 1156, 329, 552, 1162, 344, 1263, 567, 359, 1275, 582,
          1175, 374, 597, 1190, 389, 612, 1202, 404, 627, 1211, 419, 642, 
         1217, 434, 657, 1222, 449, 1318, 672, 464}], 
        Line3DBox[{261, 479, 1119, 262, 493, 1130, 285, 508, 1141, 300, 523, 
         1150, 315, 538, 1157, 330, 553, 1163, 345, 568, 1167, 360, 1276, 583,
          1176, 375, 598, 1191, 390, 613, 1203, 405, 628, 1212, 420, 643, 
         1218, 435, 658, 1223, 450, 673, 465}], 
        Line3DBox[{263, 480, 1120, 265, 494, 1131, 286, 509, 1142, 301, 524, 
         1151, 316, 539, 1158, 331, 554, 1164, 346, 569, 1168, 361, 584, 1177,
          1178, 376, 599, 1192, 391, 614, 1204, 406, 629, 1213, 421, 644, 
         1219, 436, 659, 1224, 451, 674, 1227, 466}], 
        Line3DBox[{267, 482, 1121, 268, 496, 288, 1233, 511, 303, 1238, 526, 
         318, 1245, 541, 333, 1254, 556, 348, 1265, 571, 363, 1278, 586, 1180,
          378, 601, 1193, 393, 1289, 616, 408, 1294, 631, 423, 1301, 646, 438,
          1310, 661, 453, 1320, 676, 468}], 
        Line3DBox[{269, 483, 1122, 270, 497, 1132, 289, 512, 304, 1239, 527, 
         319, 1246, 542, 334, 1255, 557, 349, 1266, 572, 364, 1279, 587, 1181,
          379, 602, 1194, 394, 617, 409, 1295, 632, 424, 1302, 647, 439, 1311,
          662, 454, 1321, 677, 469}], 
        Line3DBox[{271, 484, 1123, 272, 498, 1133, 290, 513, 1143, 305, 528, 
         320, 1247, 543, 335, 1256, 558, 350, 1267, 573, 365, 1280, 588, 1182,
          380, 603, 1195, 395, 618, 1205, 410, 633, 425, 1303, 648, 440, 1312,
          663, 455, 1322, 678, 470}], 
        Line3DBox[{273, 485, 1124, 274, 499, 1134, 291, 514, 1144, 306, 529, 
         1152, 321, 544, 1159, 336, 1257, 559, 351, 1268, 574, 366, 1281, 589,
          1183, 381, 604, 1196, 396, 619, 1206, 411, 634, 1214, 426, 649, 441,
          1313, 664, 456, 1323, 679, 471}], 
        Line3DBox[{275, 486, 1125, 276, 500, 1135, 292, 515, 1145, 307, 530, 
         1153, 322, 545, 1160, 337, 560, 1165, 352, 1269, 575, 367, 1282, 590,
          1184, 382, 605, 1197, 397, 620, 1207, 412, 635, 1215, 427, 650, 
         1220, 442, 665, 1225, 457, 1324, 680, 472}], 
        Line3DBox[{277, 682, 683, 278, 501, 1136, 293, 516, 1146, 308, 531, 
         1154, 323, 546, 1161, 338, 561, 1166, 353, 576, 1169, 368, 1283, 591,
          1185, 383, 606, 1198, 398, 621, 1208, 413, 636, 1216, 428, 651, 
         1221, 443, 666, 1226, 458, 685, 686, 687}], 
        Line3DBox[{459, 667, 684, 444, 652, 1304, 429, 637, 1296, 414, 622, 
         1290, 399, 607, 1286, 384, 592, 1284, 369, 1170, 577, 1270, 354, 562,
          1258, 339, 547, 1248, 324, 532, 1240, 309, 517, 1234, 294, 502, 
         1230, 279, 487, 1228, 250, 473, 681, 688}], 
        Line3DBox[{467, 675, 1319, 452, 660, 1309, 437, 645, 1300, 422, 630, 
         1293, 407, 615, 1288, 392, 600, 1285, 377, 1179, 585, 1277, 362, 570,
          1264, 347, 555, 1253, 332, 540, 1244, 317, 525, 1237, 302, 510, 
         1232, 287, 495, 1229, 266, 481, 264}]}, {
        Line3DBox[{690, 1012, 473, 689, 1114, 912, 691, 1115, 913, 692, 1116, 
         914, 693, 1117, 915, 694, 1118, 916, 695, 1119, 917, 696, 1120, 481, 
         697, 1121, 918, 698, 1122, 919, 699, 1123, 920, 700, 1124, 921, 701, 
         1125, 922, 702, 683, 923, 1013}], 
        Line3DBox[{704, 1017, 1228, 703, 488, 705, 1126, 924, 706, 1127, 925, 
         707, 1128, 926, 708, 1129, 927, 709, 1130, 928, 710, 1131, 1018, 
         1229, 711, 496, 712, 1132, 929, 713, 1133, 930, 714, 1134, 931, 715, 
         1135, 932, 716, 1136, 933, 717}], 
        Line3DBox[{719, 1019, 1230, 718, 1020, 1231, 720, 1137, 934, 721, 
         1138, 935, 722, 1139, 936, 723, 1140, 937, 724, 1141, 938, 725, 1142,
          1021, 1232, 726, 1022, 1233, 727, 512, 728, 1143, 939, 729, 1144, 
         940, 730, 1145, 941, 731, 1146, 942, 732}], 
        Line3DBox[{734, 1023, 1234, 733, 1024, 1235, 735, 1025, 1236, 736, 
         1147, 943, 737, 1148, 944, 738, 1149, 945, 739, 1150, 946, 740, 1151,
          1026, 1237, 741, 1027, 1238, 742, 1028, 1239, 743, 528, 744, 1152, 
         947, 745, 1153, 948, 746, 1154, 949, 747}], 
        Line3DBox[{749, 1029, 1240, 748, 1030, 1241, 750, 1031, 1242, 751, 
         1032, 1243, 752, 1155, 950, 753, 1156, 951, 754, 1157, 952, 755, 
         1158, 1033, 1244, 756, 1034, 1245, 757, 1035, 1246, 758, 1036, 1247, 
         759, 1159, 953, 760, 1160, 954, 761, 1161, 955, 762}], 
        Line3DBox[{764, 1037, 1248, 763, 1038, 1249, 765, 1039, 1250, 766, 
         1040, 1251, 767, 1041, 1252, 768, 1162, 956, 769, 1163, 957, 770, 
         1164, 1042, 1253, 771, 1043, 1254, 772, 1044, 1255, 773, 1045, 1256, 
         774, 1046, 1257, 775, 1165, 958, 776, 1166, 959, 777}], 
        Line3DBox[{779, 1047, 1258, 778, 1048, 1259, 780, 1049, 1260, 781, 
         1050, 1261, 782, 1051, 1262, 783, 1052, 1263, 784, 1167, 960, 785, 
         1168, 1053, 1264, 786, 1054, 1265, 787, 1055, 1266, 788, 1056, 1267, 
         789, 1057, 1268, 790, 1058, 1269, 791, 1169, 961, 792}], 
        Line3DBox[{796, 1170, 962, 794, 1171, 963, 798, 1172, 964, 800, 1173, 
         965, 802, 1174, 966, 804, 1175, 967, 806, 1176, 968, 808, 1178, 1179,
          969, 810, 1180, 970, 812, 1181, 971, 814, 1182, 972, 816, 1183, 973,
          818, 1184, 974, 820, 1185, 975, 822}], 
        Line3DBox[{821, 1283, 1072, 819, 1282, 1071, 817, 1281, 1070, 815, 
         1280, 1069, 813, 1279, 1068, 811, 1278, 1067, 809, 1277, 1066, 1177, 
         807, 1276, 1065, 805, 1275, 1064, 803, 1274, 1063, 801, 1273, 1062, 
         799, 1272, 1061, 797, 1271, 1060, 793, 1270, 1059, 795}], 
        Line3DBox[{824, 1073, 1284, 823, 1186, 976, 825, 1187, 977, 826, 1188,
          978, 827, 1189, 979, 828, 1190, 980, 829, 1191, 981, 830, 1192, 
         1074, 1285, 831, 1193, 982, 832, 1194, 983, 833, 1195, 984, 834, 
         1196, 985, 835, 1197, 986, 836, 1198, 987, 837}], 
        Line3DBox[{839, 1075, 1286, 838, 1076, 1287, 840, 1199, 988, 841, 
         1200, 989, 842, 1201, 990, 843, 1202, 991, 844, 1203, 992, 845, 1204,
          1077, 1288, 846, 1078, 1289, 847, 617, 848, 1205, 993, 849, 1206, 
         994, 850, 1207, 995, 851, 1208, 996, 852}], 
        Line3DBox[{854, 1079, 1290, 853, 1080, 1291, 855, 1081, 1292, 856, 
         1209, 997, 857, 1210, 998, 858, 1211, 999, 859, 1212, 1000, 860, 
         1213, 1082, 1293, 861, 1083, 1294, 862, 1084, 1295, 863, 633, 864, 
         1214, 1001, 865, 1215, 1002, 866, 1216, 1003, 867}], 
        Line3DBox[{869, 1085, 1296, 868, 1086, 1297, 870, 1087, 1298, 871, 
         1088, 1299, 872, 641, 873, 1217, 1004, 874, 1218, 1005, 875, 1219, 
         1089, 1300, 876, 1090, 1301, 877, 1091, 1302, 878, 1092, 1303, 879, 
         649, 880, 1220, 1006, 881, 1221, 1007, 882}], 
        Line3DBox[{884, 1093, 1304, 883, 1094, 1305, 885, 1095, 1306, 886, 
         1096, 1307, 887, 1097, 1308, 888, 1222, 1008, 889, 1223, 1009, 890, 
         1224, 1098, 1309, 891, 1099, 1310, 892, 1100, 1311, 893, 1101, 1312, 
         894, 1102, 1313, 895, 1225, 1010, 896, 1226, 1011, 897}], 
        Line3DBox[{911, 1016, 685, 910, 1324, 1113, 909, 1323, 1112, 908, 
         1322, 1111, 907, 1321, 1110, 906, 1320, 1109, 905, 1319, 1108, 1227, 
         904, 673, 903, 1318, 1107, 902, 1317, 1106, 901, 1316, 1105, 900, 
         1315, 1104, 899, 1314, 1103, 898, 684, 1014, 1015}]}}},
     VertexNormals->CompressedData["
1:eJztyDENwCAABMBPCUK6owYJJMxIxFIldCLpUAl3491j9XklaTUpOZ6dX957
77333nvvvffee++9995777333nvvvffee++9995777333nvvvffee++99957
77333nvvvffee++9995777333nvvvffee++99977rxceXLds
      "]], {{}, {}, 
     {Hue[0.67, 0.6, 0.6], Line3DBox[CompressedData["
1:eJxTTMoPSmViYGAwAWJmBgTgur64wHZVgENM4sN3//9zHEAX3znRIi6hCVNc
7FD/2QMsmOLudjfr4r+wYYhL+n1n5/7GiiGuUdK4Z/MfFgzxdVuXOVu9Y8YQ
v9q1YNHZj0wY4sXVplfsHjBiiPs1mRmuvcyAIT7FUuJMwKb/+9HFK5f+vMU0
+S+G+AKLlpnnpv/GEHf68WzdlGU/McQvvavPFOv+jiG+hOfQ5Y2Tv2KIJyda
PeYo+owhPvdRl2dU1EcMcWMxzv1dZ99hiHNczTC9MfEVhnjCIynuyHnPMMSn
xFpqB4Y9whCvSRb4VO1yB0P82oognz05VzDEz02+XXbt+nEM8c/2OZ7sd9Zj
iH+wn5DLkLHOHl28raLwvkrtCQzxpstSwvvkr2CIc/AvUfy98g6GeKBPWpZ6
2yMM8dlOK57I5j/DEOc8XSsyd80rDPEvLIxPXyx8hyH+9dNL5gWOHzHdqSP7
oT/mM4b4ObvlOmnBXzHEdaR+H24o+Y4h7nFu6erGwp8Y4i9DK2w6Un5jiM9Z
JqJxufEvhjjfBfYUlur/mOYnJv21Oc/ggC7ucyRk7q/bjBji6ycXpa6+xoQh
Ptv9a1TdM2YM8WfpiytcnrBgiH8pfJrFe5cVQ7w7oafrxys2DPHG3XGXrj1j
xxDP41uQkF3MgSEOLcccAHYJjOg=
       "]]}}}},
  Axes->False,
  Boxed->False,
  Method->{},
  PlotRange->All,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  ViewPoint->
   NCache[{Pi, Rational[1, 2] Pi, 2}, {
    3.141592653589793, 1.5707963267948966`, 2}]]], "Output",
 CellChangeTimes->{
  3.603436906987229*^9, {3.603436937039775*^9, 3.603436969006146*^9}, 
   3.603437082448146*^9, 3.603437118094785*^9, 
   3.6252907158269033`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwZjAwMDxSYACx/wOZ
UAIMMkEElDPKHmWPskfZo+xR9ih7lD3KHmUPAJuBEQDTu1Xi\
\>"]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<das.png\>\"", ",", 
    RowBox[{"Show", "[", 
     RowBox[{"DAS", ",", 
      RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}], ",", "\"\<png\>\"", ",", 
    
    RowBox[{"ImageSize", "\[Rule]", "600"}], ",", 
    RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<das.jpg\>\"", ",", 
    RowBox[{"Show", "[", 
     RowBox[{"DAS", ",", 
      RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}], ",", "\"\<jpg\>\"", ",", 
    
    RowBox[{"ImageSize", "\[Rule]", "600"}], ",", 
    RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<das.pdf\>\"", ",", 
    RowBox[{"Show", "[", 
     RowBox[{"DAS", ",", 
      RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}], ",", "\"\<pdf\>\"", ",", 
    
    RowBox[{"ImageSize", "\[Rule]", "600"}], ",", 
    RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.460003643880166*^9, 3.460003664308771*^9}, {
   3.460003714476137*^9, 3.460003717427647*^9}, {3.479617574031763*^9, 
   3.479617598824219*^9}, 3.479617723158853*^9, {3.479617894421043*^9, 
   3.479617905795182*^9}, {3.479617938360774*^9, 3.47961794362155*^9}, {
   3.603435370626969*^9, 3.603435393955613*^9}, {3.603435424321785*^9, 
   3.603435425376903*^9}}]
},
WindowSize->{1024, 713},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"9.0 for Linux x86 (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 20953, 497, 1023, "Input"],
Cell[CellGroupData[{
Cell[21523, 521, 1909, 36, 143, "Input"],
Cell[23435, 559, 79954, 1313, 241, 79621, 1306, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[103404, 1875, 1466, 36, 99, "Input"]
}
]
*)

(* End of internal cache information *)