Cell[CellGroupData[{Cell[BoxData[ RowBox[{"Manipulate", "[", " ", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".75", "]"}], ",", RowBox[{"Opacity", "[", ".65", "]"}], ",", RowBox[{"Sphere", "[", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "z"}]}], "}"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "z"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ "pos", "[[", "1", "]]"}], ",", RowBox[{ "pos", "[[", "2", "]]"}], ",", "z"}], "}"}]}], "}"}], "]"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Point", "/@", RowBox[{"(", RowBox[{ RowBox[{"image", "[", RowBox[{"r", ",", "pos"}], "]"}], "/.", "", RowBox[{ RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], "->", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], ")"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Point", "/@", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"inverseStereo", "[", RowBox[{"#1", ",", "z"}], "]"}], "&"}], ")"}], "/@", RowBox[{"image", "[", RowBox[{"r", ",", "pos"}], "]"}]}]}]}], "}"}]}], "}"}], ",", " ", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "-", "r"}], ",", RowBox[{"2", "+", "r"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "-", "r"}], ",", RowBox[{"2", "+", "r"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.01"}], ",", "1.01"}], "}"}]}], "}"}]}], ",", RowBox[{"BoxRatios", "->", RowBox[{"{", RowBox[{ RowBox[{"2", "+", "r"}], ",", RowBox[{"2", "+", "r"}], ",", "1"}], "}"}]}], ",", RowBox[{"BoxStyle", "->", "Dashed"}], ",", RowBox[{"Lighting", "->", "\"\\""}], ",", RowBox[{"ViewPoint", "->", RowBox[{"Dynamic", "[", "vp", "]"}]}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"400", ",", "400"}], "}"}]}]}], "]"}], ",", " ", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"z", ",", RowBox[{"-", "1"}], ",", "\"\<\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "->", "\"\< z=-1 \>\""}], ",", RowBox[{"1", "->", "\"\< z=+1 \>\""}]}], "}"}]}], "}"}], ",", " ", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"pos", ",", RowBox[{"{", RowBox[{"1.35", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", "\"\<\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", " ", "Delimiter", ",", " ", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"vp", ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1.25"}], "}"}], ",", "\"\<\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1.25"}], "}"}], "->", "\"\\""}], ",", RowBox[{"Front", "->", "\"\\""}], ",", RowBox[{"Right", "->", "\"\\""}], ",", RowBox[{"Top", "->", "\"\\""}]}], "}"}]}], "}"}], ",", " ", RowBox[{"ControlPlacement", "->", "Left"}], ",", " ", RowBox[{"AutorunSequencing", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Initialization", ":>", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"inverseStereo", "[", RowBox[{ RowBox[{"{", RowBox[{"x_", ",", "y_"}], "}"}], ",", "z_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"4", "x"}], ",", RowBox[{"4", "y"}], ",", RowBox[{"z", RowBox[{"(", RowBox[{"4", "-", "#"}], ")"}]}]}], "}"}], "/", RowBox[{"(", RowBox[{"#", "+", "4"}], ")"}]}], "&"}], "[", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}]}], "]"}]}], ";", RowBox[{ RowBox[{"line", "[", RowBox[{"r_", ",", "pos_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"pos", "+", "#1"}], "&"}], ")"}], "/@", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "50"}], ",", "50", ",", "0.25"}], "}"}]}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"cross", "[", RowBox[{"r_", ",", "pos_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"pos", "+", "#1"}], "&"}], ")"}], "/@", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"r", " ", RowBox[{"#1", ".", RowBox[{"RotationMatrix", "[", RowBox[{"\[Pi]", "/", "4"}], "]"}]}]}], "&"}], ")"}], "/@", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "1"}], ",", "1", ",", ".1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "i"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "1"}], ",", "1", ",", ".1"}], "}"}]}], "]"}]}], "}"}], ",", "1"}], "]"}]}]}]}], ";", RowBox[{ RowBox[{"circle", "[", RowBox[{"r_", ",", "pos_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"pos", "+", "#1"}], "&"}], ")"}], "/@", RowBox[{"Join", "[", RowBox[{ RowBox[{"r", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "\[Gamma]", "]"}], ",", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Gamma]", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]", ",", RowBox[{"\[Pi]", "/", "24"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "}"}]}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"filledCircle", "[", RowBox[{"r_", ",", "pos_"}], "]"}], ":=", RowBox[{"Join", "[", RowBox[{ RowBox[{"circle", "[", RowBox[{"r", ",", "pos"}], "]"}], ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"filledSquare", "[", RowBox[{"r", ",", "pos"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Norm", "[", RowBox[{"pos", "-", "#1"}], "]"}], "<=", "r"}], "&"}]}], "]"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"square", "[", RowBox[{"r_", ",", "pos_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"pos", "+", "#1"}], "&"}], ")"}], "/@", RowBox[{"(", RowBox[{"r", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "1"}], ",", "1", ",", ".25"}], "}"}]}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "i"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", "1"}], "]"}]}], ")"}]}]}], ";", RowBox[{ RowBox[{"filledSquare", "[", RowBox[{"r_", ",", "pos_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"pos", "+", "#1"}], "&"}], ")"}], "/@", RowBox[{"(", RowBox[{"r", " ", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "1"}], ",", "1", ",", ".25"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"-", "1"}], ",", "1", ",", ".25"}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ")"}]}]}]}], ")"}]}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.35696210375764*^9, {3.4789510789375*^9, 3.4789511701875*^9}, { 3.4789512044375*^9, 3.478951271546875*^9}, {3.478951459734375*^9, 3.47895150784375*^9}, {3.478951691453125*^9, 3.478951697578125*^9}, {3.47895175475*^9, 3.47895181365625*^9}, { 3.478951872390625*^9, 3.478951965828125*^9}, {3.478952723078125*^9, 3.47895278071875*^9}, {3.478952823875*^9, 3.47895298371875*^9}, { 3.47895302190625*^9, 3.478953066125*^9}, {3.47895312696875*^9, 3.478953180234375*^9}, {3.4789604323125*^9, 3.47896046028125*^9}, { 3.478960516609375*^9, 3.478960538109375*^9}, {3.478960633*^9, 3.47896064578125*^9}, 3.478960683375*^9, {3.478962700203125*^9, 3.47896270753125*^9}, {3.478962739171875*^9, 3.4789627540625*^9}, { 3.47896278734375*^9, 3.4789628394375*^9}, {3.4789628980625*^9, 3.4789629050625*^9}, {3.47896323478125*^9, 3.478963238125*^9}, { 3.478963268359375*^9, 3.478963296015625*^9}, {3.4789633426875*^9, 3.478963343015625*^9}, {3.478963384484375*^9, 3.47896339859375*^9}, {3.47896343946875*^9, 3.478963450390625*^9}, {3.478963549703125*^9, 3.478963600765625*^9}, {3.4789636309375*^9, 3.478963658640625*^9}, {3.478963694078125*^9, 3.478963718703125*^9}, {3.478963761203125*^9, 3.478963761703125*^9}, {3.478963798375*^9, 3.478963843109375*^9}, { 3.479010221328125*^9, 3.4790102378125*^9}, 3.47901029609375*^9, { 3.47901041478125*^9, 3.479010570234375*^9}, {3.4790171818125*^9, 3.47901720253125*^9}, {3.4790172475625*^9, 3.47901733425*^9}, { 3.479017665828125*^9, 3.479017694125*^9}, {3.479017741828125*^9, 3.479017782625*^9}, {3.4790227599375*^9, 3.47902276321875*^9}, 3.479023299296875*^9, {3.479023765078125*^9, 3.4790237665625*^9}, { 3.47902407965625*^9, 3.47902408475*^9}, 3.47902536534375*^9, { 3.479025430796875*^9, 3.479025437796875*^9}, {3.479025567390625*^9, 3.47902557315625*^9}, {3.479025622484375*^9, 3.479025627984375*^9}, {3.47902572759375*^9, 3.479025780625*^9}, { 3.479026206328125*^9, 3.479026266015625*^9}, {3.47902632871875*^9, 3.47902633615625*^9}, {3.47902639184375*^9, 3.479026398078125*^9}, {3.4790264359375*^9, 3.47902647746875*^9}, 3.479026508078125*^9, {3.479033791265625*^9, 3.47903380434375*^9}, 3.479033894609375*^9, {3.479033934*^9, 3.479033944984375*^9}, { 3.479035853234375*^9, 3.479035871328125*^9}, 3.479038620171875*^9, {3.48535462115625*^9, 3.485354667671875*^9}, {3.485354710328125*^9, 3.485354756765625*^9}, 3.495785931140625*^9, { 3.4958228456170444`*^9, 3.4958229613626184`*^9}, 3.7597909620620728`*^9}, CellID->588196269], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`image$$ = $CellContext`circle, \ $CellContext`pos$$ = {1.35, -1.5}, $CellContext`r$$ = 0.5, $CellContext`vp$$ = {1, -1, 1.25}, $CellContext`z$$ = -1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ Style["select an image", Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`image$$], $CellContext`circle, ""}, {$CellContext`line -> Graphics[ Point[{{-10., 0}, {-9.9, 0}, {-9.8, 0}, {-9.7, 0}, {-9.6, 0}, {-9.5, 0}, {-9.399999999999999, 0}, {-9.3, 0}, {-9.200000000000001, 0}, {-9.1, 0}, {-9., 0}, {-8.9, 0}, {-8.8, 0}, {-8.7, 0}, {-8.6, 0}, {-8.5, 0}, {-8.4, 0}, {-8.299999999999999, 0}, {-8.2, 0}, {-8.1, 0}, {-8., 0}, {-7.9, 0}, {-7.800000000000001, 0}, {-7.7, 0}, {-7.6, 0}, {-7.5, 0}, {-7.4, 0}, {-7.3, 0}, {-7.199999999999999, 0}, {-7.1, 0}, {-7., 0}, {-6.8999999999999995`, 0}, {-6.799999999999999, 0}, {-6.7, 0}, {-6.6000000000000005`, 0}, {-6.5, 0}, {-6.4, 0}, {-6.3, 0}, {-6.2, 0}, {-6.1, 0}, {-6., 0}, {-5.8999999999999995`, 0}, {-5.8, 0}, {-5.699999999999999, 0}, {-5.6, 0}, {-5.5, 0}, {-5.4, 0}, {-5.300000000000001, 0}, {-5.2, 0}, {-5.1, 0}, {-5., 0}, {-4.9, 0}, {-4.8, 0}, {-4.699999999999999, 0}, {-4.6, 0}, {-4.5, 0}, {-4.4, 0}, {-4.3, 0}, {-4.2, 0}, {-4.1, 0}, {-3.9999999999999996`, 0}, {-3.9000000000000004`, 0}, {-3.8, 0}, {-3.7, 0}, {-3.5999999999999996`, 0}, {-3.5, 0}, {-3.3999999999999995`, 0}, {-3.3, 0}, {-3.2, 0}, {-3.1, 0}, {-3., 0}, {-2.9, 0}, {-2.8, 0}, {-2.6999999999999997`, 0}, {-2.6, 0}, {-2.4999999999999996`, 0}, {-2.4, 0}, {-2.3, 0}, {-2.1999999999999997`, 0}, {-2.1, 0}, {-1.9999999999999998`, 0}, {-1.8999999999999997`, 0}, {-1.7999999999999998`, 0}, {-1.6999999999999997`, 0}, {-1.5999999999999996`, 0}, {-1.5, 0}, {-1.4, 0}, {-1.2999999999999998`, 0}, {-1.1999999999999997`, 0}, {-1.0999999999999999`, 0}, {-0.9999999999999998, 0}, {-0.8999999999999998, 0}, {-0.7999999999999998, 0}, {-0.6999999999999997, 0}, {-0.5999999999999999, 0}, {-0.49999999999999983`, 0}, {-0.3999999999999998, 0}, {-0.29999999999999977`, 0}, {-0.1999999999999998, 0}, {-0.0999999999999998, 0}, { 2.0816681711721685`*^-16, 0}, {0.10000000000000021`, 0}, { 0.2000000000000002, 0}, {0.3000000000000002, 0}, { 0.40000000000000024`, 0}, {0.5000000000000002, 0}, { 0.6000000000000003, 0}, {0.7000000000000002, 0}, { 0.8000000000000002, 0}, {0.9000000000000002, 0}, { 1.0000000000000002`, 0}, {1.1000000000000003`, 0}, { 1.2000000000000002`, 0}, {1.3000000000000003`, 0}, { 1.4000000000000001`, 0}, {1.5000000000000002`, 0}, { 1.6000000000000003`, 0}, {1.7000000000000002`, 0}, { 1.8000000000000003`, 0}, {1.9000000000000004`, 0}, { 2., 0}, {2.1, 0}, {2.2, 0}, {2.3000000000000003`, 0}, { 2.4000000000000004`, 0}, {2.5, 0}, {2.6, 0}, {2.7, 0}, { 2.8000000000000003`, 0}, {2.9000000000000004`, 0}, { 3.0000000000000004`, 0}, {3.1000000000000005`, 0}, { 3.2, 0}, {3.3000000000000003`, 0}, { 3.4000000000000004`, 0}, {3.5000000000000004`, 0}, { 3.6000000000000005`, 0}, {3.7000000000000006`, 0}, { 3.8, 0}, {3.9000000000000004`, 0}, {4., 0}, { 4.1000000000000005`, 0}, {4.2, 0}, { 4.300000000000001, 0}, {4.4, 0}, {4.5, 0}, { 4.6000000000000005`, 0}, {4.7, 0}, { 4.800000000000001, 0}, {4.9, 0}, {5., 0}, {5.1, 0}, { 5.2, 0}, {5.300000000000001, 0}, {5.4, 0}, {5.5, 0}, { 5.6000000000000005`, 0}, {5.700000000000001, 0}, { 5.800000000000001, 0}, {5.9, 0}, {6.000000000000001, 0}, { 6.1, 0}, {6.2, 0}, {6.3, 0}, {6.4, 0}, {6.5, 0}, { 6.6000000000000005`, 0}, {6.7, 0}, { 6.800000000000001, 0}, {6.9, 0}, {7.000000000000001, 0}, { 7.1000000000000005`, 0}, {7.200000000000001, 0}, { 7.3, 0}, {7.4, 0}, {7.5, 0}, {7.6, 0}, {7.7, 0}, { 7.800000000000001, 0}, {7.9, 0}, {8., 0}, { 8.100000000000001, 0}, {8.200000000000001, 0}, {8.3, 0}, { 8.4, 0}, {8.5, 0}, {8.6, 0}, {8.7, 0}, {8.8, 0}, { 8.9, 0}, {9., 0}, {9.1, 0}, {9.200000000000001, 0}, { 9.3, 0}, {9.4, 0}, {9.5, 0}, {9.600000000000001, 0}, { 9.700000000000001, 0}, {9.8, 0}, {9.9, 0}, {10., 0}}], ImageSize -> 15], $CellContext`cross -> Graphics[ Point[CompressedData[" 1:eJxd0L1qwmAYxfHQRa24dShugiB4CxXOJdS6qouiSwV3h7q5+XEF0rnQpbNw oKu6ZMiSQSji5jXEGo8ZzhD+8H485P1VeuPW4CEIgvr/d+3uZTpcf56o4v0V nXb3SBWP/eTtufxHFc3zx/Lr+0AVi6dkUq3FVHGbE2lehEJ6L6SKeXpuSxX5 dP2XKnJpf6hq3qyhbkpaV1nUPZUrzVW1H2o/5F7/pep8rPMxW3qXmr377jCS i5q5mWNW86R50jxpnjRPmifNk+ZJ86R5NswT5gnzhHnCPGGeME+YJ8wT5okL V4FAlw== "]], ImageSize -> 15], $CellContext`circle -> Graphics[ Point[{{-1, 0}, {-Cos[10 Degree], -Sin[10 Degree]}, {-Cos[20 Degree], - Sin[20 Degree]}, {Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}, {-Cos[40 Degree], -Sin[40 Degree]}, {- Sin[40 Degree], -Cos[40 Degree]}, { Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2]}, {- Sin[20 Degree], -Cos[20 Degree]}, {-Sin[10 Degree], - Cos[10 Degree]}, {0, -1}, { Sin[10 Degree], -Cos[10 Degree]}, { Sin[20 Degree], -Cos[20 Degree]}, { Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2]}, { Sin[40 Degree], -Cos[40 Degree]}, { Cos[40 Degree], -Sin[40 Degree]}, { Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2]}, { Cos[20 Degree], -Sin[20 Degree]}, { Cos[10 Degree], -Sin[10 Degree]}, {1, 0}, { Cos[10 Degree], Sin[10 Degree]}, { Cos[20 Degree], Sin[20 Degree]}, {Rational[1, 2] 3^Rational[1, 2], Rational[1, 2]}, { Cos[40 Degree], Sin[40 Degree]}, { Sin[40 Degree], Cos[40 Degree]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Sin[20 Degree], Cos[20 Degree]}, { Sin[10 Degree], Cos[10 Degree]}, {0, 1}, {-Sin[10 Degree], Cos[10 Degree]}, {-Sin[20 Degree], Cos[20 Degree]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, {- Sin[40 Degree], Cos[40 Degree]}, {-Cos[40 Degree], Sin[40 Degree]}, {Rational[-1, 2] 3^Rational[1, 2], Rational[1, 2]}, {-Cos[20 Degree], Sin[20 Degree]}, {-Cos[10 Degree], Sin[10 Degree]}, {-1, 0}, {0, 0}}], ImageSize -> 15], $CellContext`filledCircle -> Graphics[ Point[{{-1, 0}, {-Cos[10 Degree], -Sin[10 Degree]}, {-Cos[20 Degree], - Sin[20 Degree]}, {Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}, {-Cos[40 Degree], -Sin[40 Degree]}, {- Sin[40 Degree], -Cos[40 Degree]}, { Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2]}, {- Sin[20 Degree], -Cos[20 Degree]}, {-Sin[10 Degree], - Cos[10 Degree]}, {0, -1}, { Sin[10 Degree], -Cos[10 Degree]}, { Sin[20 Degree], -Cos[20 Degree]}, { Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2]}, { Sin[40 Degree], -Cos[40 Degree]}, { Cos[40 Degree], -Sin[40 Degree]}, { Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2]}, { Cos[20 Degree], -Sin[20 Degree]}, { Cos[10 Degree], -Sin[10 Degree]}, {1, 0}, { Cos[10 Degree], Sin[10 Degree]}, { Cos[20 Degree], Sin[20 Degree]}, {Rational[1, 2] 3^Rational[1, 2], Rational[1, 2]}, { Cos[40 Degree], Sin[40 Degree]}, { Sin[40 Degree], Cos[40 Degree]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Sin[20 Degree], Cos[20 Degree]}, { Sin[10 Degree], Cos[10 Degree]}, {0, 1}, {-Sin[10 Degree], Cos[10 Degree]}, {-Sin[20 Degree], Cos[20 Degree]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, {- Sin[40 Degree], Cos[40 Degree]}, {-Cos[40 Degree], Sin[40 Degree]}, {Rational[-1, 2] 3^Rational[1, 2], Rational[1, 2]}, {-Cos[20 Degree], Sin[20 Degree]}, {-Cos[10 Degree], Sin[10 Degree]}, {-1, 0}, {0, 0}, { 0., -1.}, {-0.5, -0.75}, {-0.25, -0.75}, {0., -0.75}, { 0.25, -0.75}, { 0.5, -0.75}, {-0.75, -0.5}, {-0.5, -0.5}, {-0.25, -0.5}, { 0., -0.5}, {0.25, -0.5}, {0.5, -0.5}, { 0.75, -0.5}, {-0.75, -0.25}, {-0.5, -0.25}, {-0.25, \ -0.25}, {0., -0.25}, {0.25, -0.25}, {0.5, -0.25}, {0.75, -0.25}, {-1., 0.}, {-0.75, 0.}, {-0.5, 0.}, {-0.25, 0.}, {0., 0.}, { 0.25, 0.}, {0.5, 0.}, {0.75, 0.}, {1., 0.}, {-0.75, 0.25}, {-0.5, 0.25}, {-0.25, 0.25}, {0., 0.25}, {0.25, 0.25}, {0.5, 0.25}, {0.75, 0.25}, {-0.75, 0.5}, {-0.5, 0.5}, {-0.25, 0.5}, {0., 0.5}, {0.25, 0.5}, {0.5, 0.5}, { 0.75, 0.5}, {-0.5, 0.75}, {-0.25, 0.75}, {0., 0.75}, {0.25, 0.75}, {0.5, 0.75}, {0., 1.}}], ImageSize -> 15], $CellContext`square -> Graphics[ Point[{{-1, -1.}, {-1, -0.75}, {-1, -0.5}, {-1, -0.25}, {-1, 0.}, {-1, 0.25}, {-1, 0.5}, {-1, 0.75}, {-1, 1.}, {-1., -1}, {-1., 1}, {-0.75, -1}, {-0.75, 1}, {-0.5, -1}, {-0.5, 1}, {-0.25, -1}, {-0.25, 1}, {0, 0}, {0., -1}, {0., 1}, {0.25, -1}, {0.25, 1}, {0.5, -1}, { 0.5, 1}, {0.75, -1}, {0.75, 1}, {1, -1.}, {1, -0.75}, { 1, -0.5}, {1, -0.25}, {1, 0.}, {1, 0.25}, {1, 0.5}, { 1, 0.75}, {1, 1.}, {1., -1}, {1., 1}}], ImageSize -> 15], $CellContext`filledSquare -> Graphics[ Point[CompressedData[" 1:eJx108EJAkEMRuHFTqzEGrQEwbMl2kJKyDHHlKAis+InCcjPY1nnTZI9Xu+X 22HbtvPr985P9eM3C044YP8nTrwPF9wyHmbCAa8qfAqfwqfwmfqghxnwqsQn 8Ul8Ep9pDvZBD3NV4BP4BD6Bz7QHzsE+6GEtn/19uOCWh7nbd+/tuftzMuGC Wx72zrnbd+/tuTlkwS0Pe+/eOXf77r09t4Zsefruhu/APVz11/ehD3p88wk9 nciP "]], ImageSize -> 15]}}, {{ Hold[$CellContext`r$$], 0.5, ""}, { 0.2 -> "small", 0.5 -> "medium", 1 -> "large"}}, { Hold[ Style["select the projection plane", Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`z$$], -1, ""}, {-1 -> " z=-1 ", 1 -> " z=+1 "}}, { Hold[ Style["move the image around", Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`pos$$], {1.35, -1.5}, ""}, {-2, -2}, {2, 2}}, { Hold[ Style["choose a viewpoint", Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`vp$$], {1, -1, 1.25}, ""}, {{1, -1, 1.25} -> "default", Front -> "front", Right -> "right", Top -> "top"}}}, Typeset`size$$ = {400., {198., 202.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`image$104394$$ = False, $CellContext`r$104395$$ = False, $CellContext`z$104396$$ = False, $CellContext`pos$104397$$ = {0, 0}, $CellContext`vp$104398$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`image$$ = $CellContext`circle, \ $CellContext`pos$$ = {1.35, -1.5}, $CellContext`r$$ = 0.5, $CellContext`vp$$ = { 1, -1, 1.25}, $CellContext`z$$ = -1}, "ControllerVariables" :> { Hold[$CellContext`image$$, $CellContext`image$104394$$, False], Hold[$CellContext`r$$, $CellContext`r$104395$$, False], Hold[$CellContext`z$$, $CellContext`z$104396$$, False], Hold[$CellContext`pos$$, $CellContext`pos$104397$$, {0, 0}], Hold[$CellContext`vp$$, $CellContext`vp$104398$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Graphics3D[{{ GrayLevel[0.75], Opacity[0.65], Sphere[]}, { Point[{0, 0, -$CellContext`z$$}]}, { Line[{{0, 0, -$CellContext`z$$}, { Part[$CellContext`pos$$, 1], Part[$CellContext`pos$$, 2], $CellContext`z$$}}]}, {Blue, Map[Point, ReplaceAll[ $CellContext`image$$[$CellContext`r$$, \ $CellContext`pos$$], { Pattern[$CellContext`x$, Blank[]], Pattern[$CellContext`y$, Blank[]]} -> {$CellContext`x$, $CellContext`y$, \ $CellContext`z$$}]]}, {Red, Map[Point, Map[$CellContext`inverseStereo[#, $CellContext`z$$]& , $CellContext`image$$[$CellContext`r$$, \ $CellContext`pos$$]]]}}, PlotRange -> {{-2 - $CellContext`r$$, 2 + $CellContext`r$$}, {-2 - $CellContext`r$$, 2 + $CellContext`r$$}, {-1.01, 1.01}}, BoxRatios -> {2 + $CellContext`r$$, 2 + $CellContext`r$$, 1}, BoxStyle -> Dashed, Lighting -> "Neutral", ViewPoint -> Dynamic[$CellContext`vp$$], ImageSize -> {400, 400}], "Specifications" :> { Style[ "select an image", Bold], {{$CellContext`image$$, $CellContext`circle, ""}, {$CellContext`line -> Graphics[ Point[{{-10., 0}, {-9.9, 0}, {-9.8, 0}, {-9.7, 0}, {-9.6, 0}, {-9.5, 0}, {-9.399999999999999, 0}, {-9.3, 0}, {-9.200000000000001, 0}, {-9.1, 0}, {-9., 0}, {-8.9, 0}, {-8.8, 0}, {-8.7, 0}, {-8.6, 0}, {-8.5, 0}, {-8.4, 0}, {-8.299999999999999, 0}, {-8.2, 0}, {-8.1, 0}, {-8., 0}, {-7.9, 0}, {-7.800000000000001, 0}, {-7.7, 0}, {-7.6, 0}, {-7.5, 0}, {-7.4, 0}, {-7.3, 0}, {-7.199999999999999, 0}, {-7.1, 0}, {-7., 0}, {-6.8999999999999995`, 0}, {-6.799999999999999, 0}, {-6.7, 0}, {-6.6000000000000005`, 0}, {-6.5, 0}, {-6.4, 0}, {-6.3, 0}, {-6.2, 0}, {-6.1, 0}, {-6., 0}, {-5.8999999999999995`, 0}, {-5.8, 0}, {-5.699999999999999, 0}, {-5.6, 0}, {-5.5, 0}, {-5.4, 0}, {-5.300000000000001, 0}, {-5.2, 0}, {-5.1, 0}, {-5., 0}, {-4.9, 0}, {-4.8, 0}, {-4.699999999999999, 0}, {-4.6, 0}, {-4.5, 0}, {-4.4, 0}, {-4.3, 0}, {-4.2, 0}, {-4.1, 0}, {-3.9999999999999996`, 0}, {-3.9000000000000004`, 0}, {-3.8, 0}, {-3.7, 0}, {-3.5999999999999996`, 0}, {-3.5, 0}, {-3.3999999999999995`, 0}, {-3.3, 0}, {-3.2, 0}, {-3.1, 0}, {-3., 0}, {-2.9, 0}, {-2.8, 0}, {-2.6999999999999997`, 0}, {-2.6, 0}, {-2.4999999999999996`, 0}, {-2.4, 0}, {-2.3, 0}, {-2.1999999999999997`, 0}, {-2.1, 0}, {-1.9999999999999998`, 0}, {-1.8999999999999997`, 0}, {-1.7999999999999998`, 0}, {-1.6999999999999997`, 0}, {-1.5999999999999996`, 0}, {-1.5, 0}, {-1.4, 0}, {-1.2999999999999998`, 0}, {-1.1999999999999997`, 0}, {-1.0999999999999999`, 0}, {-0.9999999999999998, 0}, {-0.8999999999999998, 0}, {-0.7999999999999998, 0}, {-0.6999999999999997, 0}, {-0.5999999999999999, 0}, {-0.49999999999999983`, 0}, {-0.3999999999999998, 0}, {-0.29999999999999977`, 0}, {-0.1999999999999998, 0}, {-0.0999999999999998, 0}, { 2.0816681711721685`*^-16, 0}, { 0.10000000000000021`, 0}, {0.2000000000000002, 0}, { 0.3000000000000002, 0}, {0.40000000000000024`, 0}, { 0.5000000000000002, 0}, {0.6000000000000003, 0}, { 0.7000000000000002, 0}, {0.8000000000000002, 0}, { 0.9000000000000002, 0}, {1.0000000000000002`, 0}, { 1.1000000000000003`, 0}, {1.2000000000000002`, 0}, { 1.3000000000000003`, 0}, {1.4000000000000001`, 0}, { 1.5000000000000002`, 0}, {1.6000000000000003`, 0}, { 1.7000000000000002`, 0}, {1.8000000000000003`, 0}, { 1.9000000000000004`, 0}, {2., 0}, {2.1, 0}, {2.2, 0}, { 2.3000000000000003`, 0}, {2.4000000000000004`, 0}, { 2.5, 0}, {2.6, 0}, {2.7, 0}, {2.8000000000000003`, 0}, { 2.9000000000000004`, 0}, {3.0000000000000004`, 0}, { 3.1000000000000005`, 0}, {3.2, 0}, { 3.3000000000000003`, 0}, {3.4000000000000004`, 0}, { 3.5000000000000004`, 0}, {3.6000000000000005`, 0}, { 3.7000000000000006`, 0}, {3.8, 0}, { 3.9000000000000004`, 0}, {4., 0}, { 4.1000000000000005`, 0}, {4.2, 0}, { 4.300000000000001, 0}, {4.4, 0}, {4.5, 0}, { 4.6000000000000005`, 0}, {4.7, 0}, { 4.800000000000001, 0}, {4.9, 0}, {5., 0}, {5.1, 0}, { 5.2, 0}, {5.300000000000001, 0}, {5.4, 0}, {5.5, 0}, { 5.6000000000000005`, 0}, {5.700000000000001, 0}, { 5.800000000000001, 0}, {5.9, 0}, { 6.000000000000001, 0}, {6.1, 0}, {6.2, 0}, {6.3, 0}, { 6.4, 0}, {6.5, 0}, {6.6000000000000005`, 0}, {6.7, 0}, { 6.800000000000001, 0}, {6.9, 0}, { 7.000000000000001, 0}, {7.1000000000000005`, 0}, { 7.200000000000001, 0}, {7.3, 0}, {7.4, 0}, {7.5, 0}, { 7.6, 0}, {7.7, 0}, {7.800000000000001, 0}, {7.9, 0}, { 8., 0}, {8.100000000000001, 0}, { 8.200000000000001, 0}, {8.3, 0}, {8.4, 0}, {8.5, 0}, { 8.6, 0}, {8.7, 0}, {8.8, 0}, {8.9, 0}, {9., 0}, { 9.1, 0}, {9.200000000000001, 0}, {9.3, 0}, {9.4, 0}, { 9.5, 0}, {9.600000000000001, 0}, { 9.700000000000001, 0}, {9.8, 0}, {9.9, 0}, {10., 0}}], ImageSize -> 15], $CellContext`cross -> Graphics[ Point[CompressedData[" 1:eJxd0L1qwmAYxfHQRa24dShugiB4CxXOJdS6qouiSwV3h7q5+XEF0rnQpbNw oKu6ZMiSQSji5jXEGo8ZzhD+8H485P1VeuPW4CEIgvr/d+3uZTpcf56o4v0V nXb3SBWP/eTtufxHFc3zx/Lr+0AVi6dkUq3FVHGbE2lehEJ6L6SKeXpuSxX5 dP2XKnJpf6hq3qyhbkpaV1nUPZUrzVW1H2o/5F7/pep8rPMxW3qXmr377jCS i5q5mWNW86R50jxpnjRPmifNk+ZJ86R5NswT5gnzhHnCPGGeME+YJ8wT5okL V4FAlw== "]], ImageSize -> 15], $CellContext`circle -> Graphics[ Point[{{-1, 0}, {-Cos[10 Degree], -Sin[10 Degree]}, {- Cos[20 Degree], -Sin[20 Degree]}, { Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}, {-Cos[40 Degree], - Sin[40 Degree]}, {-Sin[40 Degree], -Cos[40 Degree]}, { Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2]}, {- Sin[20 Degree], -Cos[20 Degree]}, {-Sin[10 Degree], - Cos[10 Degree]}, {0, -1}, { Sin[10 Degree], -Cos[10 Degree]}, { Sin[20 Degree], -Cos[20 Degree]}, { Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2]}, { Sin[40 Degree], -Cos[40 Degree]}, { Cos[40 Degree], -Sin[40 Degree]}, { Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2]}, { Cos[20 Degree], -Sin[20 Degree]}, { Cos[10 Degree], -Sin[10 Degree]}, {1, 0}, { Cos[10 Degree], Sin[10 Degree]}, { Cos[20 Degree], Sin[20 Degree]}, {Rational[1, 2] 3^Rational[1, 2], Rational[1, 2]}, { Cos[40 Degree], Sin[40 Degree]}, { Sin[40 Degree], Cos[40 Degree]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Sin[20 Degree], Cos[20 Degree]}, { Sin[10 Degree], Cos[10 Degree]}, {0, 1}, {-Sin[10 Degree], Cos[10 Degree]}, {-Sin[20 Degree], Cos[20 Degree]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, {- Sin[40 Degree], Cos[40 Degree]}, {-Cos[40 Degree], Sin[40 Degree]}, {Rational[-1, 2] 3^Rational[1, 2], Rational[1, 2]}, {-Cos[20 Degree], Sin[20 Degree]}, {-Cos[10 Degree], Sin[10 Degree]}, {-1, 0}, {0, 0}}], ImageSize -> 15], $CellContext`filledCircle -> Graphics[ Point[{{-1, 0}, {-Cos[10 Degree], -Sin[10 Degree]}, {- Cos[20 Degree], -Sin[20 Degree]}, { Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}, {-Cos[40 Degree], - Sin[40 Degree]}, {-Sin[40 Degree], -Cos[40 Degree]}, { Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2]}, {- Sin[20 Degree], -Cos[20 Degree]}, {-Sin[10 Degree], - Cos[10 Degree]}, {0, -1}, { Sin[10 Degree], -Cos[10 Degree]}, { Sin[20 Degree], -Cos[20 Degree]}, { Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2]}, { Sin[40 Degree], -Cos[40 Degree]}, { Cos[40 Degree], -Sin[40 Degree]}, { Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2]}, { Cos[20 Degree], -Sin[20 Degree]}, { Cos[10 Degree], -Sin[10 Degree]}, {1, 0}, { Cos[10 Degree], Sin[10 Degree]}, { Cos[20 Degree], Sin[20 Degree]}, {Rational[1, 2] 3^Rational[1, 2], Rational[1, 2]}, { Cos[40 Degree], Sin[40 Degree]}, { Sin[40 Degree], Cos[40 Degree]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Sin[20 Degree], Cos[20 Degree]}, { Sin[10 Degree], Cos[10 Degree]}, {0, 1}, {-Sin[10 Degree], Cos[10 Degree]}, {-Sin[20 Degree], Cos[20 Degree]}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, {- Sin[40 Degree], Cos[40 Degree]}, {-Cos[40 Degree], Sin[40 Degree]}, {Rational[-1, 2] 3^Rational[1, 2], Rational[1, 2]}, {-Cos[20 Degree], Sin[20 Degree]}, {-Cos[10 Degree], Sin[10 Degree]}, {-1, 0}, {0, 0}, { 0., -1.}, {-0.5, -0.75}, {-0.25, -0.75}, {0., -0.75}, { 0.25, -0.75}, { 0.5, -0.75}, {-0.75, -0.5}, {-0.5, -0.5}, {-0.25, \ -0.5}, {0., -0.5}, {0.25, -0.5}, {0.5, -0.5}, { 0.75, -0.5}, {-0.75, -0.25}, {-0.5, -0.25}, {-0.25, \ -0.25}, {0., -0.25}, {0.25, -0.25}, {0.5, -0.25}, {0.75, -0.25}, {-1., 0.}, {-0.75, 0.}, {-0.5, 0.}, {-0.25, 0.}, {0., 0.}, { 0.25, 0.}, {0.5, 0.}, {0.75, 0.}, {1., 0.}, {-0.75, 0.25}, {-0.5, 0.25}, {-0.25, 0.25}, {0., 0.25}, {0.25, 0.25}, {0.5, 0.25}, {0.75, 0.25}, {-0.75, 0.5}, {-0.5, 0.5}, {-0.25, 0.5}, {0., 0.5}, {0.25, 0.5}, {0.5, 0.5}, {0.75, 0.5}, {-0.5, 0.75}, {-0.25, 0.75}, {0., 0.75}, {0.25, 0.75}, {0.5, 0.75}, {0., 1.}}], ImageSize -> 15], $CellContext`square -> Graphics[ Point[{{-1, -1.}, {-1, -0.75}, {-1, -0.5}, {-1, -0.25}, \ {-1, 0.}, {-1, 0.25}, {-1, 0.5}, {-1, 0.75}, {-1, 1.}, {-1., -1}, {-1., 1}, {-0.75, -1}, {-0.75, 1}, {-0.5, -1}, {-0.5, 1}, {-0.25, -1}, {-0.25, 1}, {0, 0}, {0., -1}, {0., 1}, {0.25, -1}, {0.25, 1}, { 0.5, -1}, {0.5, 1}, {0.75, -1}, {0.75, 1}, {1, -1.}, { 1, -0.75}, {1, -0.5}, {1, -0.25}, {1, 0.}, {1, 0.25}, { 1, 0.5}, {1, 0.75}, {1, 1.}, {1., -1}, {1., 1}}], ImageSize -> 15], $CellContext`filledSquare -> Graphics[ Point[CompressedData[" 1:eJx108EJAkEMRuHFTqzEGrQEwbMl2kJKyDHHlKAis+InCcjPY1nnTZI9Xu+X 22HbtvPr985P9eM3C044YP8nTrwPF9wyHmbCAa8qfAqfwqfwmfqghxnwqsQn 8Ul8Ep9pDvZBD3NV4BP4BD6Bz7QHzsE+6GEtn/19uOCWh7nbd+/tuftzMuGC Wx72zrnbd+/tuTlkwS0Pe+/eOXf77r09t4Zsefruhu/APVz11/ehD3p88wk9 nciP "]], ImageSize -> 15]}, ControlType -> SetterBar}, {{$CellContext`r$$, 0.5, ""}, { 0.2 -> "small", 0.5 -> "medium", 1 -> "large"}}, Delimiter, Style[ "select the projection plane", Bold], {{$CellContext`z$$, -1, ""}, {-1 -> " z=-1 ", 1 -> " z=+1 "}}, Style[ "move the image around", Bold], {{$CellContext`pos$$, {1.35, -1.5}, ""}, {-2, -2}, {2, 2}}, Delimiter, Style[ "choose a viewpoint", Bold], {{$CellContext`vp$$, {1, -1, 1.25}, ""}, {{1, -1, 1.25} -> "default", Front -> "front", Right -> "right", Top -> "top"}}}, "Options" :> { ControlPlacement -> Left, AutorunSequencing -> {{4, 10}, {1, 2}, {2, 2}, {3, 2}, {5, 2}}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{613., {227., 233.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>(($CellContext`inverseStereo[{ Pattern[$CellContext`x, Blank[]], Pattern[$CellContext`y, Blank[]]}, Pattern[$CellContext`z, Blank[]]] := ({ 4 $CellContext`x, 4 $CellContext`y, $CellContext`z (4 - #)}/(# + 4)& )[$CellContext`x^2 + $CellContext`y^2]; $CellContext`line[ Pattern[$CellContext`r, Blank[]], Pattern[$CellContext`pos, Blank[]]] := Map[$CellContext`pos + #& , Table[{$CellContext`i, 0}, {$CellContext`i, -50, 50, 0.25}]]; $CellContext`cross[ Pattern[$CellContext`r, Blank[]], Pattern[$CellContext`pos, Blank[]]] := Map[$CellContext`pos + #& , Map[$CellContext`r Dot[#, RotationMatrix[Pi/4]]& , Flatten[{ Table[{$CellContext`i, 0}, {$CellContext`i, -1, 1, 0.1}], Table[{0, $CellContext`i}, {$CellContext`i, -1, 1, 0.1}]}, 1]]]; $CellContext`circle[ Pattern[$CellContext`r, Blank[]], Pattern[$CellContext`pos, Blank[]]] := Map[$CellContext`pos + #& , Join[$CellContext`r Table[{ Cos[$CellContext`\[Gamma]], Sin[$CellContext`\[Gamma]]}, {$CellContext`\[Gamma], -Pi, Pi, Pi/24}], {{0, 0}}]]; $CellContext`filledCircle[ Pattern[$CellContext`r, Blank[]], Pattern[$CellContext`pos, Blank[]]] := Join[ $CellContext`circle[$CellContext`r, $CellContext`pos], Select[ $CellContext`filledSquare[$CellContext`r, $CellContext`pos], Norm[$CellContext`pos - #] <= $CellContext`r& ]]; \ $CellContext`square[ Pattern[$CellContext`r, Blank[]], Pattern[$CellContext`pos, Blank[]]] := Map[$CellContext`pos + #& , $CellContext`r Flatten[ Map[ Table[#, {$CellContext`i, -1, 1, 0.25}]& , {{$CellContext`i, 1}, {$CellContext`i, -1}, {-1, $CellContext`i}, { 1, -$CellContext`i}, {0, 0}}], 1]]; $CellContext`filledSquare[ Pattern[$CellContext`r, Blank[]], Pattern[$CellContext`pos, Blank[]]] := Map[$CellContext`pos + #& , $CellContext`r Flatten[ Table[ Table[{$CellContext`i, $CellContext`j}, {$CellContext`i, \ -1, 1, 0.25}], {$CellContext`j, -1, 1, 0.25}], 1]]); Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{3.35696210375764*^9, 3.4958337940558662`*^9, 3.75979096206244*^9}, CellID->584855137] }, {2}]]