!Workspace
!Version  850
!Charset WindowsLatin1
Open Table "Mapinfo\2011 Trenches\scanned maps\TR-11-25.TAB" As TR_11_25 Interactive
Open Table "Mapinfo\2011 Trenches\TR-25-geo" As TR_25_geo Interactive
Open Table "Mapinfo\2011 Trenches\TR-25-sample" As TR_25_sample Interactive
Open Table "Mapinfo\2011 Trenches\TR-25-annotate" As TR_25_annotate Interactive
Map From TR_25_annotate,TR_25_sample,TR_25_geo,TR_11_25 
  Position (0.0520833,0.0520833) Units "in"
  Width 7.03125 Units "in" Height 3.42708 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On Snap Mode On
Set Map
  CoordSys NonEarth Units "m"
  Center (96.16019994,-47.20513795)
  Zoom 130 Units "m"
  Preserve Zoom Display Zoom
  Distance Units "m" Area Units "sq m" XY Units "m"
  Distance Type Cartesian
Set Map
  Layer 1
    Display Graphic
    Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
    Label Line Arrow Position Right Font ("Arial",0,9,0) Pen (1,2,0) 
      With ID
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 2
    Display Graphic
    Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
    Label Line None Position Right Font ("Arial",0,8,0) Pen (1,2,0) 
      With Sample
      Parallel On Auto Off Overlap Off Duplicates On Offset 10
      Visibility On
   Object 9 Line None Anchor (117.211836282664,-28.266379982676) Angle 90 
   Object 8 Line None Anchor (112.319681995977,-28.680968714318) Angle 90 
   Object 7 Line None Anchor (106.814673988319,-29.086399519836) Angle 90 
   Object 6 Line None Anchor (102.229419073778,-29.932511711262) Angle 90 
   Object 5 Line None Anchor (97.302019919543,-30.795401354836) Angle 90 
   Object 4 Line None Anchor (92.397210393344,-31.686133454383) Angle 90 
   Object 3 Anchor (87.469634476944,-32.326299602839) Callout (87.469634476944,-32.326299602839) Angle 90 
   Object 2 Anchor (82.228219221921,-33.42980054803) Callout (82.228219221921,-33.42980054803) Angle 90 
   Object 1 Anchor (77.38237662244,-34.497981343) Callout (77.38237662244,-34.497981343) Angle 90 
  Layer 3
    Display Graphic
    Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial",0,9,0)
    Label Line Arrow Position Right Font ("Arial",0,9,0) Pen (1,2,0) 
      With ID
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 4
    Display Off
    Global Pen (1,2,0)  Brush (2,16777215,16777215)  Symbol (35,0,12)  Line (1,2,0)  Font ("Arial",0,9,0)
    Selectable Off
    Zoom (1.1, 430) Units "m" 
  contrast 50 
  brightness 50 
  alpha 255 
    transparency off 
  color 0 
    grayscale off 
Set Map Layer 1 Editable
Create Cartographic Legend
  Position (10.875,0.260417) Units "in"
  Width 2.92708 Units "in" Height 5 Units "in" 
  Window Title "Legend of TR_25_annotate,...,TR_11_25 Map"
  Portrait
  Style Size Large
  Default Frame Title "# Legend" Font ("Arial",1,9,0)
  Default Frame Style "%" Font ("Arial",0,9,0)
  Frame From Layer 2
    Border Pen (0,1,0) 
    Title ""
    Using Column object 
    Style Font ("Arial",0,9,0)
      Text "Sample interval" Line Pen (20,61,0) 
  Frame From Layer 3
    Border Pen (0,1,0) 
    Title ""
    Using Column object 
    Style Font ("Arial",0,9,0)
      Text "Bedrock exposure" Region Pen (1,2,0)  Brush (2,16711680) 
      Text "Carbonaceous metavolcanic rocks" Region Pen (1,2,0)  Brush (18,0) 
Layout
  Position (0.572917,0.677083) Units "in"
  Width 7.03125 Units "in" Height 3.42708 Units "in" 
  Dim uniqueStringName As String
  uniqueStringName = "Set " + SessionInfo(1)
  Set CoordSys Layout Units "in"
  Create Frame (0.3056,0.7562) (10.5417,8.2368)
    Pen (20,2,0) 
    Brush (2,16777215,16777215)
    Title "TR_25_annotate,...,TR_11_25 Map"
    FillFrame On
  Create Text
    "Azimuth"
    (8.1625,0.9243) (8.616,1.066)
    Font ("Arial",0,9,0)

  Create Text
    "0 - 15m\n15 - 21m\n21 - 30m\n30 - 35m\n35 - 45m"
    (8.8646,0.9243) (9.3611,1.6326)
    Font ("Arial",0,9,0)

  Create Text
    "*NOTE: Trench fractured/fragmented bedrock, unless specified otherwise"
    (0.4472,0.9243) (4.5271,1.066)
    Font ("Arial",0,9,0)

  Create Text
    "@ 015°\n@ 347°\n@ 008°\n@ 035°\n@ 003°"
    (9.5222,0.9243) (9.9437,1.6326)
    Font ("Arial",0,9,0)

  Create Frame (7.2493,6.5868) (10.3743,8.1076)
    Pen (1,1,0) 
    Brush (1,16777215,16777215)
    Title "Legend of TR_25_annotate,...,TR_11_25 Map"
    FillFrame Off
  Create Rect (0.3576,6.3861) (3.4764,8.1729)
    Pen (17,2,0) 
    Brush (2,16777215,16777215)
  Create Line (0.3535,6.7688) (3.4799,6.7688)
    Pen (1,2,0) 
  Create Line (0.3535,7.991) (3.4799,7.991)
    Pen (1,2,0) 
  Create Text
    "TR-11-25 WEST RIB"
    (1.0715,7.1438) (2.7618,7.3569)
    Font ("Arial",1,13,0)
    Justify Center

  Create Text
    "FILE: ...2011/String/.../String-Fxx-TR-11-25.wor"
    (0.3792,8.0424) (2.1389,8.141)
    Font ("Arial",0,6,0)

  Create Text
    "STRING PROPERTY"
    (1.184,7.3639) (2.6493,7.5403)
    Font ("Arial",0,11,0)

  Create Text
    "UTM ZONE 9, NAD 83, 105G/09"
    (1.1076,7.8486) (2.7257,7.9771)
    Font ("Arial",0,8,0)
    Justify Center

  Create Line (0.3556,7.5993) (3.4778,7.5993)
    Pen (1,2,0) 
  Create Text
    "ARCHER, CATHRO & ASSOCIATES (1981) LIMITED"
    (0.4194,6.9757) (3.4146,7.1174)
    Font ("Arial",0,9,0)
    Justify Center

  Create Text
    "0"
    (0.6521,7.6326) (0.7056,7.7458)
    Font ("Arial",0,7,0)

  Create Text
    "30 m"
    (2.9375,7.6326) (3.1528,7.7458)
    Font ("Arial",0,7,0)

  Create Rect (0.6819,7.7806) (1.4701,7.8431)
    Pen (1,2,0) 
    Brush (1,65535,16777215)
  Create Rect (1.4701,7.7806) (2.2556,7.8431)
    Pen (1,2,0) 
    Brush (2,0,16777215)
  Create Rect (2.2556,7.7806) (3.0389,7.8431)
    Pen (1,2,0) 
    Brush (1,65535,16777215)
  Create Text
    "WOLVERINE MINERALS CORP."
    (0.8799,6.4132) (2.9535,6.5785)
    Font ("Arial",1,10,0)

  Create Text
    "STRATEGIC METALS LTD."
    (1.0403,6.5799) (2.7938,6.7451)
    Font ("Arial",1,10,0)

  Create Text
    "4X Vertical Exaggeration"
    (0.4472,1.1931) (1.8271,1.3347)
    Font ("Arial",0,9,0)

  Create Text
    "DATE: APRIL 2012"
    (2.6042,8.0194) (3.4361,8.1326)
    Font ("Arial",0,7,0)

  Create Line (2.5028,7.9903) (2.5028,8.1687)
    Pen (1,2,0) 
  Set Layout Ruler On Pagebreaks On Frame Contents On
  Zoom 71.201 Center (4.62952,2.12866) Extents To Fit
  Set Window FrontWindow() Autoscroll On
  Run Command uniqueStringName
  Undim uniqueStringName
Set Window FrontWindow() Export
 TrueColor on Border on Dither halftone
 Transparency Raster device Vector internal
 Antialiasing on Threshold 0 MaskSize 2 Filter 2
Dim WorkspaceMaximizedWindow As Integer
WorkspaceMaximizedWindow = Frontwindow()
Set Window WorkspaceMaximizedWindow Max
Undim WorkspaceMaximizedWindow
Set Digitizer
  (0,0) (41584,1172) Label "Pt 1",
  (20,0) (45529,1171) Label "Pt 2",
  (0,20) (41593,5128) Label "Pt 3"
  CoordSys Earth Projection 8, 33, "m", -135, 0, 0.9996, 500000, 0
  Units "m"
  Width 1000 Height 1000
  Resolution 500, 500
  Button 1, 0
  Mode Off
