(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Wolfram 15.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       154,          7]
NotebookDataLength[     56758,       1470]
NotebookOptionsPosition[     47104,       1291]
NotebookOutlinePosition[     49388,       1344]
CellTagsIndexPosition[     49310,       1339]
WindowTitle->ImageBitStream
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {GridBox[{
      {
       ItemBox[Cell[BoxData[
         RowBox[{
          TemplateBox[{12},
           "Spacer1"], Cell[
          "WOLFRAM INSTITUTE/ PUZZLES SYMBOL", "PacletNameCell",
           TextAlignment->Center,ExpressionUUID->
           "8f10a312-fb2b-4792-8ffd-37edf25c183e"], 
          TemplateBox[{8},
           "Spacer1"]}]],
         TextAlignment->Center,ExpressionUUID->
         "5c570f56-94cb-4b13-971f-23e3b2deb96a"],
        Background->LightDarkSwitched[
          RGBColor[0.490196, 0.576471, 0.690196]],
        ItemSize->Full], ""}
     },
     GridBoxAlignment->{"Rows" -> {{Center}}},
     GridBoxItemSize->{"Columns" -> {Full, 
         Scaled[0.02]}, "Rows" -> {{2.5}}}], Cell[TextData[{
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "See Also",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "444405db-b6dd-440d-93d9-b3d41dc07fab"]
         }],ExpressionUUID->"cb840680-75b2-48ff-b244-f5bf63d369e5"],
         StripOnInput->False],{
        StyleBox["\"ImageData\"", "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup["paclet:ref/ImageData"], Delimiter, 
         StyleBox[
          "\"Functions\"", "SeeAlsoSection", FontSize -> 14, FontSlant -> 
           "Italic", StripOnInput -> False] :> 
         NotebookFind[EvaluationNotebook[], "SeeAlsoSection", All, CellStyle],
          StyleBox[
          StyleBox[
           "\"ImageBitStreamBytes\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ImageBitStreamBytes"], 
         StyleBox[
          StyleBox[
           "\"ImageBitPlane\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ImageBitPlane"], 
         StyleBox[
          StyleBox[
           "\"ImageBitPlaneScan\"", "SeeAlsoRelated", StripOnInput -> False], 
           "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/ImageBitPlaneScan"], 
         StyleBox[
          StyleBox[
           "\"SteganographySurvey\"", "SeeAlsoRelated", StripOnInput -> 
            False], "SeeAlsoRelated", StripOnInput -> False] :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/ref/SteganographySurvey"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"SeeAlso"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "8f8350e1-5ddd-4fed-bb3e-c339749f3076"],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "Related Guides",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "cc1958b3-b2bf-44be-af36-eb68ad150cc9"]
         }],ExpressionUUID->"7c10ddb9-7870-414d-9733-0822bd35e92b"],
         StripOnInput->False],{
        "\"Steganography\"" :> 
         Documentation`HelpLookup[
          "paclet:WolframInstitute/Puzzles/guide/Steganography"]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"MoreAbout"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "325ae157-ebfa-4ba9-b312-fc0116fdeb2d"],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      TagBox[
       ActionMenuBox[
        FrameBox[Cell[TextData[{
          "URL",
          " ",
          Cell[BoxData[
           GraphicsBox[
            {GrayLevel[0.66667], Thickness[0.13], 
             LineBox[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]},
            AspectRatio->1,
            ImageSize->20,
            PlotRange->{{-3, 4}, {-1, 1}}]],ExpressionUUID->
           "33518300-aaa3-4c27-a32d-f6fe6f430838"]
         }],ExpressionUUID->"28cb982b-23c1-45ea-bfc3-63776ba4c7d0"],
         StripOnInput->False],{
        "\"WolframInstitute/Puzzles/ref/ImageBitStream\"" :> None, 
         "\"Copy Wolfram Documentation Center URL\"" :> 
         CopyToClipboard["WolframInstitute/Puzzles/ref/ImageBitStream"], 
         Delimiter, "\"Copy web URL\"" :> 
         Module[{DocumentationSearch`Private`nb$}, 
           DocumentationSearch`Private`nb$ = 
            NotebookPut[
             Notebook[{
               Cell[BoxData[
                 MakeBoxes[
                  Hyperlink[
                   "http://reference.wolfram.com/language/WolframInstitute/\
Puzzles/ref/ImageBitStream.html"], StandardForm]], "Input", TextClipboardType -> 
                 "PlainText"]}, Visible -> False]]; 
           SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
           FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
           NotebookClose[DocumentationSearch`Private`nb$]; Null], 
         "\"Go to web URL\"" :> 
         FrontEndExecute[{
           NotebookLocate[{
             URL[If[TrueQ[False], 
                 "http://reference.wolfram.com/system-modeler/", 
                 "http://reference.wolfram.com/language/"] <> 
               "WolframInstitute/Puzzles/ref/ImageBitStream" <> ".html"], 
              None}]}]},
        Appearance->None,
        MenuAppearance->Automatic,
        MenuStyle->"URLMenu"],
       MouseAppearanceTag["LinkHand"]]],
      LineSpacing->{1.4, 0},ExpressionUUID->
      "031b1408-016b-4f1b-8456-7daeb63f9b9d"]
    }], "AnchorBar",
     CacheGraphics->False,ExpressionUUID->
     "c47da9c7-4fa6-4b2f-956b-2368161ceb75"]}
  }]], "AnchorBarGrid",
 CellID->1,ExpressionUUID->"3ef3298c-1daf-452d-b0a4-fa1db5682a8a"],

Cell["WolframInstitute`Puzzles`", "ContextNameCell",ExpressionUUID->"b9ffd63d-2f27-44cb-a06a-bc668db0196c"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {Cell[TextData[{
     Cell[
     "ImageBitStream", "ObjectName",ExpressionUUID->
      "253a190f-9e36-46be-8da0-90e0270f50da"],
     Cell[BoxData[
      TemplateBox[{8},
       "Spacer1"]],ExpressionUUID->"d984312c-d4f3-4c45-a25e-ff9339f2df9b"],
     Cell[BoxData[
     ""], "ObjectNameTranslation",ExpressionUUID->
      "cd043615-829b-4982-841e-037381e98481"]
    }],ExpressionUUID->"7a0708f0-bd63-468c-8c92-c615d1e75d05"], 
    "\[SpanFromLeft]"}
  }]], "ObjectNameGrid",ExpressionUUID->"7feab3b1-c7a3-480a-92c5-\
998426b5ced3"],

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ImageBitStream"]], 
         "paclet:WolframInstitute/Puzzles/ref/ImageBitStream", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       StyleBox["image", "TI"], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "29670d51-c8c8-42be-81af-3ba6c91f2eb2"],
     "\[LineSeparator]",
     "gives the least significant bits of ",
     StyleBox["image", "TI"],
     " as a list of 0s and 1s, read across the channels of each pixel in \
raster order."
    }],ExpressionUUID->"bc41f6a0-8370-42af-8acb-51692bce5b40"]},
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{
       TemplateBox[{
         Cell[
          TextData["ImageBitStream"]], 
         "paclet:WolframInstitute/Puzzles/ref/ImageBitStream", 
         "WolframInstitute/Puzzles Package Symbol"},
        "PackageLink",
        BaseStyle->"InlineFormula"], "[", 
       RowBox[{
        StyleBox["image", "TI"], ",", " ", 
        StyleBox["opts", "TI"]}], "]"}]], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "c6a95b9e-073c-409b-b732-51d0b02e9fd3"],
     "\[LineSeparator]",
     "reads a different traversal of the same samples."
    }],ExpressionUUID->"bba4e6ba-5c79-4228-8edc-d7fbf950d952"]}
  }]], "Usage",ExpressionUUID->"a174ee7a-f527-4357-8b89-e3d000b6af17"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[Cell[TextData[{
  Cell[BoxData[
   DynamicBox[ToBoxes[
     If[CurrentValue[
        EvaluationCell[], "CellGroupOpen"] =!= Closed, 
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], 
      Rotate[
       Style[
        Graphics[{
          Thickness[0.18], 
          RGBColor[0.8509803921568627, 0.396078431372549, 0], 
          Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
         PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
        0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]],
    ImageSizeCache->{
     13.600000000000001`, {-0.1685058593749993, 13.768505859375}}]],
   ExpressionUUID->"e9da2bfc-7551-4f0a-bfd6-6d0092fe567b"],
  Cell[BoxData[
   TemplateBox[{1},
    "Spacer1"]],ExpressionUUID->"041d6b70-6651-4060-8069-bccb68a5d3c9"],
  "Details and Options"
 }], "NotesFrameText",ExpressionUUID->
  "a2b25abe-d171-44c8-8a87-2ccca0774f4d"]],ExpressionUUID->"83c57190-e661-\
4642-a014-e900fa4e3d23"]], "NotesSection",
 ShowGroupOpener->"Thumbnail",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CacheGraphics->False,
 CellID->1364261554,ExpressionUUID->"e4f6ae9b-0ca5-49ec-9c16-a0a3da7c19e1"],

Cell["\<\
The traversal is: positions in scan order, then, at each position, the \
selected channels, then, in each sample, the selected bit planes.\
\>", "Notes",ExpressionUUID->"ba22dbe2-1df8-47f8-80b5-63bebab77f15"],

Cell[TextData[{
 "Samples are read through ",
 Cell[BoxData[
  RowBox[{
   TemplateBox[{
     Cell[
      TextData["ImageData"]], "paclet:ref/ImageData"},
    "RefLink",
    BaseStyle->{"InlineFormula"}], "[", 
   RowBox[{
    StyleBox["image", "TI"], ",", " ", "\<\"Byte\"\>"}], "]"}]], 
  "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "c4f0c979-8f1e-453b-b46f-7b8f02e3f332"],
 ", so a bit index always runs 0 through 7."
}], "Notes",ExpressionUUID->"5328e7cd-1200-47ab-b126-dd9aff001d77"],

Cell[TextData[{
 "An embedder chooses one traversal and a reader has to match it. The four \
options below are the choices worth trying; ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ImageBitPlaneScan"]], 
    "paclet:WolframInstitute/Puzzles/ref/ImageBitPlaneScan", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "a3c23731-98fb-461e-bde2-55218b328c19"],
 " tries them all."
}], "Notes",ExpressionUUID->"ce5bf070-e77b-4891-a4c6-bfbb6f007755"],

Cell[BoxData[GridBox[{
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "1667d296-86e7-4b41-8803-6b01716b990b"], Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"8b4f786e-50d9-4422-bc58-a7fd0563987a"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"d42148e1-4307-4926-9ced-a4fba05d076b"],
     Cell["", "TableText",
     FontWeight->Bold,ExpressionUUID->"0cd996f2-ea7a-41b3-b41a-3d29afe5c6d3"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "911505a6-6a60-4634-8af4-8c841292f24d"], Cell[TextData[Cell[
    BoxData["\"\<BitPlanes\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "2b682df3-13e9-4b57-8dd0-37df7eb2ee52"]], "TableText",ExpressionUUID->
     "dadce389-891e-400b-a9d9-86c9c0a27b64"], Cell[TextData[Cell[BoxData[
     RowBox[{"{", "0", "}"}]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "294adceb-102c-4568-b7ae-13709a4bb553"]], "TableText",ExpressionUUID->
     "de303d0b-f9a2-4e2c-b326-4d77b28ae739"], Cell["\<\
bit indices to read from each sample, in the order they are emitted\
\>", "TableText",ExpressionUUID->"21ac64d9-4f6c-48ba-a065-644d52a557af"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "3d2e962f-5e6e-43db-ad3e-71b1bd36ba33"], Cell[TextData[Cell[
    BoxData["\"\<Channels\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "020dc3e0-2142-4d58-8b66-2f6e9aa49531"]], "TableText",ExpressionUUID->
     "5674ea3e-68c6-4361-a80e-4344e64dda86"], Cell[TextData[Cell[BoxData[
     TemplateBox[{
       Cell[
        TextData["All"]], "paclet:ref/All"},
      "RefLink",
      BaseStyle->"InlineFormula"]], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "78e45843-5f60-4c80-a1ec-9816ff4d0bd5"]], "TableText",ExpressionUUID->
     "e046f0d7-bc37-4358-9d3f-9948c6f6d636"], Cell[TextData[{
     "a channel index, a channel name, a list of either, or ",
     Cell[BoxData["All"], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "dbc2d40e-8cca-405d-9a92-293f550e5c37"]
    }], "TableText",ExpressionUUID->"704bed08-89ad-42a0-abcf-2a151563dade"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "4c48e9fc-4b11-498d-a1c1-4e75b829cd43"], Cell[TextData[Cell[
    BoxData["\"\<ScanOrder\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "a1749f25-b974-4147-95fe-4c2301ff3cd2"]], "TableText",ExpressionUUID->
     "c835b54c-e56b-4281-85d9-3fafab8bf57c"], Cell[TextData[Cell[
    BoxData["\"\<Row\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "d90046db-98c9-4890-8ac2-15bf0035ba14"]], "TableText",ExpressionUUID->
     "8917c076-ff1d-4a70-8e9c-95f04a142898"], Cell[TextData[{
     Cell[BoxData["\"\<Row\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "d4a04f2c-28e1-44e7-997c-4a8526475346"],
     " for raster order, ",
     Cell[BoxData["\"\<Column\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "15fa48d3-1954-4546-842e-6e30accb4261"],
     " for column-major order"
    }], "TableText",ExpressionUUID->"f60614d3-fe77-4164-ac2b-4fdd654be9d9"]},
   {Cell["      ", "TableRowIcon",ExpressionUUID->
     "dbaf6939-f941-4ac3-b2da-6d8bb1b46f91"], Cell[TextData[Cell[
    BoxData["\"\<ChannelOrder\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "6ca504f7-85e0-4957-94e2-73ebe8f48464"]], "TableText",ExpressionUUID->
     "56236a46-7528-4430-a2e8-7f093240e936"], Cell[TextData[Cell[
    BoxData["\"\<Interleaved\>\""], "InlineFormula",
     FontFamily->"Source Sans Pro",
     FontSize->0.9 Inherited,ExpressionUUID->
     "3f12f18a-6c77-4c29-a56c-ee512811fd75"]], "TableText",ExpressionUUID->
     "5e966d56-9f12-4410-8137-3b47484efb4c"], Cell[TextData[{
     Cell[BoxData["\"\<Interleaved\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "2a9ecfaf-354b-4674-b0e5-236874ad9068"],
     " reads all channels of a pixel before moving on, ",
     Cell[BoxData["\"\<Planar\>\""], "InlineFormula",
      FontFamily->"Source Sans Pro",
      FontSize->0.9 Inherited,ExpressionUUID->
      "45f21935-2b30-4694-8f46-213ab9c90f49"],
     " reads one whole channel at a time"
    }], "TableText",ExpressionUUID->"bf7c2118-21e2-441b-8031-1baed392f3d3"]}
  }]], "3ColumnTableMod",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "Rows" -> {None, None, None, None, {None}}},
 GridBoxDividers->{
  "Rows" -> {{
     True, True, True, True, True, 
      True}}}},ExpressionUUID->"5e5274bd-cace-46ed-adeb-090ea78322b2"],

Cell["\<\
An out-of-range bit index, an unsupported scan or channel order, a channel \
the image does not have, or a first argument that is not an image matches no \
definition, and the call is returned unevaluated.\
\>", "Notes",ExpressionUUID->"3820251b-605c-4411-a20c-3907f0cd5485"]
}, Closed]],

Cell["", "PageDelimiter",ExpressionUUID->"d58ce643-6113-47f8-bc5d-341c3136d308"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[
     MatchQ[
      CurrentValue[
       EvaluationNotebook[], {
       TaggingRules, "Openers", "PrimaryExamplesSection"}, Open], 
      Alternatives[True, Open]], 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]],
   ImageSizeCache->{
    13.600000000000001`, {4.251494140625001, 9.348505859375}}]],
  ExpressionUUID->"fc5a9c45-5a74-4cd1-9232-07bf3c05b42b"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"fda11e9f-2631-4323-9d90-8f486291ce2c"],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(12)", "ExampleCount",ExpressionUUID->
  "7fa1c2ef-0fc1-42d7-a730-72f5484afa4c"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->461039059,ExpressionUUID->"4b8f6d3c-2da1-4cf6-9c72-708ffa6dc3f2"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<WolframInstitute`Puzzles`\>\"", "]"}]], "Input", \
"ExampleInitialization",
 CellLabel->"In[1]:=",
 CellID->1969679695,ExpressionUUID->"bb331097-36d4-4a42-89d5-ab8a10515ffb"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "b8093cc4-f7cb-4725-b36a-4c2b9c0c7ff0"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"55fd35c1-d48d-4e17-b85b-aced192db495"],
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "1f41c17e-7c39-4eac-9ce1-f81b7599c783"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->562466237,ExpressionUUID->"012b4856-6072-4db9-87fa-7d7bdfba1798"],

Cell[TextData[{
 "The low bits of sixteen grayscale samples, whose values were chosen so that \
the bits spell ",
 Cell[BoxData["\<\"Hi\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "e939e283-5048-4f90-b0ba-44cbe56b415c"],
 " in US-ASCII:"
}], "ExampleText",
 CellTags->
  "TextAnnotation",ExpressionUUID->"059f3bdc-d4e0-4277-abbe-65cd92594b2c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImageBitStream", "[", 
  RowBox[{"Image", "[", 
   RowBox[{
    RowBox[{"Partition", "[", 
     RowBox[{
      RowBox[{"100", " ", "+", " ", 
       RowBox[{"{", 
        RowBox[{
        "0", ",", " ", "1", ",", " ", "0", ",", " ", "0", ",", " ", "1", ",", 
         " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "1",
          ",", " ", "1", ",", " ", "0", ",", " ", "1", ",", " ", "0", ",", 
         " ", "0", ",", " ", "1"}], "}"}]}], ",", " ", "4"}], "]"}], ",", 
    " ", "\"\<Byte\>\""}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"a0d8c2dd-0058-47b6-8ba2-112b28afd999"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",",
    "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", 
   "1"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d90f28dd-2819-4c93-9a7e-e8f5cef5275b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ac057031-5e8f-42cd-8b52-b06cb53acb00"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"29ac1f38-811a-4d52-\
8a52-79d7ef0cbf67"],

Cell["\<\
Reading the same image down its columns gives the transposed order:\
\>", "ExampleText",ExpressionUUID->"45501352-efda-4cd3-94d2-d112de779be5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImageBitStream", "[", 
  RowBox[{
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"Partition", "[", 
      RowBox[{
       RowBox[{"100", " ", "+", " ", 
        RowBox[{"{", 
         RowBox[{
         "0", ",", " ", "1", ",", " ", "0", ",", " ", "0", ",", " ", "1", ",",
           " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", 
          "1", ",", " ", "1", ",", " ", "0", ",", " ", "1", ",", " ", "0", ",",
           " ", "0", ",", " ", "1"}], "}"}]}], ",", " ", "4"}], "]"}], ",", 
     " ", "\"\<Byte\>\""}], "]"}], ",", " ", 
   RowBox[{"\"\<ScanOrder\>\"", " ", "->", " ", "\"\<Column\>\""}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"bd12b1ea-0d18-4954-a182-6dd3d61cc1f2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",",
    "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
   "1"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"20121b50-ea48-4568-b4dc-8eda3ac7b47b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "87863e24-089e-4d17-a375-7127e9f0902d"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"a2c60ea2-05b4-4f19-94e7-9e1d219aa0c7"],
 "Scope",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(5)", "ExampleCount",ExpressionUUID->
  "6430b837-1a90-443a-932f-9f7f8d516465"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1293636265,ExpressionUUID->"086d1b97-1832-495b-8ced-a1711708540b"],

Cell["\<\
A colour image interleaves its channels, three bits per pixel:\
\>", "ExampleText",ExpressionUUID->"dd322c06-db6e-45e7-a5f8-766d72bdc215"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImageBitStream", "[", 
  RowBox[{"Image", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"i", ",", " ", 
        RowBox[{"10", " ", "+", " ", "i"}], ",", " ", 
        RowBox[{"20", " ", "+", " ", "i"}]}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"i", ",", " ", "4"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"j", ",", " ", "1"}], "}"}]}], "]"}], ",", 
    " ", "\"\<Byte\>\""}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"5f78ba29-8ccf-4011-bb76-0dab7fa21a02"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",",
    "1", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"8903c88b-4c3a-435a-998c-dc9042be8be5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "91487819-fc74-4e93-9793-5874d79b0c83"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"476a1520-4a5e-4b99-\
95d4-d2af685a684c"],

Cell["\<\
Planar order reads one whole channel before starting the next:\
\>", "ExampleText",ExpressionUUID->"c6c81101-313d-44a6-b27a-d1b0c797fad8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImageBitStream", "[", 
  RowBox[{
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", " ", 
         RowBox[{"10", " ", "+", " ", "i"}], ",", " ", 
         RowBox[{"20", " ", "+", " ", "i"}]}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "4"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"j", ",", " ", "1"}], "}"}]}], "]"}], ",", 
     " ", "\"\<Byte\>\""}], "]"}], ",", " ", 
   RowBox[{"\"\<ChannelOrder\>\"", " ", "->", " ", "\"\<Planar\>\""}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"53227744-18c9-47fc-9cc4-4b3146bf8661"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",",
    "1", ",", "0", ",", "1", ",", "0"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f73859db-360c-4e02-ba8b-c4c3af0900fe"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a4f64ef6-5da5-40b4-b10a-3b0e3b655847"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"5be57b7d-4d19-49bd-\
9a4a-fed80cfcc3ae"],

Cell["One named channel on its own:", "ExampleText",ExpressionUUID->"203635ce-fc49-4a51-acb3-7a47cdbe6e06"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImageBitStream", "[", 
  RowBox[{
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", " ", 
         RowBox[{"10", " ", "+", " ", "i"}], ",", " ", 
         RowBox[{"20", " ", "+", " ", "i"}]}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "4"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"j", ",", " ", "1"}], "}"}]}], "]"}], ",", 
     " ", "\"\<Byte\>\""}], "]"}], ",", " ", 
   RowBox[{"\"\<Channels\>\"", " ", "->", " ", "\"\<Green\>\""}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"86668c75-e22d-4d5d-977f-c73377334d10"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"52f9c62e-0a7d-4083-8ed3-5f91a52d10fa"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "26916760-87d5-4bf0-b633-ebf6472912df"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"022f5190-8432-4576-\
8683-b840d64fed09"],

Cell["\<\
Two bit planes, in the order given, give two bits per sample:\
\>", "ExampleText",ExpressionUUID->"3bb47d6e-4c21-4a4a-b5b2-edbc1d3673a3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImageBitStream", "[", 
  RowBox[{
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"Partition", "[", 
      RowBox[{
       RowBox[{"Range", "[", 
        RowBox[{"0", ",", " ", "3"}], "]"}], ",", " ", "2"}], "]"}], ",", 
     " ", "\"\<Byte\>\""}], "]"}], ",", " ", 
   RowBox[{"\"\<BitPlanes\>\"", " ", "->", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "0"}], "}"}]}]}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"bbc010f7-22ec-42ac-b441-22b500ad76d5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1"}],
   "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"5cb0d848-bb2b-4306-89ef-8ed8c085cdcb"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "07a26e2f-3ca6-474c-9b87-123971fe3ea6"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"6639cc34-477c-47ff-\
bb11-9985f30357fd"],

Cell["\<\
A list of channels selects several at once, in the image's own storage order:\
\
\>", "ExampleText",ExpressionUUID->"d619a564-8622-462d-86d2-9d1eb431fcbd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImageBitStream", "[", 
  RowBox[{
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", " ", 
         RowBox[{"10", " ", "+", " ", "i"}], ",", " ", 
         RowBox[{"20", " ", "+", " ", "i"}]}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "2"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"j", ",", " ", "1"}], "}"}]}], "]"}], ",", 
     " ", "\"\<Byte\>\""}], "]"}], ",", " ", 
   RowBox[{"\"\<Channels\>\"", " ", "->", " ", 
    RowBox[{"{", 
     RowBox[{"\"\<Red\>\"", ",", " ", "\"\<Blue\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"14297911-3e22-4e6f-82b0-5a45c1984d66"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"ee457554-3c50-4848-a841-75807085e01e"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "a9a0706d-adc9-4e51-a75a-27db6a418ece"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"807d4185-5de3-48b7-abbe-4a93b23eb2e4"],
 "Applications",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount",ExpressionUUID->
  "651c6780-b9a2-423a-b037-548a3fd67cf5"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->258228157,ExpressionUUID->"8d82d77e-2f36-4a8b-936e-3b01d5e1d567"],

Cell["Sixteen bits from a carrier, read as US-ASCII by hand:", "ExampleText",ExpressionUUID->"d6734303-934d-4251-84a0-d2679961de46"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FromCharacterCode", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"FromDigits", "[", 
     RowBox[{"#", ",", " ", "2"}], "]"}], " ", "&"}], " ", "/@", " ", 
   RowBox[{"Partition", "[", 
    RowBox[{
     RowBox[{"ImageBitStream", "[", 
      RowBox[{"Image", "[", 
       RowBox[{
        RowBox[{"Partition", "[", 
         RowBox[{
          RowBox[{"100", " ", "+", " ", 
           RowBox[{"{", 
            RowBox[{
            "0", ",", " ", "1", ",", " ", "0", ",", " ", "0", ",", " ", "1", ",",
              " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ",
              "1", ",", " ", "1", ",", " ", "0", ",", " ", "1", ",", " ", "0",
              ",", " ", "0", ",", " ", "1"}], "}"}]}], ",", " ", "4"}], "]"}],
         ",", " ", "\"\<Byte\>\""}], "]"}], "]"}], ",", " ", "8"}], "]"}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"fe15e747-ab61-42e2-a1c2-11e9a23e0bc3"],

Cell[BoxData["\<\"Hi\"\>"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"0bed5405-f875-4115-a7fe-34eea694f7fb"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "fc27c72e-170e-493e-939e-1460c093114f"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"236a6257-13af-4ad8-8aec-25d0ac181aaf"],
 "Properties & Relations",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "b470dfcb-d9d4-4e24-9b56-1ae54586a1dc"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->2123667759,ExpressionUUID->"9e130e65-64c4-4de1-8c35-b85f8186ba82"],

Cell[TextData[{
 "The stream is the raster flattening of the corresponding ",
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ImageBitPlane"]], 
    "paclet:WolframInstitute/Puzzles/ref/ImageBitPlane", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "6e393b66-b7f2-4130-a654-d70327b148d5"],
 ":"
}], "ExampleText",ExpressionUUID->"a9c688ca-e95d-45fa-bd75-ef171567bb28"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ImageBitStream", "[", 
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"Partition", "[", 
      RowBox[{
       RowBox[{"Range", "[", 
        RowBox[{"0", ",", " ", "15"}], "]"}], ",", " ", "4"}], "]"}], ",", 
     " ", "\"\<Byte\>\""}], "]"}], "]"}], " ", "===", " ", 
  RowBox[{"Flatten", "[", 
   RowBox[{"ImageData", "[", 
    RowBox[{
     RowBox[{"ImageBitPlane", "[", 
      RowBox[{
       RowBox[{"Image", "[", 
        RowBox[{
         RowBox[{"Partition", "[", 
          RowBox[{
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", " ", "15"}], "]"}], ",", " ", "4"}], "]"}], ",",
          " ", "\"\<Byte\>\""}], "]"}], ",", " ", "0"}], "]"}], ",", 
     " ", "\"\<Bit\>\""}], "]"}], "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"c22f139a-83ce-460e-a150-b1e1c451e79f"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d4e59d2a-c4d3-404a-817a-8ef0414caf94"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "2c35ccab-2d3c-41b0-8d9c-50d4922a1965"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"a703924e-8b46-4a81-\
a476-85836d0548a1"],

Cell[TextData[{
 Cell[BoxData[
  TemplateBox[{
    Cell[
     TextData["ImageBitStreamBytes"]], 
    "paclet:WolframInstitute/Puzzles/ref/ImageBitStreamBytes", 
    "WolframInstitute/Puzzles Package Symbol"},
   "PackageLink",
   BaseStyle->"InlineFormula"]], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "607e8a92-48ed-44ab-ae40-d65935b44ba5"],
 " packs the same stream eight bits to a byte:"
}], "ExampleText",ExpressionUUID->"d1d9fbd3-1151-4417-80d1-17bd55e9961f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"ImageBitStreamBytes", "[", 
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"Partition", "[", 
      RowBox[{
       RowBox[{"100", " ", "+", " ", 
        RowBox[{"{", 
         RowBox[{
         "0", ",", " ", "1", ",", " ", "0", ",", " ", "0", ",", " ", "1", ",",
           " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", 
          "1", ",", " ", "1", ",", " ", "0", ",", " ", "1", ",", " ", "0", ",",
           " ", "0", ",", " ", "1"}], "}"}]}], ",", " ", "4"}], "]"}], ",", 
     " ", "\"\<Byte\>\""}], "]"}], "]"}], "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"0fab3cf3-4be0-438f-8fc9-d202bc2bd65d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"72", ",", "105"}], "}"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d0222472-c722-4de6-9f43-22a75706f84a"]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  DynamicBox[ToBoxes[
    If[CurrentValue[
       EvaluationCell[], "CellGroupOpen"] =!= Closed, 
     Style[
      Graphics[{
        Thickness[0.18], 
        RGBColor[0.8509803921568627, 0.396078431372549, 0], 
        Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
       PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
      0.68 Inherited], 
     Rotate[
      Style[
       Graphics[{
         Thickness[0.18], 
         RGBColor[0.8509803921568627, 0.396078431372549, 0], 
         Line[{{-1.8, 0.5}, {0, 0}, {1.8, 0.5}}]}, AspectRatio -> 1, 
        PlotRange -> {{-3, 4}, {-1, 1}}, ImageSize -> 20], Magnification -> 
       0.68 Inherited], Rational[1, 2] Pi, {-1.65, -1}]]]]],ExpressionUUID->
  "be1b935f-0212-4338-9504-e283e43d45bd"],
 Cell[BoxData[
  TemplateBox[{1},
   "Spacer1"]],ExpressionUUID->"384205a7-ff62-489f-938a-fa8e49e267f3"],
 "Possible Issues",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(2)", "ExampleCount",ExpressionUUID->
  "a2919602-66ba-44c7-818d-6c1ecfba0323"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CacheGraphics->False,
 CellID->1305812373,ExpressionUUID->"ddc6ba33-ceaf-400f-a17f-284834d3649e"],

Cell[TextData[{
 "Only ",
 Cell[BoxData["\<\"Row\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "186e4b95-782f-446c-b42b-4a94760daa30"],
 " and ",
 Cell[BoxData["\<\"Column\"\>"], "InlineFormula",
  FontFamily->"Source Sans Pro",
  FontSize->0.9 Inherited,ExpressionUUID->
  "708fbe84-2c71-4756-bfb3-aa720a6212a8"],
 " are supported, so another scan order is returned unevaluated:"
}], "ExampleText",ExpressionUUID->"398b730e-fdf3-448c-92be-887cc03fa26f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImageBitStream", "[", 
  RowBox[{
   RowBox[{"Image", "[", 
    RowBox[{
     RowBox[{"Partition", "[", 
      RowBox[{
       RowBox[{"Range", "[", 
        RowBox[{"0", ",", " ", "3"}], "]"}], ",", " ", "2"}], "]"}], ",", 
     " ", "\"\<Byte\>\""}], "]"}], ",", " ", 
   RowBox[{"\"\<ScanOrder\>\"", " ", "->", " ", "\"\<Boustrophedon\>\""}]}], 
  "]"}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"ea1cbec7-9946-41d9-b335-7ed944bc073d"],

Cell[BoxData[
 RowBox[{"ImageBitStream", "[", 
  RowBox[{
   GraphicsBox[
    TagBox[
     RasterBox[
      RawArray["UnsignedInteger8", {{0, 1}, {2, 3}}], {{0, 2.}, {2., 0}}, {0, 
      255},
      ColorFunction->GrayLevel],
     BoxForm`ImageTag["Byte", ColorSpace -> Automatic, Interleaving -> None],
     Selectable->False],
    DefaultBaseStyle->"ImageGraphics",
    ImageSizeRaw->{2., 2.},
    PlotRange->{{0, 2.}, {0, 2.}}], ",", 
   RowBox[{"\<\"ScanOrder\"\>", "\[Rule]", "\<\"Boustrophedon\"\>"}]}], 
  "]"}]], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"f4775eb0-f390-423d-ae63-8147329fb306"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "a09ae34d-4eb4-4654-bce0-fed3137c92a6"],
  $Line = 0; Null]], "ExampleDelimiter",ExpressionUUID->"658d53c1-763d-432b-\
88c3-34a3b2c37633"],

Cell["\<\
Interleaved and planar order give the same stream for a single channel, and \
different streams for more than one, so the option only matters where it is \
ambiguous:\
\>", "ExampleText",ExpressionUUID->"29cb2d55-bb1c-4a43-8230-92199bdc07aa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ImageBitStream", "[", 
   RowBox[{
    RowBox[{"Image", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"i", ",", " ", 
          RowBox[{"10", " ", "+", " ", "i"}], ",", " ", 
          RowBox[{"20", " ", "+", " ", "i"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "4"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"j", ",", " ", "1"}], "}"}]}], "]"}], ",", 
      " ", "\"\<Byte\>\""}], "]"}], ",", " ", 
    RowBox[{"\"\<Channels\>\"", " ", "->", " ", "\"\<Red\>\""}], ",", " ", 
    RowBox[{"\"\<ChannelOrder\>\"", " ", "->", " ", "\"\<Planar\>\""}]}], 
   "]"}], " ", "===", " ", 
  RowBox[{"ImageBitStream", "[", 
   RowBox[{
    RowBox[{"Image", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"i", ",", " ", 
          RowBox[{"10", " ", "+", " ", "i"}], ",", " ", 
          RowBox[{"20", " ", "+", " ", "i"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "4"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"j", ",", " ", "1"}], "}"}]}], "]"}], ",", 
      " ", "\"\<Byte\>\""}], "]"}], ",", " ", 
    RowBox[{"\"\<Channels\>\"", " ", "->", " ", "\"\<Red\>\""}]}], 
   "]"}]}]], "Input",
 CellProlog:>Needs["WolframInstitute`Puzzles`"],
 CellLabel->"In[1]:=",ExpressionUUID->"764ea8e1-39e4-490f-bf6a-79009bffd3fe"],

Cell[BoxData["True"], "Output",
 CellLabel->"Out[1]= ",ExpressionUUID->"d8712976-590e-4b2b-baf9-4275bfa2a828"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedFunction.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"See", " ", "Also"}], "SeeAlsoSection"]},
      {Cell[TextData[{
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ImageBitStreamBytes"]], 
           "paclet:WolframInstitute/Puzzles/ref/ImageBitStreamBytes", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "ca858416-1f3d-485a-a006-5b9b729bb678"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ImageBitPlane"]], 
           "paclet:WolframInstitute/Puzzles/ref/ImageBitPlane", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "baef475c-3031-4655-ace1-ac4d0d0283ae"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ImageBitPlaneScan"]], 
           "paclet:WolframInstitute/Puzzles/ref/ImageBitPlaneScan", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "159193e2-48ee-4702-bbe2-9fb550dd8a18"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["SteganographySurvey"]], 
           "paclet:WolframInstitute/Puzzles/ref/SteganographySurvey", 
           "WolframInstitute/Puzzles Package Symbol"},
          "PackageLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "bffd9c21-eef9-4408-837c-389502c69a41"],
        "\[NonBreakingSpace]",
        StyleBox[
        "\[MediumSpace]\[FilledVerySmallSquare]\[MediumSpace]", 
         "InlineSeparator"],
        " ",
        Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["ImageData"]], "paclet:ref/ImageData"},
          "RefLink",
          BaseStyle->"InlineFormula"]], "InlineFormula",
         FontFamily->"Source Sans Pro",ExpressionUUID->
         "61a4e3d5-8e67-4190-82de-05a3700bf454"]
       }], "SeeAlso",ExpressionUUID->"3e31eb81-4116-42fe-8f59-8e87415cfe74"]}
     }]}
  }]], "SeeAlsoSection",ExpressionUUID->"5e2131e1-1e9a-4720-ab10-\
5b833b6ba051"],

Cell[BoxData[GridBox[{
   {
    DynamicBox[FEPrivate`ImportImage[
      FrontEnd`FileName[{"Documentation", "FooterIcons"}, 
       "RelatedGuide.png"]]], GridBox[{
      {
       StyleBox[
        RowBox[{"Related", " ", "Guides"}], "MoreAboutSection"]},
      {
       RowBox[{"\[FilledVerySmallSquare]", Cell[BoxData[
         TemplateBox[{
           Cell[
            TextData["Steganography"]], 
           "paclet:WolframInstitute/Puzzles/guide/Steganography"},
          "RefLinkPlain",
          BaseStyle->{"MoreAbout"}]], "MoreAbout",ExpressionUUID->
         "19ff92d4-3628-43fc-b1ac-451d7467b99d"]}]}
     }]}
  }]], "MoreAboutSection",ExpressionUUID->"a564b076-ba33-4f81-94f0-\
c7c6278b1fea"],

Cell[" ", "FooterCell",ExpressionUUID->"22d91b7e-fc07-4b5d-aeed-93edeebb9684"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{900, 830},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
WindowTitle->"ImageBitStream",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "", "LinkTrails" -> "", 
  "ExampleCounter" -> 1, 
  "Openers" -> {
   "PrimaryExamplesSection" -> Open, "ExampleSection" -> {"0" -> Open}, 
    "AllOptsTable" -> Closed}, "NewStyles" -> True, 
  "CitationPopupData" -> $Failed, "ShowCitation" -> False, "HasOptions" -> 
  True, "RootCaptions" -> "", "HeaderCoreAreaLink" -> {}, 
  "Metadata" -> {
   "built" -> "{2026, 8, 27, 0, 11, 43.047402}", 
    "history" -> {"XX", "", "", ""}, "context" -> "WolframInstitute`Puzzles`",
     "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Wolfram Institute/ Puzzles Symbol", "language" -> "en", "paclet" -> 
    "WolframInstitute/Puzzles", "status" -> "None", "summary" -> 
    "PackageLink[ImageBitStream,paclet : \
WolframInstitute/Puzzles/ref/ImageBitStream, WolframInstitute/Puzzles Package \
Symbol][image] gives the least significant bits of image as a list of 0s and \
1s, read across the channels of each pixel in raster order. \
PackageLink[ImageBitStream,paclet : \
WolframInstitute/Puzzles/ref/ImageBitStream, WolframInstitute/Puzzles Package \
Symbol][image, opts] reads a different traversal of the same samples.", 
    "synonyms" -> {}, "tabletags" -> {}, "title" -> "ImageBitStream", 
    "titlemodifier" -> "", "metadescription" -> "", "windowtitle" -> 
    "ImageBitStream", "type" -> "Symbol", "uri" -> 
    "WolframInstitute/Puzzles/ref/ImageBitStream", "WorkflowDockedCell" -> 
    ""}, "SearchTextTranslated" -> ""},
CellContext->CellGroup,
FrontEndVersion->"15.0 for Mac OS X ARM (64-bit) (May 19, 2026)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Reference.nb"],
ExpressionUUID->"e60eade2-942d-4f66-bfe2-86664be3d2ac"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "TextAnnotation"->{
  Cell[20293, 507, 401, 10, 70, "ExampleText",ExpressionUUID->"059f3bdc-d4e0-4277-abbe-65cd92594b2c",
   CellTags->"TextAnnotation"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"TextAnnotation", 49152, 1333}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[582, 21, 6328, 153, 70, "AnchorBarGrid",ExpressionUUID->"3ef3298c-1daf-452d-b0a4-fa1db5682a8a",
 CellID->1],
Cell[6913, 176, 107, 0, 70, "ContextNameCell",ExpressionUUID->"b9ffd63d-2f27-44cb-a06a-bc668db0196c"],
Cell[CellGroupData[{
Cell[7045, 180, 557, 14, 70, "ObjectNameGrid",ExpressionUUID->"7feab3b1-c7a3-480a-92c5-998426b5ced3"],
Cell[7605, 196, 1565, 40, 70, "Usage",ExpressionUUID->"a174ee7a-f527-4357-8b89-e3d000b6af17"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9207, 241, 1444, 34, 70, "NotesSection",ExpressionUUID->"e4f6ae9b-0ca5-49ec-9c16-a0a3da7c19e1",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->1364261554],
Cell[10654, 277, 218, 3, 70, "Notes",ExpressionUUID->"ba22dbe2-1df8-47f8-80b5-63bebab77f15"],
Cell[10875, 282, 539, 16, 70, "Notes",ExpressionUUID->"5328e7cd-1200-47ab-b126-dd9aff001d77"],
Cell[11417, 300, 603, 15, 70, "Notes",ExpressionUUID->"ce5bf070-e77b-4891-a4c6-bfbb6f007755"],
Cell[12023, 317, 4979, 97, 70, "3ColumnTableMod",ExpressionUUID->"5e5274bd-cace-46ed-adeb-090ea78322b2"],
Cell[17005, 416, 285, 4, 70, "Notes",ExpressionUUID->"3820251b-605c-4411-a20c-3907f0cd5485"]
}, Closed]],
Cell[17305, 423, 80, 0, 70, "PageDelimiter",ExpressionUUID->"d58ce643-6113-47f8-bc5d-341c3136d308"],
Cell[CellGroupData[{
Cell[17410, 427, 1401, 37, 70, "PrimaryExamplesSection",ExpressionUUID->"4b8f6d3c-2da1-4cf6-9c72-708ffa6dc3f2",
 CellID->461039059],
Cell[18814, 466, 216, 4, 70, "Input",ExpressionUUID->"bb331097-36d4-4a42-89d5-ab8a10515ffb",
 CellID->1969679695],
Cell[CellGroupData[{
Cell[19055, 474, 1235, 31, 70, "ExampleSection",ExpressionUUID->"012b4856-6072-4db9-87fa-7d7bdfba1798",
 CellID->562466237],
Cell[20293, 507, 401, 10, 70, "ExampleText",ExpressionUUID->"059f3bdc-d4e0-4277-abbe-65cd92594b2c",
 CellTags->"TextAnnotation"],
Cell[CellGroupData[{
Cell[20719, 521, 690, 15, 70, "Input",ExpressionUUID->"a0d8c2dd-0058-47b6-8ba2-112b28afd999"],
Cell[21412, 538, 303, 6, 70, "Output",ExpressionUUID->"d90f28dd-2819-4c93-9a7e-e8f5cef5275b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21752, 549, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"29ac1f38-811a-4d52-8a52-79d7ef0cbf67"],
Cell[21979, 556, 153, 2, 70, "ExampleText",ExpressionUUID->"45501352-efda-4cd3-94d2-d112de779be5"],
Cell[CellGroupData[{
Cell[22157, 562, 797, 18, 70, "Input",ExpressionUUID->"bd12b1ea-0d18-4954-a182-6dd3d61cc1f2"],
Cell[22957, 582, 303, 6, 70, "Output",ExpressionUUID->"20121b50-ea48-4568-b4dc-8eda3ac7b47b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23321, 595, 1227, 31, 70, "ExampleSection",ExpressionUUID->"086d1b97-1832-495b-8ced-a1711708540b",
 CellID->1293636265],
Cell[24551, 628, 148, 2, 70, "ExampleText",ExpressionUUID->"dd322c06-db6e-45e7-a5f8-766d72bdc215"],
Cell[CellGroupData[{
Cell[24724, 634, 626, 16, 70, "Input",ExpressionUUID->"5f78ba29-8ccf-4011-bb76-0dab7fa21a02"],
Cell[25353, 652, 259, 5, 70, "Output",ExpressionUUID->"8903c88b-4c3a-435a-998c-dc9042be8be5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25649, 662, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"476a1520-4a5e-4b99-95d4-d2af685a684c"],
Cell[25876, 669, 148, 2, 70, "ExampleText",ExpressionUUID->"c6c81101-313d-44a6-b27a-d1b0c797fad8"],
Cell[CellGroupData[{
Cell[26049, 675, 737, 19, 70, "Input",ExpressionUUID->"53227744-18c9-47fc-9cc4-4b3146bf8661"],
Cell[26789, 696, 259, 5, 70, "Output",ExpressionUUID->"f73859db-360c-4e02-ba8b-c4c3af0900fe"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27097, 707, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"5be57b7d-4d19-49bd-9a4a-fed80cfcc3ae"],
Cell[27324, 714, 107, 0, 70, "ExampleText",ExpressionUUID->"203635ce-fc49-4a51-acb3-7a47cdbe6e06"],
Cell[CellGroupData[{
Cell[27456, 718, 732, 19, 70, "Input",ExpressionUUID->"86668c75-e22d-4d5d-977f-c73377334d10"],
Cell[28191, 739, 172, 3, 70, "Output",ExpressionUUID->"52f9c62e-0a7d-4083-8ed3-5f91a52d10fa"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28412, 748, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"022f5190-8432-4576-8683-b840d64fed09"],
Cell[28639, 755, 147, 2, 70, "ExampleText",ExpressionUUID->"3bb47d6e-4c21-4a4a-b5b2-edbc1d3673a3"],
Cell[CellGroupData[{
Cell[28811, 761, 551, 14, 70, "Input",ExpressionUUID->"bbc010f7-22ec-42ac-b441-22b500ad76d5"],
Cell[29365, 777, 218, 5, 70, "Output",ExpressionUUID->"5cb0d848-bb2b-4306-89ef-8ed8c085cdcb"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[29632, 788, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"6639cc34-477c-47ff-bb11-9985f30357fd"],
Cell[29859, 795, 165, 3, 70, "ExampleText",ExpressionUUID->"d619a564-8622-462d-86d2-9d1eb431fcbd"],
Cell[CellGroupData[{
Cell[30049, 802, 797, 21, 70, "Input",ExpressionUUID->"14297911-3e22-4e6f-82b0-5a45c1984d66"],
Cell[30849, 825, 172, 3, 70, "Output",ExpressionUUID->"ee457554-3c50-4848-a841-75807085e01e"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[31082, 835, 1233, 31, 70, "ExampleSection",ExpressionUUID->"8d82d77e-2f36-4a8b-936e-3b01d5e1d567",
 CellID->258228157],
Cell[32318, 868, 132, 0, 70, "ExampleText",ExpressionUUID->"d6734303-934d-4251-84a0-d2679961de46"],
Cell[CellGroupData[{
Cell[32475, 872, 983, 23, 70, "Input",ExpressionUUID->"fe15e747-ab61-42e2-a1c2-11e9a23e0bc3"],
Cell[33461, 897, 116, 1, 70, "Output",ExpressionUUID->"0bed5405-f875-4115-a7fe-34eea694f7fb"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[33626, 904, 1244, 31, 70, "ExampleSection",ExpressionUUID->"9e130e65-64c4-4de1-8c35-b85f8186ba82",
 CellID->2123667759],
Cell[34873, 937, 524, 14, 70, "ExampleText",ExpressionUUID->"a9c688ca-e95d-45fa-bd75-ef171567bb28"],
Cell[CellGroupData[{
Cell[35422, 955, 895, 24, 70, "Input",ExpressionUUID->"c22f139a-83ce-460e-a150-b1e1c451e79f"],
Cell[36320, 981, 110, 1, 70, "Output",ExpressionUUID->"d4e59d2a-c4d3-404a-817a-8ef0414caf94"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36467, 987, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"a703924e-8b46-4a81-a476-85836d0548a1"],
Cell[36694, 994, 517, 13, 70, "ExampleText",ExpressionUUID->"d1d9fbd3-1151-4417-80d1-17bd55e9961f"],
Cell[CellGroupData[{
Cell[37236, 1011, 740, 16, 70, "Input",ExpressionUUID->"0fab3cf3-4be0-438f-8fc9-d202bc2bd65d"],
Cell[37979, 1029, 155, 3, 70, "Output",ExpressionUUID->"d0222472-c722-4de6-9f43-22a75706f84a"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[38195, 1039, 1237, 31, 70, "ExampleSection",ExpressionUUID->"ddc6ba33-ceaf-400f-a17f-284834d3649e",
 CellID->1305812373],
Cell[39435, 1072, 510, 12, 70, "ExampleText",ExpressionUUID->"398b730e-fdf3-448c-92be-887cc03fa26f"],
Cell[CellGroupData[{
Cell[39970, 1088, 518, 13, 70, "Input",ExpressionUUID->"ea1cbec7-9946-41d9-b335-7ed944bc073d"],
Cell[40491, 1103, 609, 16, 70, "Output",ExpressionUUID->"f4775eb0-f390-423d-ae63-8147329fb306"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41137, 1124, 224, 5, 70, "ExampleDelimiter",ExpressionUUID->"658d53c1-763d-432b-88c3-34a3b2c37633"],
Cell[41364, 1131, 252, 4, 70, "ExampleText",ExpressionUUID->"29cb2d55-bb1c-4a43-8230-92199bdc07aa"],
Cell[CellGroupData[{
Cell[41641, 1139, 1457, 38, 70, "Input",ExpressionUUID->"764ea8e1-39e4-490f-bf6a-79009bffd3fe"],
Cell[43101, 1179, 110, 1, 70, "Output",ExpressionUUID->"d8712976-590e-4b2b-baf9-4275bfa2a828"]
}, Open  ]]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[43262, 1186, 3048, 80, 70, "SeeAlsoSection",ExpressionUUID->"5e2131e1-1e9a-4720-ab10-5b833b6ba051"],
Cell[46313, 1268, 706, 19, 70, "MoreAboutSection",ExpressionUUID->"a564b076-ba33-4f81-94f0-c7c6278b1fea"],
Cell[47022, 1289, 78, 0, 70, "FooterCell",ExpressionUUID->"22d91b7e-fc07-4b5d-aeed-93edeebb9684"]
}
]
*)

(* End of internal cache information *)

