Cell[CellGroupData[{Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Opacity", "[", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"solve", "&&", "move"}], ",", ".1", ",", ".5"}], 
         "]"}], "]"}], ",", "
", 
       RowBox[{"EdgeForm", "[", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"solve", "&&", "move"}], ",", 
            RowBox[{"Thickness", "[", ".001", "]"}], ",", "Thick"}], 
           "]"}]}], "}"}], "]"}], ",", "
", "Red", 
       ",", 
       RowBox[{"Polygon", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "9"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "9"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "12"}], "}"}]}], "}"}], "]"}], ",", 
       "
", "Green", ",", 
       RowBox[{"Polygon", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"9", ",", "9"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"14", ",", "9"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"14", ",", "11"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"11", ",", "11"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"11", ",", "10"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "10"}], "}"}]}], "}"}], "]"}], ",", 
       "
", "Orange", ",", 
       RowBox[{"Polygon", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"9", ",", "10"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"11", ",", "10"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"11", ",", "11"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"14", ",", "11"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"14", ",", "12"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"9", ",", "12"}], "}"}]}], "}"}], "]"}], ",", 
       "
", "Blue", ",", 
       RowBox[{"Polygon", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"9", ",", "12"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"14", ",", "12"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"14", ",", "14"}], "}"}]}], "}"}], "]"}], ",", 
       "
", 
       RowBox[{"If", "[", 
        RowBox[{"move", ",", "
", 
         RowBox[{"{", 
          RowBox[{"Red", ",", 
           RowBox[{"Polygon", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"6", ",", "4"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"14", ",", "4"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"14", ",", "7"}], "}"}]}], "}"}], "]"}], ",", 
           "
", "Blue", ",", 
           RowBox[{"Polygon", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "4"}], "}"}]}], "}"}], "]"}], ",", 
           "
", "Orange", ",", 
           RowBox[{"Polygon", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"6", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"11", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"11", ",", "4"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6", ",", "4"}], "}"}]}], "}"}], "]"}], ",", 
           "
", "Green", ",", 
           RowBox[{"Polygon", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"9", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"14", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"14", ",", "4"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"11", ",", "4"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"11", ",", "3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"9", ",", "3"}], "}"}]}], "}"}], "]"}]}], 
          "}"}], ",", "
", 
         RowBox[{"{", "}"}]}], "]"}], ",", 
       RowBox[{"Opacity", "[", "1", "]"}], ",", 
       RowBox[{"Darker", "@", "Red"}], ",", "
", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"solve", "&&", "move"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "9"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"14", ",", "14"}], "}"}]}], "}"}], "]"}], ",", 
           
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"14", ",", "7"}], "}"}]}], "}"}], "]"}]}], 
          "}"}], ",", 
         RowBox[{"{", "}"}]}], "]"}]}], "
", 
      "
", "}"}], ",", 
     RowBox[{"GridLines", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Range", "[", 
         RowBox[{"0", ",", "16"}], "]"}], ",", 
        RowBox[{"Range", "[", 
         RowBox[{"0", ",", "16"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "15"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "->", "500"}]}], "]"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"move", ",", "False", ",", "\"\<reassemble\>\""}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"solve", ",", "False", ",", "\"\<solution\>\""}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.5450270925793085`*^9, 3.760742478424945*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`move$$ = 
    False, $CellContext`solve$$ = False, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`move$$], False, "reassemble"}, {
      True, False}}, {{
       Hold[$CellContext`solve$$], False, "solution"}, {
      True, False}}}, Typeset`size$$ = {500., {231., 236.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
     True, $CellContext`move$8624$$ = 
    False, $CellContext`solve$8625$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`move$$ = 
        False, $CellContext`solve$$ = False}, "ControllerVariables" :> {
        Hold[$CellContext`move$$, $CellContext`move$8624$$, False], 
        Hold[$CellContext`solve$$, $CellContext`solve$8625$$, 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" :> 
      Graphics[{
         Opacity[
          If[
           And[$CellContext`solve$$, $CellContext`move$$], 0.1, 0.5]], 
         EdgeForm[{Black, 
           If[
            And[$CellContext`solve$$, $CellContext`move$$], 
            Thickness[0.001], Thick]}], Red, 
         Polygon[{{1, 9}, {9, 9}, {9, 12}}], Green, 
         
         Polygon[{{9, 9}, {14, 9}, {14, 11}, {11, 11}, {11, 10}, {9, 
          10}}], Orange, 
         
         Polygon[{{9, 10}, {11, 10}, {11, 11}, {14, 11}, {14, 12}, {9,
           12}}], Blue, 
         Polygon[{{9, 12}, {14, 12}, {14, 14}}], 
         If[$CellContext`move$$, {Red, 
           Polygon[{{6, 4}, {14, 4}, {14, 7}}], Blue, 
           Polygon[{{1, 2}, {6, 2}, {6, 4}}], Orange, 
           
           Polygon[{{6, 2}, {8, 2}, {8, 3}, {11, 3}, {11, 4}, {6, 
            4}}], Green, 
           
           Polygon[{{9, 2}, {14, 2}, {14, 4}, {11, 4}, {11, 3}, {9, 
            3}}]}, {}], 
         Opacity[1], 
         Darker[Red], 
         If[
          And[$CellContext`solve$$, $CellContext`move$$], {
           Line[{{1, 9}, {14, 14}}], 
           Line[{{1, 2}, {14, 7}}]}, {}]}, GridLines -> {
          Range[0, 16], 
          Range[0, 16]}, PlotRange -> {{0, 15}, {1, 15}}, ImageSize -> 
        500], "Specifications" :> {{{$CellContext`move$$, False, 
          "reassemble"}, {
         True, False}}, {{$CellContext`solve$$, False, "solution"}, {
         True, False}}}, "Options" :> {}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{545., {285., 291.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.545027110368326*^9, 3.545078012276531*^9, 
  3.760742478425215*^9},
 CellID->141530280]
}, {2}]]