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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    123942,       3153]
NotebookOptionsPosition[    107908,       2748]
NotebookOutlinePosition[    118698,       2997]
CellTagsIndexPosition[    118541,       2989]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["Math 421  \[FilledSmallCircle]  Fall 2010", "Subsubtitle",
 CellChangeTimes->{{3.490633146828125*^9, 3.490633147125*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell[TextData[{
 "About ",
 StyleBox["Presentations",
  FontSlant->"Italic"]
}], "Subtitle",
 CellChangeTimes->{{3.490983268828125*^9, 3.490983279875*^9}, {
  3.49217274021875*^9, 3.492172741140625*^9}},
 TextAlignment->Center],

Cell["18 September 2010", "Subsubtitle",
 CellChangeTimes->{{3.49063315875*^9, 3.49063316615625*^9}, 
   3.490789668859375*^9, 3.490898365109375*^9, 3.4909829021875*^9, {
   3.491158916421875*^9, 3.491158919234375*^9}, 3.491217457578125*^9, {
   3.492015711546875*^9, 3.49201571228125*^9}, {3.492172735640625*^9, 
   3.492172735875*^9}, {3.493421601421875*^9, 3.493421605328125*^9}, 
   3.493460306515625*^9, 3.49374224765625*^9, {3.49383209359375*^9, 
   3.49383209421875*^9}},
 TextAlignment->Center],

Cell["\<\
Copyright \[Copyright] 2010 by Murray Eisenberg. All rights reserved.\
\>", "SmallText",
 CellChangeTimes->{
  3.466600163421875*^9, {3.49098414390625*^9, 3.490984148140625*^9}},
 TextAlignment->Center,
 TextJustification->0],

Cell[TextData[{
 "This notebook describes what the ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " add-on for ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "  is, how to load it, and how to get help about its functions."
}], "Text",
 CellChangeTimes->{{3.490983349375*^9, 3.4909834146875*^9}, {
  3.491158945609375*^9, 3.491158950515625*^9}, {3.49217296675*^9, 
  3.4921729698125*^9}}],

Cell[CellGroupData[{

Cell["Prerequisites", "Section",
 CellChangeTimes->{{3.49115848134375*^9, 3.4911584834375*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Mathematica",
 FontSlant->"Italic"]], "Subsection",
 CellChangeTimes->{{3.4911585294375*^9, 3.491158531046875*^9}, {
  3.4912174295*^9, 3.491217430609375*^9}}],

Cell[TextData[{
 "You should know how to navigate around a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " notebook, how to create and type input into an Input cell, and how to \
evaluate an Input cell."
}], "Text",
 CellChangeTimes->{{3.4911585451875*^9, 3.49115860434375*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Mathematics", "Subsection",
 CellChangeTimes->{{3.491158535046875*^9, 3.49115853703125*^9}}],

Cell["\<\
Just a slight acquaintance with complex numbers is needed here.\
\>", "Text",
 CellChangeTimes->{{3.491158624828125*^9, 3.4911586546875*^9}, 
   3.492172765296875*^9, {3.492172877515625*^9, 3.4921729175625*^9}, 
   3.493742559640625*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "About ",
 StyleBox["Presentations",
  FontSlant->"Italic"]
}], "Section",
 CellChangeTimes->{{3.4907004265*^9, 3.490700432953125*^9}}],

Cell[TextData[{
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " is a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " application written by David J.M. Park, Jr. It consists of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " add-on packages that define many functions for creating and displaying \
2-dimensional and 3-dimensional graphics. In particular, the packages provide \
functions for manipulating objects involving complex numbers, and for \
creating and graphically representing such objects."
}], "Text",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.49063410615625*^9, 3.49063422503125*^9}, {
   3.4906343754375*^9, 3.490634414078125*^9}, {3.490700315765625*^9, 
   3.490700409453125*^9}, {3.490821517757716*^9, 3.490821538976466*^9}, 
   3.490821605601466*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Where did the cell brackets go?", "Section",
 CellChangeTimes->{{3.493421635484375*^9, 3.493421640578125*^9}}],

Cell[TextData[{
 "When you look at this notebook, and many others involving the ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " add-on, you may be surprised to see no cell brackets or group brackets \
along the right-hand edge of the window."
}], "Text",
 CellChangeTimes->{{3.493421645875*^9, 3.493421711453125*^9}}],

Cell["\<\
Actually, the brackets are there! They are just hidden until you move the \
mouse toward the right boundary of the notebook window. Try it!\
\>", "Text",
 CellChangeTimes->{{3.493421696078125*^9, 3.49342173990625*^9}}],

Cell["\<\
The reason this happens is because of a special \"style sheet\" that has been \
applied to the notebooks, including this one. It keeps the cell brackets \
out-of-sight until you need them.\
\>", "Text",
 CellChangeTimes->{{3.493421745328125*^9, 3.493421798921875*^9}}],

Cell[TextData[{
 StyleBox["These notebooks also have, besides the \"hidden\" cell brackets on \
the right, triangular GroupOpener triangles ",
  ParagraphSpacing->{0.5, 0}],
 StyleBox["\[RightPointer]",
  FontSize->18],
 StyleBox[" to the left of section-type cell groups. With the triangle \
pointing rightward ",
  ParagraphSpacing->{0.5, 0}],
 "\[RightPointer]",
 StyleBox[" like that, the cell group is closed. By clicking on the triangle, \
the cell group opens (and the triangle turns to point downward ",
  ParagraphSpacing->{0.5, 0}],
 StyleBox["\[DownPointer]",
  FontSize->18],
 StyleBox[").\n",
  ParagraphSpacing->{0.5, 0}],
 "This action with the GroupOpener triangle is similar to what you may have \
seen elsewhere where ",
 StyleBox["+",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " and ",
 Cell[BoxData[
  FormBox[
   StyleBox["-",
    FontFamily->"Helvetica"], TraditionalForm]]],
 " symbols are used to show \"collapsed\" and \"opened\" lists of items, for \
example, in a directory tree or outline."
}], "Text",
 CellChangeTimes->{{3.493421809390625*^9, 3.49342183903125*^9}, {
   3.493421871734375*^9, 3.493422063015625*^9}, {3.493422206921875*^9, 
   3.493422219734375*^9}, 3.4934222675625*^9, {3.493422326375*^9, 
   3.493422346921875*^9}, 3.493460186578125*^9},
 ParagraphSpacing->{0.5, 0}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Installing ",
 StyleBox["Presentations",
  FontSlant->"Italic"]
}], "Section",
 CellChangeTimes->{{3.4909845475625*^9, 3.49098455228125*^9}}],

Cell[TextData[{
 "If you are working at the Mathematics and Statistics Department Resource \
Center, LGRT 110, , then ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " is already installed. (You will still have to ",
 ButtonBox["load Presentations",
  BaseStyle->"Hyperlink",
  ButtonData->"loading"],
 " after you open ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ".)"
}], "Text",
 CellChangeTimes->{{3.490984557765625*^9, 3.490984649296875*^9}, {
  3.493737747078125*^9, 3.49373776865625*^9}, {3.493831548953125*^9, 
  3.493831578875*^9}, {3.493831611671875*^9, 3.4938316778125*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "Using ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " at a UMass OIT computer classroom"
}], "Subsection",
 CellChangeTimes->{{3.493737857359375*^9, 3.493737868453125*^9}, {
  3.493737990109375*^9, 3.493737996546875*^9}}],

Cell[TextData[{
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " is ",
 StyleBox["not",
  FontSlant->"Italic"],
 " installed on OIT computers, including the ones at the Learning Commons. \
However, you may still use there the copy you received from Prof. Eisenberg."
}], "Text",
 CellChangeTimes->{{3.493738022484375*^9, 3.493738064015625*^9}, {
  3.493738656390625*^9, 3.49373865715625*^9}, {3.493742271953125*^9, 
  3.493742302953125*^9}, {3.493830385625*^9, 3.49383040421875*^9}, {
  3.4938304604375*^9, 3.4938304705625*^9}, {3.49383055159375*^9, 
  3.4938305769375*^9}}],

Cell[CellGroupData[{

Cell["Preparing (one time steps)", "Subsubsection",
 CellChangeTimes->{{3.493832029734375*^9, 3.493832043453125*^9}}],

Cell[TextData[{
 StyleBox["Do Steps 1 and 2, below\[LongDash]just once",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[".",
  FontColor->RGBColor[0, 0, 1]],
 " "
}], "Text",
 CellChangeTimes->{{3.493738022484375*^9, 3.493738064015625*^9}, {
  3.493738656390625*^9, 3.49373865715625*^9}, {3.493742271953125*^9, 
  3.493742302953125*^9}, {3.493830385625*^9, 3.49383040421875*^9}, {
  3.4938304604375*^9, 3.493830542296875*^9}, {3.49383058884375*^9, 
  3.493830662578125*^9}, {3.493830831171875*^9, 3.49383083390625*^9}, {
  3.493831000171875*^9, 3.493831004203125*^9}, {3.493831098734375*^9, 
  3.4938311375*^9}, {3.493831732328125*^9, 3.49383173703125*^9}}],

Cell[TextData[{
 "1. Make a folder ",
 StyleBox["Applications",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " on your flash USB drive (\"thumb drive\")."
}], "Text",
 CellChangeTimes->{{3.49383066778125*^9, 3.493830744*^9}, {
  3.493830851796875*^9, 3.493830878984375*^9}, {3.49383097771875*^9, 
  3.493831027390625*^9}}],

Cell[TextData[{
 "2. Unzip the entire ",
 StyleBox["packagepr.zip",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " archive file inside that ",
 StyleBox["Applications",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " folder. Do this so that you preserve the folder tree structure."
}], "Text",
 CellChangeTimes->{{3.49383066778125*^9, 3.493830744*^9}, {
  3.493830851796875*^9, 3.493830878984375*^9}, {3.49383097771875*^9, 
  3.493831043234375*^9}}],

Cell[TextData[{
 "Check that you now have a folder ",
 StyleBox["Presentations",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " inside the ",
 StyleBox["Applications",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " folder you made. ",
 StyleBox["And i",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "nside that ",
 StyleBox["Presentations",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " folder you should have, among other things, a file ",
 StyleBox["ComplexGraphics.m",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " as well as further sub-folders ",
 StyleBox["Documentation",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", ",
 StyleBox["FrontEnd",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", and ",
 StyleBox["Kernel",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "."
}], "Text",
 CellChangeTimes->{{3.49383066778125*^9, 3.49383076421875*^9}, 
   3.493830914875*^9, {3.493831067671875*^9, 3.493831086796875*^9}}],

Cell["\<\
(If you don't want to use so much space on your flash USB drive, you could \
set up the folders first and burn them to a CD instead.)\
\>", "Text",
 CellChangeTimes->{{3.493831777390625*^9, 3.493831817921875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Copying (at each log in to an OIT computer)", "Subsubsection",
 CellChangeTimes->{{3.493832054265625*^9, 3.4938320705625*^9}}],

Cell[TextData[{
 StyleBox["Do the following step",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" each time you log in",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" to an OIT computer!",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " (That's because your OIT \"user profile\" disappears each time you log \
out.)"
}], "Text",
 CellChangeTimes->{{3.493831171671875*^9, 3.4938312325*^9}, {
  3.49383174296875*^9, 3.493831764453125*^9}}],

Cell[TextData[{
 "3. Copy the ",
 StyleBox["Applications",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " folder, with its entire ",
 StyleBox["Presentations",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " sub-folder, into the following folder, where ",
 StyleBox["[netid]",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 " is your actual OIT NetID (login name):\n\[FilledSmallCircle] On a Windows \
7 PC\[LongDash]\n\t",
 StyleBox["C:\\Users\\",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 StyleBox["[netid]",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 StyleBox["\\AppData\\Roaming\\Mathematica",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "\n\[FilledSmallCircle] On a Mac\[LongDash]\n\t",
 StyleBox["/Users/",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 StyleBox["[netid]",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 StyleBox["/Library/Mathematica",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"]
}], "Text",
 CellChangeTimes->{{3.493831238265625*^9, 3.49383137784375*^9}, {
   3.493831413546875*^9, 3.4938314836875*^9}, 3.493831715296875*^9},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 "Now open ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " and then load ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " in the usual way\[LongDash]see the section \"",
 ButtonBox["Loading Presentations",
  BaseStyle->"Hyperlink",
  ButtonData->"loading"],
 "\", below."
}], "Text",
 CellChangeTimes->{{3.4938315066875*^9, 3.49383151971875*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Installing ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " on your own computer"
}], "Subsection",
 CellChangeTimes->{{3.493737879609375*^9, 3.493737885359375*^9}, {
  3.493742327515625*^9, 3.49374233115625*^9}}],

Cell[TextData[{
 StyleBox["If you are working on your own computer",
  FontWeight->"Bold"],
 ", install ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " as follows:"
}], "Text",
 CellChangeTimes->{{3.490984653125*^9, 3.4909847138125*^9}, 
   3.490984772421875*^9, {3.4909852439375*^9, 3.490985249671875*^9}}],

Cell["\<\
1. Evaluate the following input cell:\
\>", "Text",
 CellChangeTimes->{{3.490984805671875*^9, 3.490984812671875*^9}}],

Cell[BoxData["$UserBaseDirectory"], "Input",
 CellChangeTimes->{{3.490984716265625*^9, 3.49098472125*^9}}],

Cell["\<\
2. Open the folder whose name appears in the preceding output cell.\
\>", "Text",
 CellChangeTimes->{{3.49098507021875*^9, 3.49098520884375*^9}}],

Cell[TextData[{
 "3. Open the ",
 StyleBox["Applications",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " sub-folder of that folder. (If there is no such sub-folder, create one.)"
}], "Text",
 CellChangeTimes->{{3.49098507021875*^9, 3.490985212671875*^9}}],

Cell[TextData[{
 "4. Unzip the entire ",
 StyleBox["packagepr.zip",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " archive file into that ",
 StyleBox["Applications",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " sub-folder. Do this so that you preserve the folder tree structure."
}], "Text",
 CellChangeTimes->{{3.49098507021875*^9, 3.490985227875*^9}, {
   3.490985258046875*^9, 3.490985304453125*^9}, {3.490993557390625*^9, 
   3.49099363696875*^9}, {3.490993685328125*^9, 3.490993772921875*^9}, 
   3.490993834*^9, {3.492172783078125*^9, 3.492172810640625*^9}, {
   3.493830891921875*^9, 3.493830894265625*^9}}],

Cell[TextData[{
 "Check that you now have a sub-folder ",
 StyleBox["Presentations",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " inside that ",
 StyleBox["Applications",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " sub-folder.\nFor example, if in Step 1 you obtained the output\n\t",
 StyleBox["D:\\Addons\n",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "then you should now have a path: \n\t",
 StyleBox["D:\\Addons\\Applications\\Presentations\nAnd i",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "nside that ",
 StyleBox["Presentations",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " folder you should have, among other things, a file ",
 StyleBox["ComplexGraphics.m",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " as well as further sub-folders ",
 StyleBox["Documentation",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", ",
 StyleBox["FrontEnd",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", and ",
 StyleBox["Kernel",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "."
}], "Text",
 CellChangeTimes->{{3.49098507021875*^9, 3.490985227875*^9}, {
  3.490985258046875*^9, 3.490985304453125*^9}, {3.490993557390625*^9, 
  3.49099363696875*^9}, {3.490993685328125*^9, 3.490993772921875*^9}, {
  3.490993834*^9, 3.490993884125*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 "(It's possible to change the location that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " uses for the value of ",
 StyleBox["$UserBaseDirectory",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". With Windows, for example, you can set the Windows environment variable ",
 StyleBox["MATHEMATICA_USERBASE",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " to a location of your choice.)"
}], "Text",
 CellChangeTimes->{{3.493831851234375*^9, 3.49383196475*^9}}],

Cell[TextData[{
 "You only need to carry out steps 1\[Dash]4, above, once, of course. Now, \
whenever you want to use ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 ", first fire up ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " and then load ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " in the usual way\[LongDash]see section \"",
 ButtonBox["Loading Presentations",
  BaseStyle->"Hyperlink",
  ButtonData->"loading"],
 "\", below."
}], "Text",
 CellChangeTimes->{{3.49374166340625*^9, 3.4937417366875*^9}, {
  3.49374177690625*^9, 3.49374177690625*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Using ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " elsewhere"
}], "Subsection",
 CellChangeTimes->{{3.493738399921875*^9, 3.493738404328125*^9}},
 CellTags->"elsewhere"],

Cell[TextData[{
 "To use ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " somewhere else, you will need to use a flash USB drive (\"thumb drive\"). "
}], "Text",
 CellChangeTimes->{{3.49373877703125*^9, 3.4937388115*^9}, {
  3.493739635609375*^9, 3.49373971134375*^9}, {3.49373981271875*^9, 
  3.4937399308125*^9}}],

Cell[TextData[{
 StyleBox["Warning:",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0],
  Background->RGBColor[1, 1, 0.8]],
 " Under terms of the license that gave you a copy of ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " to use in Math 421, it is illegal to install it onto somebody else's \
computer!"
}], "PinkComments",
 CellChangeTimes->{{3.49373877703125*^9, 3.4937388115*^9}, {
   3.493739635609375*^9, 3.49373971134375*^9}, {3.49373981271875*^9, 
   3.493739960671875*^9}, 3.493741796484375*^9, {3.493741835640625*^9, 
   3.49374183646875*^9}}],

Cell["\<\
Do steps 1\[Dash]4, below. You need to do these only once.\
\>", "Text",
 CellChangeTimes->{{3.493741842828125*^9, 3.49374186284375*^9}}],

Cell[TextData[{
 "1. On your flash drive, create a folder, say ",
 StyleBox["AddOns",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". "
}], "Text",
 CellChangeTimes->{{3.493739714390625*^9, 3.4937397546875*^9}, {
  3.4937398299375*^9, 3.493739831828125*^9}}],

Cell[TextData[{
 "3. Make a sub-folder ",
 StyleBox["Applications",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " of that folder."
}], "Text",
 CellChangeTimes->{{3.493738228984375*^9, 3.49373823221875*^9}, {
  3.493738339453125*^9, 3.49373835525*^9}, {3.4937384625625*^9, 
  3.493738464015625*^9}, {3.493738524015625*^9, 3.493738531265625*^9}, {
  3.49373856171875*^9, 3.493738566578125*^9}}],

Cell[TextData[{
 "4. Unzip the entire ",
 StyleBox["packagepr.zip",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " archive file into that ",
 StyleBox["Applications",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " sub-folder."
}], "Text",
 CellChangeTimes->{{3.49098507021875*^9, 3.490985227875*^9}, {
   3.490985258046875*^9, 3.490985304453125*^9}, {3.490993557390625*^9, 
   3.49099363696875*^9}, {3.490993685328125*^9, 3.490993772921875*^9}, 
   3.490993834*^9, {3.492172783078125*^9, 3.492172810640625*^9}}],

Cell[TextData[{
 "Check that you now have a sub-folder ",
 StyleBox["Presentations",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " inside that ",
 StyleBox["Applications",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " sub-folder.\nFor example, if your removable media was drive ",
 StyleBox["D",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ",",
 StyleBox[" ",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "then you should now have a path: \n\t",
 StyleBox["D:\\AddOns\\Applications\\Presentations\nAnd i",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "nside that ",
 StyleBox["Presentations",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " folder you should have, among other things, a file ",
 StyleBox["ComplexGraphics.m",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " as well as further sub-folders ",
 StyleBox["Documentation",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", ",
 StyleBox["FrontEnd",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", and ",
 StyleBox["Kernel",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "."
}], "Text",
 CellChangeTimes->{{3.49098507021875*^9, 3.490985227875*^9}, {
  3.490985258046875*^9, 3.490985304453125*^9}, {3.490993557390625*^9, 
  3.49099363696875*^9}, {3.490993685328125*^9, 3.490993772921875*^9}, {
  3.490993834*^9, 3.490993884125*^9}, {3.4937386825625*^9, 
  3.493738722921875*^9}, {3.493739794078125*^9, 3.49373980459375*^9}, {
  3.4937418735*^9, 3.493741911109375*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 "Now each time you use ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " with ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " somewhere that ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " is not already available (e.g., not on your own computer), do the \
following three steps:"
}], "Text",
 CellChangeTimes->{{3.493741921265625*^9, 3.49374196971875*^9}, {
  3.49374218415625*^9, 3.493742190375*^9}, {3.493742426734375*^9, 
  3.493742464265625*^9}}],

Cell[TextData[{
 "A.  Open ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ". Then evaluate the following input cell:"
}], "Text",
 CellChangeTimes->{{3.49373775865625*^9, 3.4937377765625*^9}, {
   3.493737809515625*^9, 3.49373784821875*^9}, {3.493738106796875*^9, 
   3.493738128375*^9}, 3.49374197303125*^9}],

Cell[BoxData[
 RowBox[{"Unprotect", "[", "$UserBaseDirectory", "]"}]], "Input",
 CellChangeTimes->{{3.490984716265625*^9, 3.49098472125*^9}, {
  3.493741994390625*^9, 3.493741999125*^9}}],

Cell[TextData[{
 "B. Evaluate the following input cell, where ",
 StyleBox["in place of my ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["D:\\Addons",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", ",
 StyleBox["you use whatever you chose in Step 1",
  FontColor->RGBColor[0, 0, 1]],
 ", above:"
}], "Text",
 CellChangeTimes->{{3.493742007015625*^9, 3.493742052015625*^9}}],

Cell[BoxData[
 RowBox[{"$UserBaseDirectory", "=", "\"\<D:/AddOns\>\"", "    ", 
  RowBox[{"(*", " ", 
   RowBox[{"use", " ", "YOUR", " ", "folder", " ", 
    RowBox[{"path", "!"}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.49374206178125*^9, 3.493742092828125*^9}, {
  3.493742138953125*^9, 3.49374215175*^9}}],

Cell["C. Evaluate the following input cell:", "Text",
 CellChangeTimes->{{3.49374210009375*^9, 3.493742109265625*^9}}],

Cell[BoxData[
 RowBox[{"AppendTo", "[", 
  RowBox[{"$Path", ",", 
   RowBox[{"ToFileName", "[", 
    RowBox[{"$UserBaseDirectory", ",", "\"\<Applications\>\""}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.49374153409375*^9, 3.4937415995*^9}}],

Cell[TextData[{
 "Now load ",
 StyleBox["Presentations\[LongDash]",
  FontSlant->"Italic"],
 "see section \"",
 ButtonBox["Loading Presentations",
  BaseStyle->"Hyperlink",
  ButtonData->"loading"],
 "\", below."
}], "Text",
 CellChangeTimes->{
  3.493742220515625*^9, {3.493742508796875*^9, 3.493742525171875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "If you don't have the file ",
 StyleBox["packagepr.zip",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"]
}], "Subsection",
 CellChangeTimes->{{3.493737904078125*^9, 3.49373791215625*^9}, {
  3.49373794659375*^9, 3.493737950296875*^9}}],

Cell[TextData[{
 StyleBox["If you don\[CloseCurlyQuote]t have the ",
  FontWeight->"Bold"],
 StyleBox["packagepr.zip",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain"],
 StyleBox[" file",
  FontWeight->"Bold"],
 " (and you\[CloseCurlyQuote]re ",
 StyleBox["not",
  FontSlant->"Italic"],
 " taking Math 421),  you may purchase it from its author, David Park. See \
his ",
 ButtonBox["Presentations web page",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://home.comcast.net/~djmpark/DrawGraphicsPage.html"], None},
  ButtonNote->"http://home.comcast.net/~djmpark/DrawGraphicsPage.html"],
 "."
}], "Text",
 CellChangeTimes->{{3.49099390484375*^9, 3.49099397765625*^9}, {
  3.4909940311875*^9, 3.490994087515625*^9}, {3.492172802890625*^9, 
  3.49217281534375*^9}, {3.4937379645*^9, 3.493737964734375*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Loading ",
 StyleBox["Presentations",
  FontSlant->"Italic"]
}], "Section",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.4906339376875*^9, 3.49063394653125*^9}, {
   3.490638317984375*^9, 3.49063833975*^9}, {3.490735161125*^9, 
   3.490735165125*^9}, 3.490984096390625*^9},
 CellTags->{"c:1", "loading"}],

Cell[TextData[{
 "Before you use any functions from ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 ", you have to ",
 StyleBox["load",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " its packages into ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", so that all the definitions in those packages become available for you to \
use."
}], "Text",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.49063410615625*^9, 3.49063422503125*^9}, {
   3.4906343754375*^9, 3.490634414078125*^9}, {3.490700315765625*^9, 
   3.490700409453125*^9}, {3.490700458703125*^9, 3.49070052496875*^9}, {
   3.490700574375*^9, 3.49070062903125*^9}, {3.49098348328125*^9, 
   3.490983518484375*^9}, 3.490994149421875*^9}],

Cell[TextData[{
 StyleBox["To load ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Presentations",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[", evaluate the following Input cell",
  FontWeight->"Bold"],
 ". ",
 StyleBox["Do it now!",
  Background->RGBColor[0.941, 0.973, 1.]],
 " (Even if the cell was already evaluated, it won\[CloseCurlyQuote]t hurt if \
you evaluate it again.)"
}], "Text",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.490634229484375*^9, 3.49063436175*^9}, 3.490634682*^9, {
   3.490634737515625*^9, 3.4906347940625*^9}, {3.490700557578125*^9, 
   3.49070056315625*^9}, 3.49073510265625*^9, 3.490735145640625*^9, {
   3.490983524890625*^9, 3.490983589390625*^9}, {3.4909837710625*^9, 
   3.49098377209375*^9}, {3.4909838785*^9, 3.490983883890625*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[BoxData[
 RowBox[{"<<", "Presentations`"}]], "Input",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.49063458959375*^9, 3.490634598328125*^9}, {
  3.490650191265625*^9, 3.49065019440625*^9}}],

Cell[TextData[{
 "Check now whether you evaluated the cell: at its left you should see a \
label such as ",
 StyleBox["In[1]",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "."
}], "Text",
 CellChangeTimes->{
  3.49098359303125*^9, {3.490983708125*^9, 3.49098373290625*^9}}],

Cell[TextData[{
 "Most Math 421 notebooks that use ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " will include an ",
 StyleBox["initialization cell",
  FontWeight->"Bold",
  FontSlant->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 " that automatically evaluates that load command.\nWhen you use ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " in your own notebook, copy that initialization cell to your notebook and \
evaluate it there."
}], "EmphasisText",
 CellChangeTimes->{{3.490638816765625*^9, 3.49063885090625*^9}, {
  3.4909831785625*^9, 3.490983180515625*^9}, {3.49098366928125*^9, 
  3.49098367778125*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 "What happens ",
 StyleBox["if you evaluate an expression involving a ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Presentations",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" function before you load ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Presentations",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 "? \n\[FilledSmallCircle] At first, the name of the function will appear in \
blue, just like any name to which you and ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " have not assigned a meaning. And ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will be unable to complete evaluating the expression.\n\
\[FilledSmallCircle] After you subsequently load ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 ", the name will turn red. And you will see a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " warning message about the name appearing \[OpenCurlyDoubleQuote]in \
multiple contexts\[CloseCurlyDoubleQuote].\nThat red coloring and warning \
message tell you there could be a problem. But probably no harm will be done.\
\n(Actually, some harm might be done\[LongDash]in case you defined a function \
with the same name yourself. Then it becomes a matter of which definition ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " should use, yours or the one from ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 ". That\[CloseCurlyQuote]s where \[OpenCurlyDoubleQuote]contexts\
\[CloseCurlyDoubleQuote] come in. Of course all the ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " functions, like built-in functions, have names beginning with upper-case \
letters, and you should ",
 StyleBox["never",
  FontSlant->"Italic"],
 " define objects having names beginning with upper-case letters!)"
}], "Text",
 CellChangeTimes->{{3.49090604128125*^9, 3.490906131078125*^9}, {
   3.49090621134375*^9, 3.490906355421875*^9}, {3.490906541671875*^9, 
   3.490906667171875*^9}, {3.490982324984375*^9, 3.4909824070625*^9}, {
   3.490982448453125*^9, 3.490982786546875*^9}, {3.490982840453125*^9, 
   3.4909828483125*^9}, 3.49098378759375*^9},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Explore the situation with using names from packages before they are \
defined as follows.\nThis exercise shows why you need to go through steps (1)\
\[Dash](3) above if you forget to load ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " before you evaluate an expression involving one of the ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " functions.\n\t(a) Exit from ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " and start a new ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " session.\n\t(b) Open this notebook, so you can read these instructions, \
but select ",
 StyleBox["No",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " when asked whether to evaluate initialization cells.\n\t(b) Open a new \
notebook.\n\t(c) Type the following in an input cell and evaluate that cell:\n\
\t\t",
 StyleBox["ComplexPoint[1+I]\n(",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will just spit your input back at you as output, since it doesn\
\[CloseCurlyQuote]t know the definition of ",
 StyleBox["ComplexPoint",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " yet.)\n\t(d) Try to rescue yourself by loading ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " now. See what happens.\n\t(e) Type and evaluate a new input cell with the \
same expression ",
 StyleBox["ComplexPoint[1+I]",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " as before."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.490906168859375*^9, 
   3.490906193*^9}, {3.490906717265625*^9, 3.49090685096875*^9}, {
   3.490906934546875*^9, 3.490907018359375*^9}, {3.49090705078125*^9, 
   3.49090705909375*^9}},
 ParagraphSpacing->{0.5, 0.}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Getting help for ",
 StyleBox["Presentations",
  FontSlant->"Italic"]
}], "Section",
 CellChangeTimes->{{3.4906383539375*^9, 3.490638360484375*^9}, {
  3.49099412153125*^9, 3.490994121953125*^9}}],

Cell[TextData[{
 StyleBox["To open the guide to ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Presentations",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" in the Documentation Center",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ", evaluate:"
}], "Text",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.490634827703125*^9, 3.490634844828125*^9}, {
  3.490636036828125*^9, 3.4906360476875*^9}, {3.490638427390625*^9, 
  3.49063843334375*^9}, {3.490650236796875*^9, 3.490650274*^9}, {
  3.49065794915625*^9, 3.490657954703125*^9}, {3.490700695796875*^9, 
  3.49070070275*^9}}],

Cell[BoxData["PresentationsHelp"], "Input",
 CellChangeTimes->{{3.490650276203125*^9, 3.490650278640625*^9}}],

Cell[TextData[{
 "Another way to access the ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " page is: \n\t\[FilledSmallCircle] Open the Documentation Center: from the \
main ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " menu, select ",
 StyleBox["Help",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". From the Help menu, select ",
 StyleBox["Documentation Center",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ".\n\t\[FilledSmallCircle] In the Documentation Center\[CloseCurlyQuote]s ",
 StyleBox["Search",
  FontFamily->"Helvetica",
  FontSlant->"Plain"],
 " bar, type ",
 StyleBox["Presentations",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " and press \[EnterKey].\n",
 StyleBox["Try that!",
  Background->RGBColor[0.941, 0.973, 1.]]
}], "Text",
 CellChangeTimes->{{3.490635139640625*^9, 3.490635393734375*^9}, {
   3.490639297921875*^9, 3.49063930103125*^9}, {3.49065855253125*^9, 
   3.490658720625*^9}, {3.49065887575*^9, 3.490658912046875*^9}, 
   3.490659281984375*^9, {3.490894639484375*^9, 3.490894640453125*^9}, {
   3.49089467590625*^9, 3.4908946799375*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 "By expanding the section cell groups in the ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " page\[LongDash]use the triangular cell-openers at the start of the section \
heading\[LongDash]you will see a list of the application\[CloseCurlyQuote]s \
various sections (which are implemented as individual ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " packages)."
}], "Text",
 CellChangeTimes->{{3.49065121684375*^9, 3.490651359*^9}, {
  3.490658769484375*^9, 3.49065878703125*^9}, {3.490659320359375*^9, 
  3.49065936465625*^9}}],

Cell[TextData[{
 StyleBox["Try it:",
  Background->RGBColor[0.941, 0.973, 1.]],
 " open the \[OpenCurlyDoubleQuote]Presentations Sections\
\[CloseCurlyDoubleQuote] group on the ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " page."
}], "Text",
 CellChangeTimes->{{3.4906348511875*^9, 3.490634952796875*^9}, {
  3.49063605571875*^9, 3.490636078625*^9}, {3.4906384404375*^9, 
  3.490638483484375*^9}, {3.490651376671875*^9, 3.490651417515625*^9}, {
  3.4906579803125*^9, 3.4906579838125*^9}}],

Cell[TextData[{
 "One of the packages listed, which you will be using a lot, is ",
 StyleBox["DrawingPaper",
  FontSlant->"Italic"],
 ". Click its name there. On the resulting guide page, find the entry about \
the function ",
 StyleBox["Draw2D",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " and click the entry to open the reference page about the function. ",
 StyleBox["Try it now!",
  Background->RGBColor[0.941, 0.973, 1.]],
 " "
}], "Text",
 CellChangeTimes->{{3.4906348511875*^9, 3.490634952796875*^9}, {
   3.49063605571875*^9, 3.490636078625*^9}, {3.4906384404375*^9, 
   3.490638483484375*^9}, {3.490651376671875*^9, 3.490651417515625*^9}, {
   3.4906579928125*^9, 3.490658001421875*^9}, {3.49065803621875*^9, 
   3.49065818246875*^9}, {3.490894783640625*^9, 3.490894787953125*^9}, 
   3.4909839715625*^9}],

Cell[TextData[{
 StyleBox["To obtain information about a particular ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Presentations",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" function",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " whose name you know, evaluate an expression of the form ",
 StyleBox["?",
  FontFamily->"Courier",
  FontWeight->"Plain"],
 StyleBox["name",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 ". ",
 StyleBox["Try this:",
  Background->RGBColor[0.941, 0.973, 1.]],
 " "
}], "Text",
 CellChangeTimes->{{3.490638064234375*^9, 3.490638111734375*^9}, {
  3.490638550421875*^9, 3.49063857746875*^9}, {3.49063915621875*^9, 
  3.490639169765625*^9}, {3.49070073825*^9, 3.490700785375*^9}}],

Cell[BoxData[
 RowBox[{"?", "Draw2D"}]], "Input",
 CellChangeTimes->{{3.4906380515625*^9, 3.4906380540625*^9}}],

Cell[TextData[{
 "That just gives brief information about the function. Then for the function\
\[CloseCurlyQuote]s reference page in the Documentation Center, click the \
\[RightSkeleton] hyperlink in the output. ",
 StyleBox["Try it!",
  Background->RGBColor[0.941, 0.973, 1.]]
}], "Text",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.4906377963125*^9, 3.49063779921875*^9}, {
  3.49063784240625*^9, 3.490637944890625*^9}, {3.49063799796875*^9, 
  3.490638018046875*^9}, {3.49063850346875*^9, 3.490638534421875*^9}, {
  3.490658266625*^9, 3.490658325953125*^9}, {3.490659396953125*^9, 
  3.49065939859375*^9}}],

Cell[TextData[{
 "The other ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " package you\[CloseCurlyQuote]ll be using a lot is ",
 StyleBox["ComplexGraphics",
  FontSlant->"Italic"],
 ". Look it up in the Documentation Center now. (You can either go back to \
the main ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " page in the Documentation Center or just search for ",
 StyleBox["ComplexGraphics",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " using the Documentation Center search bar.) ",
 StyleBox["Do that now.",
  Background->RGBColor[0.941, 0.973, 1.]]
}], "Text",
 CellChangeTimes->{{3.490658339328125*^9, 3.490658423578125*^9}, {
  3.490658471046875*^9, 3.490658518*^9}, {3.49089475734375*^9, 
  3.49089476175*^9}}],

Cell[TextData[{
 "As usual, for ",
 StyleBox["ComplexGraphics",
  FontSlant->"Italic"],
 " functions you may use a ",
 StyleBox["?",
  FontFamily->"Courier"],
 StyleBox["name",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 " information request.  For example:"
}], "Text",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.490638698796875*^9, 3.490638776734375*^9}, {
  3.490639022515625*^9, 3.490639029640625*^9}, {3.49063920646875*^9, 
  3.49063925034375*^9}}],

Cell[BoxData[
 RowBox[{"?", "ToCoordinates"}]], "Input",
 ShowGroupOpener->True,
 CellChangeTimes->{{3.491158801203125*^9, 3.49115880515625*^9}}],

Cell["\<\
Again, use the  \[RightSkeleton] hyperlink to get to the Documentation Center \
reference page about the function.\
\>", "Text",
 CellChangeTimes->{{3.49063527965625*^9, 3.490635281421875*^9}, {
   3.490635396859375*^9, 3.490635561140625*^9}, 3.4906391171875*^9, {
   3.490659438640625*^9, 3.490659520546875*^9}}],

Cell[TextData[{
 StyleBox["To search for a particular ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Presentations",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" function in the Documentation Center",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ", type the function\[CloseCurlyQuote]s name in the search bar there.",
 StyleBox[" Try it now:",
  Background->RGBColor[0.941, 0.973, 1.]],
 " Search for ",
 StyleBox["Draw2D",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " in the Documentation Center."
}], "Text",
 CellChangeTimes->{{3.49063527965625*^9, 3.490635281421875*^9}, {
   3.490635396859375*^9, 3.490635561140625*^9}, 3.4906391171875*^9, {
   3.490659438640625*^9, 3.490659551734375*^9}, {3.49070087596875*^9, 
   3.490700924453125*^9}}],

Cell[TextData[{
 StyleBox["To find out the names of all ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["ComplexGraphics",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" functions",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ", evaluate the following input cell:"
}], "Text",
 CellChangeTimes->{{3.49089483396875*^9, 3.490894858765625*^9}}],

Cell[BoxData[
 RowBox[{"?", "Presentations`ComplexGraphics`*"}]], "Input"],

Cell[TextData[{
 "To get brief information on one of the names listed, click its name in the \
preceding output. ",
 StyleBox["Try it:",
  Background->RGBColor[0.941, 0.973, 1.]],
 " click  ",
 StyleBox["ComplexPoint",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " in that list.\nWhat you\[CloseCurlyQuote]ll see is the same brief \
information as if you had typed and evaluated ",
 StyleBox["?ComplexPoint",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " in an input cell.\nAs usual, if you next click the \[RightSkeleton] \
hyperlink in the output, you\[CloseCurlyQuote]ll get directly to the function\
\[CloseCurlyQuote]s reference page in the Documentation Center."
}], "Text",
 CellChangeTimes->{{3.490894875921875*^9, 3.490894876921875*^9}, {
  3.49089491428125*^9, 3.490895031421875*^9}, {3.490895070796875*^9, 
  3.49089520521875*^9}, {3.490895266484375*^9, 3.49089530734375*^9}},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " (a) Find out all the names in the ",
 StyleBox["DrawingPaper",
  FontFamily->"Times",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 " package.\n(b) One of those names is of the function ",
 StyleBox["Draw",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". Look at its reference page in the Documentation Center."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.490895335765625*^9, 
   3.490895383640625*^9}, {3.49089546803125*^9, 3.490895504109375*^9}, 
   3.490895534953125*^9},
 ParagraphSpacing->{0.5, 0.}],

Cell[TextData[{
 StyleBox["Exercise ",
  FontWeight->"Bold"],
 StyleBox[
 CounterBox["Exercise"],
  FontWeight->"Bold"],
 StyleBox[".",
  FontWeight->"Bold"],
 " Learn something about the ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " function ",
 StyleBox["ToComplex",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "."
}], "Exercise",
 CellChangeTimes->{
  3.48969559478125*^9, 3.48969563040625*^9, {3.491158821546875*^9, 
   3.491158848171875*^9}, {3.49115888484375*^9, 3.491158901125*^9}}],

Cell[TextData[{
 "Another way to find out what ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " functions are available, and to find out the syntax of a particular one, \
is to use the palette ",
 StyleBox["PresentationsPalette",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". See the ",
 ButtonBox["following section",
  BaseStyle->"Hyperlink",
  ButtonData->"thePalette"],
 "."
}], "Text",
 CellChangeTimes->{{3.49201607790625*^9, 3.49201614003125*^9}, {
  3.492016177*^9, 3.492016177*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "The ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " palette"
}], "Section",
 CellChangeTimes->{{3.492016041375*^9, 3.49201604596875*^9}},
 CellTags->"thePalette"],

Cell[TextData[{
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " comes with a special palette, ",
 StyleBox["PresentationsPalette",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ", which makes it easy to find out what functions are available, by \
category, and to insert a template for any of these functions into your \
notebook."
}], "Text",
 CellChangeTimes->{{3.492016200265625*^9, 3.492016218578125*^9}, {
  3.492028058828125*^9, 3.49202810065625*^9}, {3.492028252640625*^9, 
  3.492028254234375*^9}, {3.49210809840625*^9, 3.492108102578125*^9}}],

Cell[TextData[{
 "The ",
 StyleBox["PresentationsPalette",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " is useful for accessing the documentation and for forming templates of ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " functions. On it you will find buttons for:\n\t\[FilledSmallCircle] \
templates of functions to create a drawing in the plane are in ",
 StyleBox["Drawing \[RightPointer] DrawingPaper \[RightPointer] Graphics",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " (the one you\[CloseCurlyQuote]ll want is ",
 StyleBox["Draw2D",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ");\n\t\[FilledSmallCircle] templates of functions to create complex \
geometric graphics objects are in ",
 StyleBox["Drawing \[RightPointer] Complex Graphics \[RightPointer] \
Primitives",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "; and\n\t\[FilledSmallCircle] templates of functions to convert complex \
numbers between different forms are in ",
 StyleBox["Drawing \[RightPointer] Complex Graphics \[RightPointer] \
Coordinates",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "."
}], "Text",
 CellChangeTimes->{
  3.492015990640625*^9, {3.49217194075*^9, 3.492172023828125*^9}, {
   3.493461691640625*^9, 3.49346172540625*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 "A quick way to learn about using the palette is to watch the video \
\"UsingPresentationsPalette\", available from the ",
 ButtonBox["Files page",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://blogs.umass.edu/math421-murray/files/"], None},
  ButtonNote->"https://blogs.umass.edu/math421-murray/files/"],
 " on the ",
 ButtonBox["Math 421 web site",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://blogs.umass.edu/math421-murray/"], None},
  ButtonNote->"https://blogs.umass.edu/math421-murray/"],
 "."
}], "Text",
 CellChangeTimes->{{3.492107905*^9, 3.492108000125*^9}, {3.49210805053125*^9, 
  3.492108075203125*^9}, {3.492108108234375*^9, 3.4921081245625*^9}, {
  3.49217184803125*^9, 3.492171866265625*^9}, {3.492171900875*^9, 
  3.49217190165625*^9}}],

Cell["Here is a short summary of what is shown in the video.", "Text",
 CellChangeTimes->{{3.492108152234375*^9, 3.4921081726875*^9}, {
  3.492171904984375*^9, 3.492171905703125*^9}}],

Cell[CellGroupData[{

Cell["Opening the palette", "Subsection",
 CellChangeTimes->{{3.492172081875*^9, 3.492172086359375*^9}}],

Cell[TextData[{
 StyleBox["To open the palette",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ", from ",
 StyleBox["Mathematica's ",
  FontSlant->"Italic"],
 "menu select ",
 StyleBox["Palettes \[RightPointer] Presentations",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "."
}], "Text",
 CellChangeTimes->{{3.49202810425*^9, 3.4920281166875*^9}, {
   3.49202819834375*^9, 3.492028236578125*^9}, 3.492028267328125*^9}],

Cell["Here is what the palette looks like:", "Text",
 CellChangeTimes->{{3.492170224203125*^9, 3.4921702484375*^9}}],

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztXSF049iyzDv/g4ULF71zFgYGhi5cGDjwBS54IDA00DDoH9NAQ8NQw0DD
oQMHDtR3SSq51G7JcmzJcVKeU6fd0tWVvLOqqe57b98///Pfu//8z9XV1f9t
8O9/XV3978au12+FYRjGVPjrr79K648//vgzxefp6anFO+fmQMMwPj/MO4Zh
TI0u3sHxs2L2VMxms/PjeVY8Pz+fH/PnYj6fnxcvFV5eXs6LRYXFYnFeLLdY
LpfnwWsbr6+vk2K1Wh0E8455x7xj3jHvmHfMO+adc/LOkA+44j3XmHcugHcW
y+rv4fXFvGPemZR3huRk3nPNwbwzX+72t3opZh+Cd+bFa/lMy+JlEI/stn9e
vJa/abV4Pj3vvGT/7RbF/GS8s6h/z2ux6D1m3jHvDOOdq6urTvTxDs7r/+f0
j+Ydcg395fxT8M6oeoe8Q67J+MS8Y975BLyjXKMcdDLemb0UK/r6vWy3LOaZ
RhJ9NH9t//u/WsxyXbW55hnvffPuvlb3qt9jnHsJfZV88rzYtmvuUWmZtD37
f5239E9z7TJySPs5qF1i36sNL+/wzrx+Nvjz5DlxTcY7i/jfZvPcGx5Y7Pwe
/L+we6zkn/C71m9VH+Yd884p46yoe07FO7MmLpkJB/Fd3PBOfSzyCfzWtapt
nruueRbeaXPN68sQ/fJcLFZ89zraK+8EDtrea1e76Ln58rXNGx16p7Pd87xY
1s+5nAfeqfkJ18yFP1bLl+F6Z/Mcq+aa2Id5x7xzGt4ZRe8oGGORd6hzhJd2
gHc5aomaZ3qv6eSCbt6JmmUo77T71nMvWw6pNUjGOzu6JcvvSOwUr8t4Z7cN
+1kM5p2X5aqnD/OOeed43hk9v9PKwUicFXhnR9N08ZjwUesa5ncO5J2YJ67a
j8s7KcfoNUkuOWofPmcX7zR65x35HfLOwfrGvGPeOUDv9F0zNu9seWWrgVLU
sRXe9/Sad/IOz1e8M0Kc1cU7Tf63ztvs4Z3mOUve6YmzFtv/Nrt54oFxVqP/
jsw1m3fMOx+Vd5RTBJrfaaDXpdc87+GdGFOBT8gt1Xu2avFO0v7QvPKAOKvh
mR7eed783uw5d3hHuaz1XC9JDFXxSnaMOZ6sD/OOeYccsm+cOeOdIdd43uAF
zBvM4HmD5p2ReQc8MATvuca8Y94x75h3TgWvzzLvmHfMO5fOO4ZhGGOhi3d+
yR987Nu3b/9Yfx/vsK2tra3tqewQvcO2/GPfvn37x/jWO7a2tlNb53fs27c/
tW+9Y2trO7V1fse+fftT+9Y7tra2U1vnd+zbtz+1b71ja2s7tXV+x759+1P7
1ju2trZTW+d37Nu3P7V/Cr1z7jWthnEulO/M93Xx/fv3jV/bjY/vrA+BuhS0
OEaf519Xr20/sbwuXt/na/vSLpc7/aR22W9Z72PHLiq7jy+G8M4QHuM1/vjz
lT58Z/g+ai0avINaR+rx8bFlAdR1UqvHY3vWPoJPZP2qje1Qs6jkjc2z8Z5s
8/DwsNcq/vnnnxbu7+9L4Ds++3TPPt7hNX2W7X58fzOMLwO+M2XNr1ALDO94
Vj8Otdv6rIJ8wz7Bb9BR6DtyV+aTc3AM16Ovu7u74vr6usS3b992ro/cmHGT
+pGLcPxUemdfvGbeMb4iVO8o3/Adzzgnoo974EOfoE+819ATeK/RN85Fvsj0
E3VOGXdtnvP29rbZb/iPP/4oz3fprsg7kXMy7gGmzO+Yd4yvhkbvLBYt7lG9
o5yiIHfQZhyEfsA7jK/IDazz2hWzxZgLfby9vZXcA00C7gGHgXvAE6qv+mLD
oTHZ1Pmdc/9/YBhT4lC906d7yBnaBlyBvvm+4zu4Q7VOjImiRsF3zfmWex7V
eR7wD3goi836tE5fvgffnd8xjPGgekc5p0/v8N2Peoft0SeuZ26aWgfnmLOm
38U5kUPQh9aAZ14ZHMHvkXtwLtNPfbGW8zuGMT6Ud3SfC9U70CzIBRM/f/4s
fvz40Yy74zy+4xi+4zpajhMh/wvgGLhH46pMn0SOIK/pc4EnGH/hNyDfjHv9
/fffZc75t99+Ky2OkXv6dA+1jvM7hjEu+M6U++kI5/A73nHwDD7KN+QZfgf/
cH8X+OAD5mHw7sPiHaeWwrmuXHJXzMS8EPUTuAj3Au/8/vvvJZBnBsA5CnBS
X345co/zO4YxHqLeYe6EwHv969evEqpxqHMUOkeQsQ/ea+gPag7NSe/b7y3j
Io6/sy88D+75559/lvwG7lG+oY/8M9ro2FdXzAU4v3NivD4UN/UYZIW7Yn7u
Z/q+KB5vrovH13e2xW+6eShWZ/8dl4eMdzS/Az7RD/UNx5YYg0XeYT8c+9Yx
L+U2fs9shB7Hd86tZtwGXgS3kGeogZR78J3j+HE+kvrO75wYJe9suWb1eF1c
nf2dPZJ3jHejL78DC85AfEXNA6jW0fiKnMPrYo468sYhnKO5a/q4B5+B863B
LeAY8g9iLtVA/PcW8RT7jPoKcH7nxAi80/Jr3fB4pzoI7zm1Uft9n99tddPN
46I+3tG+1bee0/Y1Nu3m4MOr2H/edqV6p6Xnhty/77d8fjT5ncA5cXyLOR7w
Dr4z1mKcQ/3DsW5+j/syZ/rlEO7Ra5kzwgcxErgGvwX8gxw2OSjqnpjz0TkA
tM7vTMw7m7+rb/P2+9i8h/O7rTbS798Rxy/628e+W9fv0TDltcpTXXFWxUvp
Pfru3/FbvgK69A71CjmA41gEYppmDWnNQbiG4+zwOfbEMawYa+3jlUzv8Bx4
BrwC7sDzgCvgI5eE7zGvnIE5H+UewvmdEyPwTvnv/N0svL9sPyu+tfI/8Ot3
vvWuDmgf+275+2InPd/DO+nzD7h/+lu+Brrm73CODH3mUZhnZuxF7UN9g3ee
MRd9zvGDJsrmOavt4hq16Be8w3iKcxM5jqU6R23MO+N7qW9vbkbTO87vyPsW
45TsXcza9sRHpY7oa/8O3lm1Yq0BvLPDH6J/9t4//JZz/z1NhMg7un5Tczzg
G+aJ8Z26B9zDfDLzL8wlUzNRoygX9a296Mr1KjfhO3mGOWVdt5VpG/xO9AWu
Yo4ZffCcah7nd06MGGfFc716J8c2N93T/lDeAYe0ckwD9c679Fb2Wz7A39UE
yNZn6bxg8o6OS3GcC5yDD3iIMRbbM+9L3sE55oG61pQyrosxT8z58ho8N/UK
NBfakHPUqsbh3GfEZxx7Zw4aY/0cX3d+58Q4iHdCvqb0q2tXj3fbdx8cUcdq
Xe33vfe4TnVG+f5r/Cd54Nh2cH6n4/5dv+UrIFufFfUOa/Ioh8CSd1TfxLwQ
4yLOYYZGQps4hh3Xg+2rZYE24AlyC8anGGtF7tGYCjzD58c15B1eBz7y/J0R
cCDv7IwhaU4knQPU0X6f3tAYrdFO9O+KbzdhbGrQeFbIn/fldz7UfKbp0Oid
Za53wDeIYZRPdF4PeITzeVjPj3xD3iAvaU5Iczi8r66JUP5RX9e0w2oOh3MU
Y5wVx9HBV+RFzmfk7+MaU+d3DGM89OkdAJxD3lDe0RiL83mYv6EmYe0dHNc5
zryGvIZ2bE/No/yjazuVmzTHw383uC4ry/HomHpcMw8uJHd6/o5hjIssr0zO
IU9ozMUx9fJdqcfSlXc0L6zzCdEH60xwrjHjrayWBnUO7kteIufgPO6DNln+
GG1wnzhvh9+ZR6Yu03mQ1GnO7xjGeFC9o3MGde4fNQGh85bjvEGdf9PUaK/7
pv5hDlo5J+oZzSNxjSnyMBizwvMintI1Eap5EDvhWVgXLGof1inU+hqM38g7
zu8Yxnjoq7/D3A7AuIofXYdOzmHMBJ98Rf3DcS5qGr7vqnPiGk0+B3PAyiFd
XKLj4+SlmFtme8Z2en/W7HF+xzDGg+aVs7mD+tG8sK5N13mC4AhdG6q6hnqC
+ieOXcVaFHGvh/a8sDbAMcz3kHsyblJdhLErxmtxvMz5HcMYD9n8HQK8wo/q
HXyn3iH3MKZiP8pdWiOQiHUFu/aWIQexlhfn3GDODo6BO3CetZrjfJ1M5+g8
Qs1dK/c4v2MY4yEbz2JMpDyjUK2jNTF0XzzN8xDUN+QX7lfFWoTgEFqAdXu4
BwV1U8xDEVw7EdeAZrpH5/JkNVL38YXyy7F6p6/Oq2F8VmR6R+vuKOfEmoNa
/5R6R2MuzRtrTEW+AbcAeAaCPuuW4hqOYZHLsnUdOB7rXmTrtHRNaPZ8wJT5
HcP4isjyO+AWfjSvk8VYWn9LdU/c40Y5B5xCnsEYFYDYiRbHwUtam13XZ0Xu
4ZhXNl8nqz3IPHRcB8ZnnDq/448/X+kT9Q7f55jP0dpfsQZGrPEex8r5PnPf
voxzInCO8VXkHa0TpPOquS6UPBO1T9Q7nD8Yc9+n1Dts6/yOYWzBdyaux9KP
1tzR2juqdXRsiznmuEfWPs5RvQPLnDFzO5F7lHfwnfljrYPB+cyx3imBZ4ux
lufvGMa4UL1D3uF8ZGodahxyTlbzS+fxUPNw3Epzycwbx5xOxkXMK6vmYZ4n
zjPKan1R7yh0PIv5nSwPNWV+x7xjfDVEvZONn8dcstZ2z3hHay1HzcNYKxu/
Iu9A76jm0T1vYm14ah7O79E5hH06h/UzOI86xoRT53fO/f+BYUwJ5R3mSahx
Iu+Qe2i5bkJ1D/WOrhPVNQ+MY3Q+oMZfMebSPE9XrIVnZi0eco7mdlTn6LpR
3DOOu5F/nN8xjPEQ9Q7XZme8o5zDvUF1X4noM88T65ZS++heouCArjwP4q0s
v6x77oBPyC2Rc8gzaMN671zHpTWgNeZyfscwxkPUO+CLbCxLc8caa6m+ocaJ
cVfcJyJyD/M+mvOh1uE8HtbFycbSuXYr5pLjfGXei7zD/UuzfSyc3zGM8RD1
jq4D1Zxy1xiW5pJ1Hz/yDmzco0/Xn+vc5b45hJw/GOssoz9qHcZYceycvIP2
3IdCeSerJe/8jmGMhzh/h+NW1DwcQ8/mCZKLYnwVdZHWZea7HfWOjnFllmPq
cVwLVvM3XbyDflgHiP2RcyInnnK/0C+Z30n2d7jsvRK8n/GpobyDXAxzOVlu
J6sZ2Mc7nFMY6/Iwzopj612cA6AN2mqeB/1xLWis4a7cg+t1T0HNO6l+0ryy
8ztHIN2j75L3w/R+xqcG3xnuMxPr7aje6ZorqGNbOn9ZrcZa+2Is5RqOseua
CfIDOATnuuopM8+DOCzW+NBnyfa3cH7nCGQ13Fv7w7wFTRTf06RGe1999Pp+
j7LvFfTVPN0b+DL3M/5syHiHe/PFnLKOW8W4K+Z5yD8E5/L0xViMf8gzul6d
WieOoWPMq6sWGLkHbTj2pXmcbH8u748+Eu/onlJ9+758D3uJZjyT8k7Yp/gq
7/8i9zP+hFDe0XGqWONLtU7M70Tu0RhLdQ/fdY2x4hxC+Ky5o7XAcE2cK8gc
cbb3uXIQ5iXjvpxDHefsxBjQ+Z0jkfJOzx6aLU7q2INvH+/s26sm3d/vQvYz
/oTQ/I7GTeScLr2j/BPHsDTPw+th8d7H+ErnDpJfGEupDtG1oOQd6JiuPSOU
e+DjPlyvGvdg1hpBhPM7R2Cf3tm3r+9YvHOx+xl/Pug4OucC6piWjqFnY+TZ
Oi3VO+QugntDaG1B5Zq43lz1DXmDc4KixiHXgK90ng5iLcwH4rW6dlXrhun+
Yc7vHIF9+Z19+/p28U7Xfnjv1juh/wvYz/izgO8MczuqU2JOmTGUzhXM+Eb5
SHUT462odzRXnOkaHYNijR+NsaLlc+ox8A5rzmudIK2RGHnH+Z13omM8azuW
3pffqXOzWX4n7Bl80J6gWX7n+2XsZ3z2v88RsH1n1ju8E/M7XfOSM75hXifq
JnzHe83apoDuiaVrHyLnkO9wrKuuDnLTvD/XRGiOR2uyTqF3vm5+Z8/8na59
fUuEcaH6/da45tvje/RO0vcl7Gf8CcF3Rut2xbUQuuZT94+I+Zw+7tE8D7gH
HBDXQMQYS+MrcgX6Vj6JayHQD++P/nQdOjhJawRlnEM4v2MY40HzO9QAce1n
5BfVO9mcQa2ZoTGWah5Y8IeugRiid2C5L1acI4jjMfeN3LPOZ8Y9+2Kspt6i
8zuGMRp0HJ1z8ahRYjwV9Y5yTsY95JhYv4fzoVm/Aponm5sTuQf945yuf9D1
V+Avzo8GcC/0i/a4D/kKmohrJuIYF7nH+R3DGA/KO9QacZxKa15onBLzPfwe
Yyut3aP5I3xwT9wfsVbc+0Z5h/0jP6zrzpV7GIcpX8KiHeYss56G7i2Ycc4p
9c6XzO8Yxh5kekffSeUfzlPm+bgOXblHtY3O/4lze6h7dF90jbU0xuKaCOUc
roVgjio+D+6v1zGP3cU5nr9jGOOD7wzn71LHkH+yfbJ0LDrmfyL3dMVa5B0d
40KcpPll1q0AT0CvgDdgAdYUROyE42hDTlRexLNpfplts7mDWvvL+R3DGA98
Z7h2Ae89997TmEW5h+sNMu7Rd15zQ1HvcH04fPAOvnPOMnM90CbkF+WaqHXw
HVwRuYRxGu7FPW7AU2wT12QpnN8xjPHAd0b3cOHYkmoHzS0zJ6u52VhnUMeh
ND/D8TLyF/NHrEuhsQ73o2ANVDwnxqfAN8xHc8+JbGycz4U+yE9oq7VXM96Z
en3WufeLNYxzgHFWrAsY9+TUdZ2Aficy7lBtRC7i/qJxTmBEzC3Bci0p7h/3
DIzj/TiH5+Cz6R47+nvjOtGp8jvZXj6G8VUw5N9329Pnd+zbt2//EP8UesfW
1tb2EHuK/I59+/btH+KfR++8FbPbWENmg9unYj3K/dr2bYb6jvfFYuT72Nra
5vY8+Z3N/Ta8cztby1ly0U3xtD71/ezbt/+R/FPqHc4B+PHzx572FcfczHb7
X95flVpkWfqL4v7qdsNDsPXx9WynPsX9EtevW1yGzwJ93W/rgZQ653ZWvC3v
K1tU/d7Pnorbpr/bkve2z1X1u9Vkt5v78/nO/++Gre0l2lPmd8A7nIsA/vn5
62dH++pdBu/snF9XHAAu+VVs+WbRnH9rYrHyDzik5oqKZ1j/463miy1H4HzJ
dSXvPDW8U3FQ1V/DTZVX9XG/DPeT5zngv499+/Yr/9R6R+dBcc08+Kfdvlvv
bEih5IJKt1Dv9N23ar+hhhYnFNBFGw5a3vP6iuuadqp3ltJfqaduis3t2/3x
fH3MesfW9v32lPkdcAznihOsw/i6epX2WX6H/VVcUHESOCXJ92w0URpr1ZxR
tt/wA/qHfql0FfqtdUqtd9YNZ0n/Zd9VH+vZba2L5HzCRUP/+9i3b7/6M6be
UZT71jd5nx69U+dvSl2S6Z3yved5HBe9U/cLHml0DvoDxzRcUwzWOxpzte9v
vWNre4wdK7+ja+TK9fqt9t35nTJH0+RXFqXeKWMePa/5FuEOnr/d6Kv7RqeA
i+6LJ3DIfV2TKOR3yGHlnzK/VHFWxTtPST7J+R379o/xx9I74BusL8vb53qn
5JSWvtnVO4x91uqr/qn10M64luqaofmdnfMc67fesbU9xp46v1Pud7FXJ721
x6abMertuFLVPsvvtK+9mT21uaHO/SiXVBpFdNPA/I7214yxz5zfsW//WP+U
emf/vJ1PYDVP9BGex9b2Aq3XZ/X50FbbmKp/HM6+fftDfa9H77PJOrL7Yfsh
2tradlvX37Fv3/7UvvWOra3t1Nb5Hfv27U/tn0Pv6NzA7fF1s44z1sWJ68rV
VvN3kPvdXY/uOju2th/TniW/E9YalH/WrEUR5+vszu3L+9/ORTz589q3b/+k
/lnq70iti+Y4uKhcPx7mMe/MHw71eMr5NPfF/c48xI3OcZ0dW9sPaT9K/R3W
xiljI1l/1a6Hk9TjabjlremzuV+Yl8y15fhw7dWbPE+zfgvXe925ffuj+eep
vxPXWck6rFLfbHVGW/90rE8v+9nN77jOjq3tx7Tnqb/zq7Xuu1wD1XDQW12f
C/3H9VnJeq1mbXmS3/G6c/v2P6R/nvo75JCKCzS2wqeqZbFOdMg4esd1dmxt
p7Xnqb9TtWc9ZMRSXBNenq+5ZFHXzNneb7cezyH5HdcVtG//Y/jnqb8j73Y6
blTpmptbrSu4Pd6nd1rzfFxnx9b2Q9rz1N+hvzvOVJ1hjZ3bJpezbd+V3yGX
bMfRlwPzO1uf19606uwM/f327dsf5rv+Tod1nR1b29Gs12fBX5d1dhYtv2N/
L/v27R/tez06rOvs2NpOaV1/x759+1P71ju2trZTW+d37Nu3P7VvvWNrazu1
dX7Hvn37U/vWO7a2tlNb53fs27c/tW+9Y2trO7V1fse+fftT+9Y7tra2U1vn
d+zbtz+1b71ja2s7td3HO4ZhGGPBvGMYxtQw7xiGMTXMO4ZhTA3zjmEYU8O8
YxjG1DDvGIYxNcw7hnFJmBV31w/FUv2mPvhd8fze48uH4rrVblyYdwzjMrB8
uK74Qnjn+e6quHuW83ez3uPr57tWm+uHxU779wLPNrSteccwLgjQJQ3vQLsE
zVKe6zr+lvNOq8/3QfdkGdLevGMYF4Q+3mn8ruP4vigerttx1rFap7UP1EDu
Me8YxgXhaN7p6q8rH9SPjHOGcI95xzAuCMfGWS1A+1wXD8u3nfjr2FzPPph3
DOOCEDjk4LyyQrjGvGMYRoZmPKtGxQ2HjqMTonVi+yNzzENg3jEMY2qYdwzD
mBrmHcMwpoZ5xzCMqWHeMQxjaijv4LthGMYUAO8YhmFMjf8H7ptc4Q==
    "], {{0, 154}, {286, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag[
   "Byte", ColorSpace -> "RGB", ImageSize -> Automatic, Interleaving -> True, 
    Magnification -> Automatic],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{286, 154},
  PlotRange->{{0, 286}, {0, 154}}]],
 CellChangeTimes->{3.492108573375*^9}]], "Text",
 Editable->False,
 Deletable->False,
 CellChangeTimes->{{3.492170224203125*^9, 3.49217025*^9}},
 TextAlignment->Center]
}, Closed]],

Cell[CellGroupData[{

Cell["The palette's big buttons at the top", "Subsection",
 CellChangeTimes->{{3.492170556984375*^9, 3.4921705629375*^9}}],

Cell[TextData[{
 StyleBox["To load the ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Presentations",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" package",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ", you may click the palette's big top button, ",
 StyleBox["Presentations",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". (For many of my notebooks, you won't need to do that, as they have \
Initialization cells that, when you open the notebook, automatically load the \
package.)"
}], "Text",
 CellChangeTimes->{{3.492170401109375*^9, 3.49217045028125*^9}, {
  3.492172118171875*^9, 3.492172151203125*^9}}],

Cell[TextData[{
 StyleBox["To open ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Presentations",
  FontWeight->"Bold",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" documentation",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " in the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Documentation Center, you may click the palette's second big button, ",
 StyleBox["Documentation",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "."
}], "Text",
 CellChangeTimes->{{3.492170480078125*^9, 3.492170518359375*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["The palette's main divisions and sections", "Subsection",
 CellChangeTimes->{{3.49217057109375*^9, 3.492170596046875*^9}, {
  3.492171584140625*^9, 3.492171587546875*^9}, {3.492172162859375*^9, 
  3.49217217290625*^9}}],

Cell[TextData[{
 "The palette has two main divisions: ",
 StyleBox["Drawing",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " and ",
 StyleBox["Writing",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". In this course, you'll mostly use the ",
 StyleBox["Drawing",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " division. "
}], "Text",
 CellChangeTimes->{{3.49217058840625*^9, 3.49217067446875*^9}}],

Cell[TextData[{
 StyleBox["To open the ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Drawing",
  FontFamily->"Helvetica",
  FontWeight->"Bold",
  FontSlant->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" division in the palette",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ", click the triangular opener there. This is what you'll see:"
}], "Text",
 CellChangeTimes->{{3.49217058840625*^9, 3.4921706859375*^9}, {
  3.492170982265625*^9, 3.492170985296875*^9}}],

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztfS1041yybd56b607cOCgu9bAhoGhAwcGfvAaDrigYdNAw8DQQEPB0EBD
w9CGDQP1XJK2tE+pjiwn+rGT7axa5bKOjuSktXufOvXzz//53/v/+b83Nzf/
9X9ubv77KP/v+P5f//pXKZFIJEvK4bCXSCSSRcQw5+4/z6Veeuml1xKvh4eH
BHfWxkCJRPL1RbgjkUiWlhzu2Oeryvah3G6368vjtnx8fFxfnh7Lp6endeW5
lufn53VlV8tut1tXik6KolhHXlJ5eXlZVF5fX88S4Y5wR7gj3BHuCHeEO8Kd
NXFnzMuw4iPnCHeuAHd2Rf13eHkW7gh3FsWdMT6Zj5xzNu48Ff35Xp/L7UXg
zlP5Ut1TUT6PwpH++MfdS/WdXneP0+POc/S725VPk+HOrvk+L+Vu8DPhjnBn
HO7c3NxkZQh37Dj/O4f9adwB1sAunr4E7szKd4A7wJoIT4Q7wp0vgDuMNYxB
k+HO9rl8hc3vq3FF+RRxJOJHTy/p//+vu23Mq47nPNpz3z67L/W1mufYjj27
uSo8edx149pr1FwmHI/5X54S/tOeW3gMSe8D3MXP/XrE5R7uPDX3ZvZTcJ92
ToQ7O/+7Od73EQd2ve9j/xb6n1X4477XYV/PIdwR7ky5zvK8Zyrc2bbrki1h
EJ7FI+40n3k8MTs5l7nNY+6cR8KdFGtensfwl8dy94pnLzOeccdhUHetPnfh
Y0/FS4obGb6THff4VBbNfRZPDncafLJzngg/Xovn8XzneB+v7Tl+DuGOcGca
3JmF77BgjQXcAc8hXOqJPcueSzQ4M3hOFgvyuOM5y1jcSefmY88dhjQcJMKd
Hm+J/Du0dvLnRbjTH4N5dqNx57l4HZhDuCPc+TzuzO7fSXwwtM5yuNPjNDkc
IzxKzoF/50zc8X7ievy8uBNiDJ8T+JI998F95nCn5Tsf8O8Ad87mN8Id4c4Z
fGfonLlxp8OVjgOF0qyt7HkPz/kg7uB4jTszrLNyuNP6fxu/zQncae+zwp2B
ddau+930/cQj11kt//ukr1m4I9y5VNxhTOG1B/l3WuHzwnMeT+COX1MZngBb
6ufsNcGdYPy5fuUR66wWZwZw5/H4faP77OEOY1lyX8/BGqrGlegz+HiiOYQ7
wh1gyKl95gh3xpyjuMEriBuMRHGDwp2ZcWdsna6PnCPcEe4Id4Q7U4nys4Q7
wh3hzrXjjkQikcwlOdx5px97yZYtW/Zn7VO4g7HS0tLSU+kxfAdj8SNbtmzZ
n7HFd6SlpZfW8u/Ili17aVt8R1paemkt/45s2bKXtsV3pKWll9by78iWLXtp
W3xHWlp6aS3/jmzZspe2xXekpaWX1vLvyJYte2l7Cr6zdk6rRLKW2DNzeDuU
b29vR7vRR9veoz6E1aWAts9g4/jL60tqBxrn+fOHbB5f6aLozRPqYlij3kdP
72p9Ci/G4M4YHLNxeun13V54ZvA8ci0aewa5jtSvX78SbWJ1nVjz5348ah+Z
DYnmZe3HWc2iCjeO94ZrYszPnz9Papb//Oc/iWw2m0rsvb1O8Z5TuINzhjTG
/X7bSyTfRvDMVDW/XC0we8aj+nFWu21IswBvMKfhm/Eom9tjV2QDc+wzO9/m
ur+/L3/8+FHJX3/91TvfY2OETWx7LLLPp+I7p9Zrwh3JdxTmO4w3eMYjzPEy
hD1mGz+xOe25Nj5hz7XNbcc8XkT8CTynWncd7/Pu7q7tN/yPf/yjOp7jXR53
POZE2GOypH9HuCP5btLynd0uwR7mO4wpLMAO6AiDbB7DHayvgA2o85pbs/k1
l82x3+8r7DFOYthjGGbYYzjB/GpobTh2Tba0f2ftfwcSyZJyLt8Z4j3ADB5j
WGFz43m394YdzHX8mshzFHvPPt+q51Hj5zH8MRyK1mZDXGfI32Pv5d+RSOYT
5juMOUN8B8++5zsYb3Pa+fBNg+vYMfisYecwx2OIzcE14OFXNozAe489dizi
T0NrLfl3JJL5hXGH+1ww3zHOYr5gyJ8/f8rfv3+3++523N7bZ/bezoPGPpH5
f03sM8MeXldF/MRjBHCN78twAusv+w7mb7Zr/fvf/658zn/7298qbZ8Be4Z4
D7iO/DsSybyCZ6bqp0OYg/f2jBvO2IvxBjiD94Y/6O9ituEB/DD27Ju2Zxxc
yo7lfMm5NRP8QuBPhkV2LcOdv//975WYn9nEMIfFMGnIv+yxR/4diWQ+8XwH
vhOIPdfv7++VMMcBz2HhGEGsfey5Nv4BzsE+6VP93iIswv475rL7sWv+85//
rPDNsIfxBrb5n20M733l1lwm8u9MLC8/y9tmD7KW+/Jp7Xt625W/bn+Uv14+
ONa+0+3P8nX173F9EuEO+3cMT/gFfoO9JazBPO5gHux9854XYxveR9oLf27v
EVuNdZvhomELcAYciLHH3mMf38cjsS3/zsRS4U6HNa+/fpQ3qz+zn8QdyYdl
yL9j2jDD1lfgPCbMdXh9BczBed5H7XHjHMxh3zVsuwbuAfHWhi2GMcAfW3Mx
B8L/t7aewpyeX5nIvzOxONxJ7IY3/LpnHmTPObhR+rw/3Xe86fbXrvk8Mz6Z
m4/x+EaO454MD2/8/PHYV+Y7CZ8bc/2h7/L1pfXvOMzx+1vw8Rju2HustbDO
Af/BXjfe+77MEX85B3v4XPiM7GVrJMMa+y6GP+bDBgZ53uN9PhwDAC3/zsK4
c/xb/fWUPo/tc/h033Ejfv9m6/jd8Hg/d3L+CQ5Tncs4lVtn1bgUXmPo+pnv
8h0kx3fAV4AB2MeC2JqmzSFtMMjOwT672dh7wh6WX2udwpWI7+CY4YzhimGH
3Y9hhdnmS7L33q8cCXw+jD0Q+XcmFoc71f/z91v3/GL8tvwr8f+Y3TzzybM6
YryfO7FPrZ34+ADuhPc/4vrhd/kekovfQYwMbPhR4GfG2gvcB/zGnnmsuWAj
xs84URTnzDqHNaxtXsMdrKcQm4h9LOY5rL3f2d5X/Pb2dja+I/8OPW9+nRI9
i9HYgfVRxSOGxn8Ad16TtdYI3OnhB/Gfk9d332Xtv9NC4nGH8zfZx2N4Az+x
vQfvMeyBPxn+F/iSwZnAURiLhnIvcr5exiZ7D5yBT5nztiJuY9/T5jKsgo/Z
5sAx5jzy70wsfp3ljw3ynVg63/TA+HNxxzAk8TGN5Dsf4lvRd7mAv9UCEuVn
cVwwcIf3pbDPZZhjL8MhrLEwHn5f4I4dgx8ol1OKdZ1f83ifL86x+wZfMc5l
Y4A5rJnjIPbZ1mfYe4cP2vb6sb8u/87EchbuOH9NZdfnvv667559w4hmrZYb
f+q5t/OYZ1TPP6//yA/sx47272Sun/su30Gi/CzPd1CThzHENHCH+Y33C2Fd
hBhm40g2xu9h+3ywU7UsbIzhBLDF9qew1vLYw2sqwxncv50D3MF5hkeK35lB
zsSd3h4S+0TCGKDM+FN8g9doLXeCfV/+dev2pkbtZzn/+ZB/56LimZaTlu8U
Md8xvLE1DOMJx/UYjiCeB/X8gDfADeAS+4TYh4Prck4E4w/bnNNumn04iFH0
6yy/j254BVxEPCO+H3JM5d+RSOaTIb5jYpgD3GDc4TUW4nngvwEnQe0d+5xj
nHEOcM3GYTw4D+MP53YyNrGPB/9vIC8r8vHwnrrPmTcsBHYqfkcimVcivzIw
BzjBay7sqVfPSrOXzrjDfmGOJ7Q5UGcCscZYb0W1NMBz7LrAJWCOHbfr2JjI
f2xj7Do+bgfv4UcGL+M4SPA0+XckkvmE+Q7HDHLsHzgBhOOWfdwgx9+0Ndqb
ucF/4INmzPF8hv1IyDE1P4ztWdn92nqKcyKY89jaye4FdcE890GdQq6vgfUb
cEf+HYlkPhmqvwPfjgnWVXhxHjowB2sms4FX4D/Y5wKnwfPOPMfnaOI+4ANm
DMlhCe+PA5e8bxnjsbbj66Nmj/w7Esl8wn7lKHaQX+wX5tx0jhM0jODcUOY1
4BPgP37vytei8L0e0riwVAxj4O8B9kTYxLzI9q6wXvP7ZfLvSCTzSRS/AzFc
wYv5jr0H3wH2YE2FeRi7uEYgxNcVzPWWAQahlhdibixmxz4z7LDjqNXs43Ui
nsNxhOy7ZuyRf0cimU+i/SysiRhnWJjrcE0M7ovHfh4I+A3wBf2qUIvQMATa
BHV70IMCvMn7oSDInfA5oBHv4VieqEbqKbxgfPks3xmq8yqRfFWJ+A7X3WHM
8TUHuf4p+A6vudhvzGsq4I1hi4ndAwQ26pbaOdjDApZFeR32ua97EeVpcU5o
dH8mS/p3JJLvKJF/x7AFL/brRGssrr/FvMf3uGHMMUwBztgelYmtnaDtc8Ml
rs3O+Vkee7DnFcXrRLUH4Yf2eWC4x6X9O3rp9Z1enu/gefb+HK795Wtg+Brv
fq8czzP69kWY48WOYX3lcYfrBHFcNfJCgTOe+3i+g/hB7/ueku9grPw7Ekkn
eGZ8Pha/uOYO195hrsN7W/Ax+x5ZpzCH+Y5p+Izh2/HYw7hj7+E/5joYiGf2
9U4hdm9+raX4HYlkXmG+A9xBPDK4DjgOMCeq+cVxPOA82LdiXzL8xt6nE2ER
/MrMeeDn8XFGUa0v8B0W3s+CfyfyQy3p3xHuSL6beL4T7Z97XzLXdo9wh2st
e86DtVa0fwXcMb7DnId73vja8OA8iO/hGMIhnoP6GYij9mvCpf07a/87kEiW
FMYd+EnAcTzuAHugkTfBvAd8h/NEOecB6xiOB+T1l19zsZ8nt9aye0YtHmAO
+3aY53DeqF3T77sBf+TfkUjmE893kJsd4Q5jDnqDcl8Jb8PP4+uWgvtwL1HD
gJyfx9ZbkX+Ze+4YngBbPOYAZ2wM6r0jj4trQPOaS/4diWQ+8XzH8CLay2Lf
Ma+1mN+A4/h1l+8T4bEHfh/2+YDrII4HdXGivXTkbnlfso9XxrWAO+hfGvWx
kH9HIplPPN/hPFD2Kef2sNiXzH38gDumfY8+zj/n2OWhGELED/o6yzYfuA7W
WH7vHLhj49GHgnEnqiUv/45EMp/4+B3sW4HzYA89ihMEFvn1ledFXJcZz7bn
O7zHFWnsqft9LdPsv8nhjs2DOkCYD5jjMXHKfqHf0r8T9He47l4J6mc8tTDu
mC8GvpzItxPVDBzCHcQU+ro8WGf5vfUc5pjYGBvLfh6bD7mgvoY7Y4+dzz0F
2e/E/In9yvLvfELCHn3X3A9T/YynFjwz6DPj6+0w38nFCvLeFscvs+a11qk1
FmMN9tg5ZwL4YBhix3L1lOHnsXWYr/HB9xL1t5B/5xMS1XBP+sPsHSfyz2lQ
o32oPnpzvV/U98r41VPYG/g6+xl/NYlwB735vE+Z9638usv7eYA/EMTyDK2x
sP4BznC+OriO30O3Pa9cLTBgj43B3hf7caL+XOqPPhPucE+pob4vb66XaIQz
Ie64PsU38fxX2c/4CwrjDu9T+RpfzHW8f8djD6+xmPfgWec1lo8hNBs1d7gW
mJ3jYwXhI456nzMGWVyyXRcx1D5mx68B5d/5pIS4M9BDM8GkTA++U7hzqldN
2N/vSvoZf0Fh/w6vm4A5Ob7D+OP3sNjPg/NN23Pv11ccOwh8wVqKeQjnggJ3
jMfkekYw9pht10G+qu/BzDWCIPLvfEJO8Z1TfX3nwp2r7Wf89YT30RELyHta
vIce7ZFHeVrMd4BdEPSG4NqCjDU+35z5DXADMUGe4wBrDK84TsfWWhYPhHM5
d5XrhnH/MPl3PiGn/Dun+vrmcCfXD+/DfMfNfwX9jL+K4JmBb4d5ivcpYw3F
sYIR3jAeMW/CesvzHfYVR7yG96BQ44fXWF7jPvkzwx3UnOc6QVwj0eOO/Dsf
lMx+VreXPuTfaXyzkX/H9Qw+qydo5N95u45+xqv/PWcQPDPgJ4w73r+Ti0uO
8AZ+Hc+b7L0916htasI9sTj3wWMO8M4+y9XVMd80ro+cCPbxcE3WJfjO9/Xv
nIjfyfX1rcTtCzXPN69r/vr1Eb4TzH0N/Yy/oOCZ4bpdPheCcz65f4T35wxh
D/t5DHsMA3wOhF9j8foKWGFzM574XAibB9e3+TgP3TCJawRFmAORf0cimU/Y
vwMO4HM/Pb4w34liBrlmBq+xmPOYNvzgHIgxfMc0+mL5GEH73Pu+zffM8cx2
zaE1VltvUf4diWQ24X10xOKBo/j1lOc7jDkR9gBjfP0exEOjfoVxnig2x2OP
zW/HOP+B868MvxAfbWLXsnltvF0HeGWcCDkTfo8L2CP/jkQynzDugGv4fSqu
ecHrFO/vwXu/tuLaPew/spdd065vay3f+4ZxB/Obf5jzzhl7sA5jvDRt4yxm
GfU0uLdghDlT8p1v6d+RSE5IxHf4mWT8QZwyjvs8dMYe5jYc/+Nje8B7uC86
r7V4jYWcCMYc5ELAR+Xvx67P58GPncMcxe9IJPMLnhnE74LHAH+iPlm8F+39
Px57cmst4A7vcdk6if3LqFthOGF8xXDDtAlqCtrayT63McBExkW7N/YvY2wU
O8i1v+TfkUjmEzwzyF2w5x6993jNwtiDfIMIe/iZZ9+Q5zvIDzfbcMfeI2YZ
vh7jJsAXxhrPdey9YYXHEqzT7FrocWM4hTE+J4tF/h2JZD7BM8M9XLC3xNyB
fcvwybJv1tcZ5H0o9s9gvwz4Bf8R6lLwWgf9KFAD1e7T9qcMb+CPRs+JaG8c
92VzAJ9sLNdejXBn6fystfvFSiRrCNZZvi6g78nJeZ0m/B4SYQdzI2AR+ov6
mEAv3rdkGrmkdn3fM9Dv99sxuw/cG/fY4e/r80SX8u9EvXwkku8iY/5/l57e
vyNbtmzZ59hT8B1paWnpc/QU/h3ZsmXLPsdeh+/sy+2dryFzlLuH8jDL9VK9
31p9x025m/k60tLSsV7Hv3O83hF37rYHOgosui0fDlNfT7Zs2ZdkT8V3sLfH
sU8+B78bX2PM7bY/f7G5qbhIUdm7cnNzd8Qh083nh22vPsWmsPMPCZbZa2dz
bbp6IBXPuduW+2JT67Ked7N9KO/a+e4q3Ovuq56342R3x+vj/tb/f0Na+hr1
VP6dt99vSSwCYqgge+JOeJYNd3rzHWoMMCx5Lzu82bXH9+1arPoxDGmwosYZ
1P/YN3jRYYQdr7Cuwp2HFndqDKrna7Gptuo5NoW7Ht3PyN+PbNmyO3tK/w5i
jLw8Pj268Xm+cwSFCgtq3gK+M3TdevwRGhJMKI0XHTGo2OD8Guvaccx3Cpqv
4lO35fHy6Xw43nwmviMt/XE9pX/H4h89zzE7XWPZT+TfwfEaC2pMMkwJ/D1H
ThSutRrMqMYf8cHmN/5S8yqbt+EpDd85tJhF81dz13MctncNL6LjARaN/f3I
li27/pl6Pwt5IRDUAUrHDfCdxn9T8ZKI71TPPY7b58R3mnkNR1qeY/MZxrRY
U47mO7zmSq8vviMt/Rk9dfzO7z+/E/+O+X364/P+ncpH0/pXdhXfqdY8fJz9
LYQdOH633ZablqcYFm3KB8OQTVOTyPl3gGHVT+VfqjGrxp2HwJ8k/45s2Z+x
54jfsXxWcJ14XMx3KkxJ+E2f72Dtc2Cb+U/Dh3r7Wsxrxvp3esex1y++Iy39
GT1H/M6f9z/VfFVdonD8Pt2bbveou32lenzk30nPvd0+pNjQ+H4YS2qOQrxp
pH+H52v32Lfy78iW/Vl7rnhlYM5Hz79YzX6iS7gfaekr1MrPGrKNW3VrquF9
ONmyZY+1lY8+pIM8ss24fojS0tJ5rfo7smXLXtoW35GWll5ay78jW7bspW3x
HWlp6aW1/DuyZcte2hbfkZaWXlrLvyNbtuylbfEdaWnppbX8O7Jly17aXpPv
oCez1c4YHH/g+sc3rv7ORBp1ej5yXnJv6lMhLX1Kr+nfMdxBfTDDH8tjD8c3
mLBn2+eRz3B/o2zDRM6jb2tsrHQ/smVfgb023+HahNYr3vpPGP4k4+nZbj8H
P2n0lvpQ1P2xXH8I5jMVfwIvOdS5n+F8rm6P5100vuNJRVVPdfg+NuXm7tT8
6X1vkz4b6/9/JS39Gb2mf8cwJqrHbPjz8vrSjbcaOL7uH+olR/V2+HrGP6o6
g119ZcODzWbT1VI1LgVs8/P1ahO+t/fUjm+4mL1Qo3Dvv291H0W/vk9bv5Dq
P/v5h76fbNlXaF8S32GxOs2t3yfiO+AVkV8m4iWl1R2sa3/tNs151vOGdcRf
xnwe1C7L3kfIj473VfT7gt3kvp+09JXrS/HvgPc8PT316xR6/05Zthxo7/0r
VB+5tZvjFc8pjN+YXdfW2RUN7xmar+3195BgSjiej/u6heH4ppZrkfKmd3/9
GX7/smWvZV8K3zG8sX434fge36G6xzke0thJPebjPBvr99nUdd5vN9V6K/H/
ZOcrkhrz2fGn7sOP79VcHZ5nzr+HtPRSem3/jvly9qd4Va9fVsAjaPyOfMK3
R1zpjrt6zcRhcv6aZP6mZnyypgquj5/C3Qf7a/y+e3U/0ZptYH7Zsq/VXpPv
nIzbuWTd+KvPPk/8RVpa+Vln2MyjEp5yznzy18iWrfwsaWnpxbXys2TLlr20
Lb6zgg7jkaSlv49eO37H4gP//PkzPL6Xe0lxw1Pdz2f3jfxe12aXHx/FI83w
+5Ut+1LtS4nfsffZ/S3PD5o44KSv+Yq6zsNK89CLzUBeuviO9DfXa8fvcH6W
xfIUL0FeepSf5eJtHjbdHlOaj9nE6/A+UhVDgxzLJm45nC/lVmF8TXU+xRPx
943y6JuY5TQ3dKAf+2H871O27GuxL4Xv+Lz0/X7f5aWfys8aqsfTxtmkeeJ1
XmgzD8cR+/ly8cTJ+EyeeMTTGmxDLkdZIpd02+SeEk8SL5L+onpt/47Pz4I8
Pz9X6y5+xlN/SJeP3ouHyeRqWl6oPevVGsh4hflg7HzkiQ/lZ+XimIficTxP
gx3WE+py63u5oTP9/mXLXsu+NL5jePP2+y0dP6L+TpJPFeVRlQ3PKRp+g7o7
xSbN88rlZ7W8x8/r8raG7pv5Ts9flWLonL93aem19aX4dx4fH8u3t7d4fM+/
s+vWPEP5VKWrh3PEis3dbZUXWn13ygs9nZ/V5I1n8tw9L2lrbVBcM3JD9+77
VOe3a8ELqaMoW/aM9tp8x/Bmf+o6vfrKMZ/BeM5nuGvyQuvjHXZU81JN0tP5
6GV/r9znmyf76EXvc84NjeoDtdfL1fORlv4iek3/Tuu/mWn+We22juGF3I9s
2VdkK155vI7yQi/hvqSlr00rP0u2bNlL2+I70tLSS2vV3/kCNvm71XdC9jXY
a+9nXX2/0ETvy+2dj/tr9tW2h5l+jwPxQ3No34dM+23SH9CXEr9j+PP+/h6P
j+J+CXvmur9P2UvVFWxyzXZzzR9dT/WeZX/SXpvvXH2/0Nz3y8QBjb3P6PrJ
+DafK+jP5XMsmt9fmztb2V1e6qboeBqwPI1HAp9K+Vwbj4TvN3jdgflVb/rb
6UvMz0K/0Hb8qfysoXo86NNJOZf2bx55oXW/UIpT9vO1sYXUO6csT/+/H8U9
D/lfEA+Uu77jNbumzkbKq3ZJ7mobB+37yTe5JFXsdeUbuuve9/qyvre5te/+
ei0PTeOsK0xpvkvCSzG/i+NGzZCp/33Jvlz7kvhOr1/o7yvoF5r7fmPGj+kn
muSBBXFDQ/6WXN4X27nzc3HT0fizr7trv4v6vX9PfSn+He7fZ3mhyfgR9XdS
XhH316p4TtH0Q6/WDOgXemI+symnIrl+7vvl8trZjvK9TuSbvftnlo8P5blH
efG585vfIXzVo8b3/G/d/wm9+kPt7yvG0rn+vcm+HPtS+E7VL/TtCvuF5r7f
Kb4ztp8o3ddmi7+HYWbgt3JrwXqdVeTz4v19ZPhLVx+ow7IimefM69rfod3f
O1R10xbbj5O+CL22f8d8OdafeHB8r75ynBeOn7BPZ3Vkl2BH4s84VX8H4926
6Cz/zpi+ptnrpz5k5NTHPMrlcgzxjtBfE+fW4nz8fm855zapHdT5nmKeVSTf
BTEGU//7kn25tvqFflB/tF+otLS08rPOsAuXF6o6gLJlf8xWfpa0tPTSWvlZ
smXLXtoW33F6kjytmbXyoqSvXK8dv1PFB46tO9jryVlMf38T5x+luRC0D/WZ
+aN4JjuuPqSyr8S+lPgde2/9inPj63yeNL61ijue+r4m5DtJ3Ev1+b7cbibg
KeI70leu147f4fysKi/r+Fk/L/3Q9uQM58vkJN663McHzn3s9ey8SeOWy3cX
k4Lr13E0SfxM2NezjhUa6iP6cCJHNHeP6fnpvfsYQj6e5pWKF8lez74UvnOy
X2i2nnHaxxM5iUkfLcp9LJPcRIqTrcZwvlfXX7Q6HuazU9ywv68h3kS5n+Hv
B7mshGnt5y4Xtv08iTOu88aT+V1f08H+7dLSM+u1/Ts+Pwu29e+zdVc1MufP
KMtM3rfrIxrlF/XinJseN0Wal+57dyJvGtwh669J5u+4VtQ/qx2fyRFN85lu
23vM9iENf1+7JBdqjr+nbNlj7UvjO1W/0DfXL9T3veJ5wn6hLk89ykfq8ZEm
/6rIHXe68XHn6wgGdQAH87fvklzWcBxh42Af0kH/TyavXVp6QX0p/h3r32d5
obnx6MnJz0pdg2aX1H7hnMQwTzuX992sv7pn1tXbSe6naGr5uHwv9/3Qq3RU
f3Syc31Fk/o10fnt+EPFr5K+o1UuJv6eJ/xlsmXPbK/Nd0b1Cy0Ze3gfvcmP
GsiFHOQ7wRqq78fxdXxSf1LrF8rct+8jWvGjgI+Euay9tZ7PA+8wpcdz3Per
+sIHuZhz/n2lpXN6Tf9O67+Zaf5B+1T9nEuwFY8j+4va3zZeWXHJ0tKraeVn
yZYte2n72/IdaWnp1fRV19+R/0O27Ku0197P+li/0My+zkw6yu2c83rh95ef
R/oL6UuJ3zH8sbyIcLznNRRrk41jnsjm3M7mkza3c47rjfr+c19PtuyZ7bX5
zsf6hVLPvubzsL/lId+vMo1vyfUzGIiTxn25XM7+5xwXxHmqB8pTHZqvG8c1
1ru+o4gRxH0t3C9dWvoD+hLzs9AvtB3veE0bB5zjAai57vtkgic1uFVk5m/v
d5BndP1HMUe+p8suyYWo8zspZ5XuqT+fu79D0HeUa8xTb8+p/16yZU9lXxLf
6fUL/UP9Qntxw+Xp/pZDcb2ZnM/kPpPzD0luZz/e+cblszfznJMvFs2XG5/8
PjvMsrjnbJ67tPSF6Evx74D3WP8+60+cjM/xDs53uqF8o6E+lkM8qWcH+Ve5
/C5/nG3q2Tk6Xyz3/TNx1rsKbxyPm/jvJVv2VPal8J2qX+hhbL9Q93muv2W2
T2Y/5zOnk36j5TvxDZen1Z43UA9oiO9k5yvT+kO5OOuGLynvSvoa9Nr+narG
1yleNcL/EvXeHMz7zq3dguvnaiSHazvcr6/Zc6oe0NB89P1uqXdn+vvqapDN
9feSLXsqW/1Cv4jmnsuXcD/S0gNa+Vlfw95tXL2dC7s/2bLZVn6WtLT00vqq
87Nky5Z9lfaX5TvXUF/nmu5TWnpCvXb8jsUHDtcdrHuy3PRi6mjfKpr/E30/
u5qjmf5Xzg5rmY69n2uoeyhb9sT2pcTv2PtReelj87I/yiP4PPSxGhjfi++x
uObNGdcV35H+hnrt+B3Oz7JYnuLljLz0xHb9MbfEIygfKu2ZGfAM4iWGKcP9
zIu2J2jveJKTGvTzcrFDvdzWmfPsZcte074UvjPYLxTnZeOPM/0x2xwKynOi
PKxsf/WmN1ZdZ6fu+RLmdw/xrzYn1d2Pj0uO7rNUP0/pr63X9u/4/Czu32fr
ruT8c/KtWk7B+Ur9npm9+6MewXXOl2FaZnxyP9wTNMi3yvUpdbkbN8qvkv0N
7EvjO1W/0N++X2j37J7sG4XxDRYVyI9K5us/4zie5HMjlyLrfwnq8+T6kZ76
vJ1X/Tylv76+FP+O9e+z/sSD52f9O/uk9lX1Q1hksbzVmuk4ftP6a+J8prZe
DtsOA3rjz+Y13T5Ze37Vz/PQ3huv7eb6/cuWvZa9Nt85p19o3r/z3u+PuWUe
UfOb2+1D4nuO6yS7+n6GBZW/J193MKy/PMRrGv8R1w88lOrnKf199Jr+nZ7/
ZuL5ZcuWfZn2l41XlpaWvlit/CzZsmUvbYvvSEtLL61Vf+cKbfXTkn3l9tr7
WaP6hba6yRG9oHymLod0oM9Wopv9ss/0/1T/UOkr15cSv2P48/7+Pnx+2/tu
XJ747DbzDsohHTy/iu+pv8OH43MW6JMqW/ac9tp8Z1S/0EZbnIzFtVgcYBvf
0jz7bf9Mb5flQP9O6u/QxgYaH6nPi3JIk/ty/UrH9E3HuGJD8UOj+5oGfcEy
fU9zOaZz/j2lpcfqS8zPQr/QdHwdw1vxnLbH5nuLKagt3LOpZ4391PHIRcm9
7uwZ3Ww2zZjj58ivcjmku+j7UA7p6ThjOk7fYbivKcVh9/LRMn1PmxxT3G+x
GchHky17BfuS+E6vX+hv8vscfPxx4085le+U699ZGpbUGFDlpdvn6HNV5XON
yJOiHNK6B3GXQxqOT/wy1Md8bN6Z/zzb9zSffyYtfQn6Uvw73L/P8kL9eJ+L
0OYS5PK+h2zmOdZjs8nxqjCj2Li+DPk88WLT51k3A/tMvi5hy5NyefbM68oO
Q/c93pP7fcfYOdffU7bssfal8J2qX+hbpl9oVF8H/aJG5nf3+neWNQZt7jq/
zH67qdZb4FGb1l/T5ZDyfXVrNrKz/OiQ5K5Wn1ff4VRfU7pujwdl+p5Sjulg
/SBp6ZX02v4d8+VYf+LB8eH/601ed5HL+3bn0zokrcdD/pik992ul0Pav799
kkNajaEc0mR8WF+5uX4xUEeRckhbH/HJvqdxjunUfz/Zsj9qq1/oFekR9Z6l
pa9BKz/rsm3u+z5YJ1G27CuylZ8lLS29tFZ+lmzZspe2xXekpaWX1mvH71Tx
gYN1B9M9o5N9OU/ZvX2ldN+qqq3s+1u5veq5fh+yZX8X+1Lid+y99SsePG+K
PGwf39PECdbHmzidIoinieJkpKWlP6TXjt/h/KwqL+v4WTYvPcrDTuJXkKde
NHXcm/uv4nfqXli9eJvk/pp8p1w/rg/2W5ctW3ZqXwrf+VC/UMrt7B1v87Bc
vG7Yj7yp68P56z1eVSQ5mHP+XqSlv7pe27/j87NgW/8+W3cl50f9s8K8yPo4
8qESXjPIW4o2Brpf36bDuLl+H7Jlfxf70vhO1S/07cx+obnrJH3Om89DvtPp
Ktdzm+8/qjo20tKf15fi37H+fZYXOnh+z7/j6tMk48FPutxKzHFHvMVyQbt6
OZl8qTa3dNrvL1v2d7XX5juf6hdqOqrH5/O0K97DNbyor6fLu6wwrFfXRvnc
0tJT6jX9Oz3/zcTzy5Yt+zJtxStLS0svrZWfJVu27KVt8R1paemltervyJYt
e2lbfEdaWnppvYZ/p+rt26uXjNypuG9DlScezNfVUq/P5xhBHPPzTf19ZMuW
fZ49Jd+xuD/sjQ+Od/E01edtHI7v25D2g8jPW/draPuInnHf0tLSy+op/TvI
t7Je51yzvTe+qW+TxBk3Nct3myCfKskzt/ddT6td1QPC+o3387QK33dzG/f0
rX+QG4r4w9skrnnM95ctW/Y4e0q+w3kPllNevBRtTYt0fP2M85oI/cKT/lZl
k9vZ6y1DeeFt75mA76A/Fc6jHIt03gZz6Lplw8mUfy4tPb2e0r+T63duPMhq
WvD4yvfS5oWDx7z38qeM/3R1BV2/K/tpsaXv3+n6YQX5VcyjaN3XHg/Wgqe+
v2zZssfZc/EdL5aHZf2H2/FNLa5+f3Duq+n6Zfbs97P4TlIvkK5fY6DL+xLf
kZaeTc/h3/H1dKraFoQ59U+HBXW/326NAx9Pn4cQL8L1Wx9Ot3Zr78/7d9if
VPGqGsPAvZJ6O+7aY76/bNmyx9lz8h3reW61dHLjq7zwxpcc9Q3fuf7j4jvS
0l9Dz+HfQW2LU+NrXIj2jWpec3vn+zic9u8wbxrt3+kdP7SxRPLvyJY9vT0l
33ndvx7POSd+pr/PVH+OPW1f92aI75Subg722E/znc6mPfat+I609Fxa+VkZ
u8WsC7kf2bK/kK38LNPGr3hN1Y8vkpaWnk6r/o7Zh35P0kw+mGzZsj9vi+9I
S0svreXfkS1b9tK2+I60tPTSWv4d2bJlL22L70hLSy+t5d+RLVv20rb4jrS0
9NJa/h3ZsmUvbYvvSEtLL63l35EtW/bStviOtLT00voU7kgkEslcItyRSCRL
i3BHIpEsLcIdiUSytAh3JBLJ0iLckUgkS4twRyKRLC3CHYnkmmRb3v/4WRZs
t3V678vHj35e/Cx/JOPmFeGORHIdUvz8UeMF4c7j/U15/0jH77eDnx8e75Mx
P37ueuM/KnZvY8cKdySSKxLjJS3uGHdxnKU6lvt8H+NOMufHhHsjjBkv3JFI
rkiGcKe1c5/b+13580e6zvos10n6sYzEHuGORHJF8mncyc2X8wcNS4Q5Y7BH
uCORXJF8dp2ViHGfH+XPYt9bf33W13NKhDsSyRWJw5Cz/coshDXCHYlEEkm7
n9VIjQ3n7qNDiOv48Z/0MY8R4Y5EIllahDsSiWRpEe5IJJKlRbgjkUiWFuGO
RCJZWhh3/j8vHPtr
    "], {{0, 263}, {286, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag[
   "Byte", ColorSpace -> "RGB", ImageSize -> Automatic, Interleaving -> True, 
    Magnification -> Automatic],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{286, 263},
  PlotRange->{{0, 286}, {0, 263}}]],
 CellChangeTimes->{3.49217097134375*^9}]], "Text",
 Editable->False,
 Deletable->False,
 CellChangeTimes->{3.49217099759375*^9},
 TextAlignment->Center],

Cell[TextData[{
 StyleBox["To open sections in the ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Drawing",
  FontFamily->"Helvetica",
  FontWeight->"Bold",
  FontSlant->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" division",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ", click their triangular openers. Typically you'll want to open the ",
 StyleBox["DrawingPaper",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " and ",
 StyleBox["ComplexGraphics",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " sections. When you do, the palette will appear as follows:"
}], "Text",
 CellChangeTimes->{{3.492171020234375*^9, 3.4921711085*^9}}],

Cell[TextData[Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztfS1048yybe56Dxx44EF3rQMHBoYeeODAD17DAy4YOHSg0VuBoQMNBUMD
DQ1DAwcG6qUklbS7VN2Sbf21vZNVq7Ktv5YdlXdX188//+d/v//P/3l4ePh/
//Xw8N9f8n+//j6djiWFQqEsJf/6178qzR/+8Ic/S/z8+vUrsDtr20AKhXL7
QrtDoVCWlpjdkddXlf2vcr/fry/P+/L5+Xl9eXkuX15e1pXftfz+/XtdOdRy
OBzWlaKToijWkddQXl9fF5W3t7ezhHaHdod2h3aHdod2h3aHdmdNuzPmR2zF
JcfQ7mRgdw5F/Tm8/qbdod1Z1O6M8clccszZduel6J/v7Xe534TdeSlfqzEV
5e9RdqS///Phtbqnt8Pz9Hbnt/feHcqXyezOobmf1/KQfI12h3ZnnN15eHiI
SsruyHb8P1d8td1RW6O4eLkJuzMr31G7o7bGsye0O7Q7N2B30NagDZrM7ux/
l2+K8e9qv6J88TgS8KOX1/D7/+2w93nV1zHP8ty3z+5rfa3mOZZtv825Knvy
fOj2a69Rcxl3fz3/60vAf9pjC2tDwnEod7Hnfvuyyz2789KMTfCLM045xrM7
B/vefI37yw4cevcj/wv91yr7Y+7rdKzPQbtDuzPlPMvynqnszr6dl+zBBumz
+GV3mtesPREcHIvc5jl2zDPYndDWvP4ew1+ey8ObPnuR/dHuGBvUXavPXXDb
S/Ea2o0I34nu9/xSFs04ixdjdxr7JMe8gP14K36P5ztf43hrj7HnoN2h3ZnG
7szCd1B0jqV2R3kO2KWeyLNsuURjZ5LHRG1B3O5YzjLW7oTnxm2/OxvScBDP
7vR4i+ffgbmTPc6zO/199DyH0Xbnd/GWOAftDu3O9XZndv9O4IOBeZaxOz1O
E7NjYI+CY9S/c6bdsX7iev957Y5rY/AYx5dsuY+OM2Z3Wr5zgX9H7c7Z/IZ2
h3bnDL6TOmZuu9PZlY4DudLMreR5d4+50O7o9truzDDPitmd1v/b+G0G7E47
zsruJOZZh+696fuJR86zWv53pa+Zdod2Z6t2B20KCPp3WsHj3GOeB+yOnVOJ
PVHbUj9nb4HdcfY/1688Yp7V2pmE3Xn+ul9vnD27g7YsGNdvZw5V2xXvNfXx
eOeg3aHdURsytM7s2Z0xxzBuMIO4QU8YN0i7M7PdETswRi45hnaHdod2h3Zn
KmF+Fu0O7Q7tTu52h0KhUOaSmN35hF/5ISYmJr4WD9kd3Zeampp6Kj2G7+i+
+ktMTEx8DSbfoaamXlrTv0NMTLw0Jt+hpqZeWtO/Q0xMvDQm36Gmpl5a079D
TEy8NCbfoaamXlrTv0NMTLw0Jt+hpqZeWtO/Q0xMvDSegu+sndNKoawl1TPz
firf39+/cKO/sPyt9SGkLoVqeU2xbn99ew2xo/U4e3wK4/6VLoreeVxdpLXW
++jpQ62H7MUYuzPGjukx/OHPPf3oM6PPI9aikWcQ60j9/Pkz0CJS1wk1vm73
19pHglW886K2+0nNospufI1Nr6n7/PjxY1Cj/Oc//wlkt9tVIn/LzxDvGbI7
ekxK634f70cK5W5En5mq5pepBSbPuFc/Tmq3pTSK2hs9p9g34VFybmu7PKw2
R16T4+Vc379/L799+1bJX3/91Tve2kbPNiG2tkhen4rvDM3XaHco9yjId9De
6DPu2RwrKdsjWPiJnFOea+ET8lzLuWWbtRcef1KeU827vsb59PTU9hv+xz/+
UW2P8S5rd6zN8WyPyJL+Hdodyr1Jy3cOh8D2IN9Bm4KitkO1Z4PkPGJ3dH6l
tkHrvMbmbHbOJec4Ho+V7RFOIrZHbJjYHrETyK9Sc8Oxc7Kl/Ttr/x9QKEvK
uXwnxXvUZuA+Yivk3Pq8y99iO5Dr2DmR5SjyN/p8q55HjZ9H7I/YIW9uluI6
KX+P/E3/DoUynyDfQZuT4jv67Fu+o/vLOeV49U0r15Ft6rNWHLM51obIObAG
vPqVxUbo39b2yDaPP6XmWvTvUCjzC9od7HOBfEc4i/iCVf78+VN+fHy06+6y
Xf6W1+RvOU61rhOJ/1dEXhPbg/Mqj59YG6F2DccldkLnX3IP4m+Wa/373/+u
fM5/+9vfKi2vqe1J8R7lOvTvUCjzij4zVT8dsDn6tzzjYmfkB+2N2hn9W+yP
9ncRLPZA/TDy7IuWZ1y5lGyL+ZJjcyb1Cyl/Elsk1xK78/e//70S8TOLiM1B
EZuU8i9b20P/DoUyn1i+o74TFXmuPz8/K0GOozwHBWMEde4jz7XwD+Uc6JMe
6vfm2SJdf9dzyXjkmv/85z8r+ya2B+2NYvE/yz649hWbc4nQvzOxvP4oH5s1
yFq+ly9rj+n9UP58/Fb+fL1wX7mnxx/l2+r3kZ94dgf9O2JP8Ef5ja4t6RzM
2h09j65945oX2jb929NW8HX5W2Ordd4mdlFsi9oZ5UBoe+RvXce38UiI6d+Z
WCq709mat5/fyofVn9kr7Q7lYkn5d0SLzZD5lXIeEeQ6OL9Sm6PHWR+1tRvn
2Bz0XSuWa+gYNN5abIvYGLU/MudCDqTftzKf0nNafiVC/87EYuxOgBve8PM7
8iB5zpUbhc/7y/eONz3+PDSvR/YPzo3bcP9GvvZ7EXv4YM/v7/uGfCfgc2Ou
n7qX25fWv2Nsjl3fUh+P2B35W+daOs9R/qNr3fq37cvs8ZdzbA8eqz4j+ZE5
ktgauRexP+LDVhtkeY/1+WAMgGr6dxa2O1+f1V8v4fPYPocv3ztuhH+/yzz+
kN7fnjs4foDDVMeinYrNs2q75F4jdf3IvdyDxPiO8hW1AbqOpSJzmjaHtLFB
coyuswvWtSddw7JzrSG74vEd3SZ2RuyK2A4Zj9gKweJLkr+tX9kT9fmg7VGh
f2diMXan+p7/vjfPr+6/L/8K/D+Cm2c+eFZH7G/PHeChuRNuT9gdd/wjru/e
y31ILH5HY2QUqx9F/cw691Luo/xGnnmdcynWGD/hRF6cM+qYrUEt5xW7o/Mp
jU3UdSzkOait31n+rvjt4+NsfIf+HXje7DzFexa9fRPzo4pHpPa/wO68BXOt
EXanZz+A/wxe39zL2p/TQmLtDuZvoo9H7I36ieVv5T1ie9SfrP4X9SUrZ1KO
grYolXsR8/WibZK/1c6oTxnztjxuI/cp5xJbpT5mOYduQ85D/87EYudZdluS
7/jS+aYT+59rd8SGBD6mkXznIr7l3csGPqsFxMvPwrhgtTu4LqXrXGJz5Efs
kM6xdH/1+6rdkW3qB4rllOq8zs55rM9Xj5FxK18RziX7qM1BjRxHY59lfqZr
7+qDlrV+XV+nf2diOcvuGH9Nhetj335+7559sRHNXC22/9BzL8chz6ief5z/
gR/Y7jvavxO5fuxe7kG8/CzLd7QmD9oQ0Wp3kN9Yv5DOizSGWTiS7GPXsG0+
2FAtC9lH7ITaFlmf0rmWtT04pxI7o+OXY9Tu6HFijxi/M4OcaXd6a0joE3Fj
gCL7D/ENnKO13Enx9/KvR7M2NWo9y/jPU/6dTcUzLSct3yl8viP2RuYwaE8w
rkfsiMbzaD0/tTdqN9QuoU8IfTh6XcyJQPuDGHPaRaMPR2MU7TzLrqOLvVK7
qPGMen+aY0r/DoUyn6T4jojYHLUbaHdwjqXxPOq/UU6itXfkdYxx1mPUrsl+
ur9yHrQ/mNuJtgl9PPq9oXlZno8H19RtzrzYQrWdjN+hUOYVz6+sNkftBM65
dE29elaatXS0O+gXxnhCOYfWmdBYY51vebU0lOfIddUuqc2R7XId2cfzH8s+
ch0bt6N/qx9ZeRnGQSpPo3+HQplPkO9gzCDG/iknUMG4ZRs3iPE3bY325tzK
f9QHjTbH8hn0I2mOqfhhZM1KxivzKcyJQM4jcycZi9YFs9xH6xRifQ2dv6nd
oX+HQplPUvV31LcjovMq/cE8dLU5OmcSrPZK+Y+ucymn0ecdeY7N0dRxqA8Y
bUjMluD6uNol61vW/XVuh9fXmj3071Ao8wn6lb3YQfxBvzDmpmOcoNgIzA1F
XqN8QvmPXbuytShsr4cwLiwUsTHq71Hb49km5EWydqXzNbteRv8OhTKfePE7
KmJX9Af5jvytfEdtj86p9Dxou7BGoIqtKxjrLaM2SGt5acyNxOzIa2I7ZLvW
arbxOh7PwThC9F2j7aF/h0KZT7z1LJ0ToZ1BQa6DNTGwLx76eVSU36h90X5V
WotQbIhqEa3boz0olDdZP5SK5k7YHFCP92Asj1cjdcheoH25lu+k6rxSKLcq
Ht/Bujtoc2zNQax/qnwH51zoN8Y5ldobsS0iMgYVxVq3VI7RNSy1ZV5eh7xu
6154eVqYE+qNT2RJ/w6Fco/i+XfEtugP+nW8ORbW30LeY3vcoM0Rm6J2Rtao
RGTupFpeF7uEtdkxP8vaHl3z8uJ1vNqD6oe2eWA6xqX9O/zhzz39WL6jz7P1
52DtL1sDw9Z4t2vl+jxr3z7P5liRbTq/snYH6wRhXLXmhaqdsdzH8h2NH7S+
7yn5ju5L/w6F0ok+MzYfC3+w5g7W3kGug2tb6mO2PbKGbA7yHdHqM1bfjrU9
aHfkb/UfYx0MjWe29U5VZGx2rsX4HQplXkG+o3ZH45GV6yjHUZvj1fzCOB7l
PLpuhb5k9Rtbn45ni9SvjJxH/Tw2zsir9aV8BwXXs9S/4/mhlvTv0O5Q7k0s
3/HWz60vGWu7e3YHay1bzqNzLW/9Su2O8B3kPNjzxtaGV86j8T0YQ5jiOVo/
Q+Oo7Zxwaf/O2v8HFMqSgnZH/STKcazdUdujWvMmkPco38E8Ucx50HkMxgPi
/MvOudDPE5tryZi1Fo/aHPTtIM/BvFG5pl13U/tD/w6FMp9YvqO52Z7dQZuj
vUGxr4TF6uexdUuV+2AvUbEBMT+PzLc8/zL23BF7orbF2hy1M7KP1nvXPC6s
AY1zLvp3KJT5xPIdsRfeWhb6jnGuhfxGOY6dd9k+Edb2qN8HfT7KdTSOR+vi
eGvpmrtlfck2XlmvpXZH+5d6fSzo36FQ5hPLdzAPFH3KsTUs9CVjHz+1O6Jt
jz7MP8fY5VQMocYP2jrLcj7lOjrHsmvnandkf+1DgXbHqyVP/w6FMp/Y+B1d
t1LOo2voXpyg2iI7v7K8COsy67Nt+Q6ucXla19TtupZo9N/E7I6cR+sA6fnU
5libOGW/0Lv07zj9HfLulcB+xlML2h3xxagvx/PteDUDU3ZHYwptXR6dZ9m1
9ZjNEZF9ZF/088j5NBfU1nBH2yPHY09B9Dshf0K/Mv07V4jboy/nfpjsZzy1
6DOjfWZsvR3kO7FYQVzbwvhl1DjXGppjoa3RNXbMmVD7IDZEtsXqKaufR+Zh
tsYHjsXrb0H/zhXi1XAP+sMcDSeyz6lToz1VH7253k/oeyX86sXtDZxnP+Nb
E8/uaG8+61PGdSs777J+HrU/KhrLk5pj6fxH7QzmqyvXsWvosuYVqwWmtkf2
0bUv9ON4/bnYH30mu4M9pVJ9X95NL1HPzrh2x/QpfvDPn2U/4xsUtDu4TmVr
fCHXsf4da3twjoW8R591nGPZGELBWnMHa4HJMTZWUH3EXu9ztEESlyzX1Rhq
G7Nj54D071wprt1J9NAMbFKkB9+Q3RnqVeP298ukn/ENCvp3cN6kNifGd9D+
2DUs9PPo8aLlubfzK4wdVPuicynkIZgLqnZHeEysZwTaHsFyHc1XtT2YsUaQ
Cv07V8gQ3xnq6zuX3cm2n/HtCa6jaywgrmnhGrq3Ru7laSHfUdulor0hsLYg
2hqbb478Ru2GxgRZjqO2RuwVxunIXEvigfRYzF3FumHYP4z+nStkyL8z1Nc3
Zndi/fAu5jvm/Bn0M74V0WdGfTvIU6xPWedQGCvo2Ru0R8ibdL5l+Q76ij1e
g2tQWuMH51hW6zjxNbE7WnMe6wRhjURrd+jfuVAi61ndWnrKv9P4Zj3/jukZ
fFZPUM+/855HP+PVP88ZpHtmTj27Y/07sbhkz96oX8fyJvlbnmutbSqCPbEw
98HaHLV38lqsro74pvX6mhOBPh6syboE37lf/85A/E6sr28lZl2oeb5xXvPX
z0v4jnPuHPoZ36DoM4N1u2wuBOZ8Yv8I689J2R7084jtERtgcyDsHAvnV2or
5NxoT2wuhJxHry/nwzx0sUlYI8izOSr071Ao8wn6d5QD2NxPa1+Q73gxg1gz
A+dYyHlEi/3AHIgxfEe09sWyMYLyuvV9i+8Z45nlmqk5Vltvkf4dCmU2wXV0
jcVTjmLnU5bvoM3xbI/aGFu/R+OhtX6FcB4vNsfaHjm/bMP8B8y/Evul8dEi
ci05r+wv11F7JZxIcybsGpfaHvp3KJT5BO2Ocg27ToU1L3CeYv09+redW2Ht
HvQfyY9cU64vcy3b+wbtjp5f/MOYd462R+dhaC9Fy34Ss6z1NLC3oGdzpuQ7
d+nfoVAGxOM7+Eyi/dE4Zd1u89DR9iC3wfgfG9ujvAf7ouNcC+dYmhOBNkdz
IdRHZccj18fj1I8dszmM36FQ5hd9ZjR+V3mM2h+vTxauRVv/j7U9sbmW2h1c
45J5EvqXtW6F2AnhK2I3RItoTUGZO8nrso/aRLSLMjb0L+u+Xuwg1v6if4dC
mU/0mdHcBXnutfcezlnQ9mi+gWd78JlH35DlO5ofLljsjvytMcvq6xFuovYF
bY3lOvK32AprS3SeJtfSHjdip3Qfm5OFQv8OhTKf6DODPVx0bQm5A/qW1SeL
vllbZxDXodA/o+tlar/Uf6R1KXCuo/0otAaqjFPWp8TeqD9ae054a+M6LjmH
2ifZF2uvenZn6fystfvFUihriM6zbF1A25MT8zpF8G8Vz3YgN1JbpP1FbUyg
FetbEq25pHJ92zPQrvfLNhmHjg177OD92jzRpfw7Xi8fCuVeZMz3O/X0/h1i
YmLic/AUfIeampr6HD2Ff4eYmJj4HLwO3zmW+ydbQ+ZLnn6Vp1muF+rjXuo7
7srDzNehpqb29Tr+na/rfdmdp/0Jtqoteix/naa+HjEx8ZbwVHxH1/Yw9snm
4Hf71zbmcd8/f7F7qLhIUeFDuXt4+rJDopvXT/tefYpdIcefAlsmPwc5166r
B1LxnKd9eSx2tS7r8+72v8qn9nxPld3rxlWft+NkT1/X1/Gt/71BTZ2jnsq/
8/7xHsQiaAyVyhG4kz7LYnd65zvVNkBsyWfZ2ZtDu/3YzsWqX7Ehja2o7YzW
/zg29qKzEbK9snWV3fnV2p3aBtXna21Tjepz7ApzPRjPyPeHmJi4w1P6dzTG
yMrzy7PZP853voxCZQtq3qJ8J3Xdev8v0xDYhFJ40ZcNKnZ6fG3r2v2Q7xRw
vopPPZZflw/Pp9ub18h3qKkv11P6dyT+0fIcweEcS349/45ur21BbZPEpjj+
ni9O5M61GptR7f9lH+T8wl9qXiXnbXhKw3dOrc2C81fnrs9x2j81vAi2O7Zo
7PtDTExc/069nqV5ISpaByjcL8F3Gv9NxUs8vlM997pdXge+05xX7EjLc+R8
YmNaW1OO5js45wqvT75DTX2Nnjp+5+PPR+DfEb9Pf/+4f6fy0bT+lUPFd6o5
D25HfwvYDt3+tN+Xu5aniC3alb/EhuyamkTGv6M2rPqt/Eu1zartzi/Hn0T/
DjHxNXiO+B3JZ1Wu4+/n853KpgT8ps93dO5zQoz8p+FDvXUt5DVj/Tu97brW
T75DTX2NniN+58/nn+p8VV0id/9juDbdrlF360r1/p5/Jzz2cf8rtA2N7wdt
Sc1RgDeN9O/g+do19j39O8TE1+K54pXV5lx6/GY1+om2MB5q6gw187NSWLhV
N6dKr8MRExOPxcxHT2knj2w3rh8iNTV1XLP+DjEx8dKYfIeamnppTf8OMTHx
0ph8h5qaemlN/w4xMfHSmHyHmpp6aU3/DjEx8dKYfIeamnppTf8OMTHx0jgL
vnPC+scPpv7ORFrr9FxyXDA29qmgph7Sa/l3pNZ7qh6z1NJo929swhGxzSOf
eHyjsdhEzKNva2ysNB5i4gzwmnzH602v8vkJY4Znuz1e+Umj99CHou6PZfpD
IJ+p+JPyklOd++mez9TtsbwL9u94UlHVU02PY1funobOH457H/TZWP/7ipr6
Gr2mf+d4PLr1mJXrtPtLDRxb90/rJXv1dvB6wj+qOoNdfWWxB7vdrqulKlxK
bZs9X6824Wc7pnb/hovJj9YoPNr7rcZR9Ov7tPULof6zPX/q/oiJM8Rr8h2p
D/b8/BzYHeFAUis12N/jO8orPL+Mx0tKqTtY1/467JrjpOcNao+/jHndqV0W
HYfLj77GVfT7gj3E7o+aOnO9dvyOcB7077y+vfb3t/6dsmw50NH6V6A+coub
7RXPKYTfCK5r6xyKhvekztf2+vsV2BR3f9xu6xa6+ze1XIuQN33a68/0/hMT
r4G3sJ4l/bWU67j79fgO1D2O8ZAGB/WYv86zk36fTV3n435XzbcC/0/0fEVQ
Yz66/9A47P69mqvp8yzxeVBTz623EL8j/bWqnqLHyPV6/bIcHgH7H8An/Phl
V7rtpl4zcJiYvyY4f1MzPphTOdfX38KMA/01dt29Go83Z0ucn5g4V7wFviNa
+m6Jv2ep612tG3/12ceRv1BTr+7fyQkjjwp4yjnno7+GmHgzfIeamvp+9Bb8
O8TExPeFyXeoqamX1vTvEBMTL43Jd6ipqZfW9O8QExMvjcl3qKmpl9b07xAT
Ey+NyXeoqamX1vTvEBMTL43JdxrNvClq6sV0jv6dqqYE5G0/7U/Xnz+W9z1l
PpVXN/HW87VsDj/k0k7y+RBniXPjO0E9ner1U/lrNwFPWYLvuHUTb1fX9aXD
/hrF7sJ+G+SjN6Xz8u+Y+jm4vXmmf+26XPGQFzU1u6rvzX5d9fB46JUTfM/W
tblwe1C7fYi3jKib2Lt+c2+PcB/u/W8OH8v9E9R99D4v2/uneX9+mZr6n1Vt
SKhltD8mjw/6jjTvLdbGv6iOAPGkOCu+k+ILbW+byPFaL6faD+oGNnXVC3u8
1gFsv2dP1f9+cP6gL0VTt/nc8Zs6zb3rQ3+KYP8tfB4pXd1P7P2AepFlY7ub
mvdPvZr6zfsV3HfieFvfuqmdFpx3C+/Pneus/DuBfwS+A2N1+Wxtv3PqG9t6
yK5/4dDwH+gDMXr8n+1ryTqHTs/C0ddbE6f8MW4/tKY3CL4/iPF85x7v8cy1
3587x1nxHbURJ3g9VRd5VD1k6OeQ6iOR5Bmd/bmK74zpY5GNNvWoU++D8sYY
X8H345Lj78yvloPOy7/j9Kca6gPR4Po4h1dojeXY8e3+4q+A/lll/Szs9u0V
0v6M8nOUf6c//nBOsfb7fw6u/WuhP+Ww015h3Zyynicd4v4ZfT/acyWOh+vp
GsTR45kbeH/uGefFd8D2PIR+Rs/vgXVJn5r67r1+V8YnmeQbZs5T9cSx40iN
vzdn6vcpdftiRPqBrf05jNE25qHyw+j94fug9xnjO/B5tp+3Pd5cD2vpk+9s
S2fl35kC33q8DDFxBjhHvnOVztZfQk19Ozo3/w4xMXH++O74DjU19er67vw7
xMTEq+Os+I4TQxeNT770/G587Azn19eHrpOrP6q3bjgyXjjX+6U+S2fl33Hj
VLuYmkmvN8e61yVxs7nmYXvxSA8m/umW7pf4LJwd30nxhYAPNXHNzfb9rv+9
28vpbM9fxwh2cTmHNmawvq4TNz3B+Ps5pnYcG/s8UtrjLXD/bs6ud78Bb4rE
P1Nnp7Py77hxp4cqb/LQ6u5/HPOb2u9ZzTWscrfCnM4gv8eLa97VkbAl/H31
+DEu2o4Ht2/h/T8HR/PZuhi/dn98P4P7Nfsz7vhmcPZ8R/O1HX9CEA+s+7e4
CHI6e+d387jqZ0DiZi/yKyX5jjMedxyZaHfc8N1gP69YHlYkJ3b1+6O+Smft
3ynLeH6T3R7DmNNp84HM+Yqd5kaE//uTjN8bj7t9Q59HCnufB9bDgTnT6Lzz
Ld0f8VU4b76DOZNFkCvYHpfIu9q1/pImp7MwfMfmlzffvxf7WQby0XvjOUXG
kYN2+WJXSw3fhzZnt/e+93NiqW9DZ+ffCTj3Y+DbHVVvx+R52xp2+KxoHmJX
v1lq/sD39NXjx9oNznia32IXvraZzyOFI5+VbvdydvWOg/tN5MRu6n6Jz8JZ
8Z21Nda/28J4qKkz1Vn5d1bGtX9nO+MhJs4Vk+9QU1MvrbPy7xATE98EJt+h
zk6zfmD2Oiv/zs3EczS9MHKMQz4TezVprz4/45azx1nxnVv5nqvuQ3oH3na+
URCXU71+LPe7CT6/W/k/uGOdlX8n9j0XqfHtxvNs4H4kJ1K+9yWGpY1BbO6t
7XdqcflpuIPGw9g+F13O6rqf16Ht7drbHvQFrT+v8N6a8Ud6u8b7iq55v8Tn
4Pz5ThinXOU5S08TG7+8mTynUxd7aPth2vGm6gtp/9OyOY/2acDX17zP1Ps9
1L9T76faD/L+m96uh1Rf0bXvm3qUzt6/4+VfmR5u1e9W8rqD8UK/9zHjjeRS
Yt72YTdTPaJzcTB+7O0a6WflxSX3Pu/m/SoSfUXX/nyJR+Hs+Y7bJ/TrGWz7
i0f2W0n3+kk9RPp/je1/2myP5ayup51+obH+nZbXRPt8dj2lU322Vv8/pR7U
+ft3utxB+a17RxZlz7+wibzu+ntf507VL9YDSuXNG+z2TTU5q2t/XjrGwX7l
Bkf7fOp3ycDxW7l/4jjOju/Y+jq91+H7vvIHbKjPZtQ/lejPDse7/U/b7acg
Z3UTn1fZ53dVjq3zPhRwb0Gfz9jnTb6Ttc7Kv3MNBt/rJsYzx/1twX81JSaP
uVmcFd85UyM/uPU6dZqzuvY4JtXkMTers/LvEBMT3wS+Zb5DTU29TX03/h3i
beOtxFcRL4Kz4ju9+T7UIb7qPEvoUxc758XvbOH9nUG761ne57CR+Crqhf4v
svLvmPrGl8aprr1Osvb1F8K9+J0m1qqtV53qV7aB8RPPh7PiO2WXU1nhYtd9
f0b7ShZBvfRdEfKONp7ErnsFfUYn7ucQi7u242/2w1zRDuv9dO9Lr/+mPR5y
SOvrXtj3dJR24pXhfT0Z/qfxSF5f1+E+sBn227hznZ1/B3pLdvWOY30lT018
sDlfwJPCXil1vPNhfD/vS3CPp0XGb/u/W9zE7/Z4k+aGev3jp+h7OgZH/TWm
dx/2K8P3u41HGtkHdurxE8+Kc+M7Xd9OsSlevLLXI8acJ+VX0PyuOf0Nbn7S
iPGnsJczmuqvWl7R93SMjr5/3fUHPwewvYN9YKmz0nn5d+rfYlfnBj7q93bM
X5Kq1xPrC1rZgK7+zSz+hrH5RXb8MdzkjLb9qbAvp3P/V/c9HYUj9Xfw/U75
d87tAzv5+InnxPnxnbLNuwr9FF68rvVndP+zT+0zF6nfsyTfiY1/LN+J9d9M
8b0F1tH69Qbr+8RaZ09mzhXrYz/YB5Y6K52df6f6Nf4Q+Y31lTQ1B9UfcDA9
KbFe4UHPN1c8yaX1ZxL4YPIq3bzv9npX9j09A9v6ytYf034OmguK7wfyIls3
kvE+WeMs+Q71dZr1+ahX1jn6d4ivw+x7Srw2Jt+hpqZeWufp3yEmJs4Z3zzf
4bpHX7OuDfXKOkv/jq1fmqojuKV1D12XMeOtanxekq81Z34a42OIZ8S58Z06
DynMxznsEvk5W+I7Xp/QanyPy/KPMXxnS+8b9c3pvPw7de3yNi7Xbvf6huL3
dmJ7tC/nlHnjzbN8+Dq/xs5VuQr7jrfE+2Y6OZNBXHK8r2Yv3uc0cD3sdwUx
Tl18UaQPKDHxSJwV3wnijO32objjxHaMh9X8rOa8xW7Cuswtz2hyFKJ9ohod
9M10+mPi8bG+miPim3vX0/chyJ0NczPpH6K+Rmfl30n5M4b6ho7tK9rE8rdx
yzONX+N0e7zknLjlWD+qob6aQ9ez72ckN3Py94f4bnBWfCdVL2Yor/zsvPMi
sD+TjL+XP27yssf2zbSvn9tXc+h69v0kv6GeWOfl31F/RGgLDtVcKNI3tP3e
HtrePXu7vfK8AX/SuXgo73xs30y7v92OfTWBl/TOF7tec42n9thDMEfd0v8D
cZ44L76DtgfX0Q/19kTdwNOY7dX5w/qEQT3ga/WIekDRvpmDvMXpq1mGdQi9
87nXa66DubNufZ+N/D9Q56ez8u8Q+/hO6jUT3w7Oke9QG03/C3VmOjf/DjEx
cf6YfIeamnppTf8OMTHx0ph8h5qaemlN/84K+NI8cmLiG8Fr8p3X19eyKIry
489Hen+nv9TkfZ+uzb+O1OaI3g/Xn6jvWK/p3xG7I9cVEfvz5/OPv7+Xn2T7
YM4wvrFYa3NgvtJhl8hfYrwN8Z3jtfmO2h2R/X5fvr29VfYn2D/WTxxi/bFP
tlfboR+3rLkWTd9R93ypPt2aQ3kKesIkxx3EGWPdClOP58F5fcbPgZp6ab2m
f0dszM+fPwPbI1jsz+vba7e/6w/pakk8PoQ974LrtT3Au1oOYpd2X3yknqt9
vY79mOz52h7kYX7XZ7B/pO9mKo8cbErd305rdQBPIi8ivlG8Jb6DcjgcOr9P
qs+355eJ1HY47OpnvapPKMdp/R2s05Pq0z3mdTuOMfVvoDey2yd9pvefmnot
vRX/jvKel5eX8uPjI9zf+96P9c+G2g4tbrZXPEf6glf4WM2vDkXDe1LnE9zy
HnN9qM3Ru9+hPHK8P+jJznUu4lvHW+E7Ym9Op5O/f6qfeLSvdmNXm9oO6tfZ
PT21NUaP+1013wr8P8k+3bYuMtYKDXlJVafQ1EeM9S1va3JE+7xTU9+WXtu/
I76c4xCvsv2xsb6v0/fA6xVeb2/q8Gk9HeAwgb/G5TWf/bVy4EWx2hz4+pOO
xev3jddzts3x/hMTr4XX5DuDcTtb1o2/evVxUFNnqJmfNR4jj2J9YWLiyzHz
s6ipqZfWzM8iJiZeGpPv3IAGf/fkeWvU1DPoteN3JD7wz58/6f2d/k1t3PBU
45mkH3jYZxPlcX+84HxjcCJ+aA6M8U2MNyK+EG8lfkf+jq5vufG9G49zWaq/
uOlvejP3RX3Teu34HczPklie4tXJS/e+V028TbS/ucbr2O/p9llt4pbd84Xc
KtbLxb2/SNwzjhN7zLQ5oInrB/tD7+VgPEH8T7PmFvRX17joLi91V3Q8Legv
1ouXOgV87glio1I9grx78XrQT/3/RbxdvBW+Y/PSj8djl5c+lJ+V8mu0cTbN
/mUJeaHNeTBO2Z5Pe+CZ/uqD3/tuf9IR44xdP9a3vdfHvOOB2Jsw4IfYJ7Ty
DTU2T/uu2/HF+qYH/d5HXBf7ukMcd5UvN+P/GfX29Nr+HZufpfL79+9q3oX/
62HcbpeP/mR5R4SXSF6oPGuawyD5oNWzgX1DY/lZqThm7/7G7O/FJseuD33b
C7xeyt+ivC6WF586PhY37e0/Nt+sxX4P6Kn/v4i3i7fGd8TevH+8h/uPqL8T
8op4HtWuaPiN1t0pdmGeVyw/q+U9/fO69zeQNxYd59Bx9plN9THHPHcvLz52
/Ll90y+5bqnfHaEtnfP/jXo7eiv+nefn5/L9/d3fv+ffgX7dA7xCa9voM7N7
emzXlk6QFzrMa8y6kcez8P6ivMXHmDPqXl9yWpueybVPKvQHdflnxh/UcDqf
d5jjI/3Wu/pAZcuh0OYdy7B/ej3POvR5Kpx/t9fvtGPbg37q/y/i7eK1+Y7Y
m+PQdXp1aXw+o/tjPoP6Pjv/B3yPoz9jDN/o5YVewXdi40zmwzt92yN+pKBP
+rl8pxzZNx1fP+u6h+BeHveME7s3vaZ/p/XfzHT+WXFbx3Aj4yEmzggzXnm8
9vJCtzAuaurcNPOziImJl8bkO9TU1Etr1t8xeGidaguYfSaIM8dZ8Z1eT84Z
6v1NnH8U5kLAOtQ153XjtxOvU1NvTK/l35H+WF6csmLpH4r7Y+10/S12IZ5k
fJPkpde/WlO+4yWn8tduAp7CPHDizPGafEfysGL9sz4/cazHcv/0FMSWBTqa
k4i5j6cg99FuD1/HvqK6Xa9fx9EE8TNuX0/Tf8KOd2SO6FNvjPb4/usYQ4jb
w1xM8iLq9fSa/h2JV/bysySeMNhf833c84V9PDEn8VHzqJvcxyrWGHITH7Ev
RbUPxvZ3/UWr7Taut9p2DHoUB/eX4k1D/d01NugU9hXVMRb2eO2L0fKg2sYG
58c443Kgfzsx8cx4Tb4j+eYSr2xz0aUOWLB/ym/hxuuaPqJefK6b9/T1jBdh
Xrrt3al5RMpPov6a4PzC18JaFW6+mVPTop/P9MW7ioE+pNH8fcYdUW9Drx2/
I/Uu0O6I36e//yGYswTbvXwmm6fu5SP11q26Z9rfbsbf+LjjdQSdOoCR/Kce
r4nleWv/r2KgD2nS/xPJa5/p8yUm9vAW1rOU8wjXie1X84swb7mu2xLWxdFc
yGiedozvYJ0br95OMB6dg5l8L7Nfm+upr6fyt23/UG8/rF+TPG/Nr4J6jJIT
C7mYSX8ZNfXMegvxO9KfWPw74u9J7e/15NRnystJ7OVZy96Yd27mUAfc3vzd
r0ET+pNav1Dk/uyYqxxIJ/7GyxGNjTGV5x2rn1P1hTfjmOvzJCYewlvgO6Kl
7k5bX3CB62VRJ5jxONQ3qtf276yGGZdMTLwa3grfoaamvh+9Bf8OMTHxfWHy
HWpq6qX13fp3iImJV8PkO9TU1Etr+neIiYmXxuQ71NTUS2v6d4iJiZfG5DvU
1NRLa/p3iImJl8bkO9TU1Etr+neIs8HMV7sZnBXf6fVJD+vxBPuNyeMe0Sd8
kftaok/G3Lp3D8U8n3+0nuJInUMdgjvQWfl3bB09rdU1xfkn7CNxDl6sT8aM
WGuyYb3mWeo3T9FHI4c6BHeAs+M7vXrDXU3Ttj9D8L2IPSW6Osdh/wWofyw1
sb6emfb4oB4x1HoPao11NUqDvhCD36uJun9e3Wioh7hv7rXQetLt8UU1Rq19
1u+HMXVfiVNQ2969D4+fRmq12T4bybrTsb4a9nNoPx/zOWsNtqs/R+pzdVb+
HTO/b/tTNbX19H8uqDeMfSS03rGpaRrUIcTjy7oOYNC3oapxeOie7d71uu/5
Qd6S6pNhv5dNnUSsYapjrLAZ48E9fsK+EuZ84fYiqM2oNWi7HiD1/nUPkIPT
ZyM8vldXMdZXw463eU/a8ba8tgjeo+D88Pnqe7T6//8N4ez4jqk76vpjPD+A
578Z49+B/9nDDvpaOb0mDk7N9MH7OadPhtsHQ21N7U8pdg2vifbDmLivRMpf
4n0upub+4Ovn9M2wn6flSd7nPMXnSH22ztq/o9vH1hu29ZaHtldnE27e/C+6
273x+s92//7O7JMR7XMhc51ujL37ca8/VV8Jp29G7PNSHuF9Xo3dcftkWJzq
y2F5rv28Yn1Gop8P1N6+6P0h9nB2fGdMX/BL+Y7xM2B/h53UWm/7MXS13e04
dm0/rQG/R6OjfTKM30bnlC7fabbLGLt+XpF+GDP0lUDfuL5ezzHD96ntqRh7
PdYvDP1SY/hOrD+H/Zwn/Bypz9M5+3fa7UPfi81rve85c75i1/mV3e9pHI87
5wt7A6sNGLq/WJ8M9G2ir9vlMeADD96v3lxjnr4S3j1U24O+FsbfNNQnQ46H
9fmgz4bXXwww9uewn6duqz6fRM8Q+x6t/v9/QzgrvkNNTX0TOiv/DjEx8U1g
8h1qauqldVb+HWJi4pvA5Ds3oMH36vdzp6bels7Kv6NrD02MnP5W61C55imb
dbFurX7s+RLxM0tiJ7f14veD+VM3j7PiO22+FcRTVGunj5n2EQ/jUyp8bh53
Lz9reR2P37ngfMwXvwudlX+n+Z88fP2fKy+ocpP2XfxOGEfS8IAq3qPLD32w
MWsmln65+zP5Qbp9IB5J8yYLEy8k4z9491/9hjEp1f1HciLD92SIRx6ruDqM
PQy2e/E7zf3sd/bzkBg9E/+UOH74/Vn5/5U4ivPjOxr7ZvPOHb6jeUvVXAZ4
RTUnaI43OZJL8waNVQzq1aTicG18bYoftHlbdR52GJdbBLmtQf4XvD7IW5J8
KxGX/GByWb248rFxzan3h3qTOjv/DuSJB9/bGJds44h7cbBFlRf167Sh/Bv1
j2he9lC+mf56eeuD91/243SdnMhReeopf8w5+Vlj8qeGjp+iPg/xIjhPvvPp
51NZXhPlQ45fZRP5x4bH2fv2eF0vv3rM/X+O8KOMzVsvgtzW6OfVjm8g7zxV
93Ho+FR+P/WmdI7+nWh+Vqo+j1ensMmRrPfuciQXvR9c94nUf6nzGhO8JZIn
395/5YOB+kTVbzeH+TTn27X5SKfWd5O6H/Uroz+lnrNG6u+k8s5PWM8ncfzY
92fOz4/4Ypwt34m8Xph8QJz39+sy9/P/lr2vsP5drN5dcB8DvMW9f90v8CuX
Z+W2Dt1PWN8P/FWJuoKxOjs6h+7XAzT5+WPeH+pN6qz8O5difg8SE28KZ8V3
LtX8HqSm3pTOyr9DTEx8E/gu+A41NfWm9F34d4i3hwfrP698PuJZcVZ8x6n/
P2n+dSyOZLH7sXlnGeQp6XqTySvTXN3o+GNxOpfedy7vF3Wls/LvuH0IsN/S
hNdbIi861ldhK+/3GNzmvkFfjOq1x/T7d1Zfh418XsST4ez4zmC8bpgTqdv7
OYhOTmh7fttX8mDym2y881T3Y/qRDt4X9kLtcird+xt6PxLvU/I+muOK/ZPJ
1Y30++r1ATO5oFqDPdEHNXVf0evF3kfv/2Dt//M70Fn5d9zvRX1W4Zkty26+
D7mC1a/mIAZxsU3fTBs3i/6Ctg/nJ/QNnfh+sN97e/1U388mD7zK7YK+qN73
vo45+X7YXM0R/pJErq7b78tuLz9D3gf7+31QzfUh9zd5veT/R/f+Ym7w6v/v
N4yz5zv6PRjrjxn9/nPyj5J+hu77tn4eJrqfXrywwwuG7iuV3xTJER3sQzrW
XwL7ebm6o64XG7/XB3XovlLX897HqfunUo/SWft3yjL+PWe3xzDmhMbyopvf
orI35ntzqvsx37suL8DjY/6R4Hsc8s1i5xvkCQP3Y3kL1MgZfb0oz4z0QX14
DGxQcL6x99e7nzPz8ImvwnnzHazPEu+PGfv+6/XNLCL57nj9KfO47P1oXaBg
3CPuy+ML5r6j/UYn5Dvu62P6noLNtefr9UEduq/Y9Rbsn0o9rLPz75h156DO
nd0+ON8Pc0KtvyXoK1n9HoOetZPcj/FX1T7O2gaGPALva7x/xPbMHOVvKcvx
8TAjeOaYvqeHndmO5zf1kWK5v8nrxf4/ErnBq/+/3zDOiu+srbEu3hbGQ02d
qc7Kv7MyLnZOvZoNjY+YOBdMvkNNTb20zsq/Q0xMfBP4pvkO6+5QU29S5+jf
CePkm7Uo3Z6oN7yV8RMT3zvOje908Rj6eh2X4cZ3kO9QU29S5+XfOQQ9U9rt
La85BjmGGrPi5joGsRzYV1T3Z9wqMfFcOCu+E+Uv6Tzufl/Kfo4g+01SUy+n
s/LvRP01h67nbsq/E/Sniuda0h9ETDwvzorvxOrepPKxz+krSX8QNfUiOi//
jvaGxHygOr9G17SCfB6b/9TisA9l2du+nfslJr5FnBffqbVdR7f+GC/HsNpu
eZGTa0m+Q009v87Kv0NMTHwTOEe+Q01NnbfOzb9DTEycPybfoaamXlrTv0NM
TLw0Jt+hpqZeWmft32G8DTFxlnhNvvP6+loWRVF+/PlI79/rI97lRCwRb+PV
3Zjzeu79M66I+ob0mv6dt7e38ufPn9W1xf58fn76+8f6ai6QT1XHR2Nfha/3
ajeiz8KUmLyO+Mbw2nxHrquy3+8rW/Tn80+4f6yPOLyOvUsetFZGs/1XUAej
OW8Qr9zV1gjHOdAHPdJvO3wd8+TT/cz98/n9w7VWR9Fs7/pCFUGtkDk/P2rq
S/Wa/h20O8p71P68vr12+xteo7W/jjEeAL3AH8HWdP3Hi6DneDTPPckzIv22
oZeg/FZ8Sft3J/uZx85nxmf7m+P96j02vX2n/ryIiafCW+I7KIfDofz4aPw+
sT7i5+ZbmTo7tg5Grz92cDzwjrF9y9txjehnHu3fHdk/eD87m6W9dub83Kip
r9Vb8e+ovLy8lO8f7+H+Md4R1NOBOoS6f6r+zih/ST1n0R7j1fZL+rGbOWG0
n3msf3e0f3g33kNlbwyPm/jzIiaeCm+F74i9Ob2f/P2H6uWY7W2tjBjfCfqq
D9hlW895qG+5eb06/msONNjPPHq+Mtk/vMRxYZ3pGT83aupr9dr+HfHlnE6n
9P4j/C/YC/wJeoH79XfKSK9s//qhzxr6pUfOEc75BuogWh7kna9M9A9vx1v3
bg/6xU/8eRETT4XX5DuDcTvU43XrM9/IeKipE5r5WbeBa//OdsZDTJzCzM+i
pqZeWmedn0VMTJwlvlm+E1v32ZrOZZzU1BPqteN3qvjAPx+J/cMeoMG6kq5b
eedPxcMM4G5t7KmN3Untn+zXPjSeSDzOHO83MfFW8Fbid+TvP3/+pI87Jy/7
Uh6Bx0HOQWz/fr/2U5U3Ovq65DvUd6jXjt/B/KwqL+vrtdF56QGuYwHb/M89
8AjIhwq4icczwLbJvljzon8/kX7tZdmO7Zf2WrfxOzano/THNuf7T0y8Ft4K
37F56cfjcTgvvcXHcv9k4o+DvCfIc4I8rMOued2Or7JTWmfnVMXjufndKf7V
2JYg/92LS/bGWUqelZMvRk19I3pt/47Nz1L8+/fvat4VHH9OvlWb+4n5SkXD
icJnOhgf5LI/Vf4d8S9F9g/GU9u+lqtYfw7kdPTytyCP/YH5VcR3gLfGd8Te
vL+/+8ed0++8sQmF5kcF5+uecct3gnxutV1R/4tTnwf5i5fXFXu9Pa9vG6mp
b0lvxb/z/Pxc5YUmj4/6d7T2FewPvEJsSbXG9PXarvXX+PlMbb0cxMBB7Ph6
/dpH8ZpunQxzWHftOtipHduc7z8x8Vp4bb4j9uY49jpR/85nz1e72+97PufH
/a/A9+zXSTb1/SQHtPL3xOsOuvWXU7ym8R9hLMCp5Tlh7umc7z819Vp6Tf9O
z38z8fmJiYm3iW82XpmamnqzmvlZxMTES2PyHWpq6qU16+9kiNlPizhzvPZ6
1qh+oa1uYvM2lM9UmBzS4eOa9bJr+n+yfyh15nor8TtifyQvInl89T0vve/G
5YnPjpF3QA+r5PGVzZB7uCI+Z4E+qcTEc+K1+c6ofqGNljgZiWuROhVtfEvz
DLb9My2W46P9O6G/QxsffKryIorSxOWk+lmUdV76mL7pup/GMuJ5hvuaOn3B
In1Pg1r0G+KH1NTV/+cG87O0X2i4v8yxnqDHZtgXAnMbAmx61tTxyIcSe93J
a7vdrnnWv17X/CqIU8Yc0uB+nBzSOI+B7W2f0M+BvqYQh93LR4v0PW16dul4
D7tEPhox8Qp4S3yn1y8U/T4nG3/c+FOG8p1i/TtLyUev+UFlU+R17XNV5XON
yJPS+jyQQ7p/Suwf+GWgj/nYvDP7erTvaTz/jJp6C3or/h3lPdK/T/oT2/1t
LkJb1y+W953CyHMK4Td1LY0q77zYmb4M8Tzxw67Psx4S60yxe4jm2ZveNL0+
qIPrWv2xz/l5EhOPxVvhO1W/0FOkX6hXX0efyZH53b3+nWVtK8RHrX6W435X
zbeUR2EOqc7xcFyYQ9riKD/S3FV4Xedayb6mcN0eD4r0Pa1yTE9w3Uj9IGrq
lfTa/p2qxtcQr3K/15tnsojlfZvjjV+5Pr/pf97YsmN7fj+HtBtfLIfU6dvp
1ldurl8k6ihCDinW9kn3Pe2PfY7Pj5j4Urwm32G/0DP1iHrP1NQ5aOZnbRtj
3/dknURi4oww87OoqamX1szPIiYmXhqT71BTUy+t147fkfjAdN1B6NPgxe+c
e/3eulK49vOgsYPmWhozPOf7QUx8L3gr8Tvy9+D61hR52Da+p4oT1O1NnE7h
xNN4cTLU1NQX6bXjdzA/S2J5itdEXrqXhx3Er2iees1hNHe03kdi55x4m2B8
Tb5TrB/Xhf3WiYmJQ7wVvnNRv1DI7extb/OwTLyu249c53KQv97jVbVNYr4T
NfX1em3/js3Pwv59Mu8Kjvf6Zzl5kWobNB8q4DVJ3tL0Oy+8+jbGxs3wfhAT
3wveGt+p+oV+nNkvNHadoEZF87rLdzpd9Qvdx/uPso4NNfX1eiv+HenfJ/2J
k8f3/DumPk2wv/KTQ5uDVW1vatMob5Fc0K5eTiRfqs2/nPb+iYnvFa/Nd67q
F1p++vX4bJ52xXs6W6O5BxUPMnmXlW3p1bVhPjc19ZR6Tf9Oz38z8fmJiYm3
iRmvTE1NvbRmfhYxMfHSmHyHmpp6ac36O8TExEtj8h1qauql9Rr+nWodu1cv
uctV8Po2tLXYzfm6Wur18ZqjXt1b1buuf76p74eYmPg8PCXfOb2f2poWyf1N
PE31ehuHY/s2hP0g4uetcz7bPqJnjJuamnpZPaV/R/MepNe5xua4+zc2Jogz
bvqLYw/i6rftiSeoyZ86QU+9qgeE9Bt3+tfZvpv7X0FP37Cv5zHIVX94egzi
msfcPzEx8Tg8Jd/BfCutafH5+ens382J9HXtFx70tyqbuVLQJ9T0wWxti8N3
2l7AzXEwtwvP28zx4Lplw8mYf05NPb2e0r/j9Tuvanq9vQY1LeS38su0eeGH
oGfvo8lp6OoKmn5XZdn2Ej86/p2uH5aTX4U8ytiY6hfmgmPvn5iYeByei+9Y
qfI+Mc+8mmt5/cGxr6bpl9nDn2fxnaBeIFwfbWBwXvIdaupZ9Bz+HVtPR2tb
hPt3tkDnVrpd51x9HgK8SH9b21L7Z4K+nta/g/6kpgah2DCdcwX1dhzf99D9
ExMTj8Nz8h3pef7x8RHdv14fLyrt9Q0/mP7j5DvU1Leh5/Dv2NoW0eMru+Ct
G9W85unJ9nEY9u8gbxrt3+lt17Ut+neIiefAU/IdqYl8Op0TP9NfZ6pf1xhC
W/cmxXdKUzdH19GH+U6Hod7OnnyHmnouzfysCG650kbGQ0x8Q5j5WaKFX+Fc
rx9fRE1NPZ1m/R35NbHKD/F8MGJi4usx+Q41NfXSmv4dYmLipTH5DjU19dKa
/h1iYuKlMfkONTX10pr+HWJi4qUx+Q41NfXSmv4dYmLipTH5DjU19dKa/h1i
YuKlMfkONTX10nrI7lAoFMpcQrtDoVCWFtodCoWytNDuUCiUpYV2h0KhLC20
OxQKZWmh3aFQKEsL7Q6FkpPsy+/ffpQF4rZO7/fy+dLXix/lt2C/eYV2h0LJ
Q4of32p7AXbn+ftD+f0Ztn/fJ18/PX8P9vn249Db/1KRsY3dl3aHQslIhJe0
dke4i+Es1bbY60ff7gTnvEywN8KY/Wl3KJSMJGV3Whx7Xf4+lD++hfOsa7lO
0I9lpO2h3aFQMpKr7U7sfDF/UFo8mzPG9tDuUCgZybXzrECE+3wrfxTH3vzr
Wl/PkNDuUCgZibEhZ/uVUcDW0O5QKBRP2vWsRmrbcO46ugpwHbv/lT7mMUK7
Q6FQlhbaHQqFsrTQ7lAolKWFdodCoSwttDsUCmVpQbsjf1MoFMoSInaHQqFQ
lpb/D0/Yij4=
    "], {{0, 402}, {286, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag[
   "Byte", ColorSpace -> "RGB", ImageSize -> Automatic, Interleaving -> True, 
    Magnification -> Automatic],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{286, 402},
  PlotRange->{{0, 286}, {0, 402}}]],
 CellChangeTimes->{3.492170925203125*^9}]], "Text",
 Editable->False,
 Deletable->False,
 CellChangeTimes->{3.49217112634375*^9},
 TextAlignment->Center],

Cell["\<\
Now you see various categories within each of the two opened sections.\
\>", "Text",
 CellChangeTimes->{{3.49217114915625*^9, 3.49217118009375*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Inserting templates into your notebook", "Subsection",
 CellChangeTimes->{{3.492171562234375*^9, 3.492171570078125*^9}}],

Cell[TextData[{
 "For most drawing, you'll want to use the ",
 StyleBox["Presentations",
  FontSlant->"Italic"],
 " function ",
 StyleBox["Draw2D",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". ",
 StyleBox["To insert a template for ",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Draw2D",
  FontFamily->"Courier",
  FontWeight->"Bold",
  FontSlant->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" into your notebook",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ", click the Graphics category in the ",
 StyleBox["DrawingPaper",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " section. That will open a fly-out menu; select ",
 StyleBox["Draw2D",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " from it. (I couldn't capture the fly-out menu in a screen shot.) Here is \
the template you'll see inserted in your Input cell:",
 "\n",
 "\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    StyleBox["Draw2D",
     FontFamily->"Courier"], 
    StyleBox["[",
     FontFamily->"Courier"], 
    RowBox[{
     RowBox[{
      StyleBox["{",
       FontFamily->"Courier"], 
      TagBox[
       FrameBox["primitives"],
       "Placeholder"], "}"}], 
     StyleBox[",",
      FontFamily->"Courier"], 
     TagBox[
      FrameBox["options"],
      "Placeholder"]}], 
    StyleBox["]",
     FontFamily->"Courier"]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.4921711873125*^9, 3.492171304953125*^9}, {
   3.492171413453125*^9, 3.492171425984375*^9}, {3.492171616453125*^9, 
   3.492171617671875*^9}, {3.49217165340625*^9, 3.49217165825*^9}, 
   3.493460256875*^9},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 "Just like templates from ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "'s built-in ",
 StyleBox["Classroom Assistant",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " palette, the template for ",
 StyleBox["Draw2D",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " will show you the syntax of the function. Placeholders with suggestive \
names appear where you will type the function's arguments. You can tab from \
one placeholder to the next and type entries there, or insert entries there \
from other templates."
}], "Text",
 CellChangeTimes->{{3.492171327265625*^9, 3.492171394234375*^9}, {
   3.492171705578125*^9, 3.492171798328125*^9}, {3.49217222003125*^9, 
   3.492172280609375*^9}, 3.4934602600625*^9}],

Cell[TextData[{
 "For example, in the ",
 StyleBox["Draw2D",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " template in your notebook, make sure the ",
 StyleBox["primitives",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 " placeholder is selected. ",
 StyleBox["To insert a template for a complex geometric primitive object",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 ", in the palette's ",
 StyleBox["Complex Graphics",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " section click ",
 StyleBox["Primitives",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". From the fly-out menu, select a primitive, e.g., ",
 StyleBox["ComplexCircle",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". This is what you will now see in your notebook:\n\t",
 Cell[BoxData[
  FormBox[
   RowBox[{
    StyleBox["Draw2D",
     FontFamily->"Courier"], 
    StyleBox["[",
     FontFamily->"Courier"], 
    RowBox[{
     StyleBox["{",
      FontFamily->"Courier"], 
     RowBox[{
      StyleBox["ComplexCircle",
       FontFamily->"Courier"], 
      StyleBox["[",
       FontFamily->"Courier"], 
      RowBox[{
       TagBox[
        FrameBox["z"],
        "Placeholder"], 
       StyleBox[",",
        FontFamily->"Courier"], 
       RowBox[{
        TagBox[
         FrameBox["radius"],
         "Placeholder"], 
        StyleBox[
         RowBox[{"]", "}"}],
         FontFamily->"Courier"]}], 
       StyleBox[",",
        FontFamily->"Courier"], 
       TagBox[
        FrameBox["options"],
        "Placeholder"]}], 
      StyleBox["]",
       FontFamily->"Courier"]}]}]}], TraditionalForm]]],
 "\nNow you can go ahead and type in a value for ",
 StyleBox["z",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Italic"],
 " (the circle's center, as a complex number) and radius."
}], "Text",
 CellChangeTimes->{{3.492172286546875*^9, 3.492172460921875*^9}, {
  3.49217253309375*^9, 3.492172581515625*^9}},
 ParagraphSpacing->{0.5, 0}],

Cell[TextData[{
 "To complete this example, you would either delete the options placeholder \
and the comma preceding it, or else insert some options for ",
 StyleBox["Draw2D",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " that affect the appearance of the overall drawing."
}], "Text",
 CellChangeTimes->{{3.4921725984375*^9, 3.4921726616875*^9}, {
  3.49346027346875*^9, 3.493460275484375*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["OptionsFinder",
 FontFamily->"Courier",
 FontWeight->"Bold",
 FontSlant->"Plain"]], "Subsection",
 CellChangeTimes->{{3.493464704875*^9, 3.493464708046875*^9}}],

Cell[TextData[{
 StyleBox["PresentationsPalette",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " includes an ",
 StyleBox["OptionsFinder",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " button that is handy for finding out about, and inserting options for ",
 StyleBox["any",
  FontSlant->"Italic"],
 " function ",
 StyleBox["func",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 "\[LongDash]provided you already have an  expression including at least ",
 StyleBox["func[",
  FontFamily->"Courier",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " involving that function. To use it:\n\t1. Click the ",
 StyleBox["OptionsFinder",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " button in ",
 StyleBox["PresentationsPalette",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". This opens a new, small ",
 StyleBox["Options for selected function",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " palette.\n\t2. In your notebook, highlight the function's name, or the \
expression beginning with that name, and on the palette click the button ",
 StyleBox["Options (tooltips)",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 ". This opens a new palette showing all the available options for that \
function.\n\t3. If you mouse over an option's name, you'll see a tooltip \
giving the default value for the option. If you click the ",
 StyleBox["?",
  FontFamily->"Helvetica",
  FontWeight->"Plain",
  FontSlant->"Plain"],
 " button next to one of the options' names, you'll see a tooltip giving a \
brief description of that option.\n\t4. In your notebook, put the cursor into \
where an option could go.\n\t5. On the palette for the function's options, \
click the name of the option you want. This inserts into your notebook the \
option with its default value set.\n\t6. The default value for the option \
will be highlighted. You may now type over that value to change it."
}], "Text",
 CellChangeTimes->{{3.493463418625*^9, 3.4934634291875*^9}, {
   3.493463636703125*^9, 3.493463760453125*^9}, {3.49346385034375*^9, 
   3.493463857765625*^9}, {3.493463907625*^9, 3.4934640576875*^9}, {
   3.49346409053125*^9, 3.493464211546875*^9}, {3.49346426653125*^9, 
   3.4934643188125*^9}, {3.49346436528125*^9, 3.493464521359375*^9}, {
   3.493464572703125*^9, 3.49346462715625*^9}, {3.49346472034375*^9, 
   3.493464800625*^9}, 3.493832145640625*^9},
 ParagraphSpacing->{0.5, 0}]
}, Closed]]
}, Closed]]
}, Open  ]]
},
WindowSize->{550, 515},
WindowMargins->{{48, Automatic}, {Automatic, 21}},
PrivateNotebookOptions -> {"NotebookAuthor" -> ""},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    CellGroupData[{
      Cell["Style Environment Names", "Section"], 
      Cell[
       StyleData[All, "Working"], Background -> 
       RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], 
      Cell[
       StyleData[All, "Presentation"], Background -> 
       RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], 
      Cell[
       StyleData[All, "SlideShow"], Background -> 
       RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], 
      Cell[
       StyleData[All, "Condensed"], Background -> 
       RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], 
      Cell[
       StyleData[All, "Printout"], Background -> None]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Notebook Options Settings", "Section"], 
      Cell[
       StyleData["Notebook"], ShowCellBracket -> Automatic, 
       InputAliases -> {"intt" -> RowBox[{"\[Integral]", 
            RowBox[{"\[SelectionPlaceholder]", 
              RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "dintt" -> 
         RowBox[{
            SubsuperscriptBox[
            "\[Integral]", "\[SelectionPlaceholder]", "\[Placeholder]"], 
            RowBox[{"\[Placeholder]", 
              RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "sumt" -> 
         RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], 
             "\[Placeholder]"], "\[Placeholder]"}], "prodt" -> RowBox[{
            UnderoverscriptBox["\[Product]", 
             RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], 
             "\[Placeholder]"], "\[Placeholder]"}], "dt" -> RowBox[{
            SubscriptBox["\[PartialD]", "\[Placeholder]"], " ", 
            "\[SelectionPlaceholder]"}], "prime" -> "\:02b9", "dprime" -> 
         "\:02ba"}, Magnification -> 1.04]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Styles for Title and Section Cells", "Section"], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Title"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 5}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold", 
          FontColor -> GrayLevel[0], Background -> 
          RGBColor[0.737255, 0.894118, 0.807843]], 
         Cell[
          StyleData["Title", "Printout"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 5}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontFamily -> "Helvetica", FontSize -> 26, FontWeight -> "Bold", 
          FontColor -> GrayLevel[0], Background -> None]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Subtitle"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 0}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontFamily -> "Helvetica", FontSize -> 24, Background -> 
          RGBColor[0.815686, 0.901961, 0.92549]], 
         Cell[
          StyleData["Subtitle", "Printout"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 0}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontFamily -> "Helvetica", FontSize -> 18, Background -> None]}, 
        Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Chaptertitle"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 0}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1170, FontFamily -> "Helvetica", FontSize -> 24, 
          Background -> RGBColor[0.941176, 0.87451, 0.784314]], 
         Cell[
          StyleData["Chaptertitle", "Printout"], ShowCellBracket -> False, 
          CellMargins -> {{12, Inherited}, {0, 0}}, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1170, FontFamily -> "Helvetica", FontSize -> 18, 
          Background -> None]}, Open]], 
      Cell[
       StyleData["Subsubtitle"], ShowCellBracket -> False, 
       CellMargins -> {{12, Inherited}, {20, 5}}, FontFamily -> "Helvetica", 
       FontSize -> 14, FontWeight -> "Bold", FontSlant -> "Plain"], 
      Cell[
       StyleData["Section"], CellFrame -> False, ShowGroupOpener -> True, 
       AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}], 
      Cell[
       StyleData["Subsection"], CellDingbat -> "", ShowGroupOpener -> True, 
       AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}], 
      Cell[
       StyleData["Subsubsection"], CellDingbat -> "", ShowGroupOpener -> True,
        AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}], 
      Cell[
       StyleData["Subsubsubsection"], CellDingbat -> "", ShowGroupOpener -> 
       True, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"},
        MenuPosition -> 1360], 
      Cell[
       StyleData["Subsubsubsubsection"], ShowGroupOpener -> True, 
       AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
       MenuPosition -> 1370]}, Closed]], 
   Cell[
    CellGroupData[{
      Cell["Styles for Body Text", "Section"], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Text"], 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontSize -> 14], 
         Cell[
          StyleData["Text", "Printout"], 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          FontSize -> 10]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EvaluatableText", StyleDefinitions -> StyleData["Text"]],
           Evaluator -> None, Evaluatable -> True, MenuPosition -> 1405], 
         Cell[
          StyleData["EvaluatableText", "Printout"], Evaluator -> None, 
          Evaluatable -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1405, FontSize -> 10]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["EmphasisText", StyleDefinitions -> StyleData["Text"]], 
          CellFrame -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1410, FontFamily -> "Helvetica", FontSize -> 14], 
         Cell[
          StyleData["EmphasisText", "Printout"], CellFrame -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1410, FontFamily -> "Helvetica", FontSize -> 10]}, 
        Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["BlueComments", StyleDefinitions -> StyleData["Text"]], 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1420, FontSize -> 14, Background -> 
          RGBColor[0.941207, 0.972503, 1]], 
         Cell[
          StyleData[
          "BlueComments", "Printout", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, 
          Hyphenation -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1420, FontSize -> 10]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData[
          "Exercise", StyleDefinitions -> StyleData["BlueComments"]], 
          CellFrame -> True, TextJustification -> 0.5, Hyphenation -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          CounterIncrements -> "Exercise", MenuPosition -> 1425, FontSize -> 
          14, Background -> RGBColor[0.941207, 0.972503, 1]], 
         Cell[
          StyleData[
          "Exercise", "Printout", StyleDefinitions -> StyleData["Text"]], 
          CellFrame -> True, TextJustification -> 0.5, Hyphenation -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          CounterIncrements -> "Exercise", MenuPosition -> 1425, FontSize -> 
          10]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["PinkComments", StyleDefinitions -> StyleData["Text"]], 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1430, FontSize -> 14, Background -> 
          RGBColor[1, 0.894102, 0.882399]], 
         Cell[
          StyleData[
          "PinkComments", "Printout", StyleDefinitions -> StyleData["Text"]], 
          CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, 
          Hyphenation -> True, 
          AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, 
          MenuPosition -> 1430, FontSize -> 10]}, Open]]}, Open]], 
   Cell[
    CellGroupData[{
      Cell["Styles for Input and Output Cells", "Section"], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Input"], FontSize -> 13, FontWeight -> "Bold", 
          Background -> RGBColor[0.976471, 0.909804, 0.815686]], 
         Cell[
          StyleData["Input", "Printout"], FontSize -> 10, FontWeight -> 
          "Bold", Background -> None]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["Output"], FontSize -> 14, FontWeight -> "Bold"], 
         Cell[
          StyleData["Output", "Printout"], FontSize -> 10, FontWeight -> 
          "Bold"]}, Open]], 
      Cell[
       CellGroupData[{
         Cell[
          StyleData["MSG"], FontSize -> 14], 
         Cell[
          StyleData["MSG", "Printout"], FontSize -> 10]}, Open]]}, Closed]]}, 
  Visible -> False, FrontEndVersion -> 
  "7.0 for Microsoft Windows (32-bit) (February 18, 2009)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "c:1"->{
  Cell[26106, 863, 323, 9, 36, "Section",
   CellTags->{"c:1", "loading"}]},
 "elsewhere"->{
  Cell[18211, 599, 199, 7, 38, "Subsection",
   CellTags->"elsewhere"]},
 "loading"->{
  Cell[26106, 863, 323, 9, 36, "Section",
   CellTags->{"c:1", "loading"}]},
 "thePalette"->{
  Cell[45027, 1438, 189, 7, 36, "Section",
   CellTags->"thePalette"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"c:1", 118172, 2974},
 {"elsewhere", 118265, 2977},
 {"loading", 118352, 2980},
 {"thePalette", 118446, 2983}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 151, 2, 44, "Subsubtitle"],
Cell[CellGroupData[{
Cell[733, 26, 227, 7, 45, "Subtitle"],
Cell[963, 35, 502, 8, 44, "Subsubtitle"],
Cell[1468, 45, 235, 6, 24, "SmallText"],
Cell[1706, 53, 401, 11, 52, "Text"],
Cell[CellGroupData[{
Cell[2132, 68, 95, 1, 67, "Section"],
Cell[CellGroupData[{
Cell[2252, 73, 183, 3, 39, "Subsection"],
Cell[2438, 78, 285, 7, 62, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[2760, 90, 98, 1, 31, "Subsection"],
Cell[2861, 93, 247, 5, 32, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[3157, 104, 152, 5, 36, "Section"],
Cell[3312, 111, 791, 18, 112, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[4140, 134, 116, 1, 36, "Section"],
Cell[4259, 137, 326, 7, 62, "Text"],
Cell[4588, 146, 228, 4, 62, "Text"],
Cell[4819, 152, 278, 5, 62, "Text"],
Cell[5100, 159, 1345, 35, 204, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[6482, 199, 159, 5, 36, "Section"],
Cell[6644, 206, 600, 16, 72, "Text"],
Cell[CellGroupData[{
Cell[7269, 226, 248, 7, 38, "Subsection"],
Cell[7520, 235, 579, 13, 72, "Text"],
Cell[CellGroupData[{
Cell[8124, 252, 117, 1, 27, "Subsubsection"],
Cell[8244, 255, 675, 14, 32, "Text"],
Cell[8922, 271, 351, 10, 32, "Text"],
Cell[9276, 283, 504, 15, 53, "Text"],
Cell[9783, 300, 1152, 44, 95, "Text"],
Cell[10938, 346, 223, 4, 52, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[11198, 355, 132, 1, 27, "Subsubsection"],
Cell[11333, 358, 511, 15, 53, "Text"],
Cell[11847, 375, 1321, 46, 187, "Text"],
Cell[13171, 423, 377, 13, 52, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[13597, 442, 239, 7, 38, "Subsection"],
Cell[13839, 451, 316, 9, 32, "Text"],
Cell[14158, 462, 127, 3, 31, "Text"],
Cell[14288, 467, 106, 1, 48, "Input"],
Cell[14397, 470, 155, 3, 31, "Text"],
Cell[14555, 475, 285, 8, 53, "Text"],
Cell[14843, 485, 673, 17, 53, "Text"],
Cell[15519, 504, 1530, 52, 240, "Text"],
Cell[17052, 558, 536, 16, 92, "Text"],
Cell[17591, 576, 583, 18, 72, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[18211, 599, 199, 7, 38, "Subsection",
 CellTags->"elsewhere"],
Cell[18413, 608, 323, 8, 52, "Text"],
Cell[18739, 618, 569, 14, 90, "PinkComments"],
Cell[19311, 634, 147, 3, 31, "Text"],
Cell[19461, 639, 287, 9, 32, "Text"],
Cell[19751, 650, 423, 11, 32, "Text"],
Cell[20177, 663, 567, 16, 53, "Text"],
Cell[20747, 681, 1743, 59, 203, "Text"],
Cell[22493, 742, 491, 15, 72, "Text"],
Cell[22987, 759, 315, 8, 31, "Text"],
Cell[23305, 769, 187, 3, 48, "Input"],
Cell[23495, 774, 403, 13, 53, "Text"],
Cell[23901, 789, 317, 6, 69, "Input"],
Cell[24221, 797, 118, 1, 31, "Text"],
Cell[24342, 800, 250, 6, 69, "Input"],
Cell[24595, 808, 315, 11, 31, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[24947, 824, 274, 8, 39, "Subsection"],
Cell[25224, 834, 833, 23, 74, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[26106, 863, 323, 9, 36, "Section",
 CellTags->{"c:1", "loading"}],
Cell[26432, 874, 716, 19, 63, "Text"],
Cell[27151, 895, 870, 22, 63, "Text"],
Cell[28024, 919, 195, 4, 56, "Input"],
Cell[28222, 925, 302, 10, 37, "Text"],
Cell[28527, 937, 662, 18, 141, "EmphasisText"],
Cell[29192, 957, 2254, 55, 398, "Text"],
Cell[31449, 1014, 1995, 59, 498, "Exercise"]
}, Closed]],
Cell[CellGroupData[{
Cell[33481, 1078, 214, 6, 36, "Section"],
Cell[33698, 1086, 652, 18, 37, "Text"],
Cell[34353, 1106, 109, 1, 56, "Input"],
Cell[34465, 1109, 1205, 36, 165, "Text"],
Cell[35673, 1147, 561, 13, 85, "Text"],
Cell[36237, 1162, 499, 12, 36, "Text"],
Cell[36739, 1176, 845, 20, 85, "Text"],
Cell[37587, 1198, 813, 26, 63, "Text"],
Cell[38403, 1226, 111, 2, 56, "Input"],
Cell[38517, 1230, 612, 12, 62, "Text"],
Cell[39132, 1244, 771, 22, 109, "Text"],
Cell[39906, 1268, 483, 16, 62, "Text"],
Cell[40392, 1286, 145, 3, 56, "Input"],
Cell[40540, 1291, 323, 6, 36, "Text"],
Cell[40866, 1299, 851, 24, 87, "Text"],
Cell[41720, 1325, 416, 13, 37, "Text"],
Cell[42139, 1340, 74, 1, 56, "Input"],
Cell[42216, 1343, 973, 23, 178, "Text"],
Cell[43192, 1368, 734, 24, 121, "Exercise"],
Cell[43929, 1394, 528, 20, 62, "Exercise"],
Cell[44460, 1416, 530, 17, 63, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[45027, 1438, 189, 7, 36, "Section",
 CellTags->"thePalette"],
Cell[45219, 1447, 585, 14, 73, "Text"],
Cell[45807, 1463, 1406, 39, 202, "Text"],
Cell[47216, 1504, 798, 19, 72, "Text"],
Cell[48017, 1525, 183, 2, 31, "Text"],
Cell[CellGroupData[{
Cell[48225, 1531, 104, 1, 38, "Subsection"],
Cell[48332, 1534, 457, 15, 37, "Text"],
Cell[48792, 1551, 116, 1, 36, "Text"],
Cell[48911, 1554, 9434, 162, 209, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[58382, 1721, 122, 1, 30, "Subsection"],
Cell[58507, 1724, 719, 21, 87, "Text"],
Cell[59229, 1747, 600, 21, 64, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[59866, 1773, 225, 3, 30, "Subsection"],
Cell[60094, 1778, 484, 18, 64, "Text"],
Cell[60581, 1798, 503, 15, 63, "Text"],
Cell[61087, 1815, 15417, 261, 347, "Text"],
Cell[76507, 2078, 731, 24, 88, "Text"],
Cell[77241, 2104, 22490, 377, 523, "Text"],
Cell[99734, 2483, 158, 3, 36, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[99929, 2491, 126, 1, 30, "Subsection"],
Cell[100058, 2494, 1709, 61, 152, "Text"],
Cell[101770, 2557, 792, 21, 110, "Text"],
Cell[102565, 2580, 2086, 75, 212, "Text"],
Cell[104654, 2657, 424, 10, 85, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[105115, 2672, 184, 4, 29, "Subsection"],
Cell[105302, 2678, 2566, 65, 430, "Text"]
}, Closed]]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)