Cell[CellGroupData[{Cell[BoxData[ RowBox[{ RowBox[{"arm", "[", RowBox[{"a_", ",", "b_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "d", "}"}], ",", " ", RowBox[{ RowBox[{"d", "=", RowBox[{"0.04", RowBox[{"Normalize", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ".", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "]"}]}]}], ";", " ", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"EdgeForm", "[", "Thick", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "d"}], ",", RowBox[{"b", "+", "d"}], ",", RowBox[{"b", "-", "d"}], ",", RowBox[{"a", "-", "d"}]}], "}"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{"a", ",", "0.1"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{"b", ",", "0.1"}], "]"}], ",", "LightBlue", ",", RowBox[{"Disk", "[", RowBox[{"a", ",", "0.04"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{"b", ",", "0.04"}], "]"}]}], "}"}]}]}], "]"}]}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{3.759791101481482*^9}, CellID->194091395], Cell[BoxData[ RowBox[{"Manipulate", "[", " ", RowBox[{ RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", "d", ",", "u"}], "}"}], ",", RowBox[{"Dynamic", "@", RowBox[{"LocatorPane", "[", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"a", ",", RowBox[{ RowBox[{"(", RowBox[{"a", "=", RowBox[{"(", RowBox[{ RowBox[{"u", "=", RowBox[{"If", "[", RowBox[{ RowBox[{"constrain", "==", "\"\\""}], ",", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "0"}], "}"}], "+", RowBox[{"0.5", RowBox[{"Normalize", "[", RowBox[{"#", "-", RowBox[{"{", RowBox[{"0.5", ",", "0"}], "}"}]}], "]"}]}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"constrain", "==", "\"\\""}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"Last", "[", "#", "]"}]}], "}"}], ",", "#"}], "]"}]}], "]"}]}], ";", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", "u", "]"}], "<", "0.848"}], ",", RowBox[{"0.848", " ", RowBox[{"Normalize", "[", "u", "]"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", "u", "]"}], ">", "2.847"}], ",", RowBox[{"2.847", RowBox[{"Normalize", "[", "u", "]"}]}], ",", "u"}], "]"}]}], "]"}]}], ")"}]}], ")"}], "&"}]}], "]"}], ",", " ", RowBox[{ RowBox[{"c", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Norm", "[", "a", "]"}], "<", "0.01"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"2.4142", " ", RowBox[{"a", "/", SuperscriptBox[ RowBox[{"Norm", "[", "a", "]"}], "2"]}]}]}], "]"}]}], ";", " ", RowBox[{"b", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "+", "c"}], ")"}], "/", "2"}], "+", RowBox[{ RowBox[{"Normalize", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ".", RowBox[{"(", RowBox[{"c", "-", "a"}], ")"}]}], "]"}], SqrtBox[ RowBox[{"3.4142", "-", SuperscriptBox[ RowBox[{"Norm", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "c"}], ")"}], "/", "2"}], "]"}], "2"]}]]}]}]}], ";", " ", RowBox[{"d", "=", RowBox[{"a", "+", "c", "-", "b"}]}], ";", " ", RowBox[{"AppendTo", "[", RowBox[{"v", ",", "c"}], "]"}], ";", " ", RowBox[{"If", "[", RowBox[{"r", ",", RowBox[{ RowBox[{"v", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"a", "=", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ";", RowBox[{"r", "=", "False"}]}]}], "]"}], ";", " ", RowBox[{"Dynamic", "@", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.7", "]"}], ",", RowBox[{"EdgeForm", "[", "Thin", "]"}], ",", "Orange", ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "1.553"}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"constrain", "==", "\"\\""}], ",", RowBox[{"{", RowBox[{"LightYellow", ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "0"}], "}"}], ",", "0.5"}], "]"}], ",", RowBox[{"arm", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "a"}], "]"}]}], "}"}], ",", "Pink"}], "]"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"constrain", "==", "\"\\""}], ",", RowBox[{"{", RowBox[{"Brown", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "Red"}], "]"}], ",", "Red", ",", RowBox[{"Tooltip", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{"a", ",", "0.15"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"arm", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "b"}], "]"}], ",", RowBox[{"arm", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "d"}], "]"}], ",", RowBox[{"arm", "[", RowBox[{"a", ",", "b"}], "]"}], ",", RowBox[{"arm", "[", RowBox[{"a", ",", "d"}], "]"}], ",", RowBox[{"arm", "[", RowBox[{"b", ",", "c"}], "]"}], ",", RowBox[{"arm", "[", RowBox[{"c", ",", "d"}], "]"}], ",", "Black", ",", "Thick", ",", RowBox[{"Line", "[", "v", "]"}]}], "}"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}]}]}], ",", RowBox[{"Appearance", "->", "None"}]}], "]"}]}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"constrain", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"r", ",", "False", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"ControlType", "->", "None"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"v", ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"ControlType", "->", "None"}]}], "}"}], ",", RowBox[{"SaveDefinitions", "->", "True"}], ",", RowBox[{"AutorunSequencing", "->", RowBox[{"{", "1", "}"}]}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.35696210375764*^9, 3.4255852450932827`*^9, {3.425585401906786*^9, 3.4255854451570625`*^9}, {3.42563936654606*^9, 3.4256393678741937`*^9}, {3.425639408983832*^9, 3.4256394166088805`*^9}, {3.4256395340783825`*^9, 3.425639549015978*^9}, {3.4256398839399967`*^9, 3.4256398845337505`*^9}, 3.425640954509348*^9, { 3.425641013275349*^9, 3.4256410547131147`*^9}, { 3.425641106244694*^9, 3.4256411077134533`*^9}, { 3.4256411431824303`*^9, 3.425641143869935*^9}, { 3.4256412041203203`*^9, 3.4256412041828213`*^9}, { 3.4256412802145576`*^9, 3.4256412935271425`*^9}, 3.42564134388684*^9, {3.4256416450293922`*^9, 3.4256416502013006`*^9}, {3.425641696873474*^9, 3.425641697545354*^9}, {3.4256417423737655`*^9, 3.4256417530300837`*^9}, {3.425650559328865*^9, 3.425650571106043*^9}, {3.425749217948741*^9, 3.4257492779267387`*^9}, {3.4257493380927544`*^9, 3.4257493491768627`*^9}, {3.425841424860225*^9, 3.4258414309268317`*^9}, {3.4259916393437233`*^9, 3.4259917034855795`*^9}, 3.425991868191867*^9, 3.759791101390526*^9}, CellID->204151162], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = {1, 0}, $CellContext`constrain$$ = "free", $CellContext`r$$ = False, $CellContext`v$$ = {{2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0.}, {2.4142, 0.}, {2.4142, 0.}}, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`constrain$$], "free"}, { "free", "circle", "line"}}, {{ Hold[$CellContext`r$$], False, "reset"}, {True, False}}, {{ Hold[$CellContext`a$$], {1, 0}}}, {{ Hold[$CellContext`v$$], {{2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}}}}}, Typeset`size$$ = { 352., {216., 222.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`constrain$88941$$ = 0, $CellContext`r$88942$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = {1, 0}, $CellContext`constrain$$ = "free", $CellContext`r$$ = False, $CellContext`v$$ = {{2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}}}, "ControllerVariables" :> { Hold[$CellContext`constrain$$, $CellContext`constrain$88941$$, 0], Hold[$CellContext`r$$, $CellContext`r$88942$$, 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" :> DynamicModule[{$CellContext`b, $CellContext`c, $CellContext`d, \ $CellContext`u}, Dynamic[ LocatorPane[ Dynamic[$CellContext`a$$, ($CellContext`a$$ = \ ($CellContext`u = If[$CellContext`constrain$$ == "circle", {0.5, 0} + 0.5 Normalize[# - {0.5, 0}], If[$CellContext`constrain$$ == "line", {1, Last[#]}, #]]; If[Norm[$CellContext`u] < 0.848, 0.848 Normalize[$CellContext`u], If[ Norm[$CellContext`u] > 2.847, 2.847 Normalize[$CellContext`u], $CellContext`u]]))& ], \ $CellContext`c = If[Norm[$CellContext`a$$] < 0.01, {0, 1}, 2.4142 ($CellContext`a$$/ Norm[$CellContext`a$$]^2)]; $CellContext`b = \ ($CellContext`a$$ + $CellContext`c)/2 + Normalize[ Dot[{{0, -1}, {1, 0}}, $CellContext`c - $CellContext`a$$]] (3.4142 - Norm[($CellContext`a$$ + $CellContext`c)/2]^2)^ Rational[ 1, 2]; $CellContext`d = $CellContext`a$$ + \ $CellContext`c - $CellContext`b; AppendTo[$CellContext`v$$, $CellContext`c]; If[$CellContext`r$$, $CellContext`v$$ = {}; \ $CellContext`a$$ = {1, 0}; $CellContext`r$$ = False]; Dynamic[ Graphics[{ Opacity[0.7], EdgeForm[Thin], Orange, Disk[{0, 0}, 1.553], If[$CellContext`constrain$$ == "circle", {LightYellow, Disk[{0.5, 0}, 0.5], $CellContext`arm[{0, 0}, $CellContext`a$$]}, Pink], If[$CellContext`constrain$$ == "line", {Brown, Line[{{1, -5}, {1, 5}}]}, Red], Red, Tooltip[ Disk[$CellContext`a$$, 0.15], "Drag my center slowly!"], $CellContext`arm[{0, 0}, $CellContext`b], $CellContext`arm[{0, 0}, $CellContext`d], $CellContext`arm[$CellContext`a$$, $CellContext`b], $CellContext`arm[$CellContext`a$$, $CellContext`d], $CellContext`arm[$CellContext`b, $CellContext`c], $CellContext`arm[$CellContext`c, $CellContext`d], Black, Thick, Line[$CellContext`v$$]}, PlotRange -> {{-0.2, 3}, {-2, 2}}]], Appearance -> None]]], "Specifications" :> {{{$CellContext`constrain$$, "free"}, { "free", "circle", "line"}}, {{$CellContext`r$$, False, "reset"}, {True, False}}, {{$CellContext`a$$, {1, 0}}, ControlType -> None}, {{$CellContext`v$$, {{2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}, {2.4142, 0}, {2.4142, 0}, { 2.4142, 0}, {2.4142, 0}}}, ControlType -> None}}, "Options" :> {AutorunSequencing -> {1}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{397., {272., 278.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`arm[ Pattern[$CellContext`a, Blank[]], Pattern[$CellContext`b, Blank[]]] := Module[{$CellContext`d}, $CellContext`d = 0.04 Normalize[ Dot[{{0, -1}, {1, 0}}, $CellContext`b - $CellContext`a]]; {Gray, EdgeForm[Thick], Polygon[{$CellContext`a + $CellContext`d, $CellContext`b + \ $CellContext`d, $CellContext`b - $CellContext`d, $CellContext`a - \ $CellContext`d}], Disk[$CellContext`a, 0.1], Disk[$CellContext`b, 0.1], LightBlue, Disk[$CellContext`a, 0.04], Disk[$CellContext`b, 0.04]}], Attributes[PlotRange] = {ReadProtected}}; 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.759791101390753*^9}, CellID->262410373] }, {3}]]