(* Content-type: application/vnd.wolfram.cdf.text *)

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Mathematica 9.0' *)

(*************************************************************************)
(*                                                                       *)
(*  The Mathematica License under which this file was created prohibits  *)
(*  restricting third parties in receipt of this file from republishing  *)
(*  or redistributing it by any means, including but not limited to      *)
(*  rights management or terms of use, without the express consent of    *)
(*  Wolfram Research, Inc. For additional information concerning CDF     *)
(*  licensing and redistribution see:                                    *)
(*                                                                       *)
(*        www.wolfram.com/cdf/adopting-cdf/licensing-options.html        *)
(*                                                                       *)
(*************************************************************************)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[      1063,         20]
NotebookDataLength[     23193,        699]
NotebookOptionsPosition[     22520,        663]
NotebookOutlinePosition[     22936,        681]
CellTagsIndexPosition[     22893,        678]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"b1", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "4"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "4", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "4", ",", "0"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.621292498432477*^9, 3.6212924992615604`*^9}, {
  3.6212934041540403`*^9, 3.62129342335296*^9}, {3.621294946112221*^9, 
  3.6212949469923086`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b2", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "4"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "4", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "6", ",", 
        RowBox[{"-", "3"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6212934272273474`*^9, 3.6212934629219165`*^9}, {
  3.6212934997055945`*^9, 3.621293531210745*^9}, {3.6212949499366035`*^9, 
  3.6212949516007695`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b3", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "4", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "6", ",", 
        RowBox[{"-", "3"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "7", ",", 
        RowBox[{"-", "4"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6212935415787816`*^9, 3.6212935836919923`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b4", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"4", ",", "7", ",", 
        RowBox[{"-", "4"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "4", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "4", ",", "0"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.62129358726435*^9, 3.62129362986961*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b5", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "5", ",", 
        RowBox[{"-", "2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "7", ",", 
        RowBox[{"-", "4"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "4", ",", "3"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6212936440980325`*^9, 3.621293689838606*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b6", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "4", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "5", ",", 
        RowBox[{"-", "2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "8", ",", "0"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.621293693892011*^9, 3.621293721375759*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b7", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "4", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "8", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "4", ",", "2"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6212937241180334`*^9, 3.621293757792401*^9}, 
   3.6225041998988686`*^9, 3.622504553715246*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b8", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "8", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "4", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "9"}], ",", "6", ",", "1"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.621293811381759*^9, 3.621293852735894*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b9", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "8", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7"}], ",", "4", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "9"}], ",", "6", ",", "1"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.621293857734394*^9, 3.6212938886734877`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b10", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "8", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7"}], ",", "4", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "2", ",", "1"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6212938930959296`*^9, 3.621293896658286*^9}, {
  3.6212939360102205`*^9, 3.621293944785098*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b11", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "4"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7"}], ",", "4", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "2", ",", "1"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.621293947192339*^9, 3.621293964465066*^9}, {
   3.621294933344944*^9, 3.621294933840994*^9}, 3.622504204988377*^9, 
   3.6225045559064655`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b12", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "4", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "4", ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "4"}], ",", "0"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6212943168923054`*^9, 3.621294379717587*^9}, 
   3.621294419463561*^9, {3.6212949272973394`*^9, 3.6212949303046403`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b13", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "4", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "2", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "4"}], ",", "0"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.621294559132527*^9, 3.621294567153329*^9}, 
   3.621294602178831*^9, {3.621294918689479*^9, 3.6212949235849686`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b14", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "4", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "2", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7"}], ",", "4", ",", 
        RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.621294654145027*^9, 3.6212947049661083`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b15", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "4", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "9"}], ",", "6", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7"}], ",", "4", ",", 
        RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6212947676503763`*^9, 3.6212947733239436`*^9}, 
   3.621294814519063*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b16", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"4", ",", "7", ",", 
        RowBox[{"-", "4"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "6", ",", 
        RowBox[{"-", "3"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "4"}], ",", "0"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6224994041702385`*^9, 3.622499465400115*^9}, {
  3.6224995236132927`*^9, 3.622499524428211*^9}, {3.6224995823855133`*^9, 
  3.6224995872325134`*^9}, {3.622499637764513*^9, 3.6224996486595135`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b17", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "5", ",", 
        RowBox[{"-", "2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "2", ",", 
        RowBox[{"-", "4"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "7", ",", 
        RowBox[{"-", "4"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6224999649604073`*^9, 3.622499972235135*^9}, {
  3.6225000045983706`*^9, 3.622500061055016*^9}, {3.6225000968966*^9, 
  3.622500117934703*^9}, {3.6225002309930077`*^9, 3.6225002329612045`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b18", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"4", ",", "7", ",", 
        RowBox[{"-", "4"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "2", ",", 
        RowBox[{"-", "4"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "4"}], ",", "0"}], "}"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6225001765595655`*^9, 3.622500193530262*^9}, {
  3.6225002264485536`*^9, 3.6225002271206207`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b19", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "5", ",", 
        RowBox[{"-", "2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "2", ",", 
        RowBox[{"-", "4"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "5", ",", 
        RowBox[{"-", "4"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.622500355476455*^9, 3.6225003557164793`*^9}, {
   3.6225004068475914`*^9, 3.6225004236962767`*^9}, {3.622500458615768*^9, 
   3.622500537960702*^9}, 3.6225005726771727`*^9, {3.622500612876192*^9, 
   3.6225006332112255`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b20", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "8", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "5", ",", 
        RowBox[{"-", "2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "5", ",", 
        RowBox[{"-", "4"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6225006663625402`*^9, 3.6225006832112255`*^9}, 
   3.622500716853589*^9, {3.6225007598688903`*^9, 3.6225007680617094`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b21", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "8", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7"}], ",", "4", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "5", ",", 
        RowBox[{"-", "4"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.622500851455048*^9, 3.6225008736322656`*^9}, 
   3.6225009162655287`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b22", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "2", ",", 
        RowBox[{"-", "4"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7"}], ",", "4", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "5", ",", 
        RowBox[{"-", "4"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.622500938544756*^9, 3.622500957938695*^9}, 
   3.6225010334782486`*^9, {3.6225011987927785`*^9, 3.622501239543853*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b23", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "2", ",", 
        RowBox[{"-", "4"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "5", ",", 
        RowBox[{"-", "4"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "2", ",", 
        RowBox[{"-", "4"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.622501260463945*^9, 3.622501282205119*^9}, {
  3.6225013201049085`*^9, 3.6225013260355015`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b24", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "2", ",", 
        RowBox[{"-", "4"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "4"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "2", ",", 
        RowBox[{"-", "4"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.622501470667963*^9, 3.622501476730569*^9}, {
  3.6225015153404303`*^9, 3.622501515483444*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b25", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "2", ",", 
        RowBox[{"-", "4"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "4"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7"}], ",", "4", ",", 
        RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6225027488387766`*^9, 3.6225027722221146`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"b26", "=", 
   RowBox[{"Polygon", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "4", ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", "8", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7"}], ",", "4", ",", 
        RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6225043755844355`*^9, 3.622504376272504*^9}, {
  3.62250442093897*^9, 3.6225044391797943`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Red", ",", "b1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Red", ",", "b2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Red", ",", "b3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Red", ",", "b4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Red", ",", "b5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Red", ",", "b6"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Red", ",", "b7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Red", ",", "b11"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Red", ",", "b12"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Red", ",", "b13"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Red", ",", "b14"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Green", ",", "b16"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Green", ",", "b17"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Green", ",", "b18"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Green", ",", "b19"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Green", ",", "b20"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Green", ",", "b21"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Green", ",", "b22"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Green", ",", "b23"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Green", ",", "b24"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Green", ",", "b25"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Red", ",", "b26"}], "}"}], "\[IndentingNewLine]", ",", 
     RowBox[{"Lighting", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"\"\<Point\>\"", ",", "Yellow", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "5"}], "}"}]}], "}"}], "}"}]}]}], "}"}],
    ",", 
   RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzE1IkwEAxvG3HSYhFRl9UZkeRO0NHVIxNMohC1PbYi0npa1MrcXSFWkr
BYcLIjDca+XBUFdkeJDKMc0htHZIi7KIDo4olcg+ps0VLGwmtf97ePgdHvin
VtYZqhWCIKTHh9G2Hu/qxZDGcNQ0iAufM55j5uFTsifzS4JYuCos67HEfuKD
P55f2Ls1vIjf+54mJcWVpq5uxNId6ZvxZc5sGo5ZjSLGxIAKRVVaLg5o92gx
GquRVSwU6HHefUa2dmmiDB97/eXY6myuQ7v+hw2N46n16EiOXsPRnW22Y0sh
TSTUdQ6zTN4GLGqJXMGOuTEJ+xvbb+Hs1y1d+N5TI5ssau/ilzt+Wd/9VwGs
Lbv8DIfy9n+QdS2bxJtne+dQOT8TxnDOu+Vm/rW6RCx/6M7C1y8uqTBo96tx
24a9uThR7dPgeMLBAlS6Mg9goKFbhx3bdfWoHt59EZuypyU0DUTa0XpkZfbx
uCkudx46jYVFmG//W4yVPushdG0KluJH5ycz7nrztgpXWG6fxlFJ0Yjn91U5
cN2FxFa5Uzx9Ay3r1Y/wtz42iQaHOIUlFWtmsE+QImi73vQPW8ydwom434af
KDFwbyQB/wM+j11x
  "]],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 0, 0], Polygon3DBox[{{0, -4, 0}, {0, 4, 3}, {3, 4, 0}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{0, -4, 0}, {3, 4, 0}, {5, 6, -3}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{3, 4, 0}, {5, 6, -3}, {4, 7, -4}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{4, 7, -4}, {0, 4, 3}, {3, 4, 0}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{-1, 5, -2}, {4, 7, -4}, {0, 4, 3}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{0, 4, 3}, {-1, 5, -2}, {-6, 8, 0}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{0, 4, 3}, {-6, 8, 0}, {-5, 4, 2}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{0, -4, 0}, {-7, 4, -1}, {-3, 2, 1}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{-5, 4, 2}, {0, 4, 3}, {0, -4, 0}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{-5, 4, 2}, {-3, 2, 1}, {0, -4, 0}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{-5, 4, 2}, {-3, 2, 1}, {-7, 4, -1}}]}, 
   {RGBColor[0, 1, 0], Polygon3DBox[{{4, 7, -4}, {5, 6, -3}, {0, -4, 0}}]}, 
   {RGBColor[0, 1, 0], Polygon3DBox[{{-1, 5, -2}, {0, 2, -4}, {4, 7, -4}}]}, 
   {RGBColor[0, 1, 0], Polygon3DBox[{{4, 7, -4}, {0, 2, -4}, {0, -4, 0}}]}, 
   {RGBColor[0, 1, 0], Polygon3DBox[{{-1, 5, -2}, {0, 2, -4}, {-3, 5, -4}}]}, 
   {RGBColor[0, 1, 0], Polygon3DBox[{{-6, 8, 0}, {-1, 5, -2}, {-3, 5, -4}}]}, 
   {RGBColor[0, 1, 0], Polygon3DBox[{{-6, 8, 0}, {-7, 4, -1}, {-3, 5, -4}}]}, 
   {RGBColor[0, 1, 0], Polygon3DBox[{{-3, 2, -4}, {-7, 4, -1}, {-3, 5, -4}}]}, 
   {RGBColor[0, 1, 0], Polygon3DBox[{{-3, 2, -4}, {-3, 5, -4}, {0, 2, -4}}]}, 
   {RGBColor[0, 1, 0], Polygon3DBox[{{-3, 2, -4}, {0, -4, 0}, {0, 2, -4}}]}, 
   {RGBColor[0, 1, 0], Polygon3DBox[{{-3, 2, -4}, {0, -4, 0}, {-7, 4, -1}}]}, 
   {RGBColor[1, 0, 0], Polygon3DBox[{{-5, 4, 2}, {-6, 8, 0}, {-7, 4, -1}}]}, 
   StyleBox[{},
    Lighting->{{"Point", 
       RGBColor[1, 1, 0], {0, 0, 5}}}]},
  AutomaticImageSize->True,
  Boxed->False,
  ImageSize->{352.3168764680584, 356.5102953675215},
  ViewPoint->{0.5642278356802737, 1.0728614960803113`, 3.1592111609817928`},
  ViewVertical->{0.10041463675825449`, 0.9629444687527753, 
   0.42910201723429753`}]], "Output",
 CellChangeTimes->{{3.622502790561949*^9, 3.6225028415230446`*^9}, 
   3.6225028778276744`*^9, {3.622502998324723*^9, 3.6225030081647067`*^9}, {
   3.6225030812390137`*^9, 3.622503095797469*^9}, {3.6225031709669857`*^9, 
   3.6225032070965977`*^9}, {3.622503239081796*^9, 3.6225033845403404`*^9}, {
   3.6225034298538713`*^9, 3.6225035207539606`*^9}, {3.6225036100828924`*^9, 
   3.622503810214904*^9}, 3.622504186806559*^9, {3.622504221199998*^9, 
   3.622504325235401*^9}, 3.6225044585647326`*^9, {3.622504512071082*^9, 
   3.622504524838359*^9}, 3.622504566692544*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\:30cf", "\:30fc", "\:30c8"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"\:7a7a\:4e2d\:306b\:70b9\:3092\:6253\:3064\:306e\:304c\:4e88\:60f3\
\:4ee5\:4e0a\:306b\:96e3\:3057\:304b\:3063\:305f", "\:3002", 
  "\:3082\:3063\:3068\:7d30\:304b\:3044\:9762\:306b\:3057\:305f\:304b\:3063\
\:305f\:3051\:3069\:6642\:9593\:304c\:306a\:304b\:3063\:305f", "\:3002", 
  "\[IndentingNewLine]"}]}], "Input",
 CellChangeTimes->{{3.6225050908079505`*^9, 3.6225051704959183`*^9}, {
  3.622505201473016*^9, 3.622505210608929*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.622505063084178*^9, 3.6225050637252426`*^9}}],

Cell[BoxData["\:ff13\:5e74I\:7d44\:539f\:7530\:307f\:306a\:304e"], "Input",
 CellChangeTimes->{{3.622505015187389*^9, 3.622505040525923*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.622503633547239*^9, 3.622503837089591*^9}]
},
WindowSize->{1264, 888},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
CellLabelAutoDelete->True,
Magnification->0.8999999761581421,
FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (2013\:5e741\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[1463, 33, 555, 16, 29, "Input"],
Cell[2021, 51, 581, 16, 29, "Input"],
Cell[2605, 69, 477, 14, 29, "Input"],
Cell[3085, 85, 450, 14, 29, "Input"],
Cell[3538, 101, 502, 16, 29, "Input"],
Cell[4043, 119, 500, 16, 29, "Input"],
Cell[4546, 137, 528, 16, 29, "Input"],
Cell[5077, 155, 500, 16, 29, "Input"],
Cell[5580, 173, 526, 17, 29, "Input"],
Cell[6109, 192, 578, 18, 29, "Input"],
Cell[6690, 212, 625, 19, 29, "Input"],
Cell[7318, 233, 555, 16, 29, "Input"],
Cell[7876, 251, 575, 17, 29, "Input"],
Cell[8454, 270, 524, 16, 29, "Input"],
Cell[8981, 288, 552, 17, 29, "Input"],
Cell[9536, 307, 655, 18, 29, "Input"],
Cell[10194, 327, 672, 18, 29, "Input"],
Cell[10869, 347, 556, 17, 29, "Input"],
Cell[11428, 366, 728, 20, 29, "Input"],
Cell[12159, 388, 626, 18, 29, "Input"],
Cell[12788, 408, 576, 18, 29, "Input"],
Cell[13367, 428, 646, 19, 29, "Input"],
Cell[14016, 449, 599, 18, 29, "Input"],
Cell[14618, 469, 573, 17, 29, "Input"],
Cell[15194, 488, 550, 17, 29, "Input"],
Cell[15747, 507, 574, 17, 29, "Input"],
Cell[CellGroupData[{
Cell[16346, 528, 2568, 69, 70, "Input"],
Cell[18917, 599, 2661, 40, 334, "Output"]
}, Open  ]],
Cell[21593, 642, 589, 10, 110, "Input"],
Cell[22185, 654, 94, 1, 29, InheritFromParent],
Cell[22282, 657, 141, 1, 29, "Input"],
Cell[22426, 660, 90, 1, 29, "Input"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature eu0yKnp2A#G6aBgux2xwPDEq *)