(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 8.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. *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 835, 17] NotebookDataLength[ 12214, 352] NotebookOptionsPosition[ 12451, 341] NotebookOutlinePosition[ 12806, 357] CellTagsIndexPosition[ 12763, 354] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ CORE FIGHTER Ver.MK5XIII \ \>", "Title", CellChangeTimes->{{3.5910537661594143`*^9, 3.5910537863506193`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"(*", "body", "*)"}], RowBox[{ RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "30"}], ",", "20", ",", "6"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "28"}], ",", "0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "25"}], ",", "9", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "9", ",", "6"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "20", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "28"}], ",", "20", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "25"}], ",", "11", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "11", ",", "6"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"(*", "\[UnknownGlyph]\[UnknownGlyph]", "*)"}], RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "20", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "25"}], ",", "20", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "22"}], ",", "35", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "12"}], ",", "30", ",", "0.5"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "0", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "25"}], ",", "0", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "22"}], ",", RowBox[{"-", "15"}], ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "12"}], ",", RowBox[{"-", "10"}], ",", "0.5"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "11"}], ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8"}], ",", RowBox[{"-", "9"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "28"}], ",", RowBox[{"-", "20"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "28"}], ",", RowBox[{"-", "10"}], ",", "5"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "11"}], ",", "30", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8"}], ",", "30", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "28"}], ",", "40", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "28"}], ",", "30", ",", "5"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", "10", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "30"}], ",", "10", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "50"}], ",", "10", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "25"}], ",", "10", ",", "18"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{ "(*", "\[UnknownGlyph]R\[UnknownGlyph]b\[UnknownGlyph]N\[UnknownGlyph]\ s\[UnknownGlyph]b\[UnknownGlyph]g\[UnknownGlyph]\[UnknownGlyph]\[UnknownGlyph]\ \[UnknownGlyph]\[UnknownGlyph]\[UnknownGlyph]", "*)"}], RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"12", ",", "7", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "13", ",", "8.5"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"12", ",", "7", ",", "8.5"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "13", ",", "8.5"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "13", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "7", ",", "4"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"30", ",", "13", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "7", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "7", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "13", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"30", ",", "7", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "13", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "13", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "7", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"30", ",", "13", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "13", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "13", ",", "8.5"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "13", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "1"}], "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"30", ",", "7", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "7", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "7", ",", "8.5"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "7", ",", "4"}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.591053813938593*^9, 3.5910538208656163`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0, 1, 0], CuboidBox[{0, 0, 0}, {-30, 20, 6}]}, {RGBColor[1, 0, 0], Polygon3DBox[{{-5, 0, 6}, {-28, 0, 6}, {-25, 9, 6}, {-15, 9, 6}}]}, {RGBColor[1, 0, 0], Polygon3DBox[{{-5, 20, 6}, {-28, 20, 6}, {-25, 11, 6}, {-15, 11, 6}}]}, {RGBColor[1, 0, 0], Polygon3DBox[{{-10, 20, 0.5}, {-25, 20, 0.5}, {-22, 35, 0.5}, {-12, 30, 0.5}}]}, {RGBColor[1, 0, 0], Polygon3DBox[{{-10, 0, 0.5}, {-25, 0, 0.5}, {-22, -15, 0.5}, {-12, -10, 0.5}}]}, {RGBColor[1, 0, 0], Polygon3DBox[{{-11, -10, 10}, {-8, -9, -2}, {-28, -20, -2}, {-28, -10, 5}}]}, {RGBColor[1, 0, 0], Polygon3DBox[{{-11, 30, 10}, {-8, 30, -2}, {-28, 40, -2}, {-28, 30, 5}}]}, {RGBColor[1, 0, 0], Polygon3DBox[{{-15, 10, 6}, {-30, 10, 6}, {-50, 10, 18}, {-25, 10, 18}}]}, {RGBColor[0, 0, 1], CuboidBox[{12, 7, 0}, {0, 13, 8.5}]}, {RGBColor[0, 0, 1], Polygon3DBox[{{12, 7, 8.5}, {12, 13, 8.5}, {30, 13, 4}, {30, 7, 4}}]}, {RGBColor[0, 0, 1], Polygon3DBox[{{30, 13, 4}, {30, 7, 4}, {30, 7, 0}, {30, 13, 0}}]}, {RGBColor[0, 1, 1], Polygon3DBox[{{30, 7, 0}, {30, 13, 0}, {12, 13, 0}, {12, 7, 0}}]}, {RGBColor[0, 1, 1], Polygon3DBox[{{30, 13, 0}, {30, 13, 4}, {12, 13, 8.5}, {12, 13, 0}}]}, {RGBColor[0, 1, 1], Polygon3DBox[{{30, 7, 0}, {12, 7, 0}, {12, 7, 8.5}, {30, 7, 4}}]}}, Boxed->False]], "Output", CellChangeTimes->{3.591053823215316*^9}] }, Open ]], Cell["\<\ 3\:5e74H\:7d44\:3000\:4e09\:68ee\:5065\:5927 \:5e7c\:3044\:9803\:306b\:898b\:305f\:30a2\:30cb\:30e1\:306e\:6226\:95d8\:6a5f\ \:304c\:61d0\:304b\:3057\:304f\:3066\:4f5c\:3063\:3066\:307f\:307e\:3057\:305f\ !!\ \>", "Text", CellChangeTimes->{ 3.5910537912648706`*^9, {3.591053850105997*^9, 3.5910538552956495`*^9}, { 3.591053928764291*^9, 3.5910539348983154`*^9}}] }, Open ]] }, WindowSize->{1016, 640}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (2011\:5e7410\:670815\ \:65e5)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1257, 32, 120, 4, 137, "Title"], Cell[CellGroupData[{ Cell[1402, 40, 9170, 252, 332, "Input"], Cell[10575, 294, 1466, 32, 267, "Output"] }, Open ]], Cell[12056, 329, 379, 9, 65, "Text"] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature YxTuYzFn7QnYQBKU0WKuMRhl *)