(* 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[ 355157, 9797] NotebookOptionsPosition[ 354698, 9779] NotebookOutlinePosition[ 355057, 9795] CellTagsIndexPosition[ 355014, 9792] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "n", "]"}], "=", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", RowBox[{"-", "2.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", RowBox[{"-", "2.5"}]}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "2.5"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "2.5"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "0"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", RowBox[{"-", "5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", RowBox[{"-", "5"}]}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", "Gray", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "5"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", RowBox[{"-", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", RowBox[{"-", "20"}]}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", RowBox[{"-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", RowBox[{"-", "10"}]}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", RowBox[{"-", "12.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", RowBox[{"-", "12.5"}]}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", RowBox[{"-", "15"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", RowBox[{"-", "15"}]}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", RowBox[{"-", "17.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", RowBox[{"-", "17.5"}]}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "10"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "12.5"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "12.5"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "15"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "17.5"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "17.5"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", "White", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "20"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", ".9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", ".9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"4.9", "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4.9", "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"5.9", "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"0", "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"6", "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "10.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "10.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "11.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "3.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "11.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "5.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "20.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "20.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "14.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "14.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "21.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "13.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "20"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "14"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "30.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "30.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "24.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "24.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "31.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "23.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "31.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "25.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "40.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "40.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "34.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "34.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "41.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "33.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "40"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "34"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "50.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "50.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "44.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "44.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "51.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "43.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "51.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "45.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "60.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "60.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "54.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "54.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "61.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "53.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "60"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "54"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", ".9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", ".9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"4.9", "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4.9", "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"5.9", "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"0", "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"6", "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "10.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "10.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "11.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "3.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "11.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "5.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "20.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "20.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "14.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "14.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "21.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "13.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "20"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "14"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "30.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "30.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "24.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "24.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "31.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "23.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "31.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "25.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "40.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "40.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "34.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "34.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "41.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "33.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "40"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "34"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "50.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "50.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "44.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "44.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "51.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "43.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "51.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "45.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "60.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "60.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "54.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "54.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "61.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "53.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "60"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "54"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", ".9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", ".9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"4.9", "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4.9", "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"5.9", "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"0", "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"6", "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "10.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"10", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "10.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"15", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"10", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"15", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "11.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"15", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "3.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"15", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "11.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"10", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "5.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"10", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "20.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "20.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "14.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "14.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "21.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "13.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "20"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "14"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "30.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"10", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "30.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"15", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "24.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"10", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "24.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"15", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "31.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"15", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "23.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"15", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "31.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"10", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "25.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"10", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "40.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "40.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "34.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "34.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "41.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "33.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "40"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "34"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "50.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"10", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "50.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"15", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "44.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"10", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "44.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"15", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "51.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"15", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "43.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"15", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "51.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"10", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "45.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"10", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "60.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "60.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "54.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "54.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "61.8"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "53.9"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"12.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "60"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "54"}], "+", "n"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"17.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "n", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "25"}], ",", "25"}], "}"}]}], "}"}]}], ",", RowBox[{"ViewPoint", "\[Rule]", "Front"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"-", "30"}], ",", "42"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.409360762457*^9, 3.409360773441*^9}, { 3.409407944020833*^9, 3.40940794784935*^9}}], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "n", "]"}], "=", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", RowBox[{"-", "2.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", RowBox[{"-", "2.5"}]}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "2.5"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "2.5"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "0"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", RowBox[{"-", "5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", RowBox[{"-", "5"}]}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", "Gray", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "5"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", RowBox[{"-", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", RowBox[{"-", "20"}]}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", RowBox[{"-", "10"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", RowBox[{"-", "10"}]}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", RowBox[{"-", "12.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", RowBox[{"-", "12.5"}]}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", RowBox[{"-", "15"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", RowBox[{"-", "15"}]}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", RowBox[{"-", "17.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", RowBox[{"-", "17.5"}]}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "10"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "12.5"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "12.5"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "15"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "17.5"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "17.5"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", "White", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "3", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "3", ",", "20"}], "}"}]}], "}"}], ",", ".25"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", ".9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", ".9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"4.9", "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4.9", "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"5.9", "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"0", "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"6", "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "10.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "10.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "11.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "3.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "11.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "5.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "20.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "20.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "14.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "14.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "21.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "13.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "20"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "14"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "30.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "30.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "24.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "24.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "31.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "23.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "31.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "25.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "40.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "40.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "34.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "34.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "41.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "33.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "40"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "34"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "50.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "50.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "44.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "44.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "51.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "43.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"0", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "51.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "45.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "60.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "60.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "54.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "54.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "61.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "53.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "60"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "54"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"2.5", "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", ".9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", ".9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"4.9", "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4.9", "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"5.9", "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"0", "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"6", "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "10.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "10.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "11.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "3.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1.3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "11.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "5.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "20"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "20.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "20.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "14.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "14.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "12.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "21.8"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "13.9"}], "+", "42"}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "17.5"}], "+", RowBox[{"3", RowBox[{"Sin", "[", "42", "]"}]}]}]}], "}"}]}], "}"}], ",",