Go back to B.J.S. Cahill Resource Page
Cahill Butterfly Map 1909
Cahill 1909
Go back to Gene Keyes home page

Cahill-Keyes M-layout world map silhouette including Antarctica
Cahill-Keyes 1975

Page 5 of 6

Cahill-Keyes Octant Graticule:
Principles and Specifications

with Perl programs and OpenOffice.org 2.0 macros
for 1/1,000,000 Megamap


Gene Keyes
2010-08-20


Continued from page 4

13) OpenOffice.org (OOo) macros via Perl
for Cahill-Keyes Octant Graticule and Megamap

 

Notes by Gene Keyes


Here is the text of the actual OOo (composite) macros made by Mary Jo Graça. Because they are drawing so many one-degree meridians and parallels, the macro coding (written in OOo Basic) occupies 92 pages. But I include it in its entirety (in two parts below) as an open-source record, because the file itself is only 96 kb, having lots of short one-liners. The first 11 pages were hand-coded directly in OOo Basic; the remaining pages were prepared by the Perl programs.

Although shown in two parts below, this is a single macro program, to be copy-pasted into an OOo Draw file. It had to be split because the copy function could not handle so many lines.

Among other things such as the scaffold triangle, the perimeter, and the grids, these macros draw the following, in OOo Drawing (odg) files, shown as jpegs or pdfs on the following page:
A) A single complete Cahill-Keyes Octant Graticule in a specified grid (My grid protocol is described on the next page.);

B) A complete Cahill-Keyes 8-Octant Graticule Master Map Profile, in a grid and frame that is 20 x 40 meters (then reduced to fit on a monitor).
The macros are amazingly complex, and require quite a number of steps to run them, as described here by Mary Jo. (Perhaps to be simplified in further development.)


Procedural Notes by Mary Jo Graça
edited and tested by Gene Keyes

Preparatory steps:

Note: These macros were run using OpenOffice.org 2.0.

First, you need two files "All-macros-part-1.odt", and "All-macros-part-2.odt". Obtain them by opening these two zip files:


OR by making two text files out of the entire contents of the two respective macro listings below. They can be any kind of text or word processor files. The zips are OpenOffice.org Writer documents.

These two files will be combined in the script module of the OpenOffice.org macros tool. Together, they include a lot of subs and functions at the top, followed by the contents of file OOMacros8, made by program OOmacroMaker4. The steps which I enumerate below are written in past tense to describe the procedure I followed.
 
1 - Opened files All-macros-part-1.odt  and All-macros-part-2.odt.
 
2 - Started a new OpenOffice.org Draw document.
 
3 - Clicked: Tools > Macros > Organize macros > OpenOffice.org Basic... . By clicking the + boxes, selected the name of the current drawing document, then Standard, then clicked on button New. Typed "CKOG" for New module Name, which opens the macro's scripting page.
 
4 - Selected all and deleted.
 
5 - Copied everything from files All-macros-part-1.odt and All-macros-part-2.odt to that macro scripting page.
 
6 - Saved the (full-of-macros, but so far, empty) drawing file, naming it Do-1-octant.odg. Duplicated it, naming it Do-8-octants.odg. Closed that file.
 
Note about reopening these files and enabling macros:

When reopening the files, you will be warned that the file has macros, which can damage your computer, and asked if you want to enable them. These particular macros, which have just been copied, do nothing to the computer, and will not damage anything (feel free to check the code). They must be enabled, in order to draw the octants. The macros don't need to be enabled if the drawing has already been done, although it won't hurt one way or the other.
 
*   *   *
 
A) A single complete Cahill-Keyes Octant Graticule in a specified grid

For the drawing of one octant, I re-opened file Do-1-octant.odg, and followed these steps:
 
[See note above, about opening this file and enabling its macros.]
 
1 - Set Format > Page... to Format = Letter, Orientation = Portrait, with 0 for all margins.
 
2 - Did Tools > Macros > Run macro... , selected: Do-1-octant.odg > Standard > CKOG (in left pane) > GsOctant (in middle pane) and clicked on button Run — This takes a few moments, and draws the image huge; that is as expected.

[Step 3 is almost the same as step 2, but this one does the grid.]
 
3 - Did Tools > Macros > Run macro... , selected: Do-1-octant.odg > Standard > CKOG > Grids10x12 (in middle pane) and clicked on button Run — This is also drawn huge.
 
4 - Clicked on one of the blue lines; a 4-headed arrow should appear. This selects the octant with its parallels and meridians.

5 - Did Modify > Arrange > Bring to front. (Octant's purple perimeter will superimpose over the green grid line.)
 
6 - Clicked outside of a line, to deselect. Typed control-A to select all.
 
7 - Did Modify > Group.
 
8 - Did Tools > Macros > Organize macros > OpenOffice.org Basic... , selected Do-1-octant.odg > Standard > CKOG > Main (in middle pane) and clicked on button Edit. This re-opens macro window.
 
9 - Made sure that Sub Main has no single quote-mark (') at the beginning of the two lines which refer to one octant, but does have it at the beginning of the two lines pertaining to eight octants (quote-mark means, commented line). This causes the drawing to be shrunk to 200 mm length x 240 mm height, and be positioned within the page:
 
 ' For ONE OCTANT:
 S.Size = Z(20000,24000)
 S.Position = P(10,1000)
 ' For EIGHT OCTANTS:
' S.Size = Z(20000,10000)
' S.Position = P(10,1000)
 
10 - From the drawing, did: Tools > Macros > Run macro... , selected: Do-1-octant.odg > Standard > CKOG > Main (in middle pane) and clicked on button Run.
 
*   *   *
 
B) A complete Cahill-Keyes 8-Octant Graticule Master Map Profile, in a grid that is 20 x 40 meters (reduced to fit on a monitor )

For an 8 octant drawing, I re-opened file Do-8-octants.odg, and followed these steps:
 
[See note above, about opening this file and enabling its macros.]
 
1 - Set Format > Page... to Format = Letter, Orientation = Portrait, with 0 for all margins.
 
2 - Did Tools > Macros > Run macro... , selected: Do-8-octants.odg > Standard > CKOG > EightOctants (the latter is from the middle pane) and clicked on button RunThis draws the image huge; that is as expected. It takes a short while before the drawing appears.
 
[As before, step 3 is almost the same as step 2, but this one does the grid.]
 
3 - Did Tools > Macros > Run macro... , selected: Do-8-octants.odg > Standard > CKOG > Grids40x20 and clicked on button RunThis is also drawn huge.
 
4 - Clicked on one of the blue lines; a 4-headed arrow should appear. This selects the octant with its parallels and meridians.
 
5 - Did Modify > Arrange > Bring to front. (Octant's purple perimeter will superimpose over the green grid line.)
 
6 - Clicked outside of a line, to deselect. Typed control-A to select all.
 
7 - Did Modify > Group.
 
8 - Did Tools > Macros > Organize macros > OpenOffice.org Basic... , selected Do-8-octants.odg > Standard > CKOG > Main (middle pane) and clicked on button Edit. This re-opens macro window.
 
9 - Edited Sub Main by adding a single quote-mark (') at the beginning of the two lines which refer to one octant, and removing them from the two lines pertaining to eight octants (quote-mark means, commented line). This causes the drawing to be shrunk to 200 mm length x 100 mm height, and be positioned within the page:
 
 ' For ONE OCTANT:
' S.Size = Z(20000,24000)
' S.Position = P(10,1000)
 ' For EIGHT OCTANTS:
 S.Size = Z(20000,10000)
 S.Position = P(10,1000)
 
10 - From the drawing, did: Tools > Macros > Run macro... , selected: Do-8-octants.odg > Standard > CKOG > Main (in middle pane) and clicked on button Run.
 
Note: if some grid lines are missing, it will self-correct if you toggle to another window and back. OOo Draw lacks a "refresh" button, but that is the workaround.

. . . and this is the actual composite macro, in two parts:

Part 1:
copy-paste this yellow one first; then Part 2 below.
REM  *****  BASIC  *****
'
' This is "file" All-macros-part-1.odt.
'
' In order to facilitate copying the macros, they were separated into two text files (actually,
' OpenOffice.org Writer): All-macros-part-1.odt and All-macros-part-2.odt. The first has
' most of the macros. The second has only:
' - Sub ParallelsMinor: draws the minor parallels for the half-octant
'
' Both of these files should be copied into the same macro-module of an OpenOffice.org
' Draw file.
'
' Here I have:
'
' - Sub Main: To size and position the drawn object. Needs to be edited to choose those
' characteristics for either eight octants or one octant.
' - Sub Test: Empty, at the time; meant to be used for whatever one wants to test.
'
' - Sub EightOctants: Calls Function Octant, copies, pastes, groups to make octant pair,
' copies, pastes a few times, rotates and moves each pair, and groups the whole thing.
' Each piece is named, along the way.
' - Sub GsOctant: Calls function Octant, rotates and positions it to Gene's coordinates
' - Function Octant: Calls Sub FullHalf; copies, pastes, flips and moves one of the shapes,
' groups both. Each piece is named, along the way.
' - Sub FullHalf: draws (commented out drawing of triangle), minor parallels, minor
' meridians, major parallels, major meridians, and half-octant, grouping each set and naming
' it, and then groups everything.
'
' - Function NamedShape: Gets the shape which has a given name
' - Function Collect: Collects and groups objects and returns the group
'
' - Sub Grids10x12: Draws 200 cm, 1000 cm and 5000 cm grids (1 cm represents 1 km) for
'  one octant (0 to 10000 by -9000 to 3000)
' - Sub Grids40x20: Draws 200 cm, 1000 cm and 5000 cm grids (1 cm represents 1 km) for
'  eight octants (-20000 to 20000 by -10000 to 10000)
' - Function Grids: prepares each grid, and returns the group of all the lines on that grid; it is
'  called by Sub Grids10x12 and Sub  Grids40x20
' - Function LL: prepares a line-shape of a given size and colour, but does not draw it; it is
'  called by Function Grids
'
' - Function L: prepares and "draws" a polyline-shape of a given colour, but does not give it
'  the array of points; it is called by subs which draw triangle, octant, meridians and parallels
' -  Function P: prepares Position (or point) with given x and y coordinates; called by several
' subs
' - Function Z: prepares Size with given width and height; called by several subs
' - Function A: prepares and returns (doesn't draw) an arc from circle with a given centre,
' radius, start-angle, end-angle, and colour. It is called by the parallel subs
'
' - Sub HalfOctant: draws outline of half-octant (without the center line), in MJ's coordinates
' - Sub Triangle: draws scaffold triangle for half-octant in MJ's format
' - Sub MeridiansMajor: draws the major meridians for the half-octant
' - Sub MeridiansMinor: draws the minor meridians for the half-octant
' - Sub ParallelsMajor: draws the major parallels for the half-octant
'
' Blank lines on this "table of contents" indicate where I have lines of alternating # and
'  space.

' # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Sub Main
 D=ThisComponent
 G=D.DrawPages(0)
 'print "There are ",G.Count," objects"
 S = G.getByIndex(0)
 'print "Object size is ",S.Size.Width,"x",S.Size.Height," and it is at ",_
 '     S.Position.X," ",S.Position.Y
 ' For ONE OCTANT:
 S.Size = Z(20000,24000)
 S.Position = P(10,1000)
 ' For EIGHT OCTANTS:
' S.Size = Z(20000,10000)
' S.Position = P(10,1000)
End Sub

Sub Test

End Sub ' Test

' # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Sub EightOctants

' Calls Function Octant; makes copies to have 8 octants and names them; moves and flips
' those for the south and abuts them to the northern ones; groups them in north-south pairs;
' names, rotates and positions each pair; groups the whole thing and names it.

 ' Initialize all that I need: document, page, frame, document controller,
 ' and dispatch helper.
 oDoc = ThisComponent
 oDocCtrl = oDoc.getCurrentController()
 oDocFrame = oDocCtrl.getFrame()
 'oPage = oDoc.DrawPages(0)
 oPage = oDoc.getDrawPages().getByIndex(0)
 oDispatchHelper=createUnoService("com.sun.star.frame.DispatchHelper")
 oShape1 = Octant() ' Draw a whole octant, with meridians and parallels
 oNorthPosition = P(oShape1.Position.X, oShape1.Position.Y)
 oSouthPosition = P(oShape1.Position.X + oShape1.Size.Width - 1, oShape1.Position.Y)
 
 ' Make copies of the octant, name them, make pairs of octants, rotate, position and group
 ' everything.

 ' Make copies to have 8 octants
 Dim oOctants(7) As Variant ' Declare an array of octants
 oDocCtrl.select(oShape1)
 oDispatchHelper.executeDispatch(oDocFrame,".uno:Copy","",0,Array())
 oDispatchHelper.executeDispatch(oDocFrame,".uno:Paste","",0,Array())
 oDispatchHelper.executeDispatch(oDocFrame,".uno:Paste","",0,Array())
 oDispatchHelper.executeDispatch(oDocFrame,".uno:Paste","",0,Array())
 oDispatchHelper.executeDispatch(oDocFrame,".uno:Paste","",0,Array())
 oDispatchHelper.executeDispatch(oDocFrame,".uno:Paste","",0,Array())
 oDispatchHelper.executeDispatch(oDocFrame,".uno:Paste","",0,Array())
 oDispatchHelper.executeDispatch(oDocFrame,".uno:Paste","",0,Array())

 ' Name each octant
 For i = 0 to 7
  oOctants(i) = oPage.getByIndex(i)
  oOctants(i).name = "Octant" & CStr(i + 1)
 Next

 ' Position northern octants, in case they got pasted away from initial position
 For i = 0 to 3
  oOctants(i).Position =  oNorthPosition
 Next

 ' Flip southern octants, move them to abut the northern ones, and group them as pairs
 For i = 4 to 7
  oOctants(i).Position =  oSouthPosition
  oDocCtrl.select(oOctants(i))
  oDispatchHelper.executeDispatch(oDocFrame,".uno:MirrorHorz","",0,Array())
  oShapes = CreateUnoService("com.sun.star.drawing.ShapeCollection")
  If i = 4 Then
   oShapes.add(oOctants(i-1))
  Else
   oShapes.add(oOctants(i-5))
  EndIf
  oShapes.add(oOctants(i))
  oPage.group(oShapes)
 Next

 ' Rotate, position and name each octant pair
 oShape1 = oPage.getByIndex(1)
 oShape1.Name = "Octants16"
 oShape2 = oPage.getByIndex(2)
 oShape2.Name = "Octants27"
 oShape3 = oPage.getByIndex(3)
 oShape3.Name = "Octants38"
 oShape4 = oPage.getByIndex(0)  ' First one done, but most eastern pair
 oShape4.Name = "Octants45"
 oShape1.Rotateangle = -12000
 oShape2.Rotateangle = -6000
 oShape3.Rotateangle = -12000
 oShape4.Rotateangle = -6000

 ' Position pairs
 Dim oW As Long, oY As Long
 oW = oShape1. Size.Width
 oY= -(oShape1.Size.Height - 1) / 2
 oShape1.Position = P(-2*(oW - 1), oY)
 oShape2.Position = P(-(oW - 1), oY)
 oShape3.Position = P(0,oY)
 oShape4.Position = P((oW - 1), oY)
 o8Octants = Collect("All")
 o8Octants.Name = "8Octants"
 ' Grids40x20()

End Sub ' EightOctants

Sub GsOctant
 ' Calls Function Octant, rotates and positions octant to Gene's coordinates and orientation.
 D=ThisComponent
 G=D.DrawPages(0)
 S=Octant()
 S.RotateAngle = -6000
 'S.Position = P(0,-784619) ' Y of point M, of scaffold triangle
 S.Position = P(0,-784619) ' Y of point A, if no scaffold triangle
End Sub ' GsOctant

Function Octant() As Variant
 ' Calls Sub FullHalf, duplicates the shape, flips one of them and renames it "WestHalf",
 ' groups the two, names object "Octant".
 ' Initialize all that I need: document, page, frame, document controller,
 ' and dispatch helper.
 oDoc = ThisComponent
 oDocCtrl = oDoc.getCurrentController()
 oDocFrame = oDocCtrl.getFrame()
 'oPage = oDoc.DrawPages(0)
 oPage = oDoc.getDrawPages().getByIndex(0)
 oDispatchHelper=createUnoService("com.sun.star.frame.DispatchHelper")
 FullHalf() ' Draw half an octant, with meridians and parallels
 oShape1 = oPage.getByIndex(0) ' Get the half octant
 
 ' Duplicate shape
 oDocCtrl.select(oShape1)
 oDispatchHelper.executeDispatch(oDocFrame,".uno:Copy","",0,Array())
 oDispatchHelper.executeDispatch(oDocFrame,".uno:Paste","",0,Array())
 
 'Name, move and flip the second half octant
 oShape2 = oPage.getByIndex(1)
 oShape2.Name = "WestHalf"
 oShape2.Position = P(oShape1.Position.X,0)
 oDocCtrl.select(oShape2)
 oDispatchHelper.executeDispatch(oDocFrame,".uno:MirrorVert","",0,Array())
 
 'Group the two shapes and name
 oOctant = Collect("All")
 oOctant.Name = "Octant"
 Octant() = oOctant
End Function ' Octant

Sub FullHalf
' Calls each subroutine to draw (Triangle was commented out), parallels, meridians, and
' half octant boundary. Each set is grouped and named. All shapes are then grouped and
' named "EastHalf".
 oDoc = ThisComponent
 oPage = oDoc.DrawPages(0)

' Triangle()
' S = oPage.getByIndex(0)
' S.Name = "Triangle"

 ParallelsMinor()
 S = Collect("NoName")
 S.Name = "ParallelsMinor"

 MeridiansMinor()
 S = Collect("NoName")
 S.Name = "MeridiansMinor" 

 ParallelsMajor()
 S = Collect("NoName")
 S.Name = "ParallelsMajor"

 MeridiansMajor()
 S = Collect("NoName")
 S.Name = "MeridiansMajor"

 HalfOctant()
 S = oPage.getByIndex(oPage.Count - 1)
 S.Name = "HalfOctant"

 S = Collect("All")
 S.Name = "EastHalf"
End Sub ' FullHalf

' # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Function NamedShape (oName As String) As Variant
' Returns the first shape which has a given name; if not found, doesn't return anything
 oDoc = ThisComponent
 oPage = oDoc.DrawPages(0)
 oNumber = oPage.Count - 1
 oShape = "Not Found"
 For i = 0 to oNumber
  S = oPage.getByIndex(i)
  If S.Name = oName Then
   NamedShape() = S
   Exit Function
  EndIf
 Next
  print "Didn't find a shape named ",oName
End Function ' NamedShape

Function Collect(What As String) As Variant
 ' This function collects several objects, groups them and returns the group-object
 ' Variable What is a string variable which can be:
 ' - "All" to group all objects
 ' - "NoName" to group all unnamed object
 ' - an integer, to group objects whose index is that integer or larger
 oDoc = ThisComponent
 oPage = oDoc.DrawPages(0)
 oNumber = oPage.Count - 1
 Shapes = CreateUnoService("com.sun.star.drawing.ShapeCollection")
 If What = "All" Then
  For i = 0 To oNumber
   Shapes.add(oPage.getByIndex(i))
  Next
 ElseIf What = "NoName" Then
  For i = 0 to oNumber
   S = oPage.getByIndex(i)
   If S.Name = "" Then Shapes.add(S)
  Next
 Else
  oStart = CLng(What)
  For i = oStart To oNumber
   Shapes.add(oPage.getByIndex(i))
  Next
 EndIf
 Collect() = oPage.group(Shapes)
End Function ' Collect

' # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #

Sub Grids10x12
REM Draw 200, 1000 and 5000 grids for a 10,000x12,000mm (one octant) drawing
 oDoc = ThisComponent
 oPage = oDoc.DrawPages(0)
 G200 = Grids(RGB(204,204,204),0,1000000,300000,-900000,20000,100000)
 G200.Name = "G200"
 G1000 = Grids(RGB(255,0,51),0,1000000,300000,-900000,100000,500000)
 G1000.Name = "G1000"
 G5000 = Grids(RGB(0,174,0),0,1000000,300000,-900000,500000,0)
 G5000.Name = "G5000"
 ' Group the grids
 oCollection = createUnoService("com.sun.star.drawing.ShapeCollection")
 oCollection.add(G200)
 oCollection.add(G1000)
 oCollection.add(G5000)
 oGrids = oPage.group(oCollection)
 oGrids.Name = "Grids10by12"
End Sub ' Grids10x12

Sub Grids40x20
REM Draw 200, 1000 and 5000 grids for a 40,000x20,000mm (eight octants) drawing
 oDoc = ThisComponent
 oPage = oDoc.DrawPages(0)
 G200 = Grids(RGB(204,204,204),-2000000,2000000,1000000,-1000000,20000,100000)
 G200.Name = "G200"
 G1000 = Grids(RGB(255,0,51),-2000000,2000000,1000000,-1000000,100000,500000)
 G1000.Name = "G1000"
 G5000 = Grids(RGB(0,174,0),-2000000,2000000,1000000,-1000000,500000,0)
 G5000.Name = "G5000"
 ' Group the grids
 oCollection = createUnoService("com.sun.star.drawing.ShapeCollection")
 oCollection.add(G200)
 oCollection.add(G1000)
 oCollection.add(G5000)
 oGrids = oPage.group(oCollection)
 oGrids.Name = "Grids40by20"
End Sub ' Grids40x20

Function Grids (oColor As Long, oLeft As Long, oRight As Long, oBottom As Long, _
  oTop As Long, oDelta As Long, oSkip As Long) As Variant
 ' oBottom is larger than oTop; oDelta is the grid spacing;
 ' multiples of oSkip are grids that we don't plot, because they are part of a next larger
 ' spacing grid, which will later be plotted in a different color;
 ' if oSkip = 0, no lines are skipped.
 ' Function Grids draws grid-lines from oLeft to oRight and from oTop to oBottom, at spacing
 '   oDelta, but not drawing lines which are multiples of oSkip (unless oSkip is zero). This
 '   function not only draws, but groups all the lines drawn in one call, and returns the group.
 ' This function uses function LL() to prepare each line (lineShape).
 ' Note: 1 hundredth of mm was added to lengths of lines, to account for line thickness of
 '    end line.
 Dim i As Long, oStart As Long, oLength As Long

 oDoc = ThisComponent
 oPage = oDoc.DrawPages(0)
 oCollection = createUnoService("com.sun.star.drawing.ShapeCollection")
 ' Draw the horizontal grid lines
 ' If oBottom is not a multiple of delta, start at a multiple of oDelta
 i = oTop MOD oDelta
 if i = 0 Then
  oStart = oTop
 ElseIf i < 0 Then
  oStart = oTop - i
 Else
  oStart = oTop - i + oDelta
 EndIf
 oLength = oRight - oLeft + 1
 For i = oStart To oBottom Step oDelta
  ' Do the line only if it is not one of the lines to skip
  if oSkip = 0 Then
   oLine = LL(oDoc,oLeft,i,oLength,0,oColor)
   oPage.add(oLine)
   oCollection.add(oLine)
  ElseIf i MOD oSkip <> 0 Then
   oLine = LL(oDoc,oLeft,i,oLength,0,oColor)
   oPage.add(oLine)
   oCollection.add(oLine)
  EndIf
 Next
 ' Now draw the vertical lines
 ' If oLeft is not a multiple of delta, start at a multiple of oDelta
 i = oLeft MOD oDelta
 if i = 0 Then
  oStart = oLeft
 ElseIf i < 0 Then
  oStart = oLeft - i
 Else
  oStart = oLeft - i + oDelta
 EndIf
 oLength = oBottom - oTop + 1
 For i = oStart To oRight Step oDelta ' Vertical Lines
  ' Do the line only if it is not one of the lines to skip
  if oSkip = 0 Then
   oLine = LL(oDoc,i,oTop,0,oLength,oColor)
   oPage.add(oLine)
   oCollection.add(oLine)
  ElseIf i MOD oSkip <> 0 Then
   oLine = LL(oDoc,i,oTop,0,oLength,oColor)
   oPage.add(oLine)
   oCollection.add(oLine)
  EndIf
 Next
 Grids() = oPage.group(oCollection)
End Function ' Grids

Function LL( oDoc As Object,  x As Long, y As Long , oWidth As Long, oHeight As Long,_
 nColor As Long) As com.sun.star.drawing.LineShape
'   Create and return a LineShape object
'   Function LL() creates and returns a LineShape object, but does not draw it. The object
' is located at x,y, with length oWidth and height oHeight, and color nColor.
' No scaling is applied.
 Dim oSize As New com.sun.star.awt.Size
 Dim oPoint As New com.sun.star.awt.Point
 Dim x0 As Long
 Dim y0 As Long
 oSize.width = oWidth
 oSize.height = oHeight
 oPoint.x = x
 oPoint.y = y
 oShape = oDoc.createInstance( "com.sun.star.drawing.LineShape" )
 oShape.Position = oPoint
 oShape.Size = oSize
 oShape.LineColor = nColor
 LL() = oShape
End Function ' LL

' # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
' Prepare PolyLine with colour: Function L(doc, page, colour)
' Prepare Point: Function P(x,y);
' Prepare Size: Function Z(width,height), was MakeSize
' Prepare Arc: Function A(doc,centre,radius,start-angle,end-angle,colour)

Function L(oDoc As Object, oPage As Object, Optional oColor As Long)_
 As com.sun.star.drawing.PolyLineShape
 ' Function to prepare a PolyLine, including its colour [RGB(#,#,#)];
 ' coordinates are given elsewhere
 oShape=oDoc.createInstance("com.sun.star.drawing.PolyLineShape")
 oPage.add(oShape)
 If Not IsMissing( oColor ) Then
  oShape.LineColor = oColor
 EndIf
 L() = oShape
End Function ' L

REM  Copied from http://www.oooforum.org/forum/viewtopic.phtml?t=5383
REM  by DannyB, post of Jan 30, 2004, 12:41 pm
REM  Post subject: Draw: Introduction to draw and basic shapes

REM  For the P [MakePoint], and Z [MakeSize] functions these remarks apply:
' These are "syntax sugar to make it easy to create" com.sun.star.[] objects.

Function P( x As Long, y As Long ) As com.sun.star.awt.Point
 ' Create and return a new Point object.
 ' X,y coordinates are expected to already be in 100ths of a milimeter
 Dim aPoint As New com.sun.star.awt.Point
 aPoint.x = x
 aPoint.y = y
 P() = aPoint
End Function ' P

Function Z( width As Long, height As Long ) As com.sun.star.awt.Size
 ' Create and return a new Size object; this was Function Makesize.
 Dim aSize As New com.sun.star.awt.Size
 aSize.width = width
 aSize.height = height
 Z() = aSize
End Function ' Z

Function A( oDrawDoc As Object, xCentre As Long, yCentre As Long,_
 radius As Long, start As Long, theEnd As Long, Optional oColor As Long )_
 As com.sun.star.drawing.EllipseShape
 ' Function makes an arc object. Colour as RGB(#,#,#);
 ' start and theEnd are angles in hundredths of degrees, from +x axis.
 ' Modified from Function MakeEllipseShape by DannyB
 oShape = oDrawDoc.createInstance( "com.sun.star.drawing.EllipseShape" )
 oShape.Position = P(xCentre - radius,yCentre - radius)
 oShape.Size = Z(2 * radius, 2 * radius)
 oShape.CircleStartAngle = start
 oShape.CircleEndAngle = theEnd
 oShape.CircleKind = com.sun.star.drawing.CircleKind.ARC
 If Not IsMissing( oColor ) Then
  oShape.LineColor = oColor
 EndIf
 A() = oShape
End Function ' A

' # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
REM The following is a copy of file OOMacros8 made by Perl program OOmacroMaker4.odt

Sub HalfOctant
D=ThisComponent
G=D.DrawPages(0)
S=L(D,G,RGB(102,0,153))
N=Array(P(94000,0),_
P(222406,-128406),_
P(777594,-448944),_
P(953000,-495944),_
P(1000000,-320537),_
P(1000000,0) )
S.PolyPolygon=Array(N)
End Sub ' HalfOctant

Sub Triangle
D=ThisComponent
G=D.DrawPages(0)
S=L(D,G,RGB(200,200,200))
N=Array(P(1000000,-577350),_
P(1000000,0),_
P(0,0),_
P(1000000,-577350) )
S.PolyPolygon=Array(N)
End Sub ' Triangle

Sub MeridiansMajor
D=ThisComponent
G=D.DrawPages(0)
C=RGB(0,0,255)
S=L(D,G,C)
N=Array(P(94000,0),_
P(1000000,0),_
P(1000000,0),_
P(1000000,0) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(94000,0),_
P(281205,-16378),_
P(915908,-53346),_
P(1000000,-55792) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(94000,0),_
P(278831,-32591),_
P(909644,-106322),_
P(1000000,-111585) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(94000,0),_
P(274903,-48473),_
P(899257,-158563),_
P(1000000,-167377) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(94000,0),_
P(269468,-63865),_
P(884826,-209708),_
P(1000000,-223170) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(94000,0),_
P(262587,-78613),_
P(866461,-259401),_
P(1000000,-278962) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(94000,0),_
P(254339,-92572),_
P(845177,-307619),_
P(996320,-334270) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(94000,0),_
P(244819,-105605),_
P(824546,-355674),_
P(981880,-388161) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(94000,0),_
P(234134,-117587),_
P(802238,-402899),_
P(967440,-442053) )
S.PolyPolygon = Array(N)
End Sub ' MeridiansMajor

Sub MeridiansMinor
D=ThisComponent
G=D.DrawPages(0)
C=RGB(102,204,204)
S=L(D,G,C)
N=Array(P(145992,-908),_
P(281968,-3281),_
P(917917,-10681),_
P(1000000,-11158) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(145968,-1815),_
P(281873,-6561),_
P(917666,-21359),_
P(1000000,-22317) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(145929,-2721),_
P(281714,-9838),_
P(917247,-32031),_
P(1000000,-33475) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(145873,-3627),_
P(281491,-13111),_
P(916661,-42694),_
P(1000000,-44634) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(145715,-5435),_
P(280856,-19639),_
P(914988,-63982),_
P(1000000,-66951) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(145612,-6337),_
P(280444,-22892),_
P(913901,-74601),_
P(1000000,-78109) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(145494,-7237),_
P(279969,-26136),_
P(912648,-85199),_
P(1000000,-89268) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(145360,-8135),_
P(279431,-29369),_
P(911229,-95774),_
P(1000000,-100426) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(145045,-9922),_
P(278168,-35799),_
P(907895,-116841),_
P(1000000,-122743) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(144864,-10811),_
P(277444,-38992),_
P(905981,-127327),_
P(1000000,-133902) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(144667,-11697),_
P(276658,-42170),_
P(903903,-137778),_
P(1000000,-145060) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(144455,-12580),_
P(275811,-45331),_
P(901661,-148191),_
P(1000000,-156219) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(143986,-14333),_
P(273935,-51595),_
P(896692,-168891),_
P(1000000,-178536) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(143728,-15203),_
P(272907,-54697),_
P(893965,-179173),_
P(1000000,-189694) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(143455,-16069),_
P(271819,-57777),_
P(891078,-189404),_
P(1000000,-200853) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(143167,-16930),_
P(270673,-60833),_
P(888031,-199584),_
P(1000000,-212011) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(142546,-18635),_
P(268205,-66871),_
P(881464,-219774),_
P(1000000,-234328) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(142214,-19480),_
P(266885,-69850),_
P(877945,-229779),_
P(1000000,-245487) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(141866,-20318),_
P(265508,-72801),_
P(874271,-239720),_
P(1000000,-256645) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(141504,-21150),_
P(264075,-75722),_
P(870443,-249595),_
P(1000000,-267803) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(140737,-22795),_
P(261044,-81473),_
P(862328,-269136),_
P(1000000,-290120) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(140332,-23608),_
P(259447,-84299),_
P(858043,-278795),_
P(1000000,-301279) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(139913,-24413),_
P(257797,-87092),_
P(853610,-288378),_
P(1000000,-312437) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(139480,-25210),_
P(256094,-89850),_
P(849198,-297940),_
P(999208,-323492) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(138573,-26782),_
P(252534,-95257),_
P(841136,-317280),_
P(993432,-345048) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(138098,-27556),_
P(250678,-97903),_
P(837063,-326918),_
P(990544,-355826) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(137611,-28321),_
P(248773,-100511),_
P(832946,-336532),_
P(987656,-366605) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(137110,-29078),_
P(246820,-103078),_
P(828777,-346118),_
P(984768,-377383) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(136069,-30565),_
P(242772,-108089),_
P(820246,-365197),_
P(978992,-398940) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(135529,-31294),_
P(240678,-110530),_
P(815870,-374683),_
P(976104,-409718) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(134977,-32014),_
P(238540,-112927),_
P(811414,-384131),_
P(973216,-420496) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(134412,-32725),_
P(236359,-115280),_
P(806871,-393537),_
P(970328,-431274) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(133245,-34115),_
P(231868,-119847),_
P(797510,-412213),_
P(964552,-452831) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(132644,-34795),_
P(229561,-122060),_
P(792684,-421478),_
P(961664,-463609) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(132030,-35464),_
P(227215,-124225),_
P(787758,-430689),_
P(958776,-474387) )
S.PolyPolygon = Array(N)
S=L(D,G,C)
N=Array(P(131406,-36122),_
P(224829,-126340),_
P(782729,-439846),_
P(955888,-485166) )
S.PolyPolygon = Array(N)
End Sub ' MeridiansMinor

Sub ParallelsMajor
D=ThisComponent
G=D.DrawPages(0)
C=RGB(0,0,255)
'P 5
S=L(D,G,C)
N=Array(P(950000,0),_
P(949996,-10868),_
P(949983,-21735),_
P(949963,-32602),_
P(949933,-43469),_
P(949896,-54335),_
P(949850,-65200),_
P(949797,-76064),_
P(949734,-86927),_
P(949664,-97788),_
P(949586,-108648),_
P(949499,-119507),_
P(949404,-130364),_
P(949301,-141218),_
P(949190,-152071),_
P(949071,-162922),_
P(948945,-173769),_
P(948810,-184615),_
P(948667,-195457),_
P(948517,-206297),_
P(948359,-217134),_
P(948193,-227967),_
P(948020,-238797),_
P(947839,-249624),_
P(947651,-260446),_
P(947456,-271265),_
P(947253,-282080),_
P(947043,-292891),_
P(946826,-303698),_
P(945864,-314405),_
P(943096,-324885),_
P(940268,-335355),_
P(937382,-345813),_
P(934436,-356260),_
P(931430,-366693),_
P(928366,-377111),_
P(925243,-387515),_
P(922061,-397902),_
P(918821,-408271),_
P(915523,-418622),_
P(912167,-428953),_
P(908753,-439263),_
P(905283,-449552),_
P(901755,-459818),_
P(898171,-470060),_
P(894531,-480277))
S.PolyPolygon=Array(N)
'P 10
S=L(D,G,C)
N=Array(P(900000,0),_
P(899993,-10472),_
P(899970,-20947),_
P(899933,-31426),_
P(899881,-41913),_
P(899813,-52408),_
P(899729,-62915),_
P(899629,-73436),_
P(899512,-83973),_
P(899377,-94528),_
P(899224,-105104),_
P(899052,-115703),_
P(898861,-126327),_
P(898648,-136977),_
P(898413,-147658),_
P(898156,-158369),_
P(897889,-169003),_
P(897620,-179535),_
P(897335,-190062),_
P(897034,-200583),_
P(896718,-211098),_
P(896387,-221606),_
P(896040,-232107),_
P(895679,-242602),_
P(895302,-253089),_
P(894911,-263569),_
P(894506,-274040),_
P(894086,-284504),_
P(893651,-294959),_
P(892519,-305319),_
P(889871,-315500),_
P(887105,-325661),_
P(884219,-335800),_
P(881215,-345915),_
P(878092,-356002),_
P(874852,-366062),_
P(871494,-376090),_
P(868018,-386085),_
P(864426,-396046),_
P(860718,-405969),_
P(856894,-415853),_
P(852955,-425695),_
P(848901,-435494),_
P(844734,-445248),_
P(840455,-454954),_
P(836062,-464611))
S.PolyPolygon=Array(N)
'P 15
S=L(D,G,C)
N=Array(P(850000,0),_
P(849991,-9891),_
P(849964,-19783),_
P(849919,-29680),_
P(849855,-39583),_
P(849772,-49494),_
P(849671,-59415),_
P(849550,-69348),_
P(849409,-79296),_
P(849248,-89260),_
P(849066,-99242),_
P(848862,-109244),_
P(848635,-119268),_
P(848384,-129316),_
P(848109,-139390),_
P(847809,-149492),_
P(847482,-159623),_
P(847128,-169785),_
P(846744,-179981),_
P(846330,-190211),_
P(845885,-200478),_
P(845407,-210784),_
P(844894,-221128),_
P(844345,-231515),_
P(843759,-241944),_
P(843133,-252417),_
P(842466,-262937),_
P(841756,-273503),_
P(841001,-284118),_
P(839603,-294573),_
P(837038,-304657),_
P(834293,-314698),_
P(831370,-324695),_
P(828269,-334642),_
P(824991,-344537),_
P(821538,-354377),_
P(817909,-364157),_
P(814107,-373874),_
P(810133,-383525),_
P(805987,-393106),_
P(801671,-402614),_
P(797186,-412046),_
P(792535,-421398),_
P(787718,-430667),_
P(782738,-439848),_
P(777594,-448944))
S.PolyPolygon=Array(N)
'P 20
S=L(D,G,C)
N=Array(P(800000,0),_
P(799989,-9309),_
P(799957,-18619),_
P(799904,-27933),_
P(799829,-37253),_
P(799732,-46579),_
P(799613,-55914),_
P(799472,-65260),_
P(799307,-74619),_
P(799119,-83991),_
P(798907,-93379),_
P(798671,-102784),_
P(798409,-112209),_
P(798121,-121654),_
P(797806,-131122),_
P(797463,-140614),_
P(797091,-150132),_
P(796689,-159676),_
P(796257,-169250),_
P(795792,-178853),_
P(795294,-188488),_
P(794761,-198156),_
P(794193,-207859),_
P(793587,-217597),_
P(792943,-227373),_
P(792259,-237187),_
P(791532,-247040),_
P(790763,-256934),_
P(789948,-266870),_
P(788542,-276659),_
P(786064,-286104),_
P(783421,-295510),_
P(780616,-304873),_
P(777648,-314190),_
P(774520,-323459),_
P(771231,-332677),_
P(767783,-341839),_
P(764177,-350944),_
P(760414,-359987),_
P(756495,-368967),_
P(752420,-377880),_
P(748193,-386723),_
P(743814,-395493),_
P(739284,-404187),_
P(734605,-412803),_
P(729777,-421337))
S.PolyPolygon=Array(N)
'P 25
S=L(D,G,C)
N=Array(P(750000,0),_
P(749988,-8727),_
P(749951,-17455),_
P(749889,-26187),_
P(749803,-34923),_
P(749692,-43665),_
P(749555,-52414),_
P(749393,-61172),_
P(749205,-69941),_
P(748990,-78722),_
P(748749,-87516),_
P(748480,-96325),_
P(748183,-105150),_
P(747857,-113993),_
P(747502,-122855),_
P(747116,-131737),_
P(746699,-140640),_
P(746251,-149567),_
P(745769,-158518),_
P(745253,-167495),_
P(744703,-176498),_
P(744116,-185529),_
P(743492,-194589),_
P(742830,-203680),_
P(742128,-212802),_
P(741384,-221956),_
P(740599,-231144),_
P(739769,-240366),_
P(738895,-249623),_
P(737480,-258744),_
P(735091,-267551),_
P(732550,-276321),_
P(729862,-285051),_
P(727028,-293738),_
P(724049,-302381),_
P(720925,-310977),_
P(717657,-319522),_
P(714247,-328014),_
P(710695,-336450),_
P(707002,-344828),_
P(703170,-353145),_
P(699200,-361399),_
P(695092,-369587),_
P(690850,-377707),_
P(686473,-385756),_
P(681960,-393730))
S.PolyPolygon=Array(N)
'P 30
S=L(D,G,C)
N=Array(P(700000,0),_
P(699986,-8145),_
P(699944,-16291),_
P(699875,-24440),_
P(699777,-32593),_
P(699652,-40750),_
P(699497,-48914),_
P(699315,-57085),_
P(699103,-65264),_
P(698861,-73453),_
P(698590,-81654),_
P(698289,-89866),_
P(697957,-98091),_
P(697593,-106331),_
P(697198,-114587),_
P(696770,-122859),_
P(696308,-131149),_
P(695812,-139458),_
P(695281,-147787),_
P(694715,-156136),_
P(694112,-164507),_
P(693471,-172902),_
P(692791,-181320),_
P(692072,-189762),_
P(691312,-198231),_
P(690510,-206725),_
P(689665,-215247),_
P(688776,-223797),_
P(687842,-232376),_
P(686419,-240829),_
P(684118,-248998),_
P(681678,-257132),_
P(679108,-265229),_
P(676408,-273287),_
P(673578,-281303),_
P(670619,-289277),_
P(667531,-297204),_
P(664317,-305083),_
P(660976,-312913),_
P(657510,-320689),_
P(653920,-328411),_
P(650206,-336076),_
P(646371,-343682),_
P(642416,-351227),_
P(638341,-358709),_
P(634144,-366123))
S.PolyPolygon=Array(N)
'P 35
S=L(D,G,C)
N=Array(P(650000,0),_
P(649984,-7563),_
P(649938,-15127),_
P(649860,-22694),_
P(649751,-30263),_
P(649611,-37836),_
P(649440,-45413),_
P(649236,-52997),_
P(649000,-60587),_
P(648733,-68185),_
P(648432,-75791),_
P(648098,-83407),_
P(647731,-91033),_
P(647330,-98670),_
P(646894,-106319),_
P(646423,-113982),_
P(645917,-121658),_
P(645374,-129349),_
P(644794,-137055),_
P(644176,-144778),_
P(643521,-152517),_
P(642825,-160274),_
P(642090,-168050),_
P(641314,-175845),_
P(640497,-183659),_
P(639636,-191494),_
P(638732,-199351),_
P(637783,-207228),_
P(636789,-215128),_
P(635357,-222914),_
P(633144,-230446),_
P(630807,-237943),_
P(628355,-245406),_
P(625788,-252835),_
P(623107,-260225),_
P(620312,-267577),_
P(617405,-274887),_
P(614387,-282153),_
P(611257,-289375),_
P(608018,-296550),_
P(604669,-303676),_
P(601213,-310752),_
P(597650,-317776),_
P(593981,-324746),_
P(590209,-331661),_
P(586327,-338516))
S.PolyPolygon=Array(N)
'P 40
S=L(D,G,C)
N=Array(P(600000,0),_
P(599983,-6981),_
P(599931,-13964),_
P(599846,-20947),_
P(599726,-27933),_
P(599571,-34921),_
P(599382,-41913),_
P(599157,-48909),_
P(598898,-55910),_
P(598604,-62916),_
P(598273,-69928),_
P(597907,-76947),_
P(597505,-83974),_
P(597066,-91008),_
P(596590,-98052),_
P(596077,-105104),_
P(595525,-112167),_
P(594935,-119240),_
P(594306,-126324),_
P(593638,-133419),_
P(592929,-140527),_
P(592180,-147647),_
P(591389,-154780),_
P(590557,-161927),_
P(589681,-169088),_
P(588762,-176264),_
P(587799,-183454),_
P(586790,-190660),_
P(585736,-197881),_
P(584296,-204999),_
P(582171,-211893),_
P(579936,-218754),_
P(577601,-225584),_
P(575167,-232383),_
P(572636,-239147),_
P(570006,-245877),_
P(567279,-252569),_
P(564456,-259223),_
P(561538,-265838),_
P(558525,-272411),_
P(555419,-278942),_
P(552219,-285429),_
P(548929,-291871),_
P(545547,-298266),_
P(542077,-304614),_
P(538510,-310909))
S.PolyPolygon=Array(N)
'P 45
S=L(D,G,C)
N=Array(P(550000,0),_
P(549981,-6400),_
P(549925,-12800),_
P(549831,-19201),_
P(549700,-25603),_
P(549531,-32007),_
P(549324,-38412),_
P(549079,-44821),_
P(548796,-51232),_
P(548475,-57647),_
P(548115,-64065),_
P(547717,-70488),_
P(547279,-76915),_
P(546802,-83347),_
P(546286,-89784),_
P(545730,-96227),_
P(545134,-102676),_
P(544497,-109131),_
P(543819,-115592),_
P(543100,-122061),_
P(542338,-128537),_
P(541535,-135020),_
P(540689,-141511),_
P(539799,-148010),_
P(538866,-154517),_
P(537888,-161033),_
P(536865,-167558),_
P(535797,-174091),_
P(534683,-180634),_
P(533234,-187084),_
P(531198,-193340),_
P(529064,-199565),_
P(526847,-205762),_
P(524547,-211931),_
P(522164,-218069),_
P(519700,-224177),_
P(517153,-230252),_
P(514526,-236293),_
P(511819,-242300),_
P(509033,-248272),_
P(506168,-254207),_
P(503226,-260105),_
P(500207,-265965),_
P(497113,-271786),_
P(493945,-277567),_
P(490694,-283302))
S.PolyPolygon=Array(N)
'P 50
S=L(D,G,C)
N=Array(P(500000,0),_
P(499980,-5818),_
P(499919,-11636),_
P(499817,-17454),_
P(499674,-23273),_
P(499490,-29092),_
P(499266,-34912),_
P(499000,-40733),_
P(498694,-46555),_
P(498346,-52378),_
P(497957,-58203),_
P(497526,-64029),_
P(497053,-69856),_
P(496539,-75686),_
P(495982,-81517),_
P(495384,-87350),_
P(494742,-93184),_
P(494058,-99022),_
P(493331,-104861),_
P(492561,-110702),_
P(491747,-116546),_
P(490890,-122392),_
P(489988,-128241),_
P(489041,-134092),_
P(488050,-139946),_
P(487014,-145802),_
P(485932,-151661),_
P(484804,-157522),_
P(483630,-163386),_
P(482172,-169169),_
P(480224,-174787),_
P(478193,-180376),_
P(476093,-185940),_
P(473927,-191479),_
P(471693,-196991),_
P(469393,-202476),_
P(467027,-207934),_
P(464596,-213363),_
P(462100,-218763),_
P(459541,-224133),_
P(456918,-229473),_
P(454233,-234782),_
P(451486,-240059),_
P(448679,-245305),_
P(445813,-250520),_
P(442877,-255695))
S.PolyPolygon=Array(N)
'P 55
S=L(D,G,C)
N=Array(P(450000,0),_
P(449978,-5236),_
P(449912,-10472),_
P(449802,-15707),_
P(449648,-20943),_
P(449450,-26177),_
P(449208,-31412),_
P(448922,-36645),_
P(448592,-41878),_
P(448217,-47110),_
P(447798,-52340),_
P(447335,-57569),_
P(446827,-62797),_
P(446275,-68024),_
P(445679,-73249),_
P(445037,-78472),_
P(444351,-83693),_
P(443620,-88912),_
P(442844,-94129),_
P(442023,-99344),_
P(441156,-104556),_
P(440244,-109765),_
P(439287,-114972),_
P(438284,-120175),_
P(437235,-125375),_
P(436140,-130572),_
P(434998,-135765),_
P(433811,-140954),_
P(432577,-146139),_
P(431111,-151255),_
P(429251,-156235),_
P(427321,-161187),_
P(425340,-166118),_
P(423307,-171027),_
P(421222,-175913),_
P(419087,-180776),_
P(416901,-185616),_
P(414666,-190433),_
P(412381,-195225),_
P(410048,-199994),_
P(407667,-204738),_
P(405239,-209458),_
P(402765,-214154),_
P(400245,-218825),_
P(397681,-223472),_
P(395060,-228088))
S.PolyPolygon=Array(N)
'P 60
S=L(D,G,C)
N=Array(P(400000,0),_
P(399976,-4654),_
P(399906,-9308),_
P(399788,-13961),_
P(399622,-18613),_
P(399410,-23263),_
P(399150,-27911),_
P(398843,-32557),_
P(398489,-37201),_
P(398088,-41841),_
P(397640,-46477),_
P(397144,-51110),_
P(396601,-55739),_
P(396012,-60363),_
P(395375,-64981),_
P(394691,-69595),_
P(393960,-74202),_
P(393182,-78803),_
P(392356,-83398),_
P(391484,-87985),_
P(390565,-92566),_
P(389599,-97138),_
P(388586,-101702),_
P(387526,-106257),_
P(386419,-110804),_
P(385265,-115341),_
P(384065,-119868),_
P(382818,-124385),_
P(381524,-128891),_
P(380049,-133340),_
P(378278,-137682),_
P(376450,-141998),_
P(374586,-146296),_
P(372686,-150575),_
P(370751,-154835),_
P(368781,-159076),_
P(366775,-163299),_
P(364736,-167503),_
P(362662,-171688),_
P(360556,-175855),_
P(358417,-180004),_
P(356246,-184135),_
P(354044,-188248),_
P(351811,-192345),_
P(349549,-196425),_
P(347244,-200481))
S.PolyPolygon=Array(N)
'P 65
S=L(D,G,C)
N=Array(P(350000,0),_
P(349975,-4072),_
P(349899,-8144),_
P(349773,-12214),_
P(349596,-16283),_
P(349370,-20348),_
P(349092,-24411),_
P(348765,-28469),_
P(348387,-32523),_
P(347959,-36572),_
P(347481,-40615),_
P(346953,-44651),_
P(346376,-48680),_
P(345748,-52701),_
P(345071,-56714),_
P(344344,-60717),_
P(343568,-64711),_
P(342743,-68694),_
P(341869,-72666),_
P(340946,-76627),_
P(339974,-80575),_
P(338954,-84511),_
P(337885,-88432),_
P(336768,-92340),_
P(335604,-96233),_
P(334391,-100110),_
P(333131,-103972),_
P(331825,-107816),_
P(330471,-111644),_
P(328988,-115425),_
P(327304,-119129),_
P(325578,-122809),_
P(323832,-126474),_
P(322066,-130123),_
P(320280,-133757),_
P(318474,-137376),_
P(316649,-140981),_
P(314806,-144573),_
P(312944,-148151),_
P(311064,-151716),_
P(309166,-155269),_
P(307252,-158811),_
P(305322,-162343),_
P(303377,-165865),_
P(301417,-169378),_
P(299427,-172874))
S.PolyPolygon=Array(N)
'P 70
S=L(D,G,C)
N=Array(P(300000,0),_
P(299973,-3490),_
P(299893,-6980),_
P(299758,-10468),_
P(299571,-13953),_
P(299329,-17434),_
P(299034,-20911),_
P(298686,-24382),_
P(298285,-27846),_
P(297830,-31303),_
P(297323,-34752),_
P(296762,-38192),_
P(296150,-41621),_
P(295484,-45040),_
P(294767,-48446),_
P(293998,-51840),_
P(293177,-55220),_
P(292305,-58585),_
P(291381,-61935),_
P(290407,-65269),_
P(289383,-68585),_
P(288308,-71883),_
P(287184,-75163),_
P(286010,-78422),_
P(284788,-81662),_
P(283517,-84879),_
P(282198,-88075),_
P(280831,-91248),_
P(279418,-94396),_
P(277926,-97510),_
P(276331,-100576),_
P(274707,-103620),_
P(273078,-106652),_
P(271446,-109671),_
P(269809,-112679),_
P(268168,-115676),_
P(266523,-118664),_
P(264875,-121642),_
P(263225,-124613),_
P(261571,-127577),_
P(259916,-130535),_
P(258259,-133488),_
P(256601,-136437),_
P(254943,-139384),_
P(253285,-142331),_
P(251610,-145267))
S.PolyPolygon=Array(N)
'P 75
G.add(A(D,94000,0,156000,0,4500,C))
'P 80
G.add(A(D,94000,0,104000,0,4500,C))
'P 85
G.add(A(D,94000,0,52000,0,4500,C))
End Sub ' ParallelsMajor

' NOTE: Sub ParallelsMinor has been moved to file All-macros-part-2.odt, for ease in
' copying.

' # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #

Part 2

'
' This is "file" All-macros-part-2.odt.
'
' In order to facilitate copying the macros, they were separated into two text files (actually,
' OpenOffice.org Writer): All-macros-part-1.odt and All-macros-part-2.odt. The first has
' some explanations at the top, and most of the macros. The second, this one, has only:
' - Sub ParallelsMinor: draws the minor parallels for the half-octant
'
' Both of these files should be copied into the same macro-module of an OpenOffice.org
' Draw file.
'
Sub ParallelsMinor
D=ThisComponent
G=D.DrawPages(0)
C=RGB(102,204,204)
'P 1
S=L(D,G,C)
N=Array(P(990000,0),_
P(989999,-11100),_
P(989997,-22201),_
P(989993,-33301),_
P(989987,-44401),_
P(989979,-55501),_
P(989970,-66601),_
P(989959,-77700),_
P(989947,-88800),_
P(989933,-99899),_
P(989917,-110998),_
P(989900,-122096),_
P(989881,-133194),_
P(989860,-144292),_
P(989838,-155389),_
P(989814,-166486),_
P(989789,-177582),_
P(989762,-188678),_
P(989733,-199774),_
P(989703,-210868),_
P(989672,-221962),_
P(989639,-233056),_
P(989604,-244149),_
P(989568,-255241),_
P(989530,-266332),_
P(989491,-277423),_
P(989451,-288512),_
P(989409,-299601),_
P(989365,-310690),_
P(988539,-321674),_
P(985675,-332393),_
P(982800,-343110),_
P(979912,-353824),_
P(977012,-364536),_
P(974101,-375245),_
P(971177,-385951),_
P(968242,-396655),_
P(965296,-407355),_
P(962337,-418051),_
P(959367,-428744),_
P(956386,-439433),_
P(953392,-450117),_
P(950388,-460798),_
P(947372,-471473),_
P(944345,-482144),_
P(941306,-492811))
S.PolyPolygon=Array(N)
'P 2
S=L(D,G,C)
N=Array(P(980000,0),_
P(979998,-11042),_
P(979993,-22084),_
P(979985,-33126),_
P(979973,-44168),_
P(979958,-55209),_
P(979940,-66250),_
P(979919,-77291),_
P(979894,-88331),_
P(979866,-99371),_
P(979834,-110410),_
P(979800,-121449),_
P(979762,-132487),_
P(979720,-143524),_
P(979676,-154560),_
P(979629,-165595),_
P(979578,-176629),_
P(979524,-187662),_
P(979467,-198695),_
P(979407,-209725),_
P(979344,-220755),_
P(979277,-231784),_
P(979208,-242811),_
P(979136,-253836),_
P(979060,-264861),_
P(978982,-275883),_
P(978901,-286904),_
P(978817,-297924),_
P(978730,-308942),_
P(977871,-319857),_
P(975031,-330516),_
P(972167,-341171),_
P(969279,-351821),_
P(966368,-362467),_
P(963433,-373107),_
P(960475,-383741),_
P(957492,-394370),_
P(954487,-404991),_
P(951458,-415606),_
P(948406,-426213),_
P(945331,-436813),_
P(942233,-447404),_
P(939112,-457986),_
P(935968,-468559),_
P(932801,-479123),_
P(929612,-489677))
S.PolyPolygon=Array(N)
'P 3
S=L(D,G,C)
N=Array(P(970000,0),_
P(969998,-10984),_
P(969990,-21968),_
P(969978,-32951),_
P(969960,-43935),_
P(969938,-54918),_
P(969910,-65900),_
P(969878,-76882),_
P(969841,-87863),_
P(969798,-98844),_
P(969751,-109823),_
P(969699,-120802),_
P(969642,-131779),_
P(969581,-142755),_
P(969514,-153730),_
P(969443,-164704),_
P(969367,-175676),_
P(969286,-186647),_
P(969200,-197615),_
P(969110,-208583),_
P(969015,-219548),_
P(968916,-230511),_
P(968812,-241473),_
P(968704,-252432),_
P(968591,-263389),_
P(968473,-274344),_
P(968352,-285296),_
P(968226,-296246),_
P(968095,-307194),_
P(967202,-318040),_
P(964386,-328639),_
P(961534,-339232),_
P(958647,-349819),_
P(955724,-360398),_
P(952765,-370969),_
P(949772,-381531),_
P(946743,-392085),_
P(943678,-402628),_
P(940579,-413161),_
P(937445,-423683),_
P(934276,-434193),_
P(931073,-444690),_
P(927835,-455175),_
P(924564,-465646),_
P(921258,-476102),_
P(917919,-486544))
S.PolyPolygon=Array(N)
'P 4
S=L(D,G,C)
N=Array(P(960000,0),_
P(959997,-10926),_
P(959987,-21851),_
P(959970,-32777),_
P(959947,-43702),_
P(959917,-54626),_
P(959880,-65550),_
P(959837,-76473),_
P(959788,-87395),_
P(959731,-98316),_
P(959668,-109236),_
P(959599,-120154),_
P(959523,-131071),_
P(959441,-141987),_
P(959352,-152901),_
P(959257,-163813),_
P(959156,-174723),_
P(959048,-185631),_
P(958934,-196536),_
P(958814,-207440),_
P(958687,-218341),_
P(958555,-229239),_
P(958416,-240135),_
P(958271,-251028),_
P(958121,-261918),_
P(957964,-272805),_
P(957802,-283688),_
P(957634,-294569),_
P(957461,-305446),_
P(956533,-316223),_
P(953741,-326762),_
P(950901,-337293),_
P(948014,-347816),_
P(945080,-358329),_
P(942098,-368831),_
P(939069,-379321),_
P(935993,-389800),_
P(932870,-400265),_
P(929700,-410716),_
P(926484,-421152),_
P(923222,-431573),_
P(919913,-441977),_
P(916559,-452363),_
P(913159,-462732),_
P(909715,-473081),_
P(906225,-483411))
S.PolyPolygon=Array(N)
'P 6
S=L(D,G,C)
N=Array(P(940000,0),_
P(939995,-10809),_
P(939980,-21619),_
P(939955,-32427),_
P(939920,-43236),_
P(939875,-54043),_
P(939821,-64849),_
P(939756,-75655),_
P(939681,-86458),_
P(939597,-97261),_
P(939503,-108061),_
P(939399,-118860),_
P(939285,-129656),_
P(939161,-140450),_
P(939028,-151242),_
P(938886,-162030),_
P(938733,-172816),_
P(938572,-183599),_
P(938401,-194378),_
P(938220,-205154),_
P(938031,-215926),_
P(937832,-226695),_
P(937624,-237459),_
P(937407,-248219),_
P(937181,-258975),_
P(936947,-269726),_
P(936703,-280472),_
P(936451,-291214),_
P(936191,-301950),_
P(935195,-312588),_
P(932451,-323008),_
P(929636,-333416),_
P(926749,-343811),_
P(923791,-354191),_
P(920763,-364555),_
P(917663,-374901),_
P(914493,-385230),_
P(911253,-395538),_
P(907942,-405826),_
P(904562,-416091),_
P(901112,-426333),_
P(897594,-436549),_
P(894006,-446740),_
P(890351,-456904),_
P(886628,-467039),_
P(882837,-477144))
S.PolyPolygon=Array(N)
'P 7
S=L(D,G,C)
N=Array(P(930000,0),_
P(929994,-10751),_
P(929977,-21502),_
P(929948,-32253),_
P(929907,-43002),_
P(929855,-53751),_
P(929791,-64499),_
P(929715,-75245),_
P(929628,-85990),_
P(929530,-96733),_
P(929420,-107474),_
P(929298,-118212),_
P(929166,-128949),_
P(929022,-139682),_
P(928866,-150412),_
P(928700,-161139),_
P(928522,-171863),_
P(928334,-182583),_
P(928134,-193299),_
P(927924,-204011),_
P(927703,-214719),_
P(927471,-225423),_
P(927228,-236121),_
P(926975,-246815),_
P(926712,-257503),_
P(926438,-268187),_
P(926154,-278864),_
P(925860,-289536),_
P(925556,-300202),_
P(924526,-310771),_
P(921806,-321131),_
P(919003,-331477),_
P(916117,-341808),_
P(913147,-352122),_
P(910095,-362417),_
P(906960,-372692),_
P(903743,-382945),_
P(900444,-393175),_
P(897063,-403381),_
P(893601,-413560),_
P(890058,-423713),_
P(886434,-433836),_
P(882730,-443929),_
P(878947,-453990),_
P(875085,-464018),_
P(871144,-474011))
S.PolyPolygon=Array(N)
'P 8
S=L(D,G,C)
N=Array(P(920000,0),_
P(919993,-10693),_
P(919973,-21386),_
P(919940,-32078),_
P(919894,-42769),_
P(919834,-53460),_
P(919761,-64149),_
P(919674,-74836),_
P(919575,-85522),_
P(919462,-96206),_
P(919337,-106887),_
P(919198,-117565),_
P(919046,-128241),_
P(918882,-138913),_
P(918704,-149583),_
P(918514,-160248),_
P(918311,-170910),_
P(918096,-181567),_
P(917868,-192220),_
P(917627,-202869),_
P(917374,-213512),_
P(917109,-224150),_
P(916832,-234783),_
P(916543,-245411),_
P(916242,-256032),_
P(915929,-266647),_
P(915604,-277256),_
P(915268,-287859),_
P(914921,-298454),_
P(913857,-308953),_
P(911161,-319254),_
P(908370,-329539),_
P(905484,-339805),_
P(902503,-350053),_
P(899427,-360279),_
P(896257,-370482),_
P(892993,-380660),_
P(889635,-390812),_
P(886184,-400936),_
P(882640,-411030),_
P(879003,-421093),_
P(875274,-431122),_
P(871454,-441117),_
P(867543,-451076),_
P(863541,-460996),_
P(859450,-470877))
S.PolyPolygon=Array(N)
'P 9
S=L(D,G,C)
N=Array(P(910000,0),_
P(909993,-10589),_
P(909972,-21180),_
P(909936,-31776),_
P(909886,-42379),_
P(909821,-52991),_
P(909740,-63615),_
P(909644,-74254),_
P(909532,-84908),_
P(909403,-95582),_
P(909256,-106277),_
P(909098,-116918),_
P(908927,-127533),_
P(908742,-138145),_
P(908542,-148753),_
P(908328,-159357),_
P(908100,-169956),_
P(907858,-180551),_
P(907601,-191141),_
P(907331,-201726),_
P(907046,-212305),_
P(906748,-222878),_
P(906436,-233445),_
P(906111,-244006),_
P(905772,-254561),_
P(905420,-265108),_
P(905055,-275648),_
P(904677,-286181),_
P(904286,-296706),_
P(903188,-307136),_
P(900516,-317377),_
P(897737,-327600),_
P(894852,-337803),_
P(891859,-347984),_
P(888760,-358141),_
P(885555,-368272),_
P(882243,-378375),_
P(878827,-388449),_
P(875305,-398491),_
P(871679,-408499),_
P(867948,-418473),_
P(864115,-428409),_
P(860178,-438306),_
P(856139,-448162),_
P(851998,-457975),_
P(847756,-467744))
S.PolyPolygon=Array(N)
'P 11
S=L(D,G,C)
N=Array(P(890000,0),_
P(889992,-10356),_
P(889969,-20714),_
P(889930,-31077),_
P(889875,-41447),_
P(889805,-51825),_
P(889717,-62215),_
P(889613,-72618),_
P(889491,-83038),_
P(889351,-93475),_
P(889193,-103932),_
P(889014,-114411),_
P(888815,-124915),_
P(888595,-135445),_
P(888352,-146004),_
P(888086,-156594),_
P(887795,-167216),_
P(887478,-177873),_
P(887134,-188566),_
P(886761,-199298),_
P(886390,-209890),_
P(886025,-220334),_
P(885644,-230770),_
P(885246,-241198),_
P(884832,-251618),_
P(884402,-262029),_
P(883956,-272432),_
P(883494,-282826),_
P(883017,-293211),_
P(881850,-303502),_
P(879226,-313623),_
P(876472,-323723),_
P(873587,-333798),_
P(870571,-343846),_
P(867425,-353864),_
P(864149,-363852),_
P(860744,-373805),_
P(857210,-383722),_
P(853547,-393601),_
P(849757,-403438),_
P(845839,-413233),_
P(841795,-422982),_
P(837625,-432683),_
P(833330,-442334),_
P(828911,-451933),_
P(824369,-461477))
S.PolyPolygon=Array(N)
'P 12
S=L(D,G,C)
N=Array(P(880000,0),_
P(879992,-10240),_
P(879968,-20481),_
P(879927,-30728),_
P(879870,-40981),_
P(879797,-51242),_
P(879706,-61515),_
P(879597,-71801),_
P(879471,-82102),_
P(879325,-92421),_
P(879161,-102759),_
P(878976,-113119),_
P(878770,-123503),_
P(878542,-133913),_
P(878292,-144350),_
P(878017,-154818),_
P(877717,-165318),_
P(877391,-175851),_
P(877037,-186420),_
P(876653,-197027),_
P(876240,-207673),_
P(875794,-218360),_
P(875314,-229090),_
P(874814,-239793),_
P(874363,-250146),_
P(873893,-260490),_
P(873407,-270824),_
P(872903,-281149),_
P(872382,-291463),_
P(871181,-301684),_
P(868582,-311746),_
P(865839,-321784),_
P(862954,-331795),_
P(859927,-341777),_
P(856757,-351726),_
P(853446,-361642),_
P(849994,-371520),_
P(846401,-381359),_
P(842668,-391156),_
P(838796,-400908),_
P(834785,-410613),_
P(830635,-420268),_
P(826349,-429871),_
P(821926,-439420),_
P(817368,-448912),_
P(812675,-458344))
S.PolyPolygon=Array(N)
'P 13
S=L(D,G,C)
N=Array(P(870000,0),_
P(869992,-10123),_
P(869966,-20249),_
P(869924,-30378),_
P(869865,-40515),_
P(869789,-50659),_
P(869694,-60815),_
P(869582,-70983),_
P(869450,-81167),_
P(869300,-91367),_
P(869129,-101587),_
P(868938,-111827),_
P(868725,-122091),_
P(868490,-132381),_
P(868231,-142697),_
P(867948,-153043),_
P(867639,-163419),_
P(867303,-173829),_
P(866939,-184274),_
P(866546,-194755),_
P(866122,-205275),_
P(865665,-215834),_
P(865174,-226436),_
P(864648,-237082),_
P(864085,-247772),_
P(863482,-258510),_
P(862857,-269216),_
P(862311,-279471),_
P(861747,-289715),_
P(860512,-299867),_
P(857937,-309869),_
P(855206,-319845),_
P(852321,-329792),_
P(849282,-339708),_
P(846089,-349588),_
P(842743,-359432),_
P(839244,-369235),_
P(835592,-378996),_
P(831789,-388710),_
P(827835,-398377),_
P(823730,-407993),_
P(819476,-417554),_
P(815073,-427060),_
P(810522,-436506),_
P(805825,-445891),_
P(800981,-455211))
S.PolyPolygon=Array(N)
'P 14
S=L(D,G,C)
N=Array(P(860000,0),_
P(859991,-10007),_
P(859965,-20016),_
P(859921,-30029),_
P(859860,-40049),_
P(859780,-50077),_
P(859683,-60115),_
P(859566,-70166),_
P(859430,-80231),_
P(859274,-90313),_
P(859097,-100414),_
P(858900,-110536),_
P(858680,-120680),_
P(858437,-130848),_
P(858170,-141043),_
P(857878,-151267),_
P(857560,-161521),_
P(857215,-171807),_
P(856842,-182127),_
P(856438,-192483),_
P(856003,-202876),_
P(855536,-213309),_
P(855034,-223782),_
P(854497,-234298),_
P(853922,-244858),_
P(853307,-255463),_
P(852652,-266116),_
P(851954,-276817),_
P(851212,-287567),_
P(849843,-298050),_
P(847292,-307992),_
P(844574,-317906),_
P(841689,-327790),_
P(838638,-337639),_
P(835422,-347450),_
P(832040,-357222),_
P(828494,-366950),_
P(824784,-376632),_
P(820910,-386265),_
P(816874,-395847),_
P(812675,-405373),_
P(808316,-414841),_
P(803796,-424248),_
P(799118,-433592),_
P(794281,-442869),_
P(789287,-452077))
S.PolyPolygon=Array(N)
'P 16
S=L(D,G,C)
N=Array(P(840000,0),_
P(839991,-9774),_
P(839963,-19550),_
P(839916,-29330),_
P(839850,-39117),_
P(839764,-48911),_
P(839659,-58715),_
P(839534,-68531),_
P(839389,-78360),_
P(839222,-88206),_
P(839034,-98069),_
P(838823,-107952),_
P(838589,-117856),_
P(838332,-127784),_
P(838049,-137736),_
P(837740,-147716),_
P(837404,-157725),_
P(837040,-167764),_
P(836647,-177835),_
P(836223,-187940),_
P(835767,-198080),_
P(835278,-208258),_
P(834754,-218475),_
P(834194,-228731),_
P(833595,-239030),_
P(832958,-249371),_
P(832279,-259757),_
P(831557,-270189),_
P(830790,-280668),_
P(829391,-290990),_
P(826843,-300946),_
P(824118,-310861),_
P(821219,-320730),_
P(818145,-330552),_
P(814897,-340322),_
P(811476,-350037),_
P(807884,-359693),_
P(804121,-369288),_
P(800189,-378817),_
P(796088,-388278),_
P(791821,-397667),_
P(787388,-406981),_
P(782791,-416217),_
P(778031,-425371),_
P(773111,-434441),_
P(768030,-443422))
S.PolyPolygon=Array(N)
'P 17
S=L(D,G,C)
N=Array(P(830000,0),_
P(829990,-9658),_
P(829961,-19318),_
P(829913,-28981),_
P(829844,-38651),_
P(829756,-48328),_
P(829648,-58015),_
P(829519,-67713),_
P(829369,-77425),_
P(829197,-87152),_
P(829002,-96896),_
P(828785,-106660),_
P(828544,-116444),_
P(828279,-126251),_
P(827988,-136083),_
P(827670,-145941),_
P(827326,-155826),_
P(826952,-165742),_
P(826549,-175688),_
P(826115,-185668),_
P(825649,-195682),_
P(825149,-205733),_
P(824614,-215821),_
P(824042,-225948),_
P(823432,-236115),_
P(822783,-246325),_
P(822092,-256578),_
P(821358,-266876),_
P(820580,-277219),_
P(819179,-287407),_
P(816648,-297236),_
P(813944,-307023),_
P(811068,-316766),_
P(808021,-326462),_
P(804803,-336106),_
P(801415,-345697),_
P(797859,-355230),_
P(794135,-364702),_
P(790245,-374110),_
P(786190,-383450),_
P(781971,-392720),_
P(777589,-401917),_
P(773046,-411036),_
P(768344,-420075),_
P(763484,-429032),_
P(758467,-437901))
S.PolyPolygon=Array(N)
'P 18
S=L(D,G,C)
N=Array(P(820000,0),_
P(819990,-9541),_
P(819960,-19085),_
P(819910,-28632),_
P(819839,-38185),_
P(819748,-47745),_
P(819636,-57315),_
P(819503,-66895),_
P(819348,-76489),_
P(819171,-86098),_
P(818971,-95724),_
P(818747,-105368),_
P(818499,-115033),_
P(818226,-124719),_
P(817927,-134429),_
P(817601,-144165),_
P(817247,-153928),_
P(816864,-163720),_
P(816452,-173542),_
P(816007,-183396),_
P(815530,-193284),_
P(815020,-203207),_
P(814473,-213167),_
P(813890,-223164),_
P(813269,-233201),_
P(812608,-243279),_
P(811906,-253399),_
P(811160,-263562),_
P(810369,-273769),_
P(808966,-283824),_
P(806454,-293525),_
P(803770,-303185),_
P(800917,-312802),_
P(797897,-322371),_
P(794708,-331891),_
P(791354,-341357),_
P(787834,-350766),_
P(784149,-360116),_
P(780301,-369402),_
P(776291,-378623),_
P(772121,-387774),_
P(767790,-396852),_
P(763302,-405855),_
P(758657,-414779),_
P(753858,-423622),_
P(748904,-432380))
S.PolyPolygon=Array(N)
'P 19
S=L(D,G,C)
N=Array(P(810000,0),_
P(809990,-9425),_
P(809959,-18852),_
P(809907,-28283),_
P(809834,-37719),_
P(809740,-47162),_
P(809625,-56614),_
P(809487,-66078),_
P(809328,-75554),_
P(809145,-85045),_
P(808939,-94551),_
P(808709,-104076),_
P(808454,-113621),_
P(808173,-123187),_
P(807866,-132776),_
P(807532,-142390),_
P(807169,-152030),_
P(806777,-161698),_
P(806354,-171396),_
P(805900,-181125),_
P(805412,-190886),_
P(804890,-200682),_
P(804333,-210513),_
P(803739,-220381),_
P(803106,-230287),_
P(802433,-240233),_
P(801719,-250219),_
P(800961,-260248),_
P(800159,-270320),_
P(798754,-280241),_
P(796259,-289815),_
P(793596,-299347),_
P(790767,-308837),_
P(787773,-318281),_
P(784614,-327675),_
P(781293,-337017),_
P(777809,-346303),_
P(774163,-355530),_
P(770358,-364695),_
P(766393,-373795),_
P(762271,-382827),_
P(757992,-391787),_
P(753558,-400674),_
P(748971,-409483),_
P(744231,-418213),_
P(739340,-426858))
S.PolyPolygon=Array(N)
'P 21
S=L(D,G,C)
N=Array(P(790000,0),_
P(789989,-9192),_
P(789956,-18386),_
P(789901,-27584),_
P(789824,-36787),_
P(789724,-45996),_
P(789602,-55214),_
P(789456,-64443),_
P(789287,-73683),_
P(789093,-82937),_
P(788876,-92206),_
P(788633,-101493),_
P(788364,-110797),_
P(788068,-120122),_
P(787745,-129469),_
P(787393,-138839),_
P(787012,-148233),_
P(786601,-157654),_
P(786159,-167103),_
P(785684,-176581),_
P(785176,-186090),_
P(784632,-195631),_
P(784053,-205205),_
P(783436,-214814),_
P(782780,-224459),_
P(782084,-234140),_
P(781346,-243861),_
P(780564,-253621),_
P(779737,-263421),_
P(778329,-273076),_
P(775870,-282393),_
P(773247,-291672),_
P(770465,-300908),_
P(767524,-310100),_
P(764426,-319244),_
P(761170,-328337),_
P(757758,-337376),_
P(754191,-346358),_
P(750470,-355280),_
P(746596,-364139),_
P(742570,-372933),_
P(738394,-381658),_
P(734069,-390312),_
P(729597,-398891),_
P(724979,-407394),_
P(720214,-415816))
S.PolyPolygon=Array(N)
'P 22
S=L(D,G,C)
N=Array(P(780000,0),_
P(779989,-9076),_
P(779955,-18154),_
P(779898,-27235),_
P(779819,-36321),_
P(779716,-45413),_
P(779590,-54514),_
P(779440,-63625),_
P(779266,-72748),_
P(779068,-81883),_
P(778844,-91034),_
P(778594,-100201),_
P(778318,-109386),_
P(778015,-118590),_
P(777684,-127815),_
P(777324,-137063),_
P(776934,-146335),_
P(776514,-155633),_
P(776062,-164957),_
P(775576,-174310),_
P(775057,-183692),_
P(774503,-193105),_
P(773913,-202551),_
P(773284,-212030),_
P(772617,-221544),_
P(771909,-231094),_
P(771159,-240681),_
P(770365,-250307),_
P(769527,-259972),_
P(768117,-269493),_
P(765675,-278683),_
P(763073,-287834),_
P(760314,-296944),_
P(757400,-306010),_
P(754332,-315028),_
P(751109,-323997),_
P(747733,-332912),_
P(744205,-341772),_
P(740526,-350572),_
P(736698,-359311),_
P(732720,-367986),_
P(728596,-376593),_
P(724325,-385131),_
P(719910,-393595),_
P(715352,-401984),_
P(710650,-410294))
S.PolyPolygon=Array(N)
'P 23
S=L(D,G,C)
N=Array(P(770000,0),_
P(769988,-8960),_
P(769953,-17921),_
P(769895,-26885),_
P(769813,-35855),_
P(769708,-44830),_
P(769578,-53814),_
P(769424,-62808),_
P(769246,-71812),_
P(769042,-80830),_
P(768812,-89861),_
P(768556,-98909),_
P(768273,-107974),_
P(767962,-117058),_
P(767623,-126162),_
P(767255,-135288),_
P(766856,-144437),_
P(766426,-153611),_
P(765964,-162811),_
P(765469,-172038),_
P(764939,-181294),_
P(764374,-190580),_
P(763772,-199897),_
P(763133,-209247),_
P(762454,-218630),_
P(761734,-228048),_
P(760972,-237502),_
P(760167,-246993),_
P(759316,-256522),_
P(757905,-265910),_
P(755480,-274972),_
P(752898,-283996),_
P(750164,-292979),_
P(747276,-301919),_
P(744237,-310813),_
P(741048,-319657),_
P(737708,-328449),_
P(734219,-337186),_
P(730582,-345865),_
P(726799,-354484),_
P(722870,-363039),_
P(718797,-371529),_
P(714581,-379949),_
P(710223,-388299),_
P(705726,-396575),_
P(701087,-404773))
S.PolyPolygon=Array(N)
'P 24
S=L(D,G,C)
N=Array(P(760000,0),_
P(759988,-8843),_
P(759952,-17688),_
P(759892,-26536),_
P(759808,-35389),_
P(759700,-44247),_
P(759567,-53114),_
P(759409,-61990),_
P(759225,-70877),_
P(759016,-79776),_
P(758781,-88689),_
P(758518,-97617),_
P(758228,-106562),_
P(757910,-115525),_
P(757562,-124508),_
P(757185,-133512),_
P(756778,-142539),_
P(756338,-151589),_
P(755867,-160664),_
P(755361,-169766),_
P(754821,-178896),_
P(754245,-188054),_
P(753632,-197243),_
P(752981,-206463),_
P(752291,-215716),_
P(751559,-225002),_
P(750785,-234323),_
P(749968,-243679),_
P(749106,-253073),_
P(747692,-262327),_
P(745286,-271262),_
P(742724,-280158),_
P(740013,-289015),_
P(737152,-297829),_
P(734143,-306597),_
P(730986,-315317),_
P(727683,-323985),_
P(724233,-332600),_
P(720639,-341157),_
P(716901,-349656),_
P(713020,-358092),_
P(708998,-366464),_
P(704837,-374768),_
P(700536,-383003),_
P(696099,-391165),_
P(691524,-399251))
S.PolyPolygon=Array(N)
'P 26
S=L(D,G,C)
N=Array(P(740000,0),_
P(739987,-8611),_
P(739950,-17223),_
P(739886,-25837),_
P(739798,-34457),_
P(739684,-43082),_
P(739544,-51714),_
P(739377,-60355),_
P(739184,-69006),_
P(738965,-77668),_
P(738717,-86344),_
P(738442,-95033),_
P(738138,-103738),_
P(737804,-112461),_
P(737441,-121201),_
P(737047,-129961),_
P(736621,-138742),_
P(736163,-147545),_
P(735672,-156372),_
P(735146,-165223),_
P(734585,-174100),_
P(733987,-183004),_
P(733352,-191935),_
P(732678,-200896),_
P(731964,-209887),_
P(731210,-218910),_
P(730412,-227964),_
P(729571,-237052),_
P(728684,-246174),_
P(727268,-255161),_
P(724896,-263841),_
P(722376,-272483),_
P(719711,-281086),_
P(716904,-289648),_
P(713955,-298166),_
P(710864,-306637),_
P(707632,-315058),_
P(704261,-323428),_
P(700751,-331742),_
P(697104,-340000),_
P(693320,-348198),_
P(689401,-356334),_
P(685348,-364406),_
P(681163,-372411),_
P(676847,-380347),_
P(672397,-388209))
S.PolyPolygon=Array(N)
'P 27
S=L(D,G,C)
N=Array(P(730000,0),_
P(729987,-8494),_
P(729948,-16990),_
P(729884,-25488),_
P(729793,-33991),_
P(729676,-42499),_
P(729532,-51014),_
P(729362,-59537),_
P(729164,-68070),_
P(728939,-76615),_
P(728685,-85171),_
P(728404,-93741),_
P(728092,-102327),_
P(727752,-110928),_
P(727380,-119548),_
P(726977,-128186),_
P(726543,-136844),_
P(726075,-145523),_
P(725574,-154226),_
P(725038,-162951),_
P(724466,-171702),_
P(723858,-180478),_
P(723212,-189281),_
P(722527,-198113),_
P(721801,-206973),_
P(721035,-215864),_
P(720225,-224785),_
P(719372,-233738),_
P(718474,-242724),_
P(717056,-251578),_
P(714702,-260130),_
P(712201,-268645),_
P(709561,-277122),_
P(706780,-285558),_
P(703860,-293950),_
P(700802,-302297),_
P(697607,-310595),_
P(694275,-318842),_
P(690807,-327035),_
P(687205,-335172),_
P(683470,-343251),_
P(679602,-351270),_
P(675604,-359225),_
P(671476,-367115),_
P(667220,-374937),_
P(662834,-382687))
S.PolyPolygon=Array(N)
'P 28
S=L(D,G,C)
N=Array(P(720000,0),_
P(719987,-8378),_
P(719947,-16757),_
P(719881,-25139),_
P(719788,-33525),_
P(719668,-41916),_
P(719521,-50314),_
P(719346,-58720),_
P(719144,-67135),_
P(718913,-75561),_
P(718654,-83999),_
P(718365,-92450),_
P(718047,-100915),_
P(717699,-109396),_
P(717319,-117894),_
P(716908,-126410),_
P(716465,-134946),_
P(715988,-143502),_
P(715476,-152079),_
P(714930,-160680),_
P(714348,-169304),_
P(713729,-177953),_
P(713072,-186628),_
P(712375,-195329),_
P(711638,-204059),_
P(710860,-212817),_
P(710039,-221606),_
P(709174,-230424),_
P(708263,-239275),_
P(706843,-247995),_
P(704507,-256420),_
P(702027,-264807),_
P(699410,-273157),_
P(696656,-281467),_
P(693766,-289735),_
P(690741,-297957),_
P(687582,-306131),_
P(684289,-314256),_
P(680864,-322327),_
P(677307,-330345),_
P(673620,-338305),_
P(669804,-346205),_
P(665860,-354044),_
P(661789,-361819),_
P(657594,-369528),_
P(653270,-377166))
S.PolyPolygon=Array(N)
'P 29
S=L(D,G,C)
N=Array(P(710000,0),_
P(709986,-8261),_
P(709946,-16524),_
P(709878,-24789),_
P(709782,-33059),_
P(709660,-41333),_
P(709509,-49614),_
P(709330,-57902),_
P(709123,-66199),_
P(708887,-74507),_
P(708622,-82826),_
P(708327,-91158),_
P(708002,-99503),_
P(707646,-107864),_
P(707259,-116241),_
P(706839,-124635),_
P(706386,-133047),_
P(705900,-141480),_
P(705379,-149933),_
P(704823,-158408),_
P(704230,-166906),_
P(703600,-175427),_
P(702931,-183974),_
P(702224,-192546),_
P(701475,-201145),_
P(700685,-209771),_
P(699852,-218426),_
P(698975,-227111),_
P(698052,-235825),_
P(696631,-244412),_
P(694312,-252709),_
P(691853,-260969),_
P(689259,-269193),_
P(686532,-277377),_
P(683672,-285519),_
P(680680,-293617),_
P(677557,-301668),_
P(674303,-309670),_
P(670920,-317620),_
P(667408,-325517),_
P(663770,-333358),_
P(660005,-341140),_
P(656115,-348863),_
P(652102,-356523),_
P(647967,-364118),_
P(643707,-371644))
S.PolyPolygon=Array(N)
'P 31
S=L(D,G,C)
N=Array(P(690000,0),_
P(689986,-8029),_
P(689943,-16059),_
P(689872,-24091),_
P(689772,-32127),_
P(689643,-40167),_
P(689486,-48214),_
P(689299,-56267),_
P(689082,-64329),_
P(688836,-72400),_
P(688559,-80481),_
P(688251,-88574),_
P(687912,-96680),_
P(687541,-104799),_
P(687137,-112934),_
P(686700,-121084),_
P(686230,-129251),_
P(685725,-137436),_
P(685184,-145640),_
P(684607,-153864),_
P(683993,-162109),_
P(683342,-170376),_
P(682651,-178666),_
P(681920,-186979),_
P(681149,-195316),_
P(680335,-203679),_
P(679479,-212068),_
P(678578,-220483),_
P(677631,-228926),_
P(676206,-237246),_
P(673923,-245288),_
P(671504,-253294),_
P(668958,-261264),_
P(666284,-269196),_
P(663484,-277088),_
P(660557,-284937),_
P(657506,-292741),_
P(654331,-300497),_
P(651032,-308205),_
P(647611,-315861),_
P(644069,-323464),_
P(640408,-331011),_
P(636627,-338501),_
P(632729,-345931),_
P(628715,-353299),_
P(624580,-360602))
S.PolyPolygon=Array(N)
'P 32
S=L(D,G,C)
N=Array(P(680000,0),_
P(679985,-7912),_
P(679942,-15826),_
P(679869,-23742),_
P(679767,-31661),_
P(679635,-39584),_
P(679474,-47513),_
P(679283,-55449),_
P(679062,-63393),_
P(678810,-71346),_
P(678527,-79308),_
P(678213,-87282),_
P(677867,-95268),_
P(677488,-103267),_
P(677076,-111280),_
P(676631,-119308),_
P(676151,-127353),_
P(675637,-135414),_
P(675086,-143494),_
P(674500,-151593),_
P(673875,-159711),_
P(673213,-167851),_
P(672511,-176012),_
P(671769,-184195),_
P(670986,-192402),_
P(670161,-200633),_
P(669292,-208888),_
P(668379,-217170),_
P(667421,-225477),_
P(665994,-233663),_
P(663728,-241577),_
P(661330,-249456),_
P(658807,-257300),_
P(656160,-265106),_
P(653389,-272872),_
P(650496,-280597),_
P(647481,-288277),_
P(644345,-295911),_
P(641088,-303498),_
P(637713,-311033),_
P(634219,-318517),_
P(630609,-325946),_
P(626883,-333319),_
P(623042,-340634),_
P(619088,-347890),_
P(615017,-355080))
S.PolyPolygon=Array(N)
'P 33
S=L(D,G,C)
N=Array(P(670000,0),_
P(669985,-7796),_
P(669941,-15593),_
P(669866,-23392),_
P(669762,-31195),_
P(669627,-39001),_
P(669463,-46813),_
P(669267,-54632),_
P(669041,-62458),_
P(668784,-70292),_
P(668495,-78136),_
P(668175,-85990),_
P(667821,-93856),_
P(667435,-101735),_
P(667016,-109626),_
P(666562,-117533),_
P(666073,-125455),_
P(665549,-133393),_
P(664989,-141348),_
P(664392,-149321),_
P(663757,-157313),_
P(663084,-165325),_
P(662371,-173358),_
P(661617,-181412),_
P(660823,-189488),_
P(659986,-197587),_
P(659105,-205709),_
P(658180,-213856),_
P(657210,-222027),_
P(655782,-230080),_
P(653534,-237867),_
P(651156,-245618),_
P(648656,-253335),_
P(646036,-261015),_
P(643295,-268657),_
P(640435,-276257),_
P(637456,-283814),_
P(634359,-291325),_
P(631145,-298790),_
P(627814,-306206),_
P(624369,-313570),_
P(620810,-320882),_
P(617138,-328138),_
P(613355,-335338),_
P(609462,-342480),_
P(605454,-349559))
S.PolyPolygon=Array(N)
'P 34
S=L(D,G,C)
N=Array(P(660000,0),_
P(659985,-7680),_
P(659939,-15360),_
P(659863,-23043),_
P(659757,-30729),_
P(659619,-38418),_
P(659451,-46113),_
P(659252,-53814),_
P(659021,-61522),_
P(658758,-69238),_
P(658464,-76963),_
P(658136,-84698),_
P(657776,-92444),_
P(657382,-100202),_
P(656955,-107973),_
P(656492,-115757),_
P(655995,-123556),_
P(655461,-131371),_
P(654891,-139201),_
P(654284,-147049),_
P(653639,-154915),_
P(652955,-162800),_
P(652231,-170704),_
P(651466,-178628),_
P(650660,-186574),_
P(649811,-194541),_
P(648919,-202530),_
P(647982,-210542),_
P(646999,-218578),_
P(645569,-226497),_
P(643339,-234156),_
P(640981,-241781),_
P(638505,-249371),_
P(635912,-256925),_
P(633201,-264441),_
P(630374,-271917),_
P(627431,-279350),_
P(624373,-286739),_
P(621201,-294083),_
P(617916,-301378),_
P(614519,-308623),_
P(611012,-315817),_
P(607394,-322957),_
P(603668,-330042),_
P(599835,-337071),_
P(595890,-344037))
S.PolyPolygon=Array(N)
'P 36
S=L(D,G,C)
N=Array(P(640000,0),_
P(639984,-7447),_
P(639937,-14895),_
P(639857,-22344),_
P(639746,-29797),_
P(639603,-37253),_
P(639428,-44713),_
P(639220,-52179),_
P(638980,-59651),_
P(638707,-67131),_
P(638400,-74618),_
P(638060,-82115),_
P(637686,-89621),_
P(637277,-97138),_
P(636833,-104666),_
P(636354,-112206),_
P(635838,-119760),_
P(635286,-127327),_
P(634696,-134909),_
P(634069,-142506),_
P(633402,-150119),_
P(632696,-157749),_
P(631950,-165396),_
P(631163,-173061),_
P(630333,-180745),_
P(629461,-188448),_
P(628545,-196171),_
P(627585,-203915),_
P(626578,-211679),_
P(625145,-219331),_
P(622950,-226735),_
P(620633,-234105),_
P(618204,-241442),_
P(615664,-248744),_
P(613012,-256010),_
P(610251,-263237),_
P(607380,-270423),_
P(604401,-277567),_
P(601313,-284668),_
P(598119,-291722),_
P(594819,-298729),_
P(591414,-305687),_
P(587906,-312595),_
P(584295,-319450),_
P(580583,-326252),_
P(576764,-332995))
S.PolyPolygon=Array(N)
'P 37
S=L(D,G,C)
N=Array(P(630000,0),_
P(629984,-7331),_
P(629935,-14662),_
P(629854,-21995),_
P(629741,-29331),_
P(629595,-36670),_
P(629416,-44013),_
P(629205,-51362),_
P(628960,-58716),_
P(628681,-66077),_
P(628369,-73446),_
P(628022,-80823),_
P(627641,-88209),_
P(627224,-95605),_
P(626772,-103012),_
P(626285,-110431),_
P(625760,-117862),_
P(625198,-125305),_
P(624599,-132763),_
P(623961,-140234),_
P(623284,-147721),_
P(622567,-155223),_
P(621810,-162742),_
P(621011,-170278),_
P(620170,-177831),_
P(619286,-185402),_
P(618359,-192992),_
P(617386,-200601),_
P(616368,-208229),_
P(614932,-215748),_
P(612755,-223025),_
P(610458,-230267),_
P(608053,-237478),_
P(605540,-244654),_
P(602918,-251794),_
P(600190,-258897),_
P(597355,-265960),_
P(594415,-272981),_
P(591370,-279960),_
P(588221,-286894),_
P(584969,-293782),_
P(581615,-300623),_
P(578161,-307414),_
P(574608,-314154),_
P(570956,-320843),_
P(567200,-327473))
S.PolyPolygon=Array(N)
'P 38
S=L(D,G,C)
N=Array(P(620000,0),_
P(619984,-7214),_
P(619934,-14429),_
P(619852,-21646),_
P(619736,-28865),_
P(619587,-36087),_
P(619405,-43313),_
P(619189,-50544),_
P(618939,-57780),_
P(618655,-65023),_
P(618337,-72273),_
P(617984,-79531),_
P(617595,-86797),_
P(617172,-94073),_
P(616712,-101359),_
P(616215,-108655),_
P(615682,-115963),_
P(615111,-123283),_
P(614501,-130616),_
P(613853,-137963),_
P(613166,-145323),_
P(612438,-152698),_
P(611670,-160088),_
P(610860,-167494),_
P(610007,-174917),_
P(609112,-182356),_
P(608172,-189813),_
P(607187,-197287),_
P(606157,-204780),_
P(604720,-212165),_
P(602560,-219314),_
P(600284,-226429),_
P(597902,-233513),_
P(595415,-240563),_
P(592824,-247578),_
P(590128,-254557),_
P(587330,-261496),_
P(584429,-268395),_
P(581426,-275253),_
P(578322,-282067),_
P(575119,-288836),_
P(571817,-295558),_
P(568417,-302233),_
P(564921,-308858),_
P(561330,-315433),_
P(557637,-321952))
S.PolyPolygon=Array(N)
'P 39
S=L(D,G,C)
N=Array(P(610000,0),_
P(609983,-7098),_
P(609933,-14196),_
P(609849,-21296),_
P(609731,-28399),_
P(609579,-35504),_
P(609393,-42613),_
P(609173,-49726),_
P(608919,-56845),_
P(608629,-63970),_
P(608305,-71101),_
P(607946,-78239),_
P(607550,-85386),_
P(607119,-92541),_
P(606651,-99705),_
P(606146,-106880),_
P(605603,-114065),_
P(605023,-121262),_
P(604404,-128470),_
P(603746,-135691),_
P(603048,-142925),_
P(602309,-150173),_
P(601530,-157434),_
P(600708,-164711),_
P(599844,-172003),_
P(598937,-179310),_
P(597985,-186633),_
P(596989,-193973),_
P(595946,-201330),_
P(594508,-208582),_
P(592366,-215603),_
P(590110,-222592),_
P(587752,-229549),_
P(585291,-236473),_
P(582730,-243363),_
P(580067,-250217),_
P(577305,-257033),_
P(574443,-263809),_
P(571482,-270545),_
P(568424,-277239),_
P(565269,-283889),_
P(562018,-290493),_
P(558673,-297052),_
P(555234,-303562),_
P(551703,-310024),_
P(548074,-316430))
S.PolyPolygon=Array(N)
'P 41
S=L(D,G,C)
N=Array(P(590000,0),_
P(589983,-6865),_
P(589930,-13731),_
P(589843,-20598),_
P(589720,-27467),_
P(589563,-34338),_
P(589370,-41213),_
P(589142,-48091),_
P(588878,-54974),_
P(588578,-61862),_
P(588242,-68756),_
P(587869,-75655),_
P(587460,-82562),_
P(587013,-89476),_
P(586529,-96398),_
P(586007,-103329),_
P(585447,-110269),_
P(584848,-117218),_
P(584209,-124177),_
P(583530,-131148),_
P(582811,-138129),_
P(582051,-145122),_
P(581249,-152127),_
P(580405,-159144),_
P(579518,-166174),_
P(578587,-173218),_
P(577612,-180275),_
P(576591,-187346),_
P(575525,-194431),_
P(574083,-201416),_
P(571976,-208182),_
P(569761,-214916),_
P(567450,-221620),_
P(565043,-228292),_
P(562541,-234932),_
P(559945,-241537),_
P(557254,-248106),_
P(554470,-254637),_
P(551594,-261130),_
P(548627,-267583),_
P(545569,-273995),_
P(542421,-280364),_
P(539184,-286689),_
P(535860,-292970),_
P(532451,-299205),_
P(528947,-305388))
S.PolyPolygon=Array(N)
'P 42
S=L(D,G,C)
N=Array(P(580000,0),_
P(579982,-6749),_
P(579929,-13498),_
P(579840,-20248),_
P(579715,-27001),_
P(579555,-33755),_
P(579358,-40513),_
P(579126,-47274),_
P(578857,-54039),_
P(578552,-60808),_
P(578210,-67583),_
P(577831,-74364),_
P(577415,-81150),_
P(576961,-87944),_
P(576469,-94745),_
P(575938,-101553),_
P(575369,-108370),_
P(574760,-115196),_
P(574111,-122031),_
P(573423,-128876),_
P(572693,-135731),_
P(571922,-142596),_
P(571109,-149473),_
P(570254,-156360),_
P(569355,-163260),_
P(568412,-170171),_
P(567425,-177095),_
P(566393,-184032),_
P(565315,-190982),_
P(563871,-197833),_
P(561782,-204472),_
P(559587,-211078),_
P(557299,-217656),_
P(554919,-224202),_
P(552447,-230716),_
P(549883,-237197),_
P(547229,-243642),_
P(544484,-250051),_
P(541651,-256423),_
P(538728,-262755),_
P(535718,-269048),_
P(532622,-275299),_
P(529440,-281508),_
P(526174,-287674),_
P(522824,-293795),_
P(519384,-299866))
S.PolyPolygon=Array(N)
'P 43
S=L(D,G,C)
N=Array(P(570000,0),_
P(569982,-6632),_
P(569928,-13265),_
P(569837,-19899),_
P(569710,-26535),_
P(569547,-33172),_
P(569347,-39813),_
P(569110,-46456),_
P(568837,-53103),_
P(568526,-59755),_
P(568178,-66411),_
P(567793,-73072),_
P(567370,-79739),_
P(566908,-86412),_
P(566408,-93091),_
P(565869,-99778),_
P(565290,-106472),_
P(564672,-113174),_
P(564014,-119885),_
P(563315,-126604),_
P(562575,-133333),_
P(561793,-140071),_
P(560969,-146819),_
P(560102,-153577),_
P(559192,-160346),_
P(558237,-167125),_
P(557238,-173916),_
P(556194,-180718),_
P(555104,-187532),_
P(553659,-194250),_
P(551587,-200761),_
P(549413,-207241),_
P(547149,-213691),_
P(544795,-220112),_
P(542353,-226500),_
P(539822,-232857),_
P(537204,-239179),_
P(534498,-245465),_
P(531707,-251715),_
P(528830,-257928),_
P(525868,-264101),_
P(522823,-270235),_
P(519696,-276327),_
P(516487,-282378),_
P(513198,-288386),_
P(509820,-294345))
S.PolyPolygon=Array(N)
'P 44
S=L(D,G,C)
N=Array(P(560000,0),_
P(559982,-6516),_
P(559926,-13032),_
P(559834,-19550),_
P(559705,-26069),_
P(559539,-32589),_
P(559335,-39113),_
P(559095,-45638),_
P(558816,-52168),_
P(558501,-58701),_
P(558147,-65238),_
P(557755,-71780),_
P(557324,-78327),_
P(556855,-84879),_
P(556347,-91438),_
P(555799,-98002),_
P(555212,-104574),_
P(554585,-111152),_
P(553916,-117739),_
P(553207,-124332),_
P(552457,-130935),_
P(551664,-137545),_
P(550829,-144165),_
P(549950,-150793),_
P(549029,-157431),_
P(548063,-164079),_
P(547052,-170737),_
P(545996,-177405),_
P(544893,-184083),_
P(543446,-190667),_
P(541392,-197051),_
P(539238,-203403),_
P(536998,-209727),_
P(534671,-216021),_
P(532259,-222285),_
P(529761,-228517),_
P(527179,-234715),_
P(524512,-240879),_
P(521763,-247008),_
P(518931,-253100),_
P(516018,-259154),_
P(513025,-265170),_
P(509952,-271146),_
P(506800,-277082),_
P(503571,-282976),_
P(500257,-288824))
S.PolyPolygon=Array(N)
'P 46
S=L(D,G,C)
N=Array(P(540000,0),_
P(539981,-6283),_
P(539924,-12567),_
P(539828,-18851),_
P(539695,-25137),_
P(539523,-31424),_
P(539312,-37712),_
P(539063,-44003),_
P(538776,-50297),_
P(538449,-56593),_
P(538083,-62893),_
P(537678,-69196),_
P(537234,-75503),_
P(536750,-81815),_
P(536226,-88131),_
P(535661,-94451),_
P(535056,-100777),_
P(534409,-107109),_
P(533721,-113446),_
P(532992,-119789),_
P(532220,-126138),_
P(531406,-132494),_
P(530548,-138857),_
P(529647,-145226),_
P(528702,-151603),_
P(527713,-157987),_
P(526678,-164378),_
P(525598,-170777),_
P(524472,-177184),_
P(523022,-183501),_
P(521003,-189630),_
P(518890,-195727),_
P(516696,-201798),_
P(514423,-207840),_
P(512070,-213854),_
P(509638,-219837),_
P(507128,-225788),_
P(504540,-231707),_
P(501875,-237593),_
P(499134,-243444),_
P(496318,-249260),_
P(493427,-255040),_
P(490463,-260784),_
P(487426,-266490),_
P(484318,-272157),_
P(481130,-277781))
S.PolyPolygon=Array(N)
'P 47
S=L(D,G,C)
N=Array(P(530000,0),_
P(529981,-6167),_
P(529922,-12334),_
P(529825,-18502),_
P(529689,-24671),_
P(529515,-30841),_
P(529301,-37012),_
P(529048,-43186),_
P(528755,-49361),_
P(528423,-55540),_
P(528052,-61720),_
P(527640,-67904),_
P(527189,-74092),_
P(526697,-80282),_
P(526165,-86477),_
P(525592,-92676),_
P(524977,-98879),_
P(524321,-105087),_
P(523624,-111300),_
P(522884,-117517),_
P(522102,-123740),_
P(521277,-129969),_
P(520408,-136203),_
P(519496,-142443),_
P(518539,-148689),_
P(517538,-154941),_
P(516492,-161199),_
P(515400,-167464),_
P(514262,-173735),_
P(512809,-179918),_
P(510808,-185919),_
P(508716,-191889),_
P(506546,-197833),_
P(504299,-203750),_
P(501976,-209638),_
P(499577,-215497),_
P(497103,-221324),_
P(494554,-227121),_
P(491932,-232885),_
P(489236,-238616),_
P(486468,-244313),_
P(483629,-249976),_
P(480719,-255603),_
P(477740,-261194),_
P(474692,-266748),_
P(471567,-272259))
S.PolyPolygon=Array(N)
'P 48
S=L(D,G,C)
N=Array(P(520000,0),_
P(519980,-6051),_
P(519921,-12101),_
P(519822,-18153),_
P(519684,-24205),_
P(519507,-30258),_
P(519289,-36312),_
P(519032,-42368),_
P(518735,-48426),_
P(518397,-54486),_
P(518020,-60548),_
P(517602,-66612),_
P(517144,-72680),_
P(516644,-78750),_
P(516104,-84824),_
P(515522,-90900),_
P(514899,-96981),_
P(514234,-103065),_
P(513526,-109153),_
P(512776,-115246),_
P(511984,-121342),_
P(511148,-127443),_
P(510268,-133549),_
P(509344,-139659),_
P(508376,-145775),_
P(507363,-151895),_
P(506305,-158020),_
P(505201,-164150),_
P(504051,-170285),_
P(502597,-176335),_
P(500614,-182208),_
P(498541,-188052),_
P(496395,-193869),_
P(494175,-199660),_
P(491882,-205422),_
P(489516,-211156),_
P(487078,-216861),_
P(484568,-222535),_
P(481988,-228178),_
P(479338,-233789),_
P(476618,-239367),_
P(473830,-244911),_
P(470975,-250422),_
P(468053,-255898),_
P(465066,-261339),_
P(462004,-266738))
S.PolyPolygon=Array(N)
'P 49
S=L(D,G,C)
N=Array(P(510000,0),_
P(509980,-5934),_
P(509920,-11869),_
P(509820,-17803),_
P(509679,-23739),_
P(509498,-29675),_
P(509277,-35612),_
P(509016,-41551),_
P(508714,-47491),_
P(508372,-53432),_
P(507988,-59375),_
P(507564,-65321),_
P(507098,-71268),_
P(506592,-77218),_
P(506043,-83170),_
P(505453,-89125),_
P(504821,-95083),_
P(504146,-101043),_
P(503429,-107007),_
P(502669,-112974),_
P(501865,-118944),_
P(501019,-124918),_
P(500128,-130895),_
P(499193,-136876),_
P(498213,-142860),_
P(497188,-148848),_
P(496118,-154840),_
P(495002,-160836),_
P(493840,-166836),_
P(492385,-172752),_
P(490419,-178498),_
P(488367,-184214),_
P(486244,-189905),_
P(484051,-195569),_
P(481787,-201207),_
P(479455,-206816),_
P(477053,-212397),_
P(474582,-217949),_
P(472044,-223470),_
P(469439,-228961),_
P(466768,-234420),_
P(464031,-239846),_
P(461230,-245241),_
P(458366,-250602),_
P(455439,-255929),_
P(452440,-261217))
S.PolyPolygon=Array(N)
'P 51
S=L(D,G,C)
N=Array(P(490000,0),_
P(489979,-5701),_
P(489917,-11403),_
P(489814,-17105),_
P(489669,-22807),_
P(489482,-28509),_
P(489254,-34212),_
P(488985,-39915),_
P(488673,-45620),_
P(488320,-51325),_
P(487925,-57030),_
P(487488,-62737),_
P(487008,-68445),_
P(486486,-74153),_
P(485922,-79863),_
P(485314,-85574),_
P(484664,-91286),_
P(483971,-97000),_
P(483234,-102715),_
P(482453,-108431),_
P(481629,-114148),_
P(480760,-119867),_
P(479847,-125587),_
P(478890,-131309),_
P(477887,-137032),_
P(476839,-142756),_
P(475745,-148482),_
P(474605,-154209),_
P(473419,-159937),_
P(471960,-165586),_
P(470030,-171077),_
P(468018,-176538),_
P(465943,-181976),_
P(463803,-187388),_
P(461599,-192776),_
P(459332,-198136),_
P(457002,-203470),_
P(454610,-208777),_
P(452157,-214055),_
P(449642,-219305),_
P(447068,-224526),_
P(444434,-229717),_
P(441742,-234878),_
P(438992,-240009),_
P(436186,-245110),_
P(433314,-250174))
S.PolyPolygon=Array(N)
'P 52
S=L(D,G,C)
N=Array(P(480000,0),_
P(479979,-5585),_
P(479916,-11170),_
P(479811,-16755),_
P(479664,-22341),_
P(479474,-27926),_
P(479243,-33512),_
P(478969,-39098),_
P(478653,-44684),_
P(478294,-50271),_
P(477893,-55858),_
P(477449,-61445),_
P(476963,-67033),_
P(476433,-72621),_
P(475861,-78210),_
P(475245,-83799),_
P(474586,-89388),_
P(473883,-94978),_
P(473136,-100568),_
P(472346,-106159),_
P(471511,-111750),_
P(470631,-117342),_
P(469707,-122933),_
P(468738,-128525),_
P(467724,-134118),_
P(466664,-139710),_
P(465558,-145302),_
P(464407,-150895),_
P(463209,-156487),_
P(461748,-162003),_
P(459835,-167366),_
P(457844,-172701),_
P(455792,-178011),_
P(453679,-183298),_
P(451505,-188560),_
P(449271,-193796),_
P(446977,-199007),_
P(444624,-204191),_
P(442213,-209348),_
P(439744,-214477),_
P(437218,-219579),_
P(434635,-224652),_
P(431998,-229697),_
P(429305,-234713),_
P(426560,-239701),_
P(423750,-244652))
S.PolyPolygon=Array(N)
'P 53
S=L(D,G,C)
N=Array(P(470000,0),_
P(469979,-5469),_
P(469915,-10937),_
P(469808,-16406),_
P(469658,-21875),_
P(469466,-27343),_
P(469231,-32812),_
P(468953,-38280),_
P(468632,-43749),_
P(468269,-49217),_
P(467862,-54685),_
P(467411,-60153),_
P(466918,-65621),_
P(466381,-71089),_
P(465800,-76556),_
P(465176,-82023),_
P(464508,-87490),_
P(463795,-92956),_
P(463039,-98422),_
P(462238,-103887),_
P(461393,-109352),_
P(460502,-114816),_
P(459567,-120279),_
P(458587,-125742),_
P(457561,-131203),_
P(456489,-136664),_
P(455372,-142123),_
P(454208,-147581),_
P(452998,-153038),_
P(451536,-158420),_
P(449640,-163656),_
P(447670,-168863),_
P(445641,-174047),_
P(443555,-179208),_
P(441411,-184344),_
P(439209,-189456),_
P(436952,-194543),_
P(434638,-199605),_
P(432269,-204640),_
P(429845,-209650),_
P(427367,-214632),_
P(424837,-219588),_
P(422253,-224516),_
P(419619,-229417),_
P(416934,-234291),_
P(414187,-239131))
S.PolyPolygon=Array(N)
'P 54
S=L(D,G,C)
N=Array(P(460000,0),_
P(459978,-5352),_
P(459913,-10705),_
P(459805,-16057),_
P(459653,-21409),_
P(459458,-26760),_
P(459220,-32112),_
P(458938,-37463),_
P(458612,-42813),_
P(458243,-48163),_
P(457830,-53513),_
P(457373,-58861),_
P(456873,-64209),_
P(456328,-69556),_
P(455739,-74902),_
P(455106,-80248),_
P(454429,-85592),_
P(453708,-90934),_
P(452941,-96276),_
P(452130,-101616),_
P(451274,-106954),_
P(450373,-112291),_
P(449427,-117626),_
P(448435,-122958),_
P(447398,-128289),_
P(446314,-133618),_
P(445185,-138944),_
P(444009,-144267),_
P(442787,-149588),_
P(441323,-154837),_
P(439446,-159945),_
P(437496,-165025),_
P(435490,-170083),_
P(433431,-175117),_
P(431316,-180129),_
P(429148,-185116),_
P(426927,-190080),_
P(424652,-195019),_
P(422325,-199933),_
P(419947,-204822),_
P(417517,-209685),_
P(415038,-214523),_
P(412509,-219335),_
P(409932,-224121),_
P(407307,-228882),_
P(404624,-233610))
S.PolyPolygon=Array(N)
'P 56
S=L(D,G,C)
N=Array(P(440000,0),_
P(439978,-5120),_
P(439911,-10239),_
P(439799,-15358),_
P(439643,-20477),_
P(439442,-25595),_
P(439196,-30712),_
P(438906,-35828),_
P(438571,-40942),_
P(438191,-46056),_
P(437766,-51168),_
P(437297,-56278),_
P(436782,-61386),_
P(436223,-66492),_
P(435618,-71595),_
P(434968,-76697),_
P(434273,-81795),_
P(433532,-86891),_
P(432746,-91983),_
P(431915,-97072),_
P(431038,-102158),_
P(430115,-107240),_
P(429147,-112318),_
P(428132,-117391),_
P(427071,-122461),_
P(425965,-127525),_
P(424812,-132585),_
P(423612,-137640),_
P(422366,-142689),_
P(420899,-147672),_
P(419056,-152524),_
P(417147,-157349),_
P(415189,-162154),_
P(413182,-166937),_
P(411128,-171698),_
P(409026,-176436),_
P(406876,-181153),_
P(404680,-185847),_
P(402438,-190518),_
P(400150,-195166),_
P(397817,-199791),_
P(395440,-204394),_
P(393021,-208973),_
P(390558,-213529),_
P(388054,-218063),_
P(385497,-222567))
S.PolyPolygon=Array(N)
'P 57
S=L(D,G,C)
N=Array(P(430000,0),_
P(429977,-5003),_
P(429909,-10006),_
P(429796,-15009),_
P(429638,-20011),_
P(429434,-25012),_
P(429185,-30012),_
P(428890,-35010),_
P(428551,-40007),_
P(428165,-45002),_
P(427735,-49995),_
P(427259,-54986),_
P(426737,-59974),_
P(426170,-64959),_
P(425557,-69942),_
P(424899,-74921),_
P(424194,-79897),_
P(423445,-84869),_
P(422649,-89837),_
P(421807,-94801),_
P(420920,-99760),_
P(419986,-104714),_
P(419006,-109664),_
P(417980,-114608),_
P(416908,-119547),_
P(415790,-124479),_
P(414625,-129406),_
P(413414,-134326),_
P(412155,-139240),_
P(410686,-144089),_
P(408862,-148813),_
P(406973,-153512),_
P(405038,-158189),_
P(403058,-162846),_
P(401034,-167482),_
P(398964,-172096),_
P(396851,-176689),_
P(394694,-181261),_
P(392494,-185810),_
P(390251,-190338),_
P(387967,-194844),_
P(385642,-199329),_
P(383276,-203792),_
P(380871,-208233),_
P(378428,-212653),_
P(375934,-217045))
S.PolyPolygon=Array(N)
'P 58
S=L(D,G,C)
N=Array(P(420000,0),_
P(419977,-4887),_
P(419908,-9773),_
P(419793,-14660),_
P(419633,-19545),_
P(419426,-24429),_
P(419173,-29311),_
P(418875,-34192),_
P(418530,-39071),_
P(418140,-43948),_
P(417703,-48822),_
P(417220,-53694),_
P(416692,-58562),_
P(416117,-63427),_
P(415496,-68288),_
P(414829,-73146),_
P(414116,-77999),_
P(413357,-82847),_
P(412551,-87690),_
P(411700,-92529),_
P(410801,-97362),_
P(409857,-102189),_
P(408866,-107010),_
P(407829,-111824),_
P(406745,-116632),_
P(405615,-121433),_
P(404438,-126227),_
P(403215,-131012),_
P(401945,-135790),_
P(400474,-140506),_
P(398667,-145103),_
P(396798,-149674),_
P(394887,-154225),_
P(392934,-158756),_
P(390939,-163266),_
P(388903,-167756),_
P(386826,-172226),_
P(384708,-176675),_
P(382550,-181103),_
P(380353,-185510),_
P(378117,-189897),_
P(375843,-194264),_
P(373532,-198611),_
P(371185,-202937),_
P(368802,-207244),_
P(366370,-211524))
S.PolyPolygon=Array(N)
'P 59
S=L(D,G,C)
N=Array(P(410000,0),_
P(409977,-4771),_
P(409907,-9541),_
P(409790,-14310),_
P(409627,-19079),_
P(409418,-23846),_
P(409162,-28611),_
P(408859,-33375),_
P(408510,-38136),_
P(408114,-42894),_
P(407671,-47650),_
P(407182,-52402),_
P(406647,-57150),_
P(406064,-61895),_
P(405436,-66635),_
P(404760,-71370),_
P(404038,-76100),_
P(403269,-80825),_
P(402454,-85544),_
P(401592,-90257),_
P(400683,-94964),_
P(399728,-99663),_
P(398726,-104356),_
P(397677,-109041),_
P(396582,-113718),_
P(395440,-118387),_
P(394252,-123047),_
P(393016,-127699),_
P(391734,-132341),_
P(390262,-136923),_
P(388472,-141392),_
P(386624,-145836),_
P(384737,-150260),_
P(382810,-154665),_
P(380845,-159051),_
P(378842,-163416),_
P(376801,-167762),_
P(374722,-172089),_
P(372606,-176395),_
P(370454,-180683),_
P(368267,-184951),_
P(366044,-189199),_
P(363788,-193429),_
P(361498,-197641),_
P(359175,-201835),_
P(356807,-206003))
S.PolyPolygon=Array(N)
'P 61
S=L(D,G,C)
N=Array(P(390000,0),_
P(389976,-4538),_
P(389904,-9075),_
P(389785,-13612),_
P(389617,-18147),_
P(389402,-22680),_
P(389139,-27211),_
P(388828,-31740),_
P(388469,-36265),_
P(388062,-40787),_
P(387608,-45305),_
P(387106,-49818),_
P(386556,-54327),_
P(385959,-58830),_
P(385314,-63328),_
P(384621,-67819),_
P(383881,-72304),_
P(383094,-76782),_
P(382259,-81252),_
P(381376,-85714),_
P(380447,-90168),_
P(379470,-94612),_
P(378446,-99048),_
P(377374,-103474),_
P(376256,-107890),_
P(375091,-112295),_
P(373878,-116689),_
P(372619,-121071),_
P(371313,-125442),_
P(369837,-129757),_
P(368083,-133971),_
P(366276,-138161),_
P(364435,-142332),_
P(362562,-146485),_
P(360657,-150620),_
P(358719,-154736),_
P(356750,-158835),_
P(354750,-162917),_
P(352719,-166980),_
P(350657,-171027),_
P(348567,-175057),_
P(346447,-179070),_
P(344299,-183067),_
P(342124,-187049),_
P(339922,-191016),_
P(337680,-194960))
S.PolyPolygon=Array(N)
'P 62
S=L(D,G,C)
N=Array(P(380000,0),_
P(379976,-4421),_
P(379903,-8842),_
P(379782,-13262),_
P(379612,-17681),_
P(379394,-22097),_
P(379127,-26511),_
P(378812,-30922),_
P(378448,-35330),_
P(378036,-39733),_
P(377576,-44132),_
P(377068,-48526),_
P(376511,-52915),_
P(375906,-57298),_
P(375253,-61674),_
P(374552,-66044),_
P(373803,-70406),_
P(373006,-74760),_
P(372161,-79105),_
P(371269,-83442),_
P(370329,-87769),_
P(369341,-92087),_
P(368305,-96394),_
P(367223,-100690),_
P(366093,-104975),_
P(364916,-109249),_
P(363692,-113509),_
P(362420,-117758),_
P(361102,-121992),_
P(359625,-126174),_
P(357888,-130261),_
P(356101,-134323),_
P(354284,-138367),_
P(352438,-142394),_
P(350563,-146404),_
P(348658,-150396),_
P(346725,-154372),_
P(344764,-158331),_
P(342775,-162273),_
P(340759,-166199),_
P(338717,-170110),_
P(336648,-174005),_
P(334555,-177886),_
P(332437,-181753),_
P(330296,-185606),_
P(328117,-189438))
S.PolyPolygon=Array(N)
'P 63
S=L(D,G,C)
N=Array(P(370000,0),_
P(369975,-4305),_
P(369902,-8610),_
P(369779,-12913),_
P(369607,-17215),_
P(369386,-21514),_
P(369115,-25811),_
P(368796,-30105),_
P(368428,-34394),_
P(368011,-38679),_
P(367545,-42960),_
P(367030,-47235),_
P(366466,-51503),_
P(365853,-55766),_
P(365192,-60021),_
P(364483,-64268),_
P(363725,-68507),_
P(362918,-72738),_
P(362064,-76959),_
P(361161,-81170),_
P(360210,-85371),_
P(359212,-89562),_
P(358165,-93740),_
P(357071,-97907),_
P(355930,-102061),_
P(354741,-106202),_
P(353505,-110330),_
P(352222,-114444),_
P(350892,-118543),_
P(349412,-122591),_
P(347694,-126550),_
P(345927,-130485),_
P(344134,-134403),_
P(342314,-138304),_
P(340468,-142188),_
P(338597,-146056),_
P(336700,-149908),_
P(334778,-153745),_
P(332831,-157566),_
P(330861,-161371),_
P(328867,-165163),_
P(326850,-168941),_
P(324811,-172705),_
P(322750,-176457),_
P(320670,-180197),_
P(318554,-183917))
S.PolyPolygon=Array(N)
'P 64
S=L(D,G,C)
N=Array(P(360000,0),_
P(359975,-4189),_
P(359900,-8377),_
P(359776,-12564),_
P(359602,-16749),_
P(359378,-20931),_
P(359104,-25111),_
P(358780,-29287),_
P(358407,-33459),_
P(357985,-37626),_
P(357513,-41787),_
P(356991,-45943),_
P(356421,-50092),_
P(355801,-54233),_
P(355132,-58367),_
P(354414,-62493),_
P(353647,-66609),_
P(352831,-70716),_
P(351966,-74813),_
P(351053,-78899),_
P(350092,-82973),_
P(349083,-87036),_
P(348025,-91086),_
P(346920,-95123),_
P(345767,-99147),_
P(344566,-103156),_
P(343318,-107151),_
P(342023,-111130),_
P(340681,-115093),_
P(339200,-119008),_
P(337499,-122840),_
P(335753,-126647),_
P(333983,-130438),_
P(332190,-134213),_
P(330374,-137973),_
P(328535,-141716),_
P(326675,-145445),_
P(324792,-149159),_
P(322887,-152858),_
P(320962,-156544),_
P(319016,-160216),_
P(317051,-163876),_
P(315067,-167524),_
P(313064,-171161),_
P(311043,-174787),_
P(308990,-178396))
S.PolyPolygon=Array(N)
'P 66
S=L(D,G,C)
N=Array(P(340000,0),_
P(339974,-3956),_
P(339898,-7911),_
P(339770,-11865),_
P(339591,-15817),_
P(339361,-19766),_
P(339081,-23711),_
P(338749,-27652),_
P(338367,-31588),_
P(337933,-35518),_
P(337450,-39442),_
P(336915,-43359),_
P(336330,-47268),_
P(335695,-51169),_
P(335010,-55060),_
P(334275,-58942),_
P(333490,-62813),_
P(332655,-66672),_
P(331771,-70520),_
P(330838,-74355),_
P(329856,-78177),_
P(328824,-81985),_
P(327745,-85778),_
P(326617,-89556),_
P(325440,-93319),_
P(324216,-97064),_
P(322945,-100792),_
P(321626,-104503),_
P(320260,-108194),_
P(318776,-111842),_
P(317110,-115418),_
P(315404,-118972),_
P(313681,-122510),_
P(311942,-126033),_
P(310186,-129541),_
P(308413,-133036),_
P(306624,-136518),_
P(304820,-139987),_
P(303000,-143443),_
P(301165,-146888),_
P(299316,-150322),_
P(297454,-153747),_
P(295578,-157162),_
P(293690,-160569),_
P(291790,-163968),_
P(289864,-167353))
S.PolyPolygon=Array(N)
'P 67
S=L(D,G,C)
N=Array(P(330000,0),_
P(329974,-3840),_
P(329896,-7678),_
P(329767,-11516),_
P(329586,-15351),_
P(329353,-19183),_
P(329069,-23011),_
P(328733,-26834),_
P(328346,-30652),_
P(327908,-34464),_
P(327418,-38270),_
P(326877,-42067),_
P(326285,-45856),_
P(325643,-49636),_
P(324949,-53407),_
P(324206,-57166),_
P(323412,-60914),_
P(322568,-64651),_
P(321674,-68374),_
P(320730,-72084),_
P(319737,-75779),_
P(318695,-79460),_
P(317605,-83125),_
P(316465,-86773),_
P(315277,-90404),_
P(314042,-94018),_
P(312758,-97613),_
P(311427,-101189),_
P(310049,-104745),_
P(308563,-108259),_
P(306915,-111708),_
P(305230,-115134),_
P(303531,-118545),_
P(301818,-121942),_
P(300091,-125326),_
P(298352,-128696),_
P(296599,-132054),_
P(294834,-135401),_
P(293056,-138736),_
P(291267,-142060),_
P(289466,-145375),_
P(287655,-148682),_
P(285834,-151981),_
P(284003,-155273),_
P(282164,-158559),_
P(280300,-161832))
S.PolyPolygon=Array(N)
'P 68
S=L(D,G,C)
N=Array(P(320000,0),_
P(319974,-3723),_
P(319895,-7446),_
P(319764,-11166),_
P(319581,-14885),_
P(319345,-18600),_
P(319058,-22311),_
P(318718,-26017),_
P(318326,-29717),_
P(317882,-33411),_
P(317386,-37097),_
P(316839,-40775),_
P(316240,-44445),_
P(315590,-48104),_
P(314889,-51753),_
P(314136,-55391),_
P(313333,-59016),_
P(312480,-62629),_
P(311576,-66228),_
P(310623,-69812),_
P(309619,-73381),_
P(308566,-76934),_
P(307464,-80471),_
P(306314,-83989),_
P(305114,-87490),_
P(303867,-90972),_
P(302571,-94434),_
P(301229,-97875),_
P(299839,-101295),_
P(298351,-104676),_
P(296720,-107997),_
P(295055,-111296),_
P(293380,-114581),_
P(291694,-117852),_
P(289997,-121110),_
P(288290,-124356),_
P(286574,-127591),_
P(284848,-130814),_
P(283112,-134028),_
P(281368,-137232),_
P(279616,-140428),_
P(277856,-143617),_
P(276090,-146799),_
P(274316,-149976),_
P(272538,-153149),_
P(270737,-156310))
S.PolyPolygon=Array(N)
'P 69
S=L(D,G,C)
N=Array(P(310000,0),_
P(309973,-3607),_
P(309894,-7213),_
P(309761,-10817),_
P(309576,-14419),_
P(309337,-18017),_
P(309046,-21611),_
P(308702,-25199),_
P(308305,-28782),_
P(307856,-32357),_
P(307354,-35925),_
P(306801,-39484),_
P(306195,-43033),_
P(305537,-46572),_
P(304828,-50100),_
P(304067,-53615),_
P(303255,-57118),_
P(302392,-60607),_
P(301479,-64081),_
P(300515,-67540),_
P(299501,-70983),_
P(298437,-74409),_
P(297324,-77817),_
P(296162,-81206),_
P(294951,-84576),_
P(293692,-87926),_
P(292385,-91254),_
P(291030,-94561),_
P(289628,-97846),_
P(288139,-101093),_
P(286526,-104287),_
P(284881,-107458),_
P(283229,-110616),_
P(281570,-113762),_
P(279903,-116895),_
P(278229,-120016),_
P(276549,-123127),_
P(274861,-126228),_
P(273168,-129321),_
P(271470,-132405),_
P(269766,-135482),_
P(268058,-138552),_
P(266345,-141618),_
P(264630,-144680),_
P(262911,-147740),_
P(261174,-150789))
S.PolyPolygon=Array(N)
'P 71
S=L(D,G,C)
N=Array(P(290000,0),_
P(289973,-3374),_
P(289891,-6747),_
P(289756,-10118),_
P(289565,-13487),_
P(289321,-16851),_
P(289023,-20210),_
P(288671,-23564),_
P(288264,-26911),_
P(287804,-30249),_
P(287291,-33580),_
P(286724,-36900),_
P(286104,-40209),_
P(285432,-43507),_
P(284706,-46793),_
P(283928,-50064),_
P(283099,-53321),_
P(282217,-56563),_
P(281284,-59789),_
P(280300,-62997),_
P(279265,-66187),_
P(278179,-69358),_
P(277044,-72509),_
P(275859,-75639),_
P(274625,-78747),_
P(273342,-81833),_
P(272011,-84896),_
P(270633,-87934),_
P(269207,-90947),_
P(267714,-93927),_
P(266136,-96866),_
P(264533,-99783),_
P(262928,-102688),_
P(261322,-105581),_
P(259715,-108463),_
P(258107,-111336),_
P(256498,-114200),_
P(254889,-117056),_
P(253281,-119906),_
P(251673,-122749),_
P(250066,-125588),_
P(248460,-128423),_
P(246857,-131256),_
P(245256,-134088),_
P(243658,-136921),_
P(242047,-139746))
S.PolyPolygon=Array(N)
'P 72
S=L(D,G,C)
N=Array(P(280000,0),_
P(279973,-3246),_
P(279891,-6491),_
P(279754,-9735),_
P(279563,-12976),_
P(279317,-16213),_
P(279017,-19446),_
P(278662,-22674),_
P(278253,-25895),_
P(277790,-29109),_
P(277273,-32316),_
P(276701,-35514),_
P(276076,-38701),_
P(275397,-41879),_
P(274665,-45045),_
P(273879,-48198),_
P(273040,-51339),_
P(272148,-54465),_
P(271204,-57577),_
P(270207,-60673),_
P(269157,-63752),_
P(268056,-66814),_
P(266904,-69855),_
P(265707,-72855),_
P(264462,-75833),_
P(263167,-78787),_
P(261825,-81716),_
P(260434,-84620),_
P(258996,-87498),_
P(257502,-90344),_
P(255942,-93155),_
P(254358,-95945),_
P(252777,-98723),_
P(251198,-101490),_
P(249620,-104248),_
P(248045,-106996),_
P(246473,-109737),_
P(244903,-112470),_
P(243337,-115198),_
P(241774,-117921),_
P(240216,-120641),_
P(238662,-123358),_
P(237113,-126075),_
P(235569,-128792),_
P(234032,-131512),_
P(232484,-134225))
S.PolyPolygon=Array(N)
'P 73
S=L(D,G,C)
N=Array(P(246420,-88000),P(222920,-128703))
S.PolyPolygon=Array(N)
'P 74
S=L(D,G,C)
 N=Array(P(237760,-83000),_
P(236301,-85503),_
P(234821,-87995),_
P(233321,-90476),_
P(231798,-92946),_
P(230255,-95406),_
P(228689,-97857),_
P(227101,-100299),_
P(225491,-102732),_
P(223859,-105158),_
P(222203,-107575),_
P(220525,-109986),_
P(218823,-112391),_
P(217098,-114790),_
P(215348,-117185),_
P(213567,-119567))
S.PolyPolygon=Array(N)
'P 73
G.add(A(D,94000,0,176000,0,3000,C))
'P 74
G.add(A(D,94000,0,166000,0,3000,C))
'P 76
G.add(A(D,94000,0,145600,0,4500,C))
'P 77
G.add(A(D,94000,0,135200,0,4500,C))
'P 78
G.add(A(D,94000,0,124800,0,4500,C))
'P 79
G.add(A(D,94000,0,114400,0,4500,C))
'P 81
G.add(A(D,94000,0,93600,0,4500,C))
'P 82
G.add(A(D,94000,0,83200,0,4500,C))
'P 83
G.add(A(D,94000,0,72800,0,4500,C))
'P 84
G.add(A(D,94000,0,62400,0,4500,C))
'P 86
G.add(A(D,94000,0,41600,0,4500,C))
'P 87
G.add(A(D,94000,0,31200,0,4500,C))
'P 88
G.add(A(D,94000,0,20800,0,4500,C))
'P 89
G.add(A(D,94000,0,10400,0,4500,C))
End Sub ' ParallelsMinor

' # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #

Go to Page 6, Grid and Illustrations

Go back to page 1     Go back to page 2     Go back to page 3     Go back to page 4
Go back to B.J.S. Cahill Resource Page
Go back to Gene Keyes home page