#! /usr/opt/mst/bin/stsh -cG2
"G2 Program File

To print this file on the default printer, just:

filename.g2 -print

where filename.g2 is the name of this file.  To print on a specific
printer:

filename.g2 -dprinter_name

where printer_name is the printer name.
"

GKS open! "Make sure that GKS is open."

"Default processing of command-line arguments (in the array Argv):"

| d |
Argv notNil ifTrue:
  [Argv size = 0
       ifTrue: [Argv _ #(Tablet)].
   Argv@1 = '-print'
       ifTrue: [Argv at: 1 put: #PostscriptWS.
		Argv _ Argv, #('-paper' '|lp').
		].
   d _ Argv@1.
   (d copyFrom: 1 to: 2) = '-d'
       ifTrue: [Argv at: 1 put: #PostscriptWS.
		Argv _ Argv, (Array with: '-paper' with: '|lp ', d).
		].
   (Smalltalk at: (Argv@1) asSymbol) new.
   Argv _ Argv copyFrom: 2 to: Argv size.
   ]
!

"Set prefix for path name based on the name of this file:"
GKSFileStream saveFileName: ScriptFileName!

ScriptFileRevision := 3.0!
Gws latest size: 8.5@11!

Gws latest font: (GFont createUsing: [:aNewGFont |
  aNewGFont id: 'Helvetica'.
  aNewGFont color: 1.
  aNewGFont points: 7.0.
])!

Gws latest autosave: 4!

Gws latest expansion: 1.0!

Gws latest margin: 0.25@0.25!

Gws latest colorMap: #(
(1 1 1 )
(0 0 0 )
(0 0 a MethodContext )
(0 a BlockContext a MethodContext )
(a MethodContext a MethodContext 0.755555555555555 )
(0.088888888888888 0 0 )
(0.6 0.3 0.1 )
(0.4 0.6 0.2 )
(0.5 0.1 0.67 )
(0 0.6 0.6 )
(0.5 0.5 0.5 )
(0 0 1 )
(0 1 0 )
(1 0 0 )
(0.2 0.8 0.6 )
(0.6 0.4 0.8 )
(1 0.5 0 )
(0.7 0.7 0.7 )
(0 0.8 1 )
(0.6 0.6 1 )
(0.6 1 0.6 )
(0.4 1 0.8 )
(0.8 0.759999999999998 0.8 )
(1 0.7 0.7 )
(1 0.8 0.6 )
(1 1 0 )
(1 0 1 )
(0 1 1 )
(0.8 1 0.8 )
(0.8 0.8 1 )
(1 1 0.6 )
(0.9 0.9 0.9 )
)!

Smalltalk at: #aNewChart put: Chart new!

  aNewChart frame: (3.2679086207279@6.65935618193464 corner: 5.2679086207279@9.65935618193465)!
  aNewChart hidden: false!
  aNewChart font: (GFont createUsing: [:aNewGFont |
    aNewGFont id: 'Helvetica'.
    aNewGFont color: 1.
    aNewGFont points: 7.0.
  ])!
  aNewChart line: GLine foreground!
  aNewChart fill: Gfill background!

  Smalltalk at: #aNewDateTimeAxis put: DateTimeAxis new!

      aNewDateTimeAxis frame: (3.2679086207279@6.65935618193464 corner: 5.2679086207279@6.65935618193464)!
      aNewDateTimeAxis hidden: false!
      aNewDateTimeAxis font: (AxisFont createUsing: [:aNewAxisFont |
        aNewAxisFont id: 'Helvetica'.
        aNewAxisFont color: 1.
        aNewAxisFont points: 3.29999999999999.
        aNewAxisFont comma: ','.
        aNewAxisFont degrees: 0.0.
      ])!
      aNewDateTimeAxis title: (AxisTitle createUsing: [:aNewAxisTitle |
        aNewAxisTitle frame: (4.17068639850567@6.40588395971241 corner: 4.36513084295012@6.48921729304575).
        aNewAxisTitle hidden: false.
        aNewAxisTitle fill: Gfill none.
        aNewAxisTitle line: GLine transparent.
        aNewAxisTitle degrees: 0.0.
        aNewAxisTitle font: (GFont createUsing: [:aNewGFont |
          aNewGFont id: 'Helvetica'.
          aNewGFont color: 1.
          aNewGFont points: 7.0.
        ]).
        aNewAxisTitle margin: 0.097222222222222.
        aNewAxisTitle vmargin: 0.048611111111111.
        aNewAxisTitle alignment: 2.
        aNewAxisTitle locationAlignment: 'upper middle'.
        aNewAxisTitle text: (OrderedCollection new: 0).
        aNewAxisTitle fold: nil.
        aNewAxisTitle offset: 0.0@0.0.
        aNewAxisTitle capitalization: 1.
      ])!
      aNewDateTimeAxis minimum: (DateTime dateTimeArray: #( 1997 1 1 0 0 0.0))!
      aNewDateTimeAxis maximum: (DateTime dateTimeArray: #( 1998 12 31 0 0 0.0))!
      aNewDateTimeAxis grid: GLine transparent!
      aNewDateTimeAxis side: -1.0!
      aNewDateTimeAxis tickLength: 0.09!
      aNewDateTimeAxis tickLine: GLine transparent!
      aNewDateTimeAxis reverse: false!
      aNewDateTimeAxis spacing: 1!
      aNewDateTimeAxis drawLabels: true!
      aNewDateTimeAxis minorTickLength: 0.66667!
      aNewDateTimeAxis majorGridWidth: 1.0!
      aNewDateTimeAxis showMinorGrids: true!
      aNewDateTimeAxis timeStyle: 'hhmm24:at:'!
      aNewDateTimeAxis yearDigits: 1!
      aNewDateTimeAxis waterYears: false!
      aNewDateTimeAxis teenyTickLength: 0.33333!
  aNewChart at: 'bottom' location: (0.0@0.0 corner: 1.0@0.0)
    putAxis: aNewDateTimeAxis!

  Smalltalk at: #aNewLinearAxis put: LinearAxis new!

      aNewLinearAxis frame: (3.2679086207279@6.65935618193464 corner: 3.2679086207279@9.65935618193465)!
      aNewLinearAxis hidden: false!
      aNewLinearAxis font: (AxisFont createUsing: [:aNewAxisFont |
        aNewAxisFont id: 'Helvetica'.
        aNewAxisFont color: 1.
        aNewAxisFont points: 7.0.
        aNewAxisFont comma: ','.
        aNewAxisFont degrees: 0.0.
      ])!
      aNewLinearAxis title: (AxisTitle createUsing: [:aNewAxisTitle |
        aNewAxisTitle frame: (2.37450861545579@8.15935618193464 corner: 3.860110372966@8.4649117374902).
        aNewAxisTitle hidden: false.
        aNewAxisTitle fill: Gfill none.
        aNewAxisTitle line: GLine transparent.
        aNewAxisTitle degrees: 90.0.
        aNewAxisTitle font: (GFont createUsing: [:aNewGFont |
          aNewGFont id: 'Helvetica'.
          aNewGFont color: 1.
          aNewGFont points: 7.0.
        ]).
        aNewAxisTitle margin: 0.097222222222222.
        aNewAxisTitle vmargin: 0.048611111111111.
        aNewAxisTitle alignment: 2.
        aNewAxisTitle locationAlignment: 'lower middle'.
        aNewAxisTitle text: ([:a |
          a add: ''.
          a add: 'PRECIPITATION, IN INCHES'.
          a] value: OrderedCollection new).
        aNewAxisTitle fold: nil.
        aNewAxisTitle offset: 0.0@0.0.
        aNewAxisTitle capitalization: 1.
      ])!
      aNewLinearAxis minimum: nil!
      aNewLinearAxis maximum: 24!
      aNewLinearAxis grid: GLine transparent!
      aNewLinearAxis side: 1.0!
      aNewLinearAxis tickLength: 0.06!
      aNewLinearAxis tickLine: GLine foreground!
      aNewLinearAxis reverse: false!
      aNewLinearAxis spacing: 1.0!
      aNewLinearAxis drawLabels: true!
      aNewLinearAxis minorTickLength: 0.5!
      aNewLinearAxis majorGridWidth: 1.0!
      aNewLinearAxis showMinorGrids: true!
      aNewLinearAxis labelOffset: 0.0!
      aNewLinearAxis ustep: nil!
      aNewLinearAxis first: nil!
      aNewLinearAxis ticks: nil!
      aNewLinearAxis decimals: nil!
      aNewLinearAxis multiplier: 1.0!
      aNewLinearAxis customScale: nil!
  aNewChart at: 'left' location: (0.0@0.0 corner: 0.0@1.0)
    putAxis: aNewLinearAxis!

  aNewChart legend: (Legend createUsing: [:aNewLegend |
    aNewLegend frame: (3.73164173896822@5.2453925546302 corner: 4.70408270455637@6.37594811018576).
    aNewLegend hidden: false.
    aNewLegend title: 'EXPLANATION'.
    aNewLegend font: (GFont createUsing: [:aNewGFont |
      aNewGFont id: 'Helvetica'.
      aNewGFont color: 1.
      aNewGFont points: 7.0.
    ]).
    aNewLegend fill: Gfill none.
    aNewLegend columns: 1.
    aNewLegend line: GLine transparent.
  ])!

    Smalltalk at: #aNewBarPlot put: BarPlot new!

      aNewBarPlot frame: nil!
      aNewBarPlot hidden: false!
      aNewBarPlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.hart.precip.stats.98')) register !
      aNewBarPlot x: 'Date'!
      aNewBarPlot ys: (Array with: 'min.')!
      aNewBarPlot flipped: false!
      aNewBarPlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewBarPlot componentAt: 1 put: (BarSymbology createUsing: [:aNewBarSymbology |
        aNewBarSymbology label: (OrderedCollection with: 'min').
        aNewBarSymbology line: GLine foreground.
        aNewBarSymbology originLine: GLine transparent.
        aNewBarSymbology fill: Gfill solid.
        aNewBarSymbology origin: '0'.
        aNewBarSymbology hidden: false.
        aNewBarSymbology showValues: false.
        aNewBarSymbology width: 30.
        aNewBarSymbology relativeOffset: 0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewBarPlot!

    Smalltalk at: #aNewXYLinePlot put: XYLinePlot new!

      aNewXYLinePlot frame: nil!
      aNewXYLinePlot hidden: false!
      aNewXYLinePlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.hart.precip.stats.98')) register !
      aNewXYLinePlot x: 'Date'!
      aNewXYLinePlot ys: (Array with: 'med.')!
      aNewXYLinePlot flipped: false!
      aNewXYLinePlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewXYLinePlot componentAt: 1 put: (LineSymbology createUsing: [:aNewLineSymbology |
        aNewLineSymbology label: (OrderedCollection with: 'med.').
        aNewLineSymbology line: (GLine createUsing: [:aNewGLine |
          aNewGLine type: 3.
          aNewGLine color: 1.
          aNewGLine width: 0.01.
        ]).
        aNewLineSymbology originLine: GLine transparent.
        aNewLineSymbology fill: Gfill none.
        aNewLineSymbology origin: ''.
        aNewLineSymbology hidden: false.
        aNewLineSymbology showValues: false.
        aNewLineSymbology symbol: (Gsymbol createUsing: [:aNewGsymbol |
          aNewGsymbol type: 'none'.
          aNewGsymbol size: 0.1.
          aNewGsymbol degrees: 0.0.
          aNewGsymbol line: (SymbolLine createUsing: [:aNewSymbolLine |
            aNewSymbolLine type: 1.
            aNewSymbolLine color: 1.
            aNewSymbolLine width: 0.006.
          ]).
          aNewGsymbol fill: (SymbolFill createUsing: [:aNewSymbolFill |
            aNewSymbolFill btype: 0.
            aNewSymbolFill bcolor: 1.
            aNewSymbolFill spacing: 1.0.
            aNewSymbolFill layers: (OrderedCollection new: 0).
          ]).
        ]).
        aNewLineSymbology connectMissing: false.
        aNewLineSymbology interpolation: 1.
        aNewLineSymbology density: 1.
        aNewLineSymbology direction: 1.
        aNewLineSymbology monotonic: false.
        aNewLineSymbology follow: false.
        aNewLineSymbology extension: 0.0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewXYLinePlot!

    Smalltalk at: #aNewXYLinePlot put: XYLinePlot new!

      aNewXYLinePlot frame: nil!
      aNewXYLinePlot hidden: false!
      aNewXYLinePlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.hart.precip.stats.98')) register !
      aNewXYLinePlot x: 'Date'!
      aNewXYLinePlot ys: (Array with: 'actual')!
      aNewXYLinePlot flipped: false!
      aNewXYLinePlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewXYLinePlot componentAt: 1 put: (LineSymbology createUsing: [:aNewLineSymbology |
        aNewLineSymbology label: (OrderedCollection with: 'actual').
        aNewLineSymbology line: (GLine createUsing: [:aNewGLine |
          aNewGLine type: 1.
          aNewGLine color: 1.
          aNewGLine width: 0.01.
        ]).
        aNewLineSymbology originLine: GLine transparent.
        aNewLineSymbology fill: Gfill none.
        aNewLineSymbology origin: nil.
        aNewLineSymbology hidden: false.
        aNewLineSymbology showValues: false.
        aNewLineSymbology symbol: (Gsymbol createUsing: [:aNewGsymbol |
          aNewGsymbol type: 'none'.
          aNewGsymbol size: 0.1.
          aNewGsymbol degrees: 0.0.
          aNewGsymbol line: (SymbolLine createUsing: [:aNewSymbolLine |
            aNewSymbolLine type: 1.
            aNewSymbolLine color: 1.
            aNewSymbolLine width: 0.006.
          ]).
          aNewGsymbol fill: (SymbolFill createUsing: [:aNewSymbolFill |
            aNewSymbolFill btype: 0.
            aNewSymbolFill bcolor: 1.
            aNewSymbolFill spacing: 1.0.
            aNewSymbolFill layers: (OrderedCollection new: 0).
          ]).
        ]).
        aNewLineSymbology connectMissing: false.
        aNewLineSymbology interpolation: 1.
        aNewLineSymbology density: 1.
        aNewLineSymbology direction: 1.
        aNewLineSymbology monotonic: false.
        aNewLineSymbology follow: false.
        aNewLineSymbology extension: 0.0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewXYLinePlot!

    Smalltalk at: #aNewBarPlot put: BarPlot new!

      aNewBarPlot frame: nil!
      aNewBarPlot hidden: false!
      aNewBarPlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.hart.precip.stats.98')) register !
      aNewBarPlot x: 'Date'!
      aNewBarPlot ys: (Array with: 'max.')!
      aNewBarPlot flipped: false!
      aNewBarPlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewBarPlot componentAt: 1 put: (BarSymbology createUsing: [:aNewBarSymbology |
        aNewBarSymbology label: (OrderedCollection with: 'max.').
        aNewBarSymbology line: GLine foreground.
        aNewBarSymbology originLine: GLine transparent.
        aNewBarSymbology fill: Gfill solid.
        aNewBarSymbology origin: '30'.
        aNewBarSymbology hidden: false.
        aNewBarSymbology showValues: false.
        aNewBarSymbology width: 30.
        aNewBarSymbology relativeOffset: 0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewBarPlot!

  aNewChart raiseAxisKey: 'bottom'!

  aNewChart raiseAxisKey: 'left'!
Gws latest add: aNewChart!


Smalltalk at: #aNewAnnotation put: Annotation new!

  aNewAnnotation frame: (3.568136190176@9.90524823830877 corner: 5.20719471129833@10.07191490497543)!
  aNewAnnotation hidden: false!
  aNewAnnotation fill: Gfill none!
  aNewAnnotation line: GLine transparent!
  aNewAnnotation degrees: 0.0!
  aNewAnnotation font: (GFont createUsing: [:aNewGFont |
    aNewGFont id: 'Helvetica'.
    aNewGFont color: 1.
    aNewGFont points: 12.0.
  ])!
  aNewAnnotation margin: 0!
  aNewAnnotation vmargin: 0!
  aNewAnnotation alignment: 2!
  aNewAnnotation locationAlignment: 'lower left'!
  aNewAnnotation text: (OrderedCollection with: 'HARTFORD WSO AP')!
  aNewAnnotation fold: nil!Gws latest add: aNewAnnotation!


Smalltalk at: #aNewChart put: Chart new!

  aNewChart frame: (3.35678172335027@1.51866591928249 corner: 5.35678172335027@4.51866591928249)!
  aNewChart hidden: false!
  aNewChart font: (GFont createUsing: [:aNewGFont |
    aNewGFont id: 'Helvetica'.
    aNewGFont color: 1.
    aNewGFont points: 7.0.
  ])!
  aNewChart line: GLine foreground!
  aNewChart fill: Gfill background!

  Smalltalk at: #aNewDateTimeAxis put: DateTimeAxis new!

      aNewDateTimeAxis frame: (3.35678172335027@1.51866591928249 corner: 5.35678172335027@1.51866591928249)!
      aNewDateTimeAxis hidden: false!
      aNewDateTimeAxis font: (AxisFont createUsing: [:aNewAxisFont |
        aNewAxisFont id: 'Helvetica'.
        aNewAxisFont color: 1.
        aNewAxisFont points: 3.29999999999999.
        aNewAxisFont comma: ','.
        aNewAxisFont degrees: 0.0.
      ])!
      aNewDateTimeAxis title: (AxisTitle createUsing: [:aNewAxisTitle |
        aNewAxisTitle frame: (4.25955950112804@1.26519369706026 corner: 4.45400394557249@1.3485270303936).
        aNewAxisTitle hidden: false.
        aNewAxisTitle fill: Gfill none.
        aNewAxisTitle line: GLine transparent.
        aNewAxisTitle degrees: 0.0.
        aNewAxisTitle font: (GFont createUsing: [:aNewGFont |
          aNewGFont id: 'Helvetica'.
          aNewGFont color: 1.
          aNewGFont points: 7.0.
        ]).
        aNewAxisTitle margin: 0.097222222222222.
        aNewAxisTitle vmargin: 0.048611111111111.
        aNewAxisTitle alignment: 2.
        aNewAxisTitle locationAlignment: 'upper middle'.
        aNewAxisTitle text: (OrderedCollection new: 0).
        aNewAxisTitle fold: nil.
        aNewAxisTitle offset: 0.0@0.0.
        aNewAxisTitle capitalization: 1.
      ])!
      aNewDateTimeAxis minimum: (DateTime dateTimeArray: #( 1997 1 1 0 0 0.0))!
      aNewDateTimeAxis maximum: (DateTime dateTimeArray: #( 1998 12 31 0 0 0.0))!
      aNewDateTimeAxis grid: GLine transparent!
      aNewDateTimeAxis side: -1.0!
      aNewDateTimeAxis tickLength: 0.09!
      aNewDateTimeAxis tickLine: GLine transparent!
      aNewDateTimeAxis reverse: false!
      aNewDateTimeAxis spacing: 1!
      aNewDateTimeAxis drawLabels: true!
      aNewDateTimeAxis minorTickLength: 0.66667!
      aNewDateTimeAxis majorGridWidth: 1.0!
      aNewDateTimeAxis showMinorGrids: true!
      aNewDateTimeAxis timeStyle: 'hhmm24:at:'!
      aNewDateTimeAxis yearDigits: 1!
      aNewDateTimeAxis waterYears: false!
      aNewDateTimeAxis teenyTickLength: 0.33333!
  aNewChart at: 'bottom' location: (0.0@0.0 corner: 1.0@0.0)
    putAxis: aNewDateTimeAxis!

  Smalltalk at: #aNewLinearAxis put: LinearAxis new!

      aNewLinearAxis frame: (3.35678172335027@1.51866591928249 corner: 3.35678172335027@4.51866591928249)!
      aNewLinearAxis hidden: false!
      aNewLinearAxis font: (AxisFont createUsing: [:aNewAxisFont |
        aNewAxisFont id: 'Helvetica'.
        aNewAxisFont color: 1.
        aNewAxisFont points: 7.0.
        aNewAxisFont comma: ','.
        aNewAxisFont degrees: 0.0.
      ])!
      aNewLinearAxis title: (AxisTitle createUsing: [:aNewAxisTitle |
        aNewAxisTitle frame: (2.46338171807816@3.01866591928249 corner: 3.94898347558837@3.21311036372693).
        aNewAxisTitle hidden: false.
        aNewAxisTitle fill: Gfill none.
        aNewAxisTitle line: GLine transparent.
        aNewAxisTitle degrees: 90.0.
        aNewAxisTitle font: (GFont createUsing: [:aNewGFont |
          aNewGFont id: 'Helvetica'.
          aNewGFont color: 1.
          aNewGFont points: 7.0.
        ]).
        aNewAxisTitle margin: 0.097222222222222.
        aNewAxisTitle vmargin: 0.048611111111111.
        aNewAxisTitle alignment: 2.
        aNewAxisTitle locationAlignment: 'lower middle'.
        aNewAxisTitle text: (OrderedCollection with: 'PRECIPITATION, IN INCHES').
        aNewAxisTitle fold: nil.
        aNewAxisTitle offset: 0.0@0.0.
        aNewAxisTitle capitalization: 1.
      ])!
      aNewLinearAxis minimum: nil!
      aNewLinearAxis maximum: 20!
      aNewLinearAxis grid: GLine transparent!
      aNewLinearAxis side: 1.0!
      aNewLinearAxis tickLength: 0.06!
      aNewLinearAxis tickLine: GLine foreground!
      aNewLinearAxis reverse: false!
      aNewLinearAxis spacing: 1.0!
      aNewLinearAxis drawLabels: true!
      aNewLinearAxis minorTickLength: 0.5!
      aNewLinearAxis majorGridWidth: 1.0!
      aNewLinearAxis showMinorGrids: true!
      aNewLinearAxis labelOffset: 0.0!
      aNewLinearAxis ustep: nil!
      aNewLinearAxis first: nil!
      aNewLinearAxis ticks: nil!
      aNewLinearAxis decimals: nil!
      aNewLinearAxis multiplier: 1.0!
      aNewLinearAxis customScale: nil!
  aNewChart at: 'left' location: (0.0@0.0 corner: 0.0@1.0)
    putAxis: aNewLinearAxis!

  aNewChart legend: (Legend createUsing: [:aNewLegend |
    aNewLegend frame: (3.86933780046444@0.162325610363714 corner: 4.84177876605259@1.29288116591927).
    aNewLegend hidden: false.
    aNewLegend title: 'EXPLANATION'.
    aNewLegend font: (GFont createUsing: [:aNewGFont |
      aNewGFont id: 'Helvetica'.
      aNewGFont color: 1.
      aNewGFont points: 7.0.
    ]).
    aNewLegend fill: Gfill none.
    aNewLegend columns: 1.
    aNewLegend line: GLine transparent.
  ])!

    Smalltalk at: #aNewBarPlot put: BarPlot new!

      aNewBarPlot frame: nil!
      aNewBarPlot hidden: false!
      aNewBarPlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: '';
          name:  (GKSFileStream baseDirectory, 'precip/eom.br.precip.stats.98')) register !
      aNewBarPlot x: 'Date'!
      aNewBarPlot ys: (Array with: 'min.')!
      aNewBarPlot flipped: false!
      aNewBarPlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewBarPlot componentAt: 1 put: (BarSymbology createUsing: [:aNewBarSymbology |
        aNewBarSymbology label: (OrderedCollection with: 'min').
        aNewBarSymbology line: GLine foreground.
        aNewBarSymbology originLine: GLine transparent.
        aNewBarSymbology fill: Gfill solid.
        aNewBarSymbology origin: '0'.
        aNewBarSymbology hidden: false.
        aNewBarSymbology showValues: false.
        aNewBarSymbology width: 30.
        aNewBarSymbology relativeOffset: 0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewBarPlot!

    Smalltalk at: #aNewXYLinePlot put: XYLinePlot new!

      aNewXYLinePlot frame: nil!
      aNewXYLinePlot hidden: false!
      aNewXYLinePlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: '';
          name:  (GKSFileStream baseDirectory, 'precip/eom.br.precip.stats.98')) register !
      aNewXYLinePlot x: 'Date'!
      aNewXYLinePlot ys: (Array with: 'med.')!
      aNewXYLinePlot flipped: false!
      aNewXYLinePlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewXYLinePlot componentAt: 1 put: (LineSymbology createUsing: [:aNewLineSymbology |
        aNewLineSymbology label: (OrderedCollection with: 'med.').
        aNewLineSymbology line: (GLine createUsing: [:aNewGLine |
          aNewGLine type: 3.
          aNewGLine color: 1.
          aNewGLine width: 0.01.
        ]).
        aNewLineSymbology originLine: GLine transparent.
        aNewLineSymbology fill: Gfill none.
        aNewLineSymbology origin: nil.
        aNewLineSymbology hidden: false.
        aNewLineSymbology showValues: false.
        aNewLineSymbology symbol: (Gsymbol createUsing: [:aNewGsymbol |
          aNewGsymbol type: 'none'.
          aNewGsymbol size: 0.1.
          aNewGsymbol degrees: 0.0.
          aNewGsymbol line: (SymbolLine createUsing: [:aNewSymbolLine |
            aNewSymbolLine type: 1.
            aNewSymbolLine color: 1.
            aNewSymbolLine width: 0.006.
          ]).
          aNewGsymbol fill: (SymbolFill createUsing: [:aNewSymbolFill |
            aNewSymbolFill btype: 0.
            aNewSymbolFill bcolor: 1.
            aNewSymbolFill spacing: 1.0.
            aNewSymbolFill layers: (OrderedCollection new: 0).
          ]).
        ]).
        aNewLineSymbology connectMissing: false.
        aNewLineSymbology interpolation: 1.
        aNewLineSymbology density: 1.
        aNewLineSymbology direction: 1.
        aNewLineSymbology monotonic: false.
        aNewLineSymbology follow: false.
        aNewLineSymbology extension: 0.0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewXYLinePlot!

    Smalltalk at: #aNewXYLinePlot put: XYLinePlot new!

      aNewXYLinePlot frame: nil!
      aNewXYLinePlot hidden: false!
      aNewXYLinePlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: '';
          name:  (GKSFileStream baseDirectory, 'precip/eom.br.precip.stats.98')) register !
      aNewXYLinePlot x: 'Date'!
      aNewXYLinePlot ys: (Array with: 'actual')!
      aNewXYLinePlot flipped: false!
      aNewXYLinePlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewXYLinePlot componentAt: 1 put: (LineSymbology createUsing: [:aNewLineSymbology |
        aNewLineSymbology label: (OrderedCollection with: 'actual').
        aNewLineSymbology line: (GLine createUsing: [:aNewGLine |
          aNewGLine type: 1.
          aNewGLine color: 1.
          aNewGLine width: 0.01.
        ]).
        aNewLineSymbology originLine: GLine transparent.
        aNewLineSymbology fill: Gfill none.
        aNewLineSymbology origin: nil.
        aNewLineSymbology hidden: false.
        aNewLineSymbology showValues: false.
        aNewLineSymbology symbol: (Gsymbol createUsing: [:aNewGsymbol |
          aNewGsymbol type: 'none'.
          aNewGsymbol size: 0.1.
          aNewGsymbol degrees: 0.0.
          aNewGsymbol line: (SymbolLine createUsing: [:aNewSymbolLine |
            aNewSymbolLine type: 1.
            aNewSymbolLine color: 1.
            aNewSymbolLine width: 0.006.
          ]).
          aNewGsymbol fill: (SymbolFill createUsing: [:aNewSymbolFill |
            aNewSymbolFill btype: 0.
            aNewSymbolFill bcolor: 1.
            aNewSymbolFill spacing: 1.0.
            aNewSymbolFill layers: (OrderedCollection new: 0).
          ]).
        ]).
        aNewLineSymbology connectMissing: false.
        aNewLineSymbology interpolation: 1.
        aNewLineSymbology density: 1.
        aNewLineSymbology direction: 1.
        aNewLineSymbology monotonic: false.
        aNewLineSymbology follow: false.
        aNewLineSymbology extension: 0.0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewXYLinePlot!

    Smalltalk at: #aNewBarPlot put: BarPlot new!

      aNewBarPlot frame: nil!
      aNewBarPlot hidden: false!
      aNewBarPlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: '';
          name:  (GKSFileStream baseDirectory, 'precip/eom.br.precip.stats.98')) register !
      aNewBarPlot x: 'Date'!
      aNewBarPlot ys: (Array with: 'max.')!
      aNewBarPlot flipped: false!
      aNewBarPlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewBarPlot componentAt: 1 put: (BarSymbology createUsing: [:aNewBarSymbology |
        aNewBarSymbology label: (OrderedCollection with: 'max.').
        aNewBarSymbology line: GLine foreground.
        aNewBarSymbology originLine: GLine transparent.
        aNewBarSymbology fill: Gfill solid.
        aNewBarSymbology origin: '30'.
        aNewBarSymbology hidden: false.
        aNewBarSymbology showValues: false.
        aNewBarSymbology width: 30.
        aNewBarSymbology relativeOffset: 0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewBarPlot!

  aNewChart raiseAxisKey: 'bottom'!

  aNewChart raiseAxisKey: 'left'!
Gws latest add: aNewChart!


Smalltalk at: #aNewChart put: Chart new!

  aNewChart frame: (0.511771264459405@6.66670403587443 corner: 2.5117712644594@9.66670403587443)!
  aNewChart hidden: false!
  aNewChart font: (GFont createUsing: [:aNewGFont |
    aNewGFont id: 'Helvetica'.
    aNewGFont color: 1.
    aNewGFont points: 7.0.
  ])!
  aNewChart line: GLine foreground!
  aNewChart fill: Gfill background!

  Smalltalk at: #aNewDateTimeAxis put: DateTimeAxis new!

      aNewDateTimeAxis frame: (0.511771264459405@6.66670403587443 corner: 2.5117712644594@6.66670403587443)!
      aNewDateTimeAxis hidden: false!
      aNewDateTimeAxis font: (AxisFont createUsing: [:aNewAxisFont |
        aNewAxisFont id: 'Helvetica'.
        aNewAxisFont color: 1.
        aNewAxisFont points: 3.29999999999999.
        aNewAxisFont comma: ','.
        aNewAxisFont degrees: 0.0.
      ])!
      aNewDateTimeAxis title: (AxisTitle createUsing: [:aNewAxisTitle |
        aNewAxisTitle frame: (1.41454904223718@6.4132318136522 corner: 1.60899348668162@6.49656514698554).
        aNewAxisTitle hidden: false.
        aNewAxisTitle fill: Gfill none.
        aNewAxisTitle line: GLine transparent.
        aNewAxisTitle degrees: 0.0.
        aNewAxisTitle font: (GFont createUsing: [:aNewGFont |
          aNewGFont id: 'Helvetica'.
          aNewGFont color: 1.
          aNewGFont points: 7.0.
        ]).
        aNewAxisTitle margin: 0.097222222222222.
        aNewAxisTitle vmargin: 0.048611111111111.
        aNewAxisTitle alignment: 2.
        aNewAxisTitle locationAlignment: 'upper middle'.
        aNewAxisTitle text: (OrderedCollection new: 0).
        aNewAxisTitle fold: nil.
        aNewAxisTitle offset: 0.0@0.0.
        aNewAxisTitle capitalization: 1.
      ])!
      aNewDateTimeAxis minimum: (DateTime dateTimeArray: #( 1997 1 1 0 0 0.0))!
      aNewDateTimeAxis maximum: (DateTime dateTimeArray: #( 1998 12 31 0 0 0.0))!
      aNewDateTimeAxis grid: GLine transparent!
      aNewDateTimeAxis side: -1.0!
      aNewDateTimeAxis tickLength: 0.09!
      aNewDateTimeAxis tickLine: GLine transparent!
      aNewDateTimeAxis reverse: false!
      aNewDateTimeAxis spacing: 1!
      aNewDateTimeAxis drawLabels: true!
      aNewDateTimeAxis minorTickLength: 0.66667!
      aNewDateTimeAxis majorGridWidth: 1.0!
      aNewDateTimeAxis showMinorGrids: true!
      aNewDateTimeAxis timeStyle: 'hhmm24:at:'!
      aNewDateTimeAxis yearDigits: 1!
      aNewDateTimeAxis waterYears: false!
      aNewDateTimeAxis teenyTickLength: 0.33333!
  aNewChart at: 'bottom' location: (0.0@0.0 corner: 1.0@0.0)
    putAxis: aNewDateTimeAxis!

  Smalltalk at: #aNewDateTimeAxis put: DateTimeAxis new!

      aNewDateTimeAxis frame: (0.511771264459405@9.66670403587443 corner: 2.5117712644594@9.66670403587443)!
      aNewDateTimeAxis hidden: false!
      aNewDateTimeAxis font: (AxisFont createUsing: [:aNewAxisFont |
        aNewAxisFont id: 'Helvetica'.
        aNewAxisFont color: 1.
        aNewAxisFont points: 7.0.
        aNewAxisFont comma: ','.
        aNewAxisFont degrees: 0.0.
      ])!
      aNewDateTimeAxis title: (AxisTitle createUsing: [:aNewAxisTitle |
        aNewAxisTitle frame: (1.4145490422594@10.09031514698554 corner: 1.6089934866594@10.17364848029665).
        aNewAxisTitle hidden: false.
        aNewAxisTitle fill: Gfill none.
        aNewAxisTitle line: GLine transparent.
        aNewAxisTitle degrees: 0.0.
        aNewAxisTitle font: (GFont createUsing: [:aNewGFont |
          aNewGFont id: 'Helvetica'.
          aNewGFont color: 1.
          aNewGFont points: 7.0.
        ]).
        aNewAxisTitle margin: 0.097222222199999.
        aNewAxisTitle vmargin: 0.048611111099999.
        aNewAxisTitle alignment: 2.
        aNewAxisTitle locationAlignment: 'lower middle'.
        aNewAxisTitle text: (OrderedCollection new: 0).
        aNewAxisTitle fold: nil.
        aNewAxisTitle offset: 0.0@0.0.
        aNewAxisTitle capitalization: 1.
      ])!
      aNewDateTimeAxis minimum: nil!
      aNewDateTimeAxis maximum: nil!
      aNewDateTimeAxis grid: GLine transparent!
      aNewDateTimeAxis side: 1.0!
      aNewDateTimeAxis tickLength: 0.09!
      aNewDateTimeAxis tickLine: GLine foreground!
      aNewDateTimeAxis reverse: false!
      aNewDateTimeAxis spacing: 1!
      aNewDateTimeAxis drawLabels: false!
      aNewDateTimeAxis minorTickLength: 0.66667!
      aNewDateTimeAxis majorGridWidth: 1.0!
      aNewDateTimeAxis showMinorGrids: true!
      aNewDateTimeAxis timeStyle: 'hhmm24:at:'!
      aNewDateTimeAxis yearDigits: 1!
      aNewDateTimeAxis waterYears: false!
      aNewDateTimeAxis teenyTickLength: 0.33333!
  aNewChart at: 'top' location: (0.0@1.0 corner: 1.0@1.0)
    putAxis: aNewDateTimeAxis!

  Smalltalk at: #aNewLinearAxis put: LinearAxis new!

      aNewLinearAxis frame: (2.5117712644594@6.66670403587443 corner: 2.5117712644594@9.66670403587443)!
      aNewLinearAxis hidden: false!
      aNewLinearAxis font: (AxisFont createUsing: [:aNewAxisFont |
        aNewAxisFont id: 'Helvetica'.
        aNewAxisFont color: 1.
        aNewAxisFont points: 7.0.
        aNewAxisFont comma: ','.
        aNewAxisFont degrees: 0.0.
      ])!
      aNewLinearAxis title: (AxisTitle createUsing: [:aNewAxisTitle |
        aNewAxisTitle frame: (2.45621570522831@7.97225959142998 corner: 2.65066015702381@8.16670403587443).
        aNewAxisTitle hidden: false.
        aNewAxisTitle fill: Gfill none.
        aNewAxisTitle line: GLine transparent.
        aNewAxisTitle degrees: 90.0.
        aNewAxisTitle font: (GFont createUsing: [:aNewGFont |
          aNewGFont id: 'Helvetica'.
          aNewGFont color: 1.
          aNewGFont points: 7.0.
        ]).
        aNewAxisTitle margin: 0.097222222222222.
        aNewAxisTitle vmargin: 0.048611111111111.
        aNewAxisTitle alignment: 2.
        aNewAxisTitle locationAlignment: 'upper middle'.
        aNewAxisTitle text: (OrderedCollection with: '').
        aNewAxisTitle fold: nil.
        aNewAxisTitle offset: 0.0@0.0.
        aNewAxisTitle capitalization: 1.
      ])!
      aNewLinearAxis minimum: nil!
      aNewLinearAxis maximum: nil!
      aNewLinearAxis grid: GLine transparent!
      aNewLinearAxis side: -1.0!
      aNewLinearAxis tickLength: 0.06!
      aNewLinearAxis tickLine: GLine foreground!
      aNewLinearAxis reverse: false!
      aNewLinearAxis spacing: 1!
      aNewLinearAxis drawLabels: false!
      aNewLinearAxis minorTickLength: 0.5!
      aNewLinearAxis majorGridWidth: 1.0!
      aNewLinearAxis showMinorGrids: true!
      aNewLinearAxis labelOffset: 0.0!
      aNewLinearAxis ustep: nil!
      aNewLinearAxis first: nil!
      aNewLinearAxis ticks: nil!
      aNewLinearAxis decimals: nil!
      aNewLinearAxis multiplier: 1.0!
      aNewLinearAxis customScale: nil!
  aNewChart at: 'right' location: (1.0@0.0 corner: 1.0@1.0)
    putAxis: aNewLinearAxis!

  Smalltalk at: #aNewLinearAxis put: LinearAxis new!

      aNewLinearAxis frame: (0.511771264459405@6.66670403587443 corner: 0.511771264459405@9.66670403587443)!
      aNewLinearAxis hidden: false!
      aNewLinearAxis font: (AxisFont createUsing: [:aNewAxisFont |
        aNewAxisFont id: 'Helvetica'.
        aNewAxisFont color: 1.
        aNewAxisFont points: 7.0.
        aNewAxisFont comma: ','.
        aNewAxisFont degrees: 0.0.
      ])!
      aNewLinearAxis title: (AxisTitle createUsing: [:aNewAxisTitle |
        aNewAxisTitle frame: (-0.3816287408127@8.16670403587443 corner: 1.1039730166975@8.36114848031887).
        aNewAxisTitle hidden: false.
        aNewAxisTitle fill: Gfill none.
        aNewAxisTitle line: GLine transparent.
        aNewAxisTitle degrees: 90.0.
        aNewAxisTitle font: (GFont createUsing: [:aNewGFont |
          aNewGFont id: 'Helvetica'.
          aNewGFont color: 1.
          aNewGFont points: 7.0.
        ]).
        aNewAxisTitle margin: 0.097222222222222.
        aNewAxisTitle vmargin: 0.048611111111111.
        aNewAxisTitle alignment: 2.
        aNewAxisTitle locationAlignment: 'lower middle'.
        aNewAxisTitle text: (OrderedCollection with: 'PRECIPITATION, IN INCHES').
        aNewAxisTitle fold: nil.
        aNewAxisTitle offset: 0.0@0.0.
        aNewAxisTitle capitalization: 1.
      ])!
      aNewLinearAxis minimum: nil!
      aNewLinearAxis maximum: 24!
      aNewLinearAxis grid: GLine transparent!
      aNewLinearAxis side: 1.0!
      aNewLinearAxis tickLength: 0.06!
      aNewLinearAxis tickLine: GLine foreground!
      aNewLinearAxis reverse: false!
      aNewLinearAxis spacing: 1!
      aNewLinearAxis drawLabels: true!
      aNewLinearAxis minorTickLength: 0.5!
      aNewLinearAxis majorGridWidth: 1.0!
      aNewLinearAxis showMinorGrids: true!
      aNewLinearAxis labelOffset: 0.0!
      aNewLinearAxis ustep: nil!
      aNewLinearAxis first: nil!
      aNewLinearAxis ticks: nil!
      aNewLinearAxis decimals: nil!
      aNewLinearAxis multiplier: 1.0!
      aNewLinearAxis customScale: nil!
  aNewChart at: 'left' location: (0.0@0.0 corner: 0.0@1.0)
    putAxis: aNewLinearAxis!

  aNewChart legend: (Legend createUsing: [:aNewLegend |
    aNewLegend frame: (1.01076218219739@5.02207897359241 corner: 1.98320314778554@6.15263452914797).
    aNewLegend hidden: false.
    aNewLegend title: 'EXPLANATION'.
    aNewLegend font: (GFont createUsing: [:aNewGFont |
      aNewGFont id: 'Helvetica'.
      aNewGFont color: 1.
      aNewGFont points: 7.0.
    ]).
    aNewLegend fill: Gfill none.
    aNewLegend columns: 1.
    aNewLegend line: GLine transparent.
  ])!

    Smalltalk at: #aNewBarPlot put: BarPlot new!

      aNewBarPlot frame: nil!
      aNewBarPlot hidden: false!
      aNewBarPlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.nor.precip.stats.98')) register !
      aNewBarPlot x: 'Date'!
      aNewBarPlot ys: (Array with: 'min.')!
      aNewBarPlot flipped: false!
      aNewBarPlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewBarPlot componentAt: 1 put: (BarSymbology createUsing: [:aNewBarSymbology |
        aNewBarSymbology label: (OrderedCollection with: 'min').
        aNewBarSymbology line: GLine foreground.
        aNewBarSymbology originLine: GLine transparent.
        aNewBarSymbology fill: Gfill solid.
        aNewBarSymbology origin: '0'.
        aNewBarSymbology hidden: false.
        aNewBarSymbology showValues: false.
        aNewBarSymbology width: 30.
        aNewBarSymbology relativeOffset: 0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewBarPlot!

    Smalltalk at: #aNewXYLinePlot put: XYLinePlot new!

      aNewXYLinePlot frame: nil!
      aNewXYLinePlot hidden: false!
      aNewXYLinePlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.nor.precip.stats.98')) register !
      aNewXYLinePlot x: 'Date'!
      aNewXYLinePlot ys: (Array with: 'med.')!
      aNewXYLinePlot flipped: false!
      aNewXYLinePlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewXYLinePlot componentAt: 1 put: (LineSymbology createUsing: [:aNewLineSymbology |
        aNewLineSymbology label: (OrderedCollection with: 'med.').
        aNewLineSymbology line: (GLine createUsing: [:aNewGLine |
          aNewGLine type: 3.
          aNewGLine color: 1.
          aNewGLine width: 0.01.
        ]).
        aNewLineSymbology originLine: GLine transparent.
        aNewLineSymbology fill: Gfill none.
        aNewLineSymbology origin: ''.
        aNewLineSymbology hidden: false.
        aNewLineSymbology showValues: false.
        aNewLineSymbology symbol: (Gsymbol createUsing: [:aNewGsymbol |
          aNewGsymbol type: 'none'.
          aNewGsymbol size: 0.1.
          aNewGsymbol degrees: 0.0.
          aNewGsymbol line: (SymbolLine createUsing: [:aNewSymbolLine |
            aNewSymbolLine type: 1.
            aNewSymbolLine color: 1.
            aNewSymbolLine width: 0.006.
          ]).
          aNewGsymbol fill: (SymbolFill createUsing: [:aNewSymbolFill |
            aNewSymbolFill btype: 0.
            aNewSymbolFill bcolor: 1.
            aNewSymbolFill spacing: 1.0.
            aNewSymbolFill layers: (OrderedCollection new: 0).
          ]).
        ]).
        aNewLineSymbology connectMissing: false.
        aNewLineSymbology interpolation: 1.
        aNewLineSymbology density: 1.
        aNewLineSymbology direction: 1.
        aNewLineSymbology monotonic: false.
        aNewLineSymbology follow: false.
        aNewLineSymbology extension: 0.0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewXYLinePlot!

    Smalltalk at: #aNewXYLinePlot put: XYLinePlot new!

      aNewXYLinePlot frame: nil!
      aNewXYLinePlot hidden: false!
      aNewXYLinePlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.nor.precip.stats.98')) register !
      aNewXYLinePlot x: 'Date'!
      aNewXYLinePlot ys: (Array with: 'actual')!
      aNewXYLinePlot flipped: false!
      aNewXYLinePlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewXYLinePlot componentAt: 1 put: (LineSymbology createUsing: [:aNewLineSymbology |
        aNewLineSymbology label: (OrderedCollection with: 'actual').
        aNewLineSymbology line: (GLine createUsing: [:aNewGLine |
          aNewGLine type: 1.
          aNewGLine color: 1.
          aNewGLine width: 0.01.
        ]).
        aNewLineSymbology originLine: GLine transparent.
        aNewLineSymbology fill: Gfill none.
        aNewLineSymbology origin: nil.
        aNewLineSymbology hidden: false.
        aNewLineSymbology showValues: false.
        aNewLineSymbology symbol: (Gsymbol createUsing: [:aNewGsymbol |
          aNewGsymbol type: 'none'.
          aNewGsymbol size: 0.1.
          aNewGsymbol degrees: 0.0.
          aNewGsymbol line: (SymbolLine createUsing: [:aNewSymbolLine |
            aNewSymbolLine type: 1.
            aNewSymbolLine color: 1.
            aNewSymbolLine width: 0.006.
          ]).
          aNewGsymbol fill: (SymbolFill createUsing: [:aNewSymbolFill |
            aNewSymbolFill btype: 0.
            aNewSymbolFill bcolor: 1.
            aNewSymbolFill spacing: 1.0.
            aNewSymbolFill layers: (OrderedCollection new: 0).
          ]).
        ]).
        aNewLineSymbology connectMissing: false.
        aNewLineSymbology interpolation: 1.
        aNewLineSymbology density: 1.
        aNewLineSymbology direction: 1.
        aNewLineSymbology monotonic: false.
        aNewLineSymbology follow: false.
        aNewLineSymbology extension: 0.0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewXYLinePlot!

    Smalltalk at: #aNewBarPlot put: BarPlot new!

      aNewBarPlot frame: nil!
      aNewBarPlot hidden: false!
      aNewBarPlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.nor.precip.stats.98')) register !
      aNewBarPlot x: 'Date'!
      aNewBarPlot ys: (Array with: 'max.')!
      aNewBarPlot flipped: false!
      aNewBarPlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewBarPlot componentAt: 1 put: (BarSymbology createUsing: [:aNewBarSymbology |
        aNewBarSymbology label: (OrderedCollection with: 'max.').
        aNewBarSymbology line: GLine foreground.
        aNewBarSymbology originLine: GLine transparent.
        aNewBarSymbology fill: Gfill solid.
        aNewBarSymbology origin: '30'.
        aNewBarSymbology hidden: false.
        aNewBarSymbology showValues: false.
        aNewBarSymbology width: 30.
        aNewBarSymbology relativeOffset: 0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewBarPlot!

  aNewChart raiseAxisKey: 'bottom'!

  aNewChart raiseAxisKey: 'left'!

  aNewChart raiseAxisKey: 'top'!

  aNewChart raiseAxisKey: 'right'!
Gws latest add: aNewChart!


Smalltalk at: #aNewChart put: Chart new!

  aNewChart frame: (6.01765663506729@1.519899103139 corner: 8.01765663506728@4.51989910313901)!
  aNewChart hidden: false!
  aNewChart font: (GFont createUsing: [:aNewGFont |
    aNewGFont id: 'Helvetica'.
    aNewGFont color: 1.
    aNewGFont points: 7.0.
  ])!
  aNewChart line: GLine foreground!
  aNewChart fill: Gfill background!

  Smalltalk at: #aNewDateTimeAxis put: DateTimeAxis new!

      aNewDateTimeAxis frame: (6.01765663506729@1.519899103139 corner: 8.01765663506728@1.519899103139)!
      aNewDateTimeAxis hidden: false!
      aNewDateTimeAxis font: (AxisFont createUsing: [:aNewAxisFont |
        aNewAxisFont id: 'Helvetica'.
        aNewAxisFont color: 1.
        aNewAxisFont points: 3.29999999999999.
        aNewAxisFont comma: ','.
        aNewAxisFont degrees: 0.0.
      ])!
      aNewDateTimeAxis title: (AxisTitle createUsing: [:aNewAxisTitle |
        aNewAxisTitle frame: (6.92043441284506@1.26642688091677 corner: 7.1148788572895@1.34976021425011).
        aNewAxisTitle hidden: false.
        aNewAxisTitle fill: Gfill none.
        aNewAxisTitle line: GLine transparent.
        aNewAxisTitle degrees: 0.0.
        aNewAxisTitle font: (GFont createUsing: [:aNewGFont |
          aNewGFont id: 'Helvetica'.
          aNewGFont color: 1.
          aNewGFont points: 7.0.
        ]).
        aNewAxisTitle margin: 0.097222222222222.
        aNewAxisTitle vmargin: 0.048611111111111.
        aNewAxisTitle alignment: 2.
        aNewAxisTitle locationAlignment: 'upper middle'.
        aNewAxisTitle text: (OrderedCollection new: 0).
        aNewAxisTitle fold: nil.
        aNewAxisTitle offset: 0.0@0.0.
        aNewAxisTitle capitalization: 1.
      ])!
      aNewDateTimeAxis minimum: (DateTime dateTimeArray: #( 1997 1 1 0 0 0.0))!
      aNewDateTimeAxis maximum: (DateTime dateTimeArray: #( 1998 12 31 0 0 0.0))!
      aNewDateTimeAxis grid: GLine transparent!
      aNewDateTimeAxis side: -1.0!
      aNewDateTimeAxis tickLength: 0.09!
      aNewDateTimeAxis tickLine: GLine transparent!
      aNewDateTimeAxis reverse: false!
      aNewDateTimeAxis spacing: 1!
      aNewDateTimeAxis drawLabels: true!
      aNewDateTimeAxis minorTickLength: 0.66667!
      aNewDateTimeAxis majorGridWidth: 1.0!
      aNewDateTimeAxis showMinorGrids: true!
      aNewDateTimeAxis timeStyle: 'hhmm24:at:'!
      aNewDateTimeAxis yearDigits: 1!
      aNewDateTimeAxis waterYears: false!
      aNewDateTimeAxis teenyTickLength: 0.33333!
  aNewChart at: 'bottom' location: (0.0@0.0 corner: 1.0@0.0)
    putAxis: aNewDateTimeAxis!

  Smalltalk at: #aNewLinearAxis put: LinearAxis new!

      aNewLinearAxis frame: (6.01765663506729@1.519899103139 corner: 6.01765663506729@4.51989910313901)!
      aNewLinearAxis hidden: false!
      aNewLinearAxis font: (AxisFont createUsing: [:aNewAxisFont |
        aNewAxisFont id: 'Helvetica'.
        aNewAxisFont color: 1.
        aNewAxisFont points: 7.0.
        aNewAxisFont comma: ','.
        aNewAxisFont degrees: 0.0.
      ])!
      aNewLinearAxis title: (AxisTitle createUsing: [:aNewAxisTitle |
        aNewAxisTitle frame: (5.12425662979518@3.019899103139 corner: 6.60985838730539@3.32545465869456).
        aNewAxisTitle hidden: false.
        aNewAxisTitle fill: Gfill none.
        aNewAxisTitle line: GLine transparent.
        aNewAxisTitle degrees: 90.0.
        aNewAxisTitle font: (GFont createUsing: [:aNewGFont |
          aNewGFont id: 'Helvetica'.
          aNewGFont color: 1.
          aNewGFont points: 7.0.
        ]).
        aNewAxisTitle margin: 0.097222222222222.
        aNewAxisTitle vmargin: 0.048611111111111.
        aNewAxisTitle alignment: 2.
        aNewAxisTitle locationAlignment: 'lower middle'.
        aNewAxisTitle text: ([:a |
          a add: ''.
          a add: 'PRECIPITATION, IN INCHES'.
          a] value: OrderedCollection new).
        aNewAxisTitle fold: nil.
        aNewAxisTitle offset: 0.0@0.0.
        aNewAxisTitle capitalization: 1.
      ])!
      aNewLinearAxis minimum: nil!
      aNewLinearAxis maximum: 20!
      aNewLinearAxis grid: GLine transparent!
      aNewLinearAxis side: 1.0!
      aNewLinearAxis tickLength: 0.06!
      aNewLinearAxis tickLine: GLine foreground!
      aNewLinearAxis reverse: false!
      aNewLinearAxis spacing: 1!
      aNewLinearAxis drawLabels: true!
      aNewLinearAxis minorTickLength: 0.5!
      aNewLinearAxis majorGridWidth: 1.0!
      aNewLinearAxis showMinorGrids: true!
      aNewLinearAxis labelOffset: 0.0!
      aNewLinearAxis ustep: nil!
      aNewLinearAxis first: nil!
      aNewLinearAxis ticks: nil!
      aNewLinearAxis decimals: nil!
      aNewLinearAxis multiplier: 1.0!
      aNewLinearAxis customScale: nil!
  aNewChart at: 'left' location: (0.0@0.0 corner: 0.0@1.0)
    putAxis: aNewLinearAxis!

  aNewChart legend: (Legend createUsing: [:aNewLegend |
    aNewLegend frame: (6.75252193095427@0.181047583457894 corner: 7.72496289654242@1.31160313901345).
    aNewLegend hidden: false.
    aNewLegend title: 'EXPLANATION'.
    aNewLegend font: (GFont createUsing: [:aNewGFont |
      aNewGFont id: 'Helvetica'.
      aNewGFont color: 1.
      aNewGFont points: 7.0.
    ]).
    aNewLegend fill: Gfill none.
    aNewLegend columns: 1.
    aNewLegend line: GLine transparent.
  ])!

    Smalltalk at: #aNewBarPlot put: BarPlot new!

      aNewBarPlot frame: nil!
      aNewBarPlot hidden: false!
      aNewBarPlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: '';
          name:  (GKSFileStream baseDirectory, 'precip/eom.gt.precip.stats.98')) register !
      aNewBarPlot x: 'Date'!
      aNewBarPlot ys: (Array with: 'max.')!
      aNewBarPlot flipped: false!
      aNewBarPlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewBarPlot componentAt: 1 put: (BarSymbology createUsing: [:aNewBarSymbology |
        aNewBarSymbology label: (OrderedCollection with: 'max').
        aNewBarSymbology line: GLine foreground.
        aNewBarSymbology originLine: GLine transparent.
        aNewBarSymbology fill: Gfill solid.
        aNewBarSymbology origin: '30'.
        aNewBarSymbology hidden: false.
        aNewBarSymbology showValues: false.
        aNewBarSymbology width: 30.
        aNewBarSymbology relativeOffset: 0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewBarPlot!

    Smalltalk at: #aNewBarPlot put: BarPlot new!

      aNewBarPlot frame: nil!
      aNewBarPlot hidden: false!
      aNewBarPlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: '';
          name:  (GKSFileStream baseDirectory, 'precip/eom.gt.precip.stats.98')) register !
      aNewBarPlot x: 'Date'!
      aNewBarPlot ys: (Array with: 'min.')!
      aNewBarPlot flipped: false!
      aNewBarPlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewBarPlot componentAt: 1 put: (BarSymbology createUsing: [:aNewBarSymbology |
        aNewBarSymbology label: (OrderedCollection with: 'min').
        aNewBarSymbology line: GLine foreground.
        aNewBarSymbology originLine: GLine transparent.
        aNewBarSymbology fill: Gfill solid.
        aNewBarSymbology origin: '0'.
        aNewBarSymbology hidden: false.
        aNewBarSymbology showValues: false.
        aNewBarSymbology width: 30.
        aNewBarSymbology relativeOffset: 0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewBarPlot!

    Smalltalk at: #aNewXYLinePlot put: XYLinePlot new!

      aNewXYLinePlot frame: nil!
      aNewXYLinePlot hidden: false!
      aNewXYLinePlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: '';
          name:  (GKSFileStream baseDirectory, 'precip/eom.gt.precip.stats.98')) register !
      aNewXYLinePlot x: 'Date'!
      aNewXYLinePlot ys: (Array with: 'med.')!
      aNewXYLinePlot flipped: false!
      aNewXYLinePlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewXYLinePlot componentAt: 1 put: (LineSymbology createUsing: [:aNewLineSymbology |
        aNewLineSymbology label: (OrderedCollection with: 'med').
        aNewLineSymbology line: (GLine createUsing: [:aNewGLine |
          aNewGLine type: 3.
          aNewGLine color: 1.
          aNewGLine width: 0.01.
        ]).
        aNewLineSymbology originLine: GLine transparent.
        aNewLineSymbology fill: Gfill none.
        aNewLineSymbology origin: nil.
        aNewLineSymbology hidden: false.
        aNewLineSymbology showValues: false.
        aNewLineSymbology symbol: (Gsymbol createUsing: [:aNewGsymbol |
          aNewGsymbol type: 'none'.
          aNewGsymbol size: 0.1.
          aNewGsymbol degrees: 0.0.
          aNewGsymbol line: (SymbolLine createUsing: [:aNewSymbolLine |
            aNewSymbolLine type: 1.
            aNewSymbolLine color: 1.
            aNewSymbolLine width: 0.006.
          ]).
          aNewGsymbol fill: (SymbolFill createUsing: [:aNewSymbolFill |
            aNewSymbolFill btype: 0.
            aNewSymbolFill bcolor: 1.
            aNewSymbolFill spacing: 1.0.
            aNewSymbolFill layers: (OrderedCollection new: 0).
          ]).
        ]).
        aNewLineSymbology connectMissing: false.
        aNewLineSymbology interpolation: 1.
        aNewLineSymbology density: 1.
        aNewLineSymbology direction: 1.
        aNewLineSymbology monotonic: false.
        aNewLineSymbology follow: false.
        aNewLineSymbology extension: 0.0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewXYLinePlot!

    Smalltalk at: #aNewXYLinePlot put: XYLinePlot new!

      aNewXYLinePlot frame: nil!
      aNewXYLinePlot hidden: false!
      aNewXYLinePlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: '';
          name:  (GKSFileStream baseDirectory, 'precip/eom.gt.precip.stats.98')) register !
      aNewXYLinePlot x: 'Date'!
      aNewXYLinePlot ys: (Array with: 'actual')!
      aNewXYLinePlot flipped: false!
      aNewXYLinePlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewXYLinePlot componentAt: 1 put: (LineSymbology createUsing: [:aNewLineSymbology |
        aNewLineSymbology label: (OrderedCollection with: 'actual').
        aNewLineSymbology line: (GLine createUsing: [:aNewGLine |
          aNewGLine type: 1.
          aNewGLine color: 1.
          aNewGLine width: 0.01.
        ]).
        aNewLineSymbology originLine: GLine transparent.
        aNewLineSymbology fill: Gfill none.
        aNewLineSymbology origin: nil.
        aNewLineSymbology hidden: false.
        aNewLineSymbology showValues: false.
        aNewLineSymbology symbol: (Gsymbol createUsing: [:aNewGsymbol |
          aNewGsymbol type: 'none'.
          aNewGsymbol size: 0.1.
          aNewGsymbol degrees: 0.0.
          aNewGsymbol line: (SymbolLine createUsing: [:aNewSymbolLine |
            aNewSymbolLine type: 1.
            aNewSymbolLine color: 1.
            aNewSymbolLine width: 0.006.
          ]).
          aNewGsymbol fill: (SymbolFill createUsing: [:aNewSymbolFill |
            aNewSymbolFill btype: 0.
            aNewSymbolFill bcolor: 1.
            aNewSymbolFill spacing: 1.0.
            aNewSymbolFill layers: (OrderedCollection new: 0).
          ]).
        ]).
        aNewLineSymbology connectMissing: false.
        aNewLineSymbology interpolation: 1.
        aNewLineSymbology density: 1.
        aNewLineSymbology direction: 1.
        aNewLineSymbology monotonic: false.
        aNewLineSymbology follow: false.
        aNewLineSymbology extension: 0.0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewXYLinePlot!

  aNewChart raiseAxisKey: 'bottom'!

  aNewChart raiseAxisKey: 'left'!
Gws latest add: aNewChart!


Smalltalk at: #aNewChart put: Chart new!

  aNewChart frame: (0.484865361664975@1.57847533632287 corner: 2.48486536166497@4.57847533632287)!
  aNewChart hidden: false!
  aNewChart font: (GFont createUsing: [:aNewGFont |
    aNewGFont id: 'Helvetica'.
    aNewGFont color: 1.
    aNewGFont points: 7.0.
  ])!
  aNewChart line: GLine foreground!
  aNewChart fill: Gfill background!

  Smalltalk at: #aNewDateTimeAxis put: DateTimeAxis new!

      aNewDateTimeAxis frame: (0.484865361664975@1.57847533632287 corner: 2.48486536166497@1.57847533632287)!
      aNewDateTimeAxis hidden: false!
      aNewDateTimeAxis font: (AxisFont createUsing: [:aNewAxisFont |
        aNewAxisFont id: 'Helvetica'.
        aNewAxisFont color: 1.
        aNewAxisFont points: 3.29999999999999.
        aNewAxisFont comma: ','.
        aNewAxisFont degrees: 0.0.
      ])!
      aNewDateTimeAxis title: (AxisTitle createUsing: [:aNewAxisTitle |
        aNewAxisTitle frame: (1.38764313944275@1.32500311410064 corner: 1.58208758388719@1.40833644743398).
        aNewAxisTitle hidden: false.
        aNewAxisTitle fill: Gfill none.
        aNewAxisTitle line: GLine transparent.
        aNewAxisTitle degrees: 0.0.
        aNewAxisTitle font: (GFont createUsing: [:aNewGFont |
          aNewGFont id: 'Helvetica'.
          aNewGFont color: 1.
          aNewGFont points: 7.0.
        ]).
        aNewAxisTitle margin: 0.097222222222222.
        aNewAxisTitle vmargin: 0.048611111111111.
        aNewAxisTitle alignment: 2.
        aNewAxisTitle locationAlignment: 'upper middle'.
        aNewAxisTitle text: (OrderedCollection new: 0).
        aNewAxisTitle fold: nil.
        aNewAxisTitle offset: 0.0@0.0.
        aNewAxisTitle capitalization: 1.
      ])!
      aNewDateTimeAxis minimum: (DateTime dateTimeArray: #( 1997 1 1 0 0 0.0))!
      aNewDateTimeAxis maximum: (DateTime dateTimeArray: #( 1998 12 31 0 0 0.0))!
      aNewDateTimeAxis grid: GLine transparent!
      aNewDateTimeAxis side: -1.0!
      aNewDateTimeAxis tickLength: 0.09!
      aNewDateTimeAxis tickLine: GLine transparent!
      aNewDateTimeAxis reverse: false!
      aNewDateTimeAxis spacing: 1!
      aNewDateTimeAxis drawLabels: true!
      aNewDateTimeAxis minorTickLength: 0.66667!
      aNewDateTimeAxis majorGridWidth: 1.0!
      aNewDateTimeAxis showMinorGrids: true!
      aNewDateTimeAxis timeStyle: 'hhmm24:at:'!
      aNewDateTimeAxis yearDigits: 1!
      aNewDateTimeAxis waterYears: false!
      aNewDateTimeAxis teenyTickLength: 0.33333!
  aNewChart at: 'bottom' location: (0.0@0.0 corner: 1.0@0.0)
    putAxis: aNewDateTimeAxis!

  Smalltalk at: #aNewLinearAxis put: LinearAxis new!

      aNewLinearAxis frame: (0.484865361664975@1.57847533632287 corner: 0.484865361664975@4.57847533632287)!
      aNewLinearAxis hidden: false!
      aNewLinearAxis font: (AxisFont createUsing: [:aNewAxisFont |
        aNewAxisFont id: 'Helvetica'.
        aNewAxisFont color: 1.
        aNewAxisFont points: 7.0.
        aNewAxisFont comma: ','.
        aNewAxisFont degrees: 0.0.
      ])!
      aNewLinearAxis title: (AxisTitle createUsing: [:aNewAxisTitle |
        aNewAxisTitle frame: (-0.408534643607129@3.07847533632287 corner: 1.07706711390307@3.38403089187842).
        aNewAxisTitle hidden: false.
        aNewAxisTitle fill: Gfill none.
        aNewAxisTitle line: GLine transparent.
        aNewAxisTitle degrees: 90.0.
        aNewAxisTitle font: (GFont createUsing: [:aNewGFont |
          aNewGFont id: 'Helvetica'.
          aNewGFont color: 1.
          aNewGFont points: 7.0.
        ]).
        aNewAxisTitle margin: 0.097222222222222.
        aNewAxisTitle vmargin: 0.048611111111111.
        aNewAxisTitle alignment: 2.
        aNewAxisTitle locationAlignment: 'lower middle'.
        aNewAxisTitle text: ([:a |
          a add: ''.
          a add: 'PRECIPITATION, IN INCHES'.
          a] value: OrderedCollection new).
        aNewAxisTitle fold: nil.
        aNewAxisTitle offset: 0.0@0.0.
        aNewAxisTitle capitalization: 1.
      ])!
      aNewLinearAxis minimum: nil!
      aNewLinearAxis maximum: 20!
      aNewLinearAxis grid: GLine transparent!
      aNewLinearAxis side: 1.0!
      aNewLinearAxis tickLength: 0.06!
      aNewLinearAxis tickLine: GLine foreground!
      aNewLinearAxis reverse: false!
      aNewLinearAxis spacing: 1.0!
      aNewLinearAxis drawLabels: true!
      aNewLinearAxis minorTickLength: 0.5!
      aNewLinearAxis majorGridWidth: 1.0!
      aNewLinearAxis showMinorGrids: true!
      aNewLinearAxis labelOffset: 0.0!
      aNewLinearAxis ustep: nil!
      aNewLinearAxis first: nil!
      aNewLinearAxis ticks: nil!
      aNewLinearAxis decimals: nil!
      aNewLinearAxis multiplier: 1.0!
      aNewLinearAxis customScale: nil!
  aNewChart at: 'left' location: (0.0@0.0 corner: 0.0@1.0)
    putAxis: aNewLinearAxis!

  aNewChart legend: (Legend createUsing: [:aNewLegend |
    aNewLegend frame: (0.896580503987411@0.126226955655204 corner: 1.86902146957556@1.25678251121076).
    aNewLegend hidden: false.
    aNewLegend title: 'EXPLANATION'.
    aNewLegend font: (GFont createUsing: [:aNewGFont |
      aNewGFont id: 'Helvetica'.
      aNewGFont color: 1.
      aNewGFont points: 7.0.
    ]).
    aNewLegend fill: Gfill none.
    aNewLegend columns: 1.
    aNewLegend line: GLine transparent.
  ])!

    Smalltalk at: #aNewBarPlot put: BarPlot new!

      aNewBarPlot frame: nil!
      aNewBarPlot hidden: false!
      aNewBarPlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.pl.precip.stats.98')) register !
      aNewBarPlot x: 'Date'!
      aNewBarPlot ys: (Array with: 'max.')!
      aNewBarPlot flipped: false!
      aNewBarPlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewBarPlot componentAt: 1 put: (BarSymbology createUsing: [:aNewBarSymbology |
        aNewBarSymbology label: (OrderedCollection with: 'max.').
        aNewBarSymbology line: GLine foreground.
        aNewBarSymbology originLine: GLine transparent.
        aNewBarSymbology fill: Gfill solid.
        aNewBarSymbology origin: '20'.
        aNewBarSymbology hidden: false.
        aNewBarSymbology showValues: false.
        aNewBarSymbology width: 30.
        aNewBarSymbology relativeOffset: 0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewBarPlot!

    Smalltalk at: #aNewBarPlot put: BarPlot new!

      aNewBarPlot frame: nil!
      aNewBarPlot hidden: false!
      aNewBarPlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.pl.precip.stats.98')) register !
      aNewBarPlot x: 'Date'!
      aNewBarPlot ys: (Array with: 'min.')!
      aNewBarPlot flipped: false!
      aNewBarPlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewBarPlot componentAt: 1 put: (BarSymbology createUsing: [:aNewBarSymbology |
        aNewBarSymbology label: (OrderedCollection with: 'min').
        aNewBarSymbology line: GLine foreground.
        aNewBarSymbology originLine: GLine transparent.
        aNewBarSymbology fill: Gfill solid.
        aNewBarSymbology origin: '0'.
        aNewBarSymbology hidden: false.
        aNewBarSymbology showValues: false.
        aNewBarSymbology width: 30.
        aNewBarSymbology relativeOffset: 0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewBarPlot!

    Smalltalk at: #aNewXYLinePlot put: XYLinePlot new!

      aNewXYLinePlot frame: nil!
      aNewXYLinePlot hidden: false!
      aNewXYLinePlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.pl.precip.stats.98')) register !
      aNewXYLinePlot x: 'Date'!
      aNewXYLinePlot ys: (Array with: 'med.')!
      aNewXYLinePlot flipped: false!
      aNewXYLinePlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewXYLinePlot componentAt: 1 put: (LineSymbology createUsing: [:aNewLineSymbology |
        aNewLineSymbology label: (OrderedCollection with: 'med.').
        aNewLineSymbology line: (GLine createUsing: [:aNewGLine |
          aNewGLine type: 3.
          aNewGLine color: 1.
          aNewGLine width: 0.01.
        ]).
        aNewLineSymbology originLine: GLine transparent.
        aNewLineSymbology fill: Gfill none.
        aNewLineSymbology origin: ''.
        aNewLineSymbology hidden: false.
        aNewLineSymbology showValues: false.
        aNewLineSymbology symbol: (Gsymbol createUsing: [:aNewGsymbol |
          aNewGsymbol type: 'none'.
          aNewGsymbol size: 0.1.
          aNewGsymbol degrees: 0.0.
          aNewGsymbol line: (SymbolLine createUsing: [:aNewSymbolLine |
            aNewSymbolLine type: 1.
            aNewSymbolLine color: 1.
            aNewSymbolLine width: 0.006.
          ]).
          aNewGsymbol fill: (SymbolFill createUsing: [:aNewSymbolFill |
            aNewSymbolFill btype: 0.
            aNewSymbolFill bcolor: 1.
            aNewSymbolFill spacing: 1.0.
            aNewSymbolFill layers: (OrderedCollection new: 0).
          ]).
        ]).
        aNewLineSymbology connectMissing: false.
        aNewLineSymbology interpolation: 1.
        aNewLineSymbology density: 1.
        aNewLineSymbology direction: 1.
        aNewLineSymbology monotonic: false.
        aNewLineSymbology follow: false.
        aNewLineSymbology extension: 0.0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewXYLinePlot!

    Smalltalk at: #aNewXYLinePlot put: XYLinePlot new!

      aNewXYLinePlot frame: nil!
      aNewXYLinePlot hidden: false!
      aNewXYLinePlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.pl.precip.stats.98')) register !
      aNewXYLinePlot x: 'Date'!
      aNewXYLinePlot ys: (Array with: 'actual')!
      aNewXYLinePlot flipped: false!
      aNewXYLinePlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewXYLinePlot componentAt: 1 put: (LineSymbology createUsing: [:aNewLineSymbology |
        aNewLineSymbology label: (OrderedCollection with: 'actual').
        aNewLineSymbology line: (GLine createUsing: [:aNewGLine |
          aNewGLine type: 1.
          aNewGLine color: 1.
          aNewGLine width: 0.01.
        ]).
        aNewLineSymbology originLine: GLine transparent.
        aNewLineSymbology fill: Gfill none.
        aNewLineSymbology origin: nil.
        aNewLineSymbology hidden: false.
        aNewLineSymbology showValues: false.
        aNewLineSymbology symbol: (Gsymbol createUsing: [:aNewGsymbol |
          aNewGsymbol type: 'none'.
          aNewGsymbol size: 0.1.
          aNewGsymbol degrees: 0.0.
          aNewGsymbol line: (SymbolLine createUsing: [:aNewSymbolLine |
            aNewSymbolLine type: 1.
            aNewSymbolLine color: 1.
            aNewSymbolLine width: 0.006.
          ]).
          aNewGsymbol fill: (SymbolFill createUsing: [:aNewSymbolFill |
            aNewSymbolFill btype: 0.
            aNewSymbolFill bcolor: 1.
            aNewSymbolFill spacing: 1.0.
            aNewSymbolFill layers: (OrderedCollection new: 0).
          ]).
        ]).
        aNewLineSymbology connectMissing: false.
        aNewLineSymbology interpolation: 1.
        aNewLineSymbology density: 1.
        aNewLineSymbology direction: 1.
        aNewLineSymbology monotonic: false.
        aNewLineSymbology follow: false.
        aNewLineSymbology extension: 0.0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewXYLinePlot!

  aNewChart raiseAxisKey: 'bottom'!

  aNewChart raiseAxisKey: 'left'!
Gws latest add: aNewChart!


Smalltalk at: #aNewChart put: Chart new!

  aNewChart frame: (5.9743831099144@6.66513452914797 corner: 7.9743831099144@9.66513452914798)!
  aNewChart hidden: false!
  aNewChart font: (GFont createUsing: [:aNewGFont |
    aNewGFont id: 'Helvetica'.
    aNewGFont color: 1.
    aNewGFont points: 7.0.
  ])!
  aNewChart line: GLine foreground!
  aNewChart fill: Gfill background!

  Smalltalk at: #aNewDateTimeAxis put: DateTimeAxis new!

      aNewDateTimeAxis frame: (5.9743831099144@6.66513452914797 corner: 7.9743831099144@6.66513452914797)!
      aNewDateTimeAxis hidden: false!
      aNewDateTimeAxis font: (AxisFont createUsing: [:aNewAxisFont |
        aNewAxisFont id: 'Helvetica'.
        aNewAxisFont color: 1.
        aNewAxisFont points: 3.29999999999999.
        aNewAxisFont comma: ','.
        aNewAxisFont degrees: 0.0.
      ])!
      aNewDateTimeAxis title: (AxisTitle createUsing: [:aNewAxisTitle |
        aNewAxisTitle frame: (6.87716088769217@6.41166230692574 corner: 7.07160533213662@6.49499564025908).
        aNewAxisTitle hidden: false.
        aNewAxisTitle fill: Gfill none.
        aNewAxisTitle line: GLine transparent.
        aNewAxisTitle degrees: 0.0.
        aNewAxisTitle font: (GFont createUsing: [:aNewGFont |
          aNewGFont id: 'Helvetica'.
          aNewGFont color: 1.
          aNewGFont points: 7.0.
        ]).
        aNewAxisTitle margin: 0.097222222222222.
        aNewAxisTitle vmargin: 0.048611111111111.
        aNewAxisTitle alignment: 2.
        aNewAxisTitle locationAlignment: 'upper middle'.
        aNewAxisTitle text: (OrderedCollection new: 0).
        aNewAxisTitle fold: nil.
        aNewAxisTitle offset: 0.0@0.0.
        aNewAxisTitle capitalization: 1.
      ])!
      aNewDateTimeAxis minimum: (DateTime dateTimeArray: #( 1997 1 1 0 0 0.0))!
      aNewDateTimeAxis maximum: (DateTime dateTimeArray: #( 1998 12 31 0 0 0.0))!
      aNewDateTimeAxis grid: GLine transparent!
      aNewDateTimeAxis side: -1.0!
      aNewDateTimeAxis tickLength: 0.09!
      aNewDateTimeAxis tickLine: GLine transparent!
      aNewDateTimeAxis reverse: false!
      aNewDateTimeAxis spacing: 1!
      aNewDateTimeAxis drawLabels: true!
      aNewDateTimeAxis minorTickLength: 0.66667!
      aNewDateTimeAxis majorGridWidth: 1.0!
      aNewDateTimeAxis showMinorGrids: true!
      aNewDateTimeAxis timeStyle: 'hhmm24:at:'!
      aNewDateTimeAxis yearDigits: 1!
      aNewDateTimeAxis waterYears: false!
      aNewDateTimeAxis teenyTickLength: 0.33333!
  aNewChart at: 'bottom' location: (0.0@0.0 corner: 1.0@0.0)
    putAxis: aNewDateTimeAxis!

  Smalltalk at: #aNewLinearAxis put: LinearAxis new!

      aNewLinearAxis frame: (5.9743831099144@6.66513452914797 corner: 5.9743831099144@9.66513452914798)!
      aNewLinearAxis hidden: false!
      aNewLinearAxis font: (AxisFont createUsing: [:aNewAxisFont |
        aNewAxisFont id: 'Helvetica'.
        aNewAxisFont color: 1.
        aNewAxisFont points: 7.0.
        aNewAxisFont comma: ','.
        aNewAxisFont degrees: 0.0.
      ])!
      aNewLinearAxis title: (AxisTitle createUsing: [:aNewAxisTitle |
        aNewAxisTitle frame: (5.08098310464229@8.16513452914797 corner: 6.5665848621525@8.47069008470353).
        aNewAxisTitle hidden: false.
        aNewAxisTitle fill: Gfill none.
        aNewAxisTitle line: GLine transparent.
        aNewAxisTitle degrees: 90.0.
        aNewAxisTitle font: (GFont createUsing: [:aNewGFont |
          aNewGFont id: 'Helvetica'.
          aNewGFont color: 1.
          aNewGFont points: 7.0.
        ]).
        aNewAxisTitle margin: 0.097222222222222.
        aNewAxisTitle vmargin: 0.048611111111111.
        aNewAxisTitle alignment: 2.
        aNewAxisTitle locationAlignment: 'lower middle'.
        aNewAxisTitle text: ([:a |
          a add: ''.
          a add: 'PRECIPITATION, IN INCHES'.
          a] value: OrderedCollection new).
        aNewAxisTitle fold: nil.
        aNewAxisTitle offset: 0.0@0.0.
        aNewAxisTitle capitalization: 1.
      ])!
      aNewLinearAxis minimum: nil!
      aNewLinearAxis maximum: 24!
      aNewLinearAxis grid: GLine transparent!
      aNewLinearAxis side: 1.0!
      aNewLinearAxis tickLength: 0.06!
      aNewLinearAxis tickLine: GLine foreground!
      aNewLinearAxis reverse: false!
      aNewLinearAxis spacing: 1!
      aNewLinearAxis drawLabels: true!
      aNewLinearAxis minorTickLength: 0.5!
      aNewLinearAxis majorGridWidth: 1.0!
      aNewLinearAxis showMinorGrids: true!
      aNewLinearAxis labelOffset: 0!
      aNewLinearAxis ustep: nil!
      aNewLinearAxis first: nil!
      aNewLinearAxis ticks: nil!
      aNewLinearAxis decimals: nil!
      aNewLinearAxis multiplier: 1.0!
      aNewLinearAxis customScale: nil!
  aNewChart at: 'left' location: (0.0@0.0 corner: 0.0@1.0)
    putAxis: aNewLinearAxis!

  aNewChart legend: (Legend createUsing: [:aNewLegend |
    aNewLegend frame: (6.79893444638166@5.15789735924264 corner: 7.77137541196981@6.2884529147982).
    aNewLegend hidden: false.
    aNewLegend title: 'EXPLANATION'.
    aNewLegend font: (GFont createUsing: [:aNewGFont |
      aNewGFont id: 'Helvetica'.
      aNewGFont color: 1.
      aNewGFont points: 7.0.
    ]).
    aNewLegend fill: Gfill none.
    aNewLegend columns: 1.
    aNewLegend line: GLine transparent.
  ])!

    Smalltalk at: #aNewBarPlot put: BarPlot new!

      aNewBarPlot frame: nil!
      aNewBarPlot hidden: false!
      aNewBarPlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.storrs.precip.stats.98')) register !
      aNewBarPlot x: 'Date'!
      aNewBarPlot ys: (Array with: 'min.')!
      aNewBarPlot flipped: false!
      aNewBarPlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewBarPlot componentAt: 1 put: (BarSymbology createUsing: [:aNewBarSymbology |
        aNewBarSymbology label: (OrderedCollection with: 'min').
        aNewBarSymbology line: GLine foreground.
        aNewBarSymbology originLine: GLine transparent.
        aNewBarSymbology fill: Gfill solid.
        aNewBarSymbology origin: '0'.
        aNewBarSymbology hidden: false.
        aNewBarSymbology showValues: false.
        aNewBarSymbology width: 30.
        aNewBarSymbology relativeOffset: 0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewBarPlot!

    Smalltalk at: #aNewXYLinePlot put: XYLinePlot new!

      aNewXYLinePlot frame: nil!
      aNewXYLinePlot hidden: false!
      aNewXYLinePlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.storrs.precip.stats.98')) register !
      aNewXYLinePlot x: 'Date'!
      aNewXYLinePlot ys: (Array with: 'med.')!
      aNewXYLinePlot flipped: false!
      aNewXYLinePlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewXYLinePlot componentAt: 1 put: (LineSymbology createUsing: [:aNewLineSymbology |
        aNewLineSymbology label: (OrderedCollection with: 'med.').
        aNewLineSymbology line: (GLine createUsing: [:aNewGLine |
          aNewGLine type: 3.
          aNewGLine color: 1.
          aNewGLine width: 0.01.
        ]).
        aNewLineSymbology originLine: GLine transparent.
        aNewLineSymbology fill: Gfill none.
        aNewLineSymbology origin: nil.
        aNewLineSymbology hidden: false.
        aNewLineSymbology showValues: false.
        aNewLineSymbology symbol: (Gsymbol createUsing: [:aNewGsymbol |
          aNewGsymbol type: 'none'.
          aNewGsymbol size: 0.1.
          aNewGsymbol degrees: 0.0.
          aNewGsymbol line: (SymbolLine createUsing: [:aNewSymbolLine |
            aNewSymbolLine type: 1.
            aNewSymbolLine color: 1.
            aNewSymbolLine width: 0.006.
          ]).
          aNewGsymbol fill: (SymbolFill createUsing: [:aNewSymbolFill |
            aNewSymbolFill btype: 0.
            aNewSymbolFill bcolor: 1.
            aNewSymbolFill spacing: 1.0.
            aNewSymbolFill layers: (OrderedCollection new: 0).
          ]).
        ]).
        aNewLineSymbology connectMissing: false.
        aNewLineSymbology interpolation: 1.
        aNewLineSymbology density: 1.
        aNewLineSymbology direction: 1.
        aNewLineSymbology monotonic: false.
        aNewLineSymbology follow: false.
        aNewLineSymbology extension: 0.0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewXYLinePlot!

    Smalltalk at: #aNewXYLinePlot put: XYLinePlot new!

      aNewXYLinePlot frame: nil!
      aNewXYLinePlot hidden: false!
      aNewXYLinePlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.storrs.precip.stats.98')) register !
      aNewXYLinePlot x: 'Date'!
      aNewXYLinePlot ys: (Array with: 'actual')!
      aNewXYLinePlot flipped: false!
      aNewXYLinePlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewXYLinePlot componentAt: 1 put: (LineSymbology createUsing: [:aNewLineSymbology |
        aNewLineSymbology label: (OrderedCollection with: 'actual').
        aNewLineSymbology line: (GLine createUsing: [:aNewGLine |
          aNewGLine type: 1.
          aNewGLine color: 1.
          aNewGLine width: 0.01.
        ]).
        aNewLineSymbology originLine: GLine transparent.
        aNewLineSymbology fill: Gfill none.
        aNewLineSymbology origin: nil.
        aNewLineSymbology hidden: false.
        aNewLineSymbology showValues: false.
        aNewLineSymbology symbol: (Gsymbol createUsing: [:aNewGsymbol |
          aNewGsymbol type: 'none'.
          aNewGsymbol size: 0.1.
          aNewGsymbol degrees: 0.0.
          aNewGsymbol line: (SymbolLine createUsing: [:aNewSymbolLine |
            aNewSymbolLine type: 1.
            aNewSymbolLine color: 1.
            aNewSymbolLine width: 0.006.
          ]).
          aNewGsymbol fill: (SymbolFill createUsing: [:aNewSymbolFill |
            aNewSymbolFill btype: 0.
            aNewSymbolFill bcolor: 1.
            aNewSymbolFill spacing: 1.0.
            aNewSymbolFill layers: (OrderedCollection new: 0).
          ]).
        ]).
        aNewLineSymbology connectMissing: false.
        aNewLineSymbology interpolation: 1.
        aNewLineSymbology density: 1.
        aNewLineSymbology direction: 1.
        aNewLineSymbology monotonic: false.
        aNewLineSymbology follow: false.
        aNewLineSymbology extension: 0.0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewXYLinePlot!

    Smalltalk at: #aNewBarPlot put: BarPlot new!

      aNewBarPlot frame: nil!
      aNewBarPlot hidden: false!
      aNewBarPlot data: (
        (SpaceTable new) yourself;
          start: 0;
          rows: nil;
          labels: 1;
          skip: 0;
          missing: '';
          types: 'd';
          name:  (GKSFileStream baseDirectory, 'precip/eom.storrs.precip.stats.98')) register !
      aNewBarPlot x: 'Date'!
      aNewBarPlot ys: (Array with: 'max.')!
      aNewBarPlot flipped: false!
      aNewBarPlot font: (GFont createUsing: [:aNewGFont |
        aNewGFont id: 'Helvetica'.
        aNewGFont color: 1.
        aNewGFont points: 7.0.
      ])!
      aNewBarPlot componentAt: 1 put: (BarSymbology createUsing: [:aNewBarSymbology |
        aNewBarSymbology label: (OrderedCollection with: 'max.').
        aNewBarSymbology line: GLine foreground.
        aNewBarSymbology originLine: GLine transparent.
        aNewBarSymbology fill: Gfill solid.
        aNewBarSymbology origin: '30'.
        aNewBarSymbology hidden: false.
        aNewBarSymbology showValues: false.
        aNewBarSymbology width: 30.
        aNewBarSymbology relativeOffset: 0.
      ])!

    aNewChart withXAxis: 'bottom' withYAxis: 'left'
    addPlot: aNewBarPlot!

  aNewChart raiseAxisKey: 'bottom'!

  aNewChart raiseAxisKey: 'left'!
Gws latest add: aNewChart!


Smalltalk at: #aNewAnnotation put: Annotation new!

  aNewAnnotation frame: (3.36244365934814@4.88598654708519 corner: 5.17767504047375@5.05265321375185)!
  aNewAnnotation hidden: false!
  aNewAnnotation fill: Gfill none!
  aNewAnnotation line: GLine transparent!
  aNewAnnotation degrees: 0.0!
  aNewAnnotation font: (GFont createUsing: [:aNewGFont |
    aNewGFont id: 'Helvetica'.
    aNewGFont color: 1.
    aNewGFont points: 12.0.
  ])!
  aNewAnnotation margin: 0!
  aNewAnnotation vmargin: 0!
  aNewAnnotation alignment: 2!
  aNewAnnotation locationAlignment: 'lower left'!
  aNewAnnotation text: (OrderedCollection with: 'BRIDGEPORT WSO AP')!
  aNewAnnotation fold: 1.8776667436417!Gws latest add: aNewAnnotation!


Smalltalk at: #aNewAnnotation put: Annotation new!

  aNewAnnotation frame: (6.77158047014049@4.80577354260089 corner: 7.50310656102588@4.97244020926755)!
  aNewAnnotation hidden: false!
  aNewAnnotation fill: Gfill none!
  aNewAnnotation line: GLine transparent!
  aNewAnnotation degrees: 0.0!
  aNewAnnotation font: (GFont createUsing: [:aNewGFont |
    aNewGFont id: 'Helvetica'.
    aNewGFont color: 1.
    aNewGFont points: 12.0.
  ])!
  aNewAnnotation margin: 0!
  aNewAnnotation vmargin: 0!
  aNewAnnotation alignment: 2!
  aNewAnnotation locationAlignment: 'lower left'!
  aNewAnnotation text: (OrderedCollection with: 'GROTON')!
  aNewAnnotation fold: nil!Gws latest add: aNewAnnotation!


Smalltalk at: #aNewAnnotation put: Annotation new!

  aNewAnnotation frame: (0.859585125850779@9.92853139013453 corner: 2.11913024208162@10.09519805680119)!
  aNewAnnotation hidden: false!
  aNewAnnotation fill: Gfill none!
  aNewAnnotation line: GLine transparent!
  aNewAnnotation degrees: 0.0!
  aNewAnnotation font: (GFont createUsing: [:aNewGFont |
    aNewGFont id: 'Helvetica'.
    aNewGFont color: 1.
    aNewGFont points: 12.0.
  ])!
  aNewAnnotation margin: 0!
  aNewAnnotation vmargin: 0!
  aNewAnnotation alignment: 2!
  aNewAnnotation locationAlignment: 'lower left'!
  aNewAnnotation text: (OrderedCollection with: 'NORFOLK 2 SW')!
  aNewAnnotation fold: nil!Gws latest add: aNewAnnotation!


Smalltalk at: #aNewAnnotation put: Annotation new!

  aNewAnnotation frame: (0.910313793378216@4.76121076233183 corner: 2.08652245223359@4.92787742899849)!
  aNewAnnotation hidden: false!
  aNewAnnotation fill: Gfill none!
  aNewAnnotation line: GLine transparent!
  aNewAnnotation degrees: 0.0!
  aNewAnnotation font: (GFont createUsing: [:aNewGFont |
    aNewGFont id: 'Helvetica'.
    aNewGFont color: 1.
    aNewGFont points: 12.0.
  ])!
  aNewAnnotation margin: 0!
  aNewAnnotation vmargin: 0!
  aNewAnnotation alignment: 2!
  aNewAnnotation locationAlignment: 'lower left'!
  aNewAnnotation text: (OrderedCollection with: 'PUTNAM LAKE')!
  aNewAnnotation fold: nil!Gws latest add: aNewAnnotation!


Smalltalk at: #aNewAnnotation put: Annotation new!

  aNewAnnotation frame: (6.79932695903948@9.92359865470852 corner: 7.49385184639713@10.09026532137518)!
  aNewAnnotation hidden: false!
  aNewAnnotation fill: Gfill none!
  aNewAnnotation line: GLine transparent!
  aNewAnnotation degrees: 0.0!
  aNewAnnotation font: (GFont createUsing: [:aNewGFont |
    aNewGFont id: 'Helvetica'.
    aNewGFont color: 1.
    aNewGFont points: 12.0.
  ])!
  aNewAnnotation margin: 0!
  aNewAnnotation vmargin: 0!
  aNewAnnotation alignment: 2!
  aNewAnnotation locationAlignment: 'lower left'!
  aNewAnnotation text: (OrderedCollection with: 'STORRS')!
  aNewAnnotation fold: nil!Gws latest add: aNewAnnotation!


Argv notNil ifTrue: [Gws latest processUnixArgs: Argv]!