(************** Content-type: application/mathematica **************
                     CreatedBy='Mathematica 5.1'

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do
one of the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the
  application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
*******************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     38964,        838]*)
(*NotebookOutlinePosition[     39727,        864]*)
(*  CellTagsIndexPosition[     39683,        860]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[BoxData[
    \(<< Graphics`Spline`\)], "Input"],

Cell[BoxData[
    \(resample[points_, samples_] := 
      Part[points, 
        Map[Round, 
          Range[1, 
            Length[points], \(Length[points] - 1\)\/\(samples - 1\)]]]\)], \
"Input"],

Cell[CellGroupData[{

Cell["Initialize", "Subsubsection"],

Cell[BoxData[
    \(Needs["\<GUIKit`\>"]\)], "Input",
  InitializationCell->True],

Cell[BoxData[
    \(\(userInputWindow = 
        Widget["\<Panel\>", \[IndentingNewLine]{Widget["\<MathPanel\>", \
\[IndentingNewLine]{"\<preferredSize\>" \[Rule] 
                  Widget["\<Dimension\>", {"\<width\>" \[Rule] 
                        300, \ "\<height\>" \[Rule] 
                        300}], \
\[IndentingNewLine]\[IndentingNewLine]BindEvent[\[IndentingNewLine]"\<\
mouseDragged\>", \[IndentingNewLine]\[IndentingNewLine]Script[\
\[IndentingNewLine]\(mouseDraggedFunc[\ \
\[IndentingNewLine]PropertyValue[{"\<#\>", \ "\<x\>"}], \ 
                        PropertyValue[{"\<#\>", "\<y\>"}]];\)\
\[IndentingNewLine]\ ]\[IndentingNewLine]\ ], \[IndentingNewLine]\
\[IndentingNewLine]BindEvent["\<endModal\>", \ 
                  Script[returnPts]], \[IndentingNewLine]}, \
\[IndentingNewLine]\[IndentingNewLine]Name \[Rule] "\<canvas\>", \ \
\[IndentingNewLine]WidgetLayout \[Rule] {"\<Stretching\>" \[Rule] {Maximize, \
\ Maximize}}\[IndentingNewLine]], \
\[IndentingNewLine]\[IndentingNewLine]Script[\[IndentingNewLine]pts = {{0, 
                    0}}; \[IndentingNewLine]\[IndentingNewLine]createGraphics[\
] := \[IndentingNewLine]If[\[IndentingNewLine]WidgetReference["\<g\>"] === 
                    Null, \[IndentingNewLine]\[IndentingNewLine]InvokeMethod[\
\[IndentingNewLine]{"\<canvas\>", "\<createImage\>"}, \
\[IndentingNewLine]PropertyValue[{"\<canvas\>", "\<width\>"}], \
\[IndentingNewLine]PropertyValue[{"\<canvas\>", "\<height\>"}], \
\[IndentingNewLine]\ 
                    Name -> "\<offscreen\>"\[IndentingNewLine]]; \
\[IndentingNewLine]\[IndentingNewLine]PropertyValue[{"\<offscreen\>", \ \
"\<graphics\>"}, \ 
                    Name -> "\<g\>"]\ ; \
\[IndentingNewLine]SetPropertyValue[{"\<g\>", "\<color\>"}, \ 
                    Widget["\<Color\>", 
                      InitialArguments \[Rule] {0, 0, 
                          0}]];\[IndentingNewLine]]; \[IndentingNewLine]\
\[IndentingNewLine]mouseDraggedFunc[x_, 
                  y_] := \((\[IndentingNewLine]createGraphics[]; \
\[IndentingNewLine]InvokeMethod[{"\<g\>", \ "\<drawLine\>"}, \ 
                    pts\[LeftDoubleBracket]\(-1\), 1\[RightDoubleBracket], 
                    pts\[LeftDoubleBracket]\(-1\), 2\[RightDoubleBracket], x, 
                    
                    y]; \[IndentingNewLine]SetPropertyValue[{"\<canvas\>", \ \
"\<image\>"}, \ 
                    WidgetReference["\<offscreen\>"]]; \
\[IndentingNewLine]InvokeMethod[{"\<canvas\>", \ "\<repaintNow\>"}]; \
\[IndentingNewLine]AppendTo[
                    pts, {x, 
                      y}]; \[IndentingNewLine] (*\(Print["\<{\>", x, "\<,\>", 
                        y, "\<}\>"];\)*) \[IndentingNewLine])\); \
\[IndentingNewLine]\[IndentingNewLine]returnPts\  := \ 
                pts;\[IndentingNewLine]\[IndentingNewLine]]\[IndentingNewLine]\
}\[IndentingNewLine]];\)\)], "Input",
  InitializationCell->True],

Cell[BoxData[
    \(\(openInputWindow[] := GUIRunModal[userInputWindow];\)\)], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["Evaluate", "Subsubsection"],

Cell[BoxData[
    \(points\  = \ openInputWindow[]; 
    points = \({#, \(-#2\)} &\) @@@ points;\)], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Show[
      Graphics[{Hue[0.3, 1,  .6], AbsolutePointSize[6], 
          Point /@ Rest[points]}], PlotRange \[Rule] All, 
      AspectRatio \[Rule] Automatic]\)], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: 1.13679 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
-0.227763 0.00449236 1.23102 0.00449236 [
[ 0 0 0 0 ]
[ 1 1.13679 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
.12 .6 0 r
6 Mabswid
.03279 .94351 Mdot
.04178 .948 Mdot
.05076 .95249 Mdot
.05526 .96148 Mdot
.05975 .96597 Mdot
.06873 .97046 Mdot
.08221 .97945 Mdot
.0867 .98394 Mdot
.09119 .98843 Mdot
.10018 .99292 Mdot
.10916 1.0064 Mdot
.11366 1.01988 Mdot
.12713 1.02886 Mdot
.14061 1.04234 Mdot
.15409 1.05133 Mdot
.16757 1.06031 Mdot
.19452 1.07379 Mdot
.2035 1.07828 Mdot
.21698 1.08277 Mdot
.23944 1.09176 Mdot
.24843 1.09176 Mdot
.27089 1.09625 Mdot
.30234 1.10074 Mdot
.3248 1.10523 Mdot
.36074 1.10973 Mdot
.39218 1.10973 Mdot
.41914 1.10973 Mdot
.4416 1.10973 Mdot
.46855 1.10973 Mdot
.5 1.10973 Mdot
.52695 1.10973 Mdot
.54492 1.10973 Mdot
.57188 1.10973 Mdot
.58985 1.10074 Mdot
.60332 1.09625 Mdot
.6168 1.08726 Mdot
.63477 1.07828 Mdot
.66173 1.0648 Mdot
.67071 1.06031 Mdot
.69317 1.04683 Mdot
.71114 1.02437 Mdot
.71563 1.00191 Mdot
.72911 .97496 Mdot
.7381 .948 Mdot
.74708 .89858 Mdot
.74708 .87612 Mdot
.75157 .84468 Mdot
.76056 .79975 Mdot
.76505 .77729 Mdot
.76505 .73237 Mdot
.76505 .7144 Mdot
.76505 .68295 Mdot
.76505 .656 Mdot
.76505 .5976 Mdot
.76056 .55717 Mdot
.74259 .49876 Mdot
.7336 .45833 Mdot
.72462 .42239 Mdot
.71114 .38196 Mdot
.70665 .36849 Mdot
.68868 .33255 Mdot
.67969 .30559 Mdot
.66173 .28313 Mdot
.64825 .24719 Mdot
.62129 .22024 Mdot
.60782 .19778 Mdot
.58535 .17981 Mdot
.5584 .14387 Mdot
.53594 .13039 Mdot
.50449 .10344 Mdot
.46855 .08097 Mdot
.42812 .06301 Mdot
.39218 .04953 Mdot
.36972 .04054 Mdot
.32929 .03605 Mdot
.29335 .03156 Mdot
.27089 .03156 Mdot
.24394 .02707 Mdot
.2035 .02707 Mdot
.17206 .02707 Mdot
.1496 .02707 Mdot
.13612 .02707 Mdot
.10916 .03156 Mdot
.0867 .04953 Mdot
.07323 .06301 Mdot
.05076 .08547 Mdot
.03729 .10344 Mdot
.03279 .11242 Mdot
.0283 .13488 Mdot
.02381 .14387 Mdot
.02381 .17082 Mdot
.02381 .18879 Mdot
.02381 .21125 Mdot
.02381 .22473 Mdot
.02381 .23821 Mdot
.0283 .25168 Mdot
.03279 .25618 Mdot
.04178 .26516 Mdot
.05526 .28762 Mdot
.06424 .29661 Mdot
.07772 .30559 Mdot
.0867 .31458 Mdot
.10018 .31907 Mdot
.11815 .31907 Mdot
.13163 .32356 Mdot
.15858 .32805 Mdot
.18553 .33255 Mdot
.208 .33255 Mdot
.24843 .33704 Mdot
.28437 .33704 Mdot
.30683 .33704 Mdot
.33378 .33704 Mdot
.35175 .33704 Mdot
.37421 .33704 Mdot
.39218 .33255 Mdot
.40117 .32356 Mdot
.42363 .31458 Mdot
.4416 .30559 Mdot
.46406 .28313 Mdot
.47305 .27864 Mdot
.49102 .26516 Mdot
.50449 .25618 Mdot
.53145 .2427 Mdot
.54492 .23372 Mdot
.5584 .22024 Mdot
.57188 .20227 Mdot
.58985 .18879 Mdot
.60782 .17531 Mdot
.6168 .16633 Mdot
.63477 .14387 Mdot
.64825 .1259 Mdot
.65723 .11691 Mdot
.67071 .09445 Mdot
.67969 .08097 Mdot
.69317 .0675 Mdot
.71563 .05851 Mdot
.7336 .04953 Mdot
.74259 .04504 Mdot
.76505 .03605 Mdot
.792 .03156 Mdot
.80997 .03156 Mdot
.82794 .02707 Mdot
.84591 .02707 Mdot
.85939 .02707 Mdot
.87287 .02707 Mdot
.89084 .02707 Mdot
.92228 .02707 Mdot
.93127 .02707 Mdot
.94474 .02707 Mdot
.95822 .03605 Mdot
.96271 .04054 Mdot
.9717 .04953 Mdot
.97619 .05851 Mdot
0 0 m
1 0 L
1 1.13679 L
0 1.13679 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{276.188, 313.938},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40004D0001>B000`400?l00000o`00003oo`3ooolE
0?ooo`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00903oool2
01jI0080oooo0P0NV@040?ooo`807YT01`3oool201jI00T0oooo0P0NV@2O0?ooo`807YT00`3oool2
01jI00030?ooo`0NV@007YT00080oooo0P0NV@030?ooo`807YT01`3oool401jI0080oooo0P0NV@0?
0?ooo`007@3oool201jI00@0oooo200NV@020?ooo`@07YT01@3oool401jI00L0oooo100NV@050?oo
o`807YT0103oool201jI08L0oooo0P0NV@030?ooo`807YT00P3oool401jI00030?ooo`0NV@007YT0
00T07YT000<0oooo01jI000NV@000P0NV@050?ooo`X07YT03P3oool001`0oooo100NV@020?oooa00
7YT00`3oool601jI00D0oooo1P0NV@030?ooo`@07YT00P3oool401jI00L0oooo0P0NV@1f0?ooo`80
7YT0103oool401jI00030?ooo`0NV@007YT001T07YT00`3oool>01jI00/0oooo000K0?ooo`H07YT0
00<0oooo01jI000NV@003P0NV@030?ooo`H07YT01@3oool601jI0080oooo300NV@050?ooo`@07YT0
203oool201jI06X0oooo100NV@020?ooob407YT00`3oool?01jI00X0oooo000K0?ooo`H07YT00P3o
ool801jI0080oooo100NV@050?ooo`@07YT01`3oool401jI00<0oooo300NV@040?ooo`H07YT01P3o
ool401jI06P0oooo1P0NV@000`3oool07YT001jI000=01jI00030?ooo`0NV@007YT000T07YT000<0
oooo01jI000NV@000P0NV@050?ooo`l07YT02@3oool001`0oooo100NV@040?ooo`807YT00P3oool2
01jI00@0oooo0P0NV@070?ooo`807YT02@3oool201jI00D0oooo100NV@020?ooo`@07YT01@3oool6
01jI00D0oooo1P0NV@1R0?ooo`807YT00`3oool601jI0080oooo100NV@000`3oool07YT001jI0002
01jI0080oooo0P0NV@030?ooo`807YT000<0oooo01jI000NV@000P3oool201jI00<0oooo0P0NV@07
0?ooo`@07YT00P3oool901jI00P0oooo000G0?ooo`807YT0103oool201jI02/0oooo0P0NV@040?oo
o`807YT01`3oool401jI00H0oooo1P0NV@020?ooo`807YT0G03oool501jI00<0oooo100NV@040?oo
o`807YT00`3oool201jI02H0oooo1P0NV@080?ooo`005P3oool401jI0400oooo0P0NV@080?ooo`@0
7YT00P3oool401jI05X0oooo1`0NV@030?ooo`807YT0<`3oool601jI00L0oooo000E0?ooo`H07YT0
BP3oool201jI0080oooo1P0NV@1E0?ooo`807YT000<0oooo01jI000NV@001P0NV@0i0?ooo`H07YT0
1P3oool001<0oooo200NV@1>0?ooo`H07YT01P3oool201jI04`0oooo2`0NV@0j0?ooo`L07YT01@3o
ool00180oooo200NV@1@0?ooo`@07YT01P3oool401jI04X0oooo2`0NV@0l0?ooo`L07YT0103oool0
0140oooo200NV@1B0?ooo`807YT01P3oool601jI04D0oooo0P0NV@020?ooo`H07YT000<0oooo01jI
000NV@00?`3oool601jI00@0oooo000A0?ooo`H07YT0G03oool601jI04@0oooo100NV@020?ooo`@0
7YT0A03oool401jI00D0oooo000B0?ooo`@07YT0GP3oool401jI04@0oooo1P0NV@020?ooo`807YT0
AP3oool201jI00H0oooo000C0?ooo`807YT0H03oool201jI00T0oooo0P0NV@0h0?ooo`P07YT0DP3o
ool007l0oooo100NV@0f0?ooo`P07YT0D`3oool000d0oooo0P0NV@1_0?ooo`H07YT0=03oool801jI
05@0oooo000<0?ooo`@07YT0KP3oool601jI03@0oooo1P0NV@1F0?ooo`002`3oool601jI06h0oooo
100NV@0e0?ooo`D07YT0E`3oool000/0oooo1P0NV@1_0?ooo`807YT0=@3oool501jI05P0oooo000<
0?ooo`@07YT0YP3oool601jI05P0oooo00090?ooo`807YT00P3oool201jI07/0oooo0P0NV@0Z0?oo
o`H07YT0F03oool000P0oooo100NV@1m0?ooo`@07YT0:P3oool401jI05T0oooo00070?ooo`H07YT0
N`3oool601jI02X0oooo0P0NV@1J0?ooo`001`3oool601jI07/0oooo1P0NV@0V0?ooo`807YT0GP3o
ool000H0oooo1P0NV@1m0?ooo`@07YT09P3oool401jI05d0oooo00060?ooo`H07YT0OP3oool201jI
02H0oooo1P0NV@1L0?ooo`001`3oool401jI0:H0oooo1`0NV@1L0?ooo`00203oool201jI08P0oooo
0P0NV@0L0?ooo`L07YT0G@3oool000L0oooo0P0NV@280?ooo`@07YT06P3oool701jI05h0oooo0006
0?ooo`@07YT0QP3oool601jI01T0oooo1P0NV@1O0?ooo`001@3oool601jI08D0oooo1P0NV@0J0?oo
o`@07YT0H03oool000D0oooo1P0NV@260?ooo`@07YT0103oool201jI01<0oooo0P0NV@000`3oool0
7YT001jI001Q0?ooo`001@3oool501jI08P0oooo0P0NV@040?ooo`@07YT04@3oool401jI06<0oooo
00040?ooo`H07YT0S@3oool601jI00l0oooo1P0NV@1R0?ooo`00103oool601jI08d0oooo1P0NV@0?
0?ooo`H07YT0HP3oool000D0oooo100NV@2?0?ooo`@07YT04@3oool401jI06<0oooo00060?ooo`80
7YT0T@3oool201jI01<0oooo0P0NV@1T0?ooo`00Z@3oool201jI06T0oooo00060?ooo`807YT0X03o
ool401jI06P0oooo00050?ooo`@07YT0W@3oool701jI06L0oooo00040?ooo`H07YT0V`3oool801jI
06L0oooo00040?ooo`H07YT0UP3oool201jI0080oooo200NV@1X0?ooo`001@3oool401jI09H0oooo
100NV@000`3oool07YT001jI000501jI06T0oooo00060?ooo`807YT0UP3oool601jI00030?ooo`0N
V@007YT000807YT0J`3oool000D0oooo100NV@2E0?ooo`H07YT00P3oool201jI06`0oooo00040?oo
o`H07YT0U@3oool601jI06l0oooo00040?ooo`H07YT0U@3oool601jI00030?ooo`0NV@007YT006`0
oooo00050?ooo`@07YT0T`3oool201jI0080oooo100NV@000`3oool07YT001jI000201jI06/0oooo
00060?ooo`807YT0T`3oool401jI0080oooo0P0NV@000`3oool07YT001jI000401jI06X0oooo0006
0?ooo`807YT0TP3oool601jI00@0oooo1P0NV@1Z0?ooo`001@3oool401jI0940oooo1P0NV@050?oo
o`@07YT0J`3oool000@0oooo1P0NV@2A0?ooo`@07YT01`3oool201jI06`0oooo00040?ooo`H07YT0
S`3oool201jI00030?ooo`0NV@007YT000`0oooo0P0NV@1X0?ooo`001@3oool401jI08l0oooo100N
V@0=0?ooo`@07YT0I`3oool000D0oooo100NV@2>0?ooo`H07YT02`3oool601jI06H0oooo00040?oo
o`H07YT0R`3oool801jI00/0oooo1P0NV@1V0?ooo`00103oool601jI08X0oooo200NV@0=0?ooo`@0
7YT0I`3oool000D0oooo100NV@2:0?ooo`P07YT03`3oool201jI06P0oooo00050?ooo`@07YT0R03o
ool801jI07/0oooo00040?ooo`H07YT0QP3oool801jI01T0oooo0P0NV@1Q0?ooo`00103oool601jI
08D0oooo200NV@0I0?ooo`@07YT0H03oool000D0oooo1@0NV@250?ooo`H07YT06P3oool601jI05l0
oooo00050?ooo`H07YT0O`3oool201jI00@0oooo100NV@0K0?ooo`H07YT0G`3oool000D0oooo1P0N
V@1n0?ooo`@07YT0103oool201jI01d0oooo100NV@1P0?ooo`001P3oool701jI07T0oooo200NV@0S
0?ooo`807YT0H@3oool000H0oooo200NV@1g0?ooo`T07YT0QP3oool000L0oooo200NV@1e0?ooo`T0
7YT0Q`3oool000P0oooo1`0NV@1e0?ooo`P07YT0R03oool000X0oooo100NV@1c0?ooo`807YT00P3o
ool401jI08/0oooo000;0?ooo`807YT0LP3oool501jI0080oooo0P0NV@0]0?ooo`807YT0G@3oool0
00h0oooo0P0NV@1^0?ooo`L07YT0;`3oool401jI05`0oooo000=0?ooo`@07YT0K03oool801jI02h0
oooo1P0NV@1K0?ooo`00303oool601jI06/0oooo1`0NV@0_0?ooo`H07YT0F`3oool000`0oooo1`0N
V@1[0?ooo`D07YT0<@3oool401jI05`0oooo000=0?ooo`L07YT0J`3oool201jI03@0oooo0P0NV@1M
0?ooo`003P3oool801jI06<0oooo0P0NV@0o0?ooo`807YT0F03oool000l0oooo200NV@1Q0?ooo`@0
7YT0?@3oool401jI05L0oooo000@0?ooo`P07YT0G`3oool601jI03/0oooo1P0NV@1F0?ooo`004@3o
ool801jI05/0oooo0P0NV@000`3oool07YT001jI000401jI03/0oooo1P0NV@1F0?ooo`004`3oool7
01jI00030?ooo`0NV@007YT000<0oooo0P0NV@1A0?ooo`@07YT000<0oooo01jI000NV@000P0NV@0m
0?ooo`@07YT0E`3oool001@0oooo2P0NV@000`3oool07YT001jI000401jI04P0oooo0P0NV@030?oo
o`H07YT000<0oooo01jI000NV@00?`3oool201jI05P0oooo000E0?oooa407YT01@3oool201jI03l0
oooo100NV@020?ooo`H07YT0W03oool001H0oooo4@0NV@030?ooo`@07YT0?@3oool601jI0080oooo
100NV@2M0?ooo`005`3oool201jI00030?ooo`0NV@007YT000807YT000<0oooo01jI000NV@001P0N
V@020?ooo`H07YT00`3oool201jI00@0oooo0P0NV@0a0?ooo`H07YT00`3oool201jI04L0oooo0P0N
V@1E0?ooo`006`3oool201jI00<0oooo1P0NV@030?ooo`H07YT00P3oool401jI0080oooo100NV@08
0?ooo`807YT0203oool201jI00@0oooo0P0NV@060?ooo`807YT00`3oool201jI00@0oooo0P0NV@02
0?ooo`H07YT0C03oool401jI05@0oooo000S0?ooo`807YT01@3oool401jI0080oooo300NV@060?oo
o`@07YT01P3oool401jI0080oooo100NV@040?ooo`@07YT000<0oooo01jI000NV@000P0NV@020?oo
o`X07YT0C03oool601jI05<0oooo000[0?ooo`807YT00`3oool<01jI00D0oooo1P0NV@040?ooo``0
7YT00P3ooolF01jI04`0oooo1P0NV@1C0?ooo`00<@3oool401jI0080oooo100NV@060?ooo`H07YT0
103oool<01jI0080oooo5@0NV@1>0?ooo`@07YT0E03oool00380oooo0P0NV@040?ooo`807YT0203o
ool401jI00H0oooo100NV@020?ooo`@07YT0103oool401jI00030?ooo`0NV@007YT000807YT00P3o
ool401jI0080oooo0P0NV@1@0?ooo`807YT0E@3oool004<0oooo0P0NV@080?ooo`807YT0103oool2
01jI00H0oooo0P0NV@030?ooo`807YT0103oool201jI0:`0oooo003o0?oooaD0oooo003o0?oooaD0
oooo003o0?oooaD0oooo00310?ooo`807YT0D@3oool00<00oooo100NV@1@0?ooo`00_`3oool601jI
04l0oooo002o0?ooo`H07YT0C`3oool00<00oooo1P0NV@1>0?ooo`00`@3oool601jI04d0oooo0031
0?ooo`H07YT0C@3oool00<80oooo100NV@1>0?ooo`00``3oool201jI04l0oooo003o0?oooaD0oooo
003o0?oooaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo00360?ooo`807YT0
C03oool00<D0oooo100NV@1;0?ooo`00a03oool601jI04X0oooo00340?ooo`H07YT0BP3oool00<D0
oooo100NV@1;0?ooo`00aP3oool201jI04`0oooo003o0?oooaD0oooo003o0?oooaD0oooo003o0?oo
oaD0oooo003o0?oooaD0oooo00390?ooo`807YT0B@3oool00<P0oooo100NV@180?ooo`00a`3oool6
01jI04L0oooo00370?ooo`H07YT0A`3oool00<P0oooo100NV@180?ooo`00b@3oool201jI04T0oooo
003o0?oooaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo
003;0?ooo`807YT0A`3oool00<X0oooo100NV@160?ooo`00b@3oool601jI04D0oooo00390?ooo`H0
7YT0A@3oool00<X0oooo100NV@160?ooo`00b`3oool201jI04L0oooo003o0?oooaD0oooo003o0?oo
oaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo003o0?oo
oaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo003@0?ooo`807YT0@P3oool0
0<l0oooo100NV@110?ooo`00cP3oool601jI0400oooo003>0?ooo`H07YT0@03oool00<l0oooo100N
V@110?ooo`00d03oool201jI0480oooo003o0?oooaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo
003o0?oooaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo003B0?ooo`807YT0@03oool00=40oooo
100NV@0o0?ooo`00d03oool601jI03h0oooo003@0?ooo`H07YT0?P3oool00=40oooo100NV@0o0?oo
o`00dP3oool201jI0400oooo003o0?oooaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo003o0?oo
oaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo003o0?oo
oaD0oooo003o0?oooaD0oooo003B0?ooo`807YT0@03oool00=40oooo100NV@0o0?ooo`00d03oool6
01jI03h0oooo003@0?ooo`H07YT0?P3oool00=40oooo100NV@0o0?ooo`00dP3oool201jI0400oooo
003o0?oooaD0oooo003B0?ooo`807YT0@03oool00=40oooo100NV@0o0?ooo`00d03oool601jI03h0
oooo003@0?ooo`H07YT0?P3oool00=40oooo100NV@0o0?ooo`00dP3oool201jI0400oooo003o0?oo
oaD0oooo003o0?oooaD0oooo003o0?oooaD0oooo003B0?ooo`807YT0@03oool00=40oooo100NV@0o
0?ooo`00d03oool601jI03h0oooo003@0?ooo`H07YT0?P3oool00=40oooo100NV@0o0?ooo`00dP3o
ool201jI0400oooo003A0?ooo`@07YT0?`3oool00=00oooo1P0NV@0n0?ooo`00d03oool601jI03h0
oooo003A0?ooo`@07YT0?`3oool00=80oooo0P0NV@100?ooo`00o`3ooolE0?ooo`00o`3ooolE0?oo
o`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00dP3oool201jI
0400oooo003A0?ooo`@07YT0?`3oool00=00oooo1P0NV@0n0?ooo`00d03oool601jI03h0oooo003A
0?ooo`@07YT0?`3oool00=80oooo0P0NV@100?ooo`00d03oool201jI0480oooo003?0?ooo`@07YT0
@@3oool00<h0oooo1P0NV@100?ooo`00cP3oool601jI0400oooo003?0?ooo`@07YT0@@3oool00=00
oooo0P0NV@120?ooo`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00o`3ooolE0?oo
o`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00cP3oool201jI04@0oooo003=0?oo
o`@07YT0@`3oool00<`0oooo1P0NV@120?ooo`00c03oool601jI0480oooo003=0?ooo`@07YT0@`3o
ool00<h0oooo0P0NV@140?ooo`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00c@3oool201jI04D0oooo
003<0?ooo`@07YT0A03oool00</0oooo1P0NV@130?ooo`00b`3oool601jI04<0oooo003<0?ooo`@0
7YT0A03oool00<d0oooo0P0NV@150?ooo`00c@3oool201jI04D0oooo003<0?ooo`@07YT0A03oool0
0</0oooo1P0NV@130?ooo`00b`3oool601jI04<0oooo003<0?ooo`@07YT0A03oool00<d0oooo0P0N
V@150?ooo`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00o`3o
oolE0?ooo`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00203oool201jI0?l0oooo2`3oool000L0oooo
1P0NV@2m0?ooo`807YT0B03oool000H0oooo2@0NV@2j0?ooo`@07YT0A`3oool000H0oooo2P0NV@2h
0?ooo`H07YT0AP3oool000L0oooo2P0NV@2g0?ooo`H07YT0AP3oool000P0oooo2@0NV@2h0?ooo`@0
7YT0A`3oool000/0oooo1P0NV@2i0?ooo`807YT0B03oool000`0oooo200NV@3o0?ooo`40oooo000<
0?ooo`T07YT0/`3oool201jI04X0oooo000=0?ooo`T07YT0/@3oool401jI04T0oooo000>0?ooo`X0
7YT0[P3oool601jI04P0oooo000?0?ooo`X07YT0[@3oool601jI04P0oooo000B0?ooo`P07YT0[@3o
ool401jI04T0oooo000D0?ooo`T07YT0Z`3oool201jI04X0oooo000E0?ooo`T07YT0mP3oool001H0
oooo2@0NV@3e0?ooo`005`3oool801jI0:D0oooo0P0NV@1>0?ooo`00603oool701jI0:@0oooo100N
V@1=0?ooo`006`3oool501jI0:80oooo1P0NV@1<0?ooo`006`3oool601jI0:40oooo1P0NV@1<0?oo
o`006`3oool601jI0:80oooo100NV@1=0?ooo`00703oool401jI0:@0oooo0P0NV@1>0?ooo`007@3o
ool401jI0:80oooo0P0NV@1?0?ooo`00703oool801jI09h0oooo100NV@1>0?ooo`00703oool901jI
09`0oooo1P0NV@1=0?ooo`007@3oool901jI09/0oooo1P0NV@1=0?ooo`007P3oool801jI09`0oooo
100NV@1>0?ooo`008@3oool401jI00030?ooo`0NV@007YT009/0oooo0P0NV@1?0?ooo`008P3oool2
01jI00030?ooo`0NV@007YT000807YT0U@3oool201jI05@0oooo000T0?ooo`L07YT0TP3oool401jI
05<0oooo000T0?ooo`P07YT0T03oool601jI0580oooo000U0?ooo`P07YT0S`3oool601jI0580oooo
000V0?ooo`T07YT0R@3oool201jI00<0oooo100NV@1C0?ooo`00:03oool801jI08D0oooo1P0NV@03
0?ooo`807YT0E03oool002T0oooo200NV@230?ooo`P07YT0F03oool002/0oooo1P0NV@220?ooo`T0
7YT0F03oool002`0oooo100NV@050?ooo`807YT0O03oool801jI05T0oooo000]0?ooo`807YT01@3o
ool501jI07D0oooo0P0NV@040?ooo`H07YT0FP3oool003<0oooo1`0NV@000`3oool07YT001jI001`
0?ooo`@07YT0103oool201jI05d0oooo000c0?ooo`/07YT0J`3oool201jI00030?ooo`0NV@007YT0
00@07YT0HP3oool003@0oooo2`0NV@1Y0?ooo`X07YT0HP3oool003D0oooo2P0NV@020?ooo`@07YT0
HP3oool:01jI06<0oooo000g0?ooo`807YT000<0oooo01jI000NV@000P0NV@020?ooo`H07YT0103o
ool201jI05T0oooo200NV@000`3oool07YT001jI001T0?ooo`00>`3oool201jI0080oooo200NV@02
0?ooo`@07YT01@3oool201jI04d0oooo0P0NV@000`3oool07YT001jI000601jI06P0oooo000o0?oo
o`P07YT000<0oooo01jI000NV@00100NV@030?ooo`@07YT00`3oool201jI04H0oooo2`0NV@1Y0?oo
o`00@03oool601jI0080oooo1P0NV@020?ooo`H07YT000<0oooo01jI000NV@000P0NV@070?ooo`80
7YT01`3oool201jI00D0oooo0P0NV@050?ooo`807YT01@3oool201jI00L0oooo0P0NV@050?ooo`80
7YT00`3oool201jI00D0oooo0P0NV@000`3oool07YT001jI000801jI06/0oooo00110?ooo`@07YT0
103oool401jI00<0oooo300NV@050?ooo`@07YT01@3oool401jI00<0oooo100NV@030?ooo`@07YT0
0`3oool401jI00D0oooo100NV@030?ooo`@07YT000<0oooo01jI000NV@000P0NV@030?ooo`d07YT0
K03oool004X0oooo0P0NV@050?ooo`@07YT000<0oooo01jI000NV@00100NV@040?ooo`H07YT00`3o
ool601jI00030?ooo`0NV@007YT000@07YT000<0oooo01jI000NV@00100NV@000`3oool07YT001jI
000401jI00<0oooo1P0NV@000`3oool07YT001jI000901jI00030?ooo`0NV@007YT000P07YT000<0
oooo01jI000NV@00K@3oool00580oooo0P0NV@030?ooo`@07YT01@3oool601jI00<0oooo1P0NV@00
0`3oool07YT001jI000401jI00030?ooo`0NV@007YT000@07YT000<0oooo01jI000NV@00100NV@03
0?ooo`H07YT000<0oooo01jI000NV@002@0NV@000`3oool07YT001jI000401jI00030?ooo`0NV@00
7YT00740oooo001H0?ooo`807YT01`3oool401jI00D0oooo100NV@030?ooo`@07YT00`3oool401jI
00<0oooo100NV@050?ooo`@07YT00`3oool401jI00030?ooo`0NV@007YT000807YT00`3oool401jI
07D0oooo001R0?ooo`807YT01`3oool201jI00D0oooo0P0NV@050?ooo`807YT01@3oool201jI00L0
oooo0P0NV@050?ooo`807YT00`3oool201jI00D0oooo0P0NV@1f0?ooo`00o`3ooolE0?ooo`00o`3o
oolE0?ooo`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00o`3ooolE0?ooo`00\
\>"],
  ImageRangeCache->{{{91.5625, 311.5}, {594.75, 344.625}} -> {-41.973, \
74.7224, 0.809693, 0.809693}}],

Cell[BoxData[
    TagBox[\(\[SkeletonIndicator]  Graphics  \[SkeletonIndicator]\),
      False,
      Editable->False]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Show[
      Graphics[{Hue[0.3, 1,  .6], AbsolutePointSize[6], 
          Point /@ resample[Rest[points], 6]}], PlotRange \[Rule] All, 
      AspectRatio \[Rule] Automatic]\)], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: 1.10377 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
-0.227763 0.00449236 1.19879 0.00449236 [
[ 0 0 0 0 ]
[ 1 1.10377 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
.12 .6 0 r
6 Mabswid
.03279 .91128 Mdot
.52695 1.07749 Mdot
.67969 .27336 Mdot
.02381 .15656 Mdot
.53145 .21047 Mdot
.97619 .02628 Mdot
0 0 m
1 0 L
1 1.10377 L
0 1.10377 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{239.188, 264},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40003_000122000`400?l00000o`00003ok`3oool0
0>l0oooo003_0?ooo`00k`3oool00>P0oooo0P0NV@050?ooo`00i`3oool401jI00@0oooo003V0?oo
o`H07YT00`3oool00>H0oooo1P0NV@030?ooo`00i`3oool401jI00@0oooo003X0?ooo`807YT01@3o
ool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00
k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?oo
o`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo0005
0?ooo`807YT0j03oool000@0oooo100NV@3W0?ooo`000`3oool601jI0>H0oooo00030?ooo`H07YT0
iP3oool000@0oooo100NV@3W0?ooo`001@3oool201jI0>P0oooo003_0?ooo`00k`3oool00>l0oooo
003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00OP3oool201jI06l0oooo001m0?ooo`@07YT0KP3o
ool007`0oooo1P0NV@1]0?ooo`00O03oool601jI06d0oooo001m0?ooo`@07YT0KP3oool007h0oooo
0P0NV@1_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool0
0>l0oooo003_0?ooo`00X@3oool201jI04`0oooo002P0?ooo`@07YT0B`3oool009l0oooo1P0NV@1:
0?ooo`00W`3oool601jI04X0oooo002P0?ooo`@07YT0B`3oool00:40oooo0P0NV@1<0?ooo`00k`3o
ool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00
k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?oo
o`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_
0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo
003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0
oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool0
0>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3o
ool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00
k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?oo
o`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_
0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo
003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0
oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool0
0>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3o
ool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00
k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?oo
o`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo0007
0?ooo`807YT0iP3oool000H0oooo100NV@3U0?ooo`001@3oool601jI0>@0oooo00050?ooo`H07YT0
i03oool000H0oooo100NV@3U0?ooo`001`3oool201jI0>H0oooo003_0?ooo`00k`3oool00>l0oooo
003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0
oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool0
0>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00k`3o
ool00>l0oooo003_0?ooo`00k`3oool00>l0oooo003_0?ooo`00O@3oool201jI0700oooo001l0?oo
o`@07YT0K`3oool007/0oooo1P0NV@1^0?ooo`00N`3oool601jI06h0oooo001l0?ooo`@07YT0K`3o
ool007d0oooo0P0NV@1`0?ooo`00k`3oool00>l0oooo003_0?ooo`00\
\>"],
  ImageRangeCache->{{{91.5625, 281.875}, {332.938, 122.75}} -> {-56.3987, \
-123.349, 0.935734, 0.935734}}],

Cell[BoxData[
    TagBox[\(\[SkeletonIndicator]  Graphics  \[SkeletonIndicator]\),
      False,
      Editable->False]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(Show[
      Graphics[{Hue[0.3, 1,  .6], AbsolutePointSize[6], 
          Point /@ resample[Rest[points], 6], 
          Line[resample[Rest[points], 6]]}], PlotRange \[Rule] All, 
      AspectRatio \[Rule] Automatic]\)], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: 1.10377 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
-0.227763 0.00449236 1.19879 0.00449236 [
[ 0 0 0 0 ]
[ 1 1.10377 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
.12 .6 0 r
6 Mabswid
.03279 .91128 Mdot
.52695 1.07749 Mdot
.67969 .27336 Mdot
.02381 .15656 Mdot
.53145 .21047 Mdot
.97619 .02628 Mdot
.5 Mabswid
[ ] 0 setdash
.03279 .91128 m
.52695 1.07749 L
.67969 .27336 L
.02381 .15656 L
.53145 .21047 L
.97619 .02628 L
s
0 0 m
1 0 L
1 1.10377 L
0 1.10377 L
closepath
clip
newpath
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{239.188, 264},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40003_000122000`400?l00000o`00003ok`3oool0
0>l0oooo003_0?ooo`00k`3oool00>P0oooo0P0NV@050?ooo`00i`3oool401jI00@0oooo003V0?oo
o`H07YT00`3oool00>H0oooo1P0NV@030?ooo`00i@3oool601jI00@0oooo003R0?ooo`<07YT00`3o
ool201jI00D0oooo003P0?ooo`807YT03@3oool00=h0oooo0P0NV@0?0?ooo`00f`3oool301jI0140
oooo003I0?ooo`807YT0503oool00=H0oooo0`0NV@0F0?ooo`00e03oool201jI01T0oooo003B0?oo
o`807YT06`3oool00<l0oooo0`0NV@0M0?ooo`00c@3oool201jI0200oooo003:0?ooo`<07YT08P3o
ool00<P0oooo0P0NV@0U0?ooo`00aP3oool201jI02L0oooo00330?ooo`<07YT0:@3oool00<40oooo
0P0NV@0/0?ooo`00_P3oool301jI02h0oooo002l0?ooo`807YT0<@3oool00;X0oooo0P0NV@0c0?oo
o`00]`3oool301jI03D0oooo002e0?ooo`807YT0>03oool00;80oooo0`0NV@0j0?ooo`00/03oool2
01jI03d0oooo002]0?ooo`<07YT0?`3oool00:/0oooo0P0NV@120?ooo`00Z@3oool201jI04@0oooo
002V0?ooo`<07YT0AP3oool000D0oooo0P0NV@2M0?ooo`807YT0B@3oool000@0oooo100NV@2I0?oo
o`<07YT0B`3oool000<0oooo1P0NV@2F0?ooo`807YT0CP3oool000<0oooo1`0NV@2C0?ooo`807YT0
D03oool000@0oooo3`0NV@270?ooo`<07YT0DP3oool000D0oooo0P0NV@070?ooo`l07YT0N`3oool2
01jI05D0oooo000C0?ooo`H07YT0103oool901jI06l0oooo0`0NV@1G0?ooo`006@3oool601jI00L0
oooo2@0NV@1T0?ooo`807YT0FP3oool001l0oooo1@0NV@0;0?ooo`X07YT0F03oool201jI05`0oooo
000T0?ooo`H07YT03`3oool901jI04`0oooo0`0NV@1N0?ooo`00:P3oool501jI01<0oooo2@0NV@11
0?ooo`807YT0H@3oool002l0oooo1P0NV@0F0?ooo`X07YT0=03oool301jI06<0oooo000e0?ooo`D0
7YT06`3oool901jI02T0oooo0P0NV@1V0?ooo`00>P3oool601jI01h0oooo2@0NV@0G0?ooo`807YT0
1@3oool201jI06P0oooo00100?ooo`H07YT08@3oool:01jI00`0oooo100NV@00103oool07YT001jI
000NV@1Z0?ooo`00AP3oool501jI02H0oooo2@0NV@020?ooo`H07YT0K@3oool004/0oooo1P0NV@0Y
0?ooo`P07YT0K@3oool00540oooo1@0NV@0W0?ooo`@07YT0KP3oool005H0oooo1P0NV@0R0?ooo`80
7YT0K`3oool005`0oooo1@0NV@2>0?ooo`00H@3oool601jI08P0oooo001W0?ooo`H07YT0PP3oool0
06d0oooo1@0NV@1m0?ooo`00LP3oool601jI07L0oooo001h0?ooo`D07YT0LP3oool007d0oooo1P0N
V@1/0?ooo`00P`3oool501jI06L0oooo00280?ooo`H07YT0H@3oool008h0oooo1P0NV@0=0?ooo`80
7YT0C03oool009@0oooo1@0NV@070?ooo`@07YT0B`3oool009T0oooo300NV@1:0?ooo`00W`3oool6
01jI04X0oooo002P0?ooo`@07YT0B`3oool00:40oooo0P0NV@1<0?ooo`00X03oool00`0NV@00oooo
0?ooo`1<0?ooo`00X03oool00`0NV@00oooo0?ooo`1<0?ooo`00X03oool00`0NV@00oooo0?ooo`1<
0?ooo`00X03oool00`0NV@00oooo0?ooo`1<0?ooo`00X03oool00`0NV@00oooo0?ooo`1<0?ooo`00
W`3oool00`0NV@00oooo0?ooo`1=0?ooo`00W`3oool00`0NV@00oooo0?ooo`1=0?ooo`00W`3oool0
0`0NV@00oooo0?ooo`1=0?ooo`00W`3oool00`0NV@00oooo0?ooo`1=0?ooo`00W`3oool00`0NV@00
oooo0?ooo`1=0?ooo`00W`3oool00`0NV@00oooo0?ooo`1=0?ooo`00WP3oool00`0NV@00oooo0?oo
o`1>0?ooo`00WP3oool00`0NV@00oooo0?ooo`1>0?ooo`00WP3oool00`0NV@00oooo0?ooo`1>0?oo
o`00WP3oool00`0NV@00oooo0?ooo`1>0?ooo`00WP3oool00`0NV@00oooo0?ooo`1>0?ooo`00W@3o
ool00`0NV@00oooo0?ooo`1?0?ooo`00W@3oool00`0NV@00oooo0?ooo`1?0?ooo`00W@3oool00`0N
V@00oooo0?ooo`1?0?ooo`00W@3oool00`0NV@00oooo0?ooo`1?0?ooo`00W@3oool00`0NV@00oooo
0?ooo`1?0?ooo`00W03oool00`0NV@00oooo0?ooo`1@0?ooo`00W03oool00`0NV@00oooo0?ooo`1@
0?ooo`00W03oool00`0NV@00oooo0?ooo`1@0?ooo`00W03oool00`0NV@00oooo0?ooo`1@0?ooo`00
W03oool00`0NV@00oooo0?ooo`1@0?ooo`00W03oool00`0NV@00oooo0?ooo`1@0?ooo`00V`3oool0
0`0NV@00oooo0?ooo`1A0?ooo`00V`3oool00`0NV@00oooo0?ooo`1A0?ooo`00V`3oool00`0NV@00
oooo0?ooo`1A0?ooo`00V`3oool00`0NV@00oooo0?ooo`1A0?ooo`00V`3oool00`0NV@00oooo0?oo
o`1A0?ooo`00VP3oool00`0NV@00oooo0?ooo`1B0?ooo`00VP3oool00`0NV@00oooo0?ooo`1B0?oo
o`00VP3oool00`0NV@00oooo0?ooo`1B0?ooo`00VP3oool00`0NV@00oooo0?ooo`1B0?ooo`00VP3o
ool00`0NV@00oooo0?ooo`1B0?ooo`00V@3oool00`0NV@00oooo0?ooo`1C0?ooo`00V@3oool00`0N
V@00oooo0?ooo`1C0?ooo`00V@3oool00`0NV@00oooo0?ooo`1C0?ooo`00V@3oool00`0NV@00oooo
0?ooo`1C0?ooo`00V@3oool00`0NV@00oooo0?ooo`1C0?ooo`00V@3oool00`0NV@00oooo0?ooo`1C
0?ooo`00V03oool00`0NV@00oooo0?ooo`1D0?ooo`00V03oool00`0NV@00oooo0?ooo`1D0?ooo`00
V03oool00`0NV@00oooo0?ooo`1D0?ooo`00V03oool00`0NV@00oooo0?ooo`1D0?ooo`00V03oool0
0`0NV@00oooo0?ooo`1D0?ooo`00U`3oool00`0NV@00oooo0?ooo`1E0?ooo`00U`3oool00`0NV@00
oooo0?ooo`1E0?ooo`00U`3oool00`0NV@00oooo0?ooo`1E0?ooo`00U`3oool00`0NV@00oooo0?oo
o`1E0?ooo`00U`3oool00`0NV@00oooo0?ooo`1E0?ooo`00UP3oool00`0NV@00oooo0?ooo`1F0?oo
o`00UP3oool00`0NV@00oooo0?ooo`1F0?ooo`00UP3oool00`0NV@00oooo0?ooo`1F0?ooo`00UP3o
ool00`0NV@00oooo0?ooo`1F0?ooo`00UP3oool00`0NV@00oooo0?ooo`1F0?ooo`00UP3oool00`0N
V@00oooo0?ooo`1F0?ooo`00U@3oool00`0NV@00oooo0?ooo`1G0?ooo`00U@3oool00`0NV@00oooo
0?ooo`1G0?ooo`00U@3oool00`0NV@00oooo0?ooo`1G0?ooo`00U@3oool00`0NV@00oooo0?ooo`1G
0?ooo`00U@3oool00`0NV@00oooo0?ooo`1G0?ooo`00U03oool00`0NV@00oooo0?ooo`1H0?ooo`00
U03oool00`0NV@00oooo0?ooo`1H0?ooo`00U03oool00`0NV@00oooo0?ooo`1H0?ooo`00U03oool0
0`0NV@00oooo0?ooo`1H0?ooo`00U03oool00`0NV@00oooo0?ooo`1H0?ooo`00T`3oool00`0NV@00
oooo0?ooo`1I0?ooo`00T`3oool00`0NV@00oooo0?ooo`1I0?ooo`00T`3oool00`0NV@00oooo0?oo
o`1I0?ooo`00T`3oool00`0NV@00oooo0?ooo`1I0?ooo`00T`3oool00`0NV@00oooo0?ooo`1I0?oo
o`00TP3oool00`0NV@00oooo0?ooo`1J0?ooo`00TP3oool00`0NV@00oooo0?ooo`1J0?ooo`00TP3o
ool00`0NV@00oooo0?ooo`1J0?ooo`00TP3oool00`0NV@00oooo0?ooo`1J0?ooo`00TP3oool00`0N
V@00oooo0?ooo`1J0?ooo`00TP3oool00`0NV@00oooo0?ooo`1J0?ooo`00T@3oool00`0NV@00oooo
0?ooo`1K0?ooo`00T@3oool00`0NV@00oooo0?ooo`1K0?ooo`00T@3oool00`0NV@00oooo0?ooo`1K
0?ooo`00T@3oool00`0NV@00oooo0?ooo`1K0?ooo`00T@3oool00`0NV@00oooo0?ooo`1K0?ooo`00
T03oool00`0NV@00oooo0?ooo`1L0?ooo`00T03oool00`0NV@00oooo0?ooo`1L0?ooo`00T03oool0
0`0NV@00oooo0?ooo`1L0?ooo`00T03oool00`0NV@00oooo0?ooo`1L0?ooo`00T03oool00`0NV@00
oooo0?ooo`1L0?ooo`00S`3oool00`0NV@00oooo0?ooo`1M0?ooo`00S`3oool00`0NV@00oooo0?oo
o`1M0?ooo`00S`3oool00`0NV@00oooo0?ooo`1M0?ooo`00S`3oool00`0NV@00oooo0?ooo`1M0?oo
o`00S`3oool00`0NV@00oooo0?ooo`1M0?ooo`00S`3oool00`0NV@00oooo0?ooo`1M0?ooo`00SP3o
ool00`0NV@00oooo0?ooo`1N0?ooo`00SP3oool00`0NV@00oooo0?ooo`1N0?ooo`00SP3oool00`0N
V@00oooo0?ooo`1N0?ooo`00SP3oool00`0NV@00oooo0?ooo`1N0?ooo`00SP3oool00`0NV@00oooo
0?ooo`1N0?ooo`00S@3oool00`0NV@00oooo0?ooo`1O0?ooo`00S@3oool00`0NV@00oooo0?ooo`1O
0?ooo`00S@3oool00`0NV@00oooo0?ooo`1O0?ooo`00S@3oool00`0NV@00oooo0?ooo`1O0?ooo`00
S@3oool00`0NV@00oooo0?ooo`1O0?ooo`00S03oool00`0NV@00oooo0?ooo`1P0?ooo`00S03oool0
0`0NV@00oooo0?ooo`1P0?ooo`00S03oool00`0NV@00oooo0?ooo`1P0?ooo`00S03oool00`0NV@00
oooo0?ooo`1P0?ooo`00S03oool00`0NV@00oooo0?ooo`1P0?ooo`00S03oool00`0NV@00oooo0?oo
o`1P0?ooo`00R`3oool00`0NV@00oooo0?ooo`1Q0?ooo`00R`3oool00`0NV@00oooo0?ooo`1Q0?oo
o`00R`3oool00`0NV@00oooo0?ooo`1Q0?ooo`00R`3oool00`0NV@00oooo0?ooo`1Q0?ooo`00R`3o
ool00`0NV@00oooo0?ooo`1Q0?ooo`00RP3oool00`0NV@00oooo0?ooo`1R0?ooo`00RP3oool00`0N
V@00oooo0?ooo`1R0?ooo`00RP3oool00`0NV@00oooo0?ooo`1R0?ooo`00RP3oool00`0NV@00oooo
0?ooo`1R0?ooo`00RP3oool00`0NV@00oooo0?ooo`1R0?ooo`00R@3oool00`0NV@00oooo0?ooo`1S
0?ooo`00R@3oool00`0NV@00oooo0?ooo`1S0?ooo`00R@3oool00`0NV@00oooo0?ooo`1S0?ooo`00
R@3oool00`0NV@00oooo0?ooo`1S0?ooo`00R@3oool00`0NV@00oooo0?ooo`1S0?ooo`00R03oool0
0`0NV@00oooo0?ooo`1T0?ooo`00R03oool00`0NV@00oooo0?ooo`1T0?ooo`00R03oool00`0NV@00
oooo0?ooo`1T0?ooo`00R03oool00`0NV@00oooo0?ooo`1T0?ooo`00R03oool00`0NV@00oooo0?oo
o`1T0?ooo`00R03oool00`0NV@00oooo0?ooo`1T0?ooo`00Q`3oool00`0NV@00oooo0?ooo`1U0?oo
o`00Q`3oool00`0NV@00oooo0?ooo`1U0?ooo`00Q`3oool00`0NV@00oooo0?ooo`1U0?ooo`00Q`3o
ool00`0NV@00oooo0?ooo`1U0?ooo`00Q`3oool00`0NV@00oooo0?ooo`1U0?ooo`00QP3oool00`0N
V@00oooo0?ooo`1V0?ooo`00QP3oool00`0NV@00oooo0?ooo`1V0?ooo`00QP3oool00`0NV@00oooo
0?ooo`1V0?ooo`00QP3oool00`0NV@00oooo0?ooo`1V0?ooo`00QP3oool00`0NV@00oooo0?ooo`1V
0?ooo`00Q@3oool00`0NV@00oooo0?ooo`1W0?ooo`00Q@3oool00`0NV@00oooo0?ooo`1W0?ooo`00
Q@3oool00`0NV@00oooo0?ooo`1W0?ooo`001`3oool201jI07`0oooo00<07YT00?ooo`3oool0I`3o
ool000H0oooo100NV@1k0?ooo`0301jI003oool0oooo06L0oooo00050?ooo`H07YT0NP3oool00`0N
V@00oooo0?ooo`1W0?ooo`001@3oool601jI07T0oooo00<07YT00?ooo`3oool0J03oool000H0oooo
1P0NV@1h0?ooo`0301jI003oool0oooo06P0oooo00070?ooo`807YT00`3oool301jI07D0oooo00<0
7YT00?ooo`3oool0J03oool000l0oooo0`0NV@1b0?ooo`0301jI003oool0oooo06P0oooo000B0?oo
o`<07YT0K`3oool00`0NV@00oooo0?ooo`1X0?ooo`005@3oool301jI06/0oooo00<07YT00?ooo`3o
ool0J@3oool001P0oooo0`0NV@1X0?ooo`0301jI003oool0oooo06T0oooo000K0?ooo`<07YT0I@3o
ool00`0NV@00oooo0?ooo`1Y0?ooo`007P3oool301jI0680oooo00<07YT00?ooo`3oool0J@3oool0
0240oooo0`0NV@1O0?ooo`0301jI003oool0oooo06T0oooo000T0?ooo`<07YT0F`3oool00`0NV@00
oooo0?ooo`1Z0?ooo`009`3oool301jI05P0oooo00<07YT00?ooo`3oool0JP3oool002X0oooo0`0N
V@1E0?ooo`0301jI003oool0oooo06X0oooo000]0?ooo`<07YT0DP3oool00`0NV@00oooo0?ooo`1Z
0?ooo`00<03oool301jI04l0oooo00<07YT00?ooo`3oool0JP3oool003<0oooo0`0NV@1<0?ooo`03
01jI003oool0oooo06X0oooo000f0?ooo`<07YT0B03oool00`0NV@00oooo0?ooo`1[0?ooo`00>@3o
ool301jI04D0oooo00<07YT00?ooo`3oool0J`3oool003`0oooo0`0NV@120?ooo`0301jI003oool0
oooo06/0oooo000o0?ooo`<07YT0?`3oool00`0NV@00oooo0?ooo`1[0?ooo`00@P3oool401jI03/0
oooo00<07YT00?ooo`3oool0J`3oool004H0oooo0`0NV@0g0?ooo`0301jI003oool0oooo06`0oooo
00190?ooo`<07YT0=03oool00`0NV@00oooo0?ooo`1/0?ooo`00C03oool301jI0340oooo00<07YT0
0?ooo`3oool0K03oool004l0oooo0`0NV@0^0?ooo`0301jI003oool0oooo06`0oooo001B0?ooo`<0
7YT0:`3oool00`0NV@00oooo0?ooo`1/0?ooo`00E@3oool301jI02L0oooo00<07YT00?ooo`3oool0
K@3oool005P0oooo0`0NV@0T0?ooo`0301jI003oool0oooo06d0oooo001K0?ooo`<07YT08@3oool0
0`0NV@00oooo0?ooo`1]0?ooo`00GP3oool301jI01h0oooo00<07YT00?ooo`3oool0K@3oool00640
oooo0`0NV@0K0?ooo`0301jI003oool0oooo06d0oooo001T0?ooo`<07YT0603oool00`0NV@00oooo
0?ooo`1]0?ooo`00I`3oool301jI01@0oooo00<07YT00?ooo`3oool0KP3oool006X0oooo0`0NV@0A
0?ooo`0301jI003oool0oooo06h0oooo001]0?ooo`<07YT03P3oool00`0NV@00oooo0?ooo`1^0?oo
o`00L03oool301jI00/0oooo00<07YT00?ooo`3oool0KP3oool007<0oooo0`0NV@080?ooo`0301jI
003oool0oooo06h0oooo001f0?ooo`<07YT0103oool201jI0700oooo001i0?ooo`L07YT0K`3oool0
07/0oooo1P0NV@1^0?ooo`00N`3oool601jI06h0oooo001l0?ooo`@07YT0K`3oool007d0oooo0P0N
V@1`0?ooo`00k`3oool00>l0oooo003_0?ooo`00\
\>"],
  ImageRangeCache->{{{91.5625, 281.875}, {607.375, 397.188}} -> {-56.3987, \
197.651, 0.935734, 0.935734}}],

Cell[BoxData[
    TagBox[\(\[SkeletonIndicator]  Graphics  \[SkeletonIndicator]\),
      False,
      Editable->False]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(resample[Rest[points], 6] // MatrixForm\)], "Input"],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {"58", \(-64\)},
            {"168", \(-27\)},
            {"202", \(-206\)},
            {"56", \(-232\)},
            {"169", \(-220\)},
            {"268", \(-261\)}
            },
          RowSpacings->1,
          ColumnSpacings->1,
          ColumnAlignments->{Left}], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]]
}, Open  ]]
},
FrontEndVersion->"5.1 for Microsoft Windows",
ScreenRectangle->{{86, 1600}, {0, 1078}},
AutoGeneratedPackage->None,
WindowToolbars->"EditBar",
WindowSize->{736, 1046},
WindowMargins->{{2, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic}
]

(*******************************************************************
Cached data follows.  If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of  the file.  The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{
Cell[1754, 51, 52, 1, 30, "Input"],
Cell[1809, 54, 197, 6, 65, "Input"],

Cell[CellGroupData[{
Cell[2031, 64, 35, 0, 29, "Subsubsection"],
Cell[2069, 66, 81, 2, 30, "Input",
  InitializationCell->True],
Cell[2153, 70, 2909, 51, 1050, "Input",
  InitializationCell->True],
Cell[5065, 123, 87, 1, 30, "Input"]
}, Closed]],

Cell[CellGroupData[{
Cell[5189, 129, 33, 0, 23, "Subsubsection"],
Cell[5225, 131, 109, 2, 30, "Input"],

Cell[CellGroupData[{
Cell[5359, 137, 191, 4, 50, "Input"],
Cell[5553, 143, 17123, 363, 322, 3524, 191, "GraphicsData", "PostScript", \
"Graphics"],
Cell[22679, 508, 130, 3, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[22846, 516, 204, 4, 70, "Input"],
Cell[23053, 522, 4048, 89, 272, 740, 44, "GraphicsData", "PostScript", \
"Graphics"],
Cell[27104, 613, 130, 3, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[27271, 621, 248, 5, 50, "Input"],
Cell[27522, 628, 10717, 179, 272, 864, 53, "GraphicsData", "PostScript", \
"Graphics"],
Cell[38242, 809, 130, 3, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[38409, 817, 72, 1, 30, "Input"],
Cell[38484, 820, 452, 14, 105, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)



(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)

