Cell[CellGroupData[{Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Opacity", "[", "o", "]"}], ",", "Black", ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Rectangle", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "i"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"length", ",", 
             RowBox[{"i", "+", "1"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "0", ",", "20", ",", "2"}], "}"}]}], 
        "]"}], ",", 
       RowBox[{"Opacity", "[", "1", "]"}], ",", "color", ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Rectangle", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"4", ",", "i"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"14", ",", 
             RowBox[{"i", "+", "1"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "2", ",", "18", ",", "2"}], "}"}]}], 
        "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Rectangle", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"18", ",", "i"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"28", ",", 
             RowBox[{"i", "+", "1"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "3", ",", "19", ",", "2"}], "}"}]}], 
        "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "32"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "21"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"o", ",", "1", ",", "\"\<bars opacity\>\""}], "}"}], 
     ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"length", ",", "32", ",", "\"\<bars length\>\""}], 
      "}"}], ",", "0", ",", "32"}], "}"}], ",", "Delimiter", ",", 
   RowBox[{"{", 
    RowBox[{"color", ",", "Blue"}], "}"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.760758180591774*^9},
 CellID->68806477],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`color$$ = RGBColor[
    0, 0, 1], $CellContext`length$$ = 32, $CellContext`o$$ = 1, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, 
    Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", 
    Typeset`specs$$ = {{{
       Hold[$CellContext`o$$], 1, "bars opacity"}, 0, 1}, {{
       Hold[$CellContext`length$$], 32, "bars length"}, 0, 32}, {
      Hold[$CellContext`color$$], 
      RGBColor[0, 0, 1]}}, Typeset`size$$ = {360., {116., 120.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ =
     True, $CellContext`o$2604$$ = 0, $CellContext`length$2605$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`color$$ = 
        RGBColor[0, 0, 1], $CellContext`length$$ = 
        32, $CellContext`o$$ = 1}, "ControllerVariables" :> {
        Hold[$CellContext`o$$, $CellContext`o$2604$$, 0], 
        Hold[$CellContext`length$$, $CellContext`length$2605$$, 0]}, 
      "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[$CellContext`o$$], Black, 
         Table[
          
          Rectangle[{
           0, $CellContext`i}, {$CellContext`length$$, $CellContext`i + 
            1}], {$CellContext`i, 0, 20, 2}], 
         Opacity[1], $CellContext`color$$, 
         Table[
          
          Rectangle[{4, $CellContext`i}, {
           14, $CellContext`i + 1}], {$CellContext`i, 2, 18, 2}], 
         Table[
          
          Rectangle[{18, $CellContext`i}, {
           28, $CellContext`i + 1}], {$CellContext`i, 3, 19, 2}]}, 
        PlotRange -> {{0, 32}, {0, 21}}], 
      "Specifications" :> {{{$CellContext`o$$, 1, "bars opacity"}, 0, 
         1}, {{$CellContext`length$$, 32, "bars length"}, 0, 32}, 
        Delimiter, {$CellContext`color$$, 
         RGBColor[0, 0, 1]}}, "Options" :> {}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{405., {199., 205.}},
     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.760758180592042*^9},
 CellID->577416969]
}, {2}]]