~ubuntu-branches/ubuntu/saucy/lazarus/saucy

« back to all changes in this revision

Viewing changes to components/tachart/demo/axis/main.lfm

  • Committer: Package Import Robot
  • Author(s): Paul Gevers, Abou Al Montacir, Bart Martens, Paul Gevers
  • Date: 2013-06-08 14:12:17 UTC
  • mfrom: (1.1.9)
  • Revision ID: package-import@ubuntu.com-20130608141217-7k0cy9id8ifcnutc
Tags: 1.0.8+dfsg-1
[ Abou Al Montacir ]
* New upstream major release and multiple maintenace release offering many
  fixes and new features marking a new milestone for the Lazarus development
  and its stability level.
  - The detailed list of changes can be found here:
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_release_notes
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_fixes_branch
* LCL changes:
  - LCL is now a normal package.
      + Platform independent parts of the LCL are now in the package LCLBase
      + LCL is automatically recompiled when switching the target platform,
        unless pre-compiled binaries for this target are already installed.
      + No impact on existing projects.
      + Linker options needed by LCL are no more added to projects that do
        not use the LCL package.
  - Minor changes in LCL basic classes behaviour
      + TCustomForm.Create raises an exception if a form resource is not
        found.
      + TNotebook and TPage: a new implementation of these classes was added.
      + TDBNavigator: It is now possible to have focusable buttons by setting
        Options = [navFocusableButtons] and TabStop = True, useful for
        accessibility and for devices with neither mouse nor touch screen.
      + Names of TControlBorderSpacing.GetSideSpace and GetSpace were swapped
        and are now consistent. GetSideSpace = Around + GetSpace.
      + TForm.WindowState=wsFullscreen was added
      + TCanvas.TextFitInfo was added to calculate how many characters will
        fit into a specified Width. Useful for word-wrapping calculations.
      + TControl.GetColorResolvingParent and
        TControl.GetRGBColorResolvingParent were added, simplifying the work
        to obtain the final color of the control while resolving clDefault
        and the ParentColor.
      + LCLIntf.GetTextExtentExPoint now has a good default implementation
        which works in any platform not providing a specific implementation.
        However, Widgetset specific implementation is better, when available.
      + TTabControl was reorganized. Now it has the correct class hierarchy
        and inherits from TCustomTabControl as it should.
  - New unit in the LCL:
      + lazdialogs.pas: adds non-native versions of various native dialogs,
        for example TLazOpenDialog, TLazSaveDialog, TLazSelectDirectoryDialog.
        It is used by widgetsets which either do not have a native dialog, or
        do not wish to use it because it is limited. These dialogs can also be
        used by user applications directly.
      + lazdeviceapis.pas: offers an interface to more hardware devices such
        as the accelerometer, GPS, etc. See LazDeviceAPIs
      + lazcanvas.pas: provides a TFPImageCanvas descendent implementing
        drawing in a LCL-compatible way, but 100% in Pascal.
      + lazregions.pas. LazRegions is a wholly Pascal implementation of
        regions for canvas clipping, event clipping, finding in which control
        of a region tree one an event should reach, for drawing polygons, etc.
      + customdrawncontrols.pas, customdrawndrawers.pas,
        customdrawn_common.pas, customdrawn_android.pas and
        customdrawn_winxp.pas: are the Lazarus Custom Drawn Controls -controls
        which imitate the standard LCL ones, but with the difference that they
        are non-native and support skinning.
  - New APIs added to the LCL to improve support of accessibility software
    such as screen readers.
* IDE changes:
  - Many improvments.
  - The detailed list of changes can be found here:
    http://wiki.lazarus.freepascal.org/New_IDE_features_since#v1.0_.282012-08-29.29
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_release_notes#IDE_Changes
* Debugger / Editor changes:
  - Added pascal sources and breakpoints to the disassembler
  - Added threads dialog.
* Components changes:
  - TAChart: many fixes and new features
  - CodeTool: support Delphi style generics and new syntax extensions.
  - AggPas: removed to honor free licencing. (Closes: Bug#708695)
[Bart Martens]
* New debian/watch file fixing issues with upstream RC release.
[Abou Al Montacir]
* Avoid changing files in .pc hidden directory, these are used by quilt for
  internal purpose and could lead to surprises during build.
[Paul Gevers]
* Updated get-orig-source target and it compinion script orig-tar.sh so that they
  repack the source file, allowing bug 708695 to be fixed.

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
1
object Form1: TForm1
2
2
  Left = 343
3
 
  Height = 333
 
3
  Height = 430
4
4
  Top = 184
5
5
  Width = 533
6
6
  Caption = 'TAChart axis demo'
7
 
  ClientHeight = 333
 
7
  ClientHeight = 430
8
8
  ClientWidth = 533
9
9
  OnCreate = FormCreate
10
10
  Position = poScreenCenter
11
11
  LCLVersion = '0.9.31'
12
12
  object PageControl1: TPageControl
13
13
    Left = 0
14
 
    Height = 333
 
14
    Height = 430
15
15
    Top = 0
16
16
    Width = 533
17
 
    ActivePage = lsLinear
 
17
    ActivePage = tsCustomMarks
18
18
    Align = alClient
19
19
    TabIndex = 0
20
20
    TabOrder = 0
21
 
    object lsLinear: TTabSheet
22
 
      Caption = 'Linear transform'
23
 
      ClientHeight = 307
24
 
      ClientWidth = 525
25
 
      object ChartT: TChart
26
 
        Left = 0
27
 
        Height = 278
28
 
        Top = 0
29
 
        Width = 525
30
 
        AxisList = <        
31
 
          item
32
 
            Grid.Visible = False
33
 
            Marks.LabelFont.Color = clRed
34
 
            Marks.AtDataOnly = True
35
 
            TickColor = clRed
36
 
            Title.LabelFont.Color = clRed
37
 
            Title.LabelFont.Orientation = 900
38
 
            Title.Visible = True
39
 
            Title.Caption = 'Summer temperature, °C'
40
 
            Transformations = catTAuto
41
 
          end        
42
 
          item
43
 
            Alignment = calBottom
44
 
            Title.Visible = True
45
 
            Title.Caption = 'Year'
46
 
          end        
47
 
          item
48
 
            Alignment = calRight
49
 
            Grid.Visible = False
50
 
            Marks.Distance = 4
51
 
            Marks.LabelFont.Color = clBlue
52
 
            Marks.AtDataOnly = True
53
 
            TickColor = clBlue
54
 
            Title.LabelFont.Color = clBlue
55
 
            Title.LabelFont.Orientation = 900
56
 
            Title.Visible = True
57
 
            Title.Caption = 'Winter temperature, °F'
58
 
            Transformations = catT
59
 
          end>
60
 
        Foot.Brush.Color = clBtnFace
61
 
        Foot.Font.Color = clBlue
62
 
        Frame.Visible = False
63
 
        Title.Brush.Color = clBtnFace
64
 
        Title.Font.Color = clBlue
65
 
        Title.Text.Strings = (
66
 
          'TAChart'
67
 
        )
68
 
        Align = alClient
69
 
        ParentColor = False
70
 
        object ChartTSummer: TLineSeries
71
 
          AxisIndexY = 0
72
 
          LinePen.Color = clRed
73
 
          LinePen.Width = 2
74
 
          Source = rcsTSummer
75
 
        end
76
 
        object ChartTWinterLine: TLineSeries
77
 
          AxisIndexY = 2
78
 
          LinePen.Color = clBlue
79
 
          LinePen.Width = 2
80
 
          Source = rcsTWinter
81
 
        end
82
 
        object ChartTWinterBar: TBarSeries
83
 
          AxisIndexY = 2
84
 
          BarBrush.Color = clBlue
85
 
          BarBrush.Style = bsDiagCross
86
 
          Source = rcsTWinter
87
 
        end
88
 
      end
89
 
      object pnlAutoControls: TPanel
90
 
        Left = 0
91
 
        Height = 29
92
 
        Top = 278
93
 
        Width = 525
94
 
        Align = alBottom
95
 
        ClientHeight = 29
96
 
        ClientWidth = 525
97
 
        TabOrder = 1
98
 
        object cbAuto: TCheckBox
99
 
          Left = 4
100
 
          Height = 17
101
 
          Top = 5
102
 
          Width = 70
103
 
          Caption = 'Auto scale'
104
 
          OnChange = cbAutoChange
105
 
          TabOrder = 0
106
 
        end
107
 
      end
108
 
    end
109
 
    object tsLog: TTabSheet
110
 
      Caption = 'Logarithm transform'
111
 
      ClientHeight = 307
112
 
      ClientWidth = 525
113
 
      object ChartLog: TChart
114
 
        Left = 0
115
 
        Height = 278
116
 
        Top = 0
117
 
        Width = 525
118
 
        AxisList = <        
119
 
          item
120
 
            Title.LabelFont.Orientation = 900
121
 
            Title.Visible = True
122
 
            Title.Caption = 'Left'
123
 
            Transformations = catLog
124
 
          end        
125
 
          item
126
 
            Alignment = calBottom
127
 
            Title.Distance = 0
128
 
            Title.Visible = True
129
 
            Title.Caption = 'Bottom'
130
 
          end        
131
 
          item
132
 
            Alignment = calRight
133
 
            Grid.Visible = False
134
 
            Title.LabelFont.Orientation = 900
135
 
            Title.Visible = True
136
 
            Title.Caption = 'Right 1'
137
 
          end        
138
 
          item
139
 
            Alignment = calTop
140
 
            Inverted = True
141
 
            Title.Caption = 'Top'
142
 
          end>
143
 
        Foot.Brush.Color = clBtnFace
144
 
        Foot.Font.Color = clBlue
145
 
        Title.Brush.Color = clBtnFace
146
 
        Title.Font.Color = clBlue
147
 
        Title.Text.Strings = (
148
 
          'TAChart'
149
 
        )
150
 
        Align = alClient
151
 
        ParentColor = False
152
 
        object clsLogPoints: TLineSeries
153
 
          AxisIndexY = 0
154
 
          LineType = ltNone
155
 
          Pointer.Brush.Color = clMaroon
156
 
          ShowPoints = True
157
 
        end
158
 
        object cfsLog: TFuncSeries
159
 
          Extent.XMin = -1
160
 
          Extent.XMax = 3
161
 
          Extent.UseXMin = True
162
 
          Extent.UseXMax = True
163
 
          AxisIndexY = 0
164
 
          OnCalculate = ChartLogFuncSeries1Calculate
165
 
        end
166
 
      end
167
 
      object pnlLogControls: TPanel
168
 
        Left = 0
169
 
        Height = 29
170
 
        Top = 278
171
 
        Width = 525
172
 
        Align = alBottom
173
 
        ClientHeight = 29
174
 
        ClientWidth = 525
175
 
        TabOrder = 1
176
 
        object cbLog: TCheckBox
177
 
          Left = 4
178
 
          Height = 17
179
 
          Top = 5
180
 
          Width = 64
181
 
          Caption = 'Log scale'
182
 
          Checked = True
183
 
          OnChange = cbLogChange
184
 
          State = cbChecked
185
 
          TabOrder = 0
186
 
        end
187
 
      end
188
 
    end
 
21
    Options = [nboKeyboardTabSwitch]
189
22
    object tsCustomMarks: TTabSheet
190
23
      Caption = 'Customized marks'
191
 
      ClientHeight = 307
 
24
      ClientHeight = 404
192
25
      ClientWidth = 525
193
26
      object ChartCustomMarks: TChart
194
27
        Left = 0
195
 
        Height = 307
 
28
        Height = 404
196
29
        Top = 0
197
30
        Width = 525
198
31
        AxisList = <        
204
37
            Marks.LabelBrush.Style = bsSolid
205
38
            Marks.Source = lcsMarks
206
39
            Marks.Style = smsCustom
 
40
            Minors = <>
207
41
            Title.LabelFont.Orientation = 900
208
42
          end        
209
43
          item
 
44
            Grid.Visible = False
 
45
            TickLength = 0
210
46
            Alignment = calBottom
211
 
            Grid.Visible = False
 
47
            AxisPen.Color = clRed
 
48
            AxisPen.Style = psDot
 
49
            AxisPen.Width = 5
 
50
            AxisPen.Visible = True
212
51
            Marks.LabelFont.Height = -13
213
52
            Marks.LabelFont.Style = [fsBold]
214
53
            Marks.Format = '%2:s'
215
54
            Marks.Source = lcsMarks
216
55
            Marks.Style = smsLabel
217
 
            TickLength = 0
218
 
            OnMarkToText = TChartAxisList1MarkToText
 
56
            Minors = <>
 
57
            OnMarkToText = ChartCustomMarksAxisList1MarkToText
219
58
          end>
220
59
        Foot.Brush.Color = clBtnFace
221
60
        Foot.Font.Color = clBlue
 
61
        MarginsExternal.Left = 0
222
62
        Title.Brush.Color = clBtnFace
223
63
        Title.Font.Color = clBlue
224
64
        Title.Text.Strings = (
238
78
    end
239
79
    object tsAxisGroup: TTabSheet
240
80
      Caption = 'Axis groups'
241
 
      ClientHeight = 307
 
81
      ClientHeight = 404
242
82
      ClientWidth = 525
243
83
      object ChartAxisGroup: TChart
244
84
        Left = 0
245
 
        Height = 307
 
85
        Height = 404
246
86
        Top = 0
247
87
        Width = 525
248
88
        AxisList = <        
249
89
          item
250
90
            Grid.Visible = False
 
91
            TickLength = 0
251
92
            Group = 2
252
 
            TickLength = 0
 
93
            Minors = <>
253
94
            Title.LabelFont.Orientation = 900
254
95
          end        
255
96
          item
256
97
            Alignment = calBottom
 
98
            Minors = <>
257
99
          end>
258
100
        Foot.Brush.Color = clBtnFace
259
101
        Foot.Font.Color = clBlue
268
110
    end
269
111
    object tsSubmarks: TTabSheet
270
112
      Caption = 'Submarks'
271
 
      ClientHeight = 307
 
113
      ClientHeight = 404
272
114
      ClientWidth = 525
273
115
      object ChartSubmarks: TChart
274
116
        Left = 0
275
 
        Height = 307
 
117
        Height = 404
276
118
        Top = 0
277
119
        Width = 525
278
120
        AxisList = <        
279
121
          item
 
122
            TickLength = 6
280
123
            Group = 1
281
124
            Marks.Source = udcsMain
282
 
            TickLength = 6
 
125
            Minors = <>
283
126
            Title.LabelFont.Orientation = 900
284
127
          end        
285
128
          item
286
 
            Alignment = calBottom
287
 
            Group = 2
288
 
            Marks.Source = udcsMain
 
129
            Intervals.MaxLength = 100
 
130
            Intervals.MinLength = 30
 
131
            Intervals.NiceSteps = '0.2|0.25|0.5|1.0'
289
132
            TickLength = 6
 
133
            Alignment = calBottom
 
134
            Group = 2
 
135
            Marks.LabelFont.Style = [fsBold]
 
136
            Minors = <            
 
137
              item
 
138
                Grid.Color = clGray
 
139
                Grid.Cosmetic = False
 
140
                Intervals.Count = 10
 
141
                Intervals.MinLength = 5
 
142
                Intervals.Options = [aipUseCount, aipUseMinLength]
 
143
                Marks.Distance = 4
 
144
                Marks.LabelFont.Height = -9
 
145
                Marks.LabelFont.Orientation = 900
 
146
                Marks.Format = '%0:.9g'
 
147
                Marks.Style = smsValue
 
148
              end>
290
149
          end        
291
150
          item
292
151
            Grid.Visible = False
 
152
            TickLength = 2
293
153
            Group = 1
294
154
            Marks.Source = udcsSub
295
155
            Marks.Style = smsNone
296
 
            TickLength = 2
297
 
          end        
298
 
          item
299
 
            Alignment = calBottom
300
 
            Grid.Visible = False
301
 
            Group = 2
302
 
            Marks.Source = udcsSub
303
 
            Marks.Style = smsNone
304
 
            TickLength = 2
 
156
            Minors = <>
305
157
          end>
 
158
        BackColor = clWhite
306
159
        Foot.Brush.Color = clBtnFace
307
160
        Foot.Font.Color = clBlue
308
161
        Title.Brush.Color = clBtnFace
319
172
    end
320
173
    object tsDateTime: TTabSheet
321
174
      Caption = 'Date and time'
322
 
      ClientHeight = 307
 
175
      ClientHeight = 404
323
176
      ClientWidth = 525
324
177
      object ChartDateTime: TChart
325
178
        Left = 0
326
 
        Height = 307
 
179
        Height = 404
327
180
        Top = 0
328
181
        Width = 525
329
182
        AxisList = <        
330
183
          item
 
184
            Minors = <>
331
185
            Title.LabelFont.Orientation = 900
332
186
          end        
333
187
          item
336
190
            Marks.OverlapPolicy = opHideNeighbour
337
191
            Marks.Source = DateTimeIntervalChartSource1
338
192
            Marks.Style = smsLabel
 
193
            Minors = <>
339
194
          end>
340
195
        Foot.Brush.Color = clBtnFace
341
196
        Foot.Font.Color = clBlue
354
209
        end
355
210
      end
356
211
    end
 
212
    object tsIntervals: TTabSheet
 
213
      Caption = 'Intervals'
 
214
      ClientHeight = 404
 
215
      ClientWidth = 525
 
216
      object ChartIntervals: TChart
 
217
        Left = 0
 
218
        Height = 404
 
219
        Top = 0
 
220
        Width = 525
 
221
        AxisList = <        
 
222
          item
 
223
            Grid.Visible = False
 
224
            Intervals.NiceSteps = '0.25|1.0'
 
225
            TickColor = clMaroon
 
226
            TickLength = 3
 
227
            AxisPen.Color = clMaroon
 
228
            AxisPen.Visible = True
 
229
            Marks.LabelFont.Color = clMaroon
 
230
            Minors = <>
 
231
            Title.LabelFont.Color = clMaroon
 
232
            Title.LabelFont.Orientation = 900
 
233
            Title.Visible = True
 
234
            Title.Caption = 'NiceSteps = 0.25'
 
235
          end        
 
236
          item
 
237
            Grid.Visible = False
 
238
            Intervals.MinLength = 20
 
239
            Intervals.NiceSteps = '0.3|0.6'
 
240
            Alignment = calBottom
 
241
            AxisPen.Visible = True
 
242
            Marks.Format = '%0:.6g'
 
243
            Marks.Range.Max = 0.6
 
244
            Marks.Range.Min = -0.3
 
245
            Marks.Range.UseMax = True
 
246
            Marks.Range.UseMin = True
 
247
            Marks.Style = smsCustom
 
248
            Minors = <>
 
249
            Title.Visible = True
 
250
            Title.Caption = 'Marks.Range = -0.3 .. 0.6'
 
251
          end        
 
252
          item
 
253
            Grid.Visible = False
 
254
            Intervals.Count = 10
 
255
            Intervals.MinLength = 4
 
256
            Intervals.Options = [aipUseCount, aipUseMaxLength, aipUseMinLength, aipUseNiceSteps]
 
257
            TickColor = clGreen
 
258
            TickLength = 3
 
259
            AxisPen.Color = clGreen
 
260
            AxisPen.Visible = True
 
261
            Margin = 8
 
262
            Marks.LabelFont.Color = clGreen
 
263
            Minors = <>
 
264
            Title.LabelFont.Color = clGreen
 
265
            Title.LabelFont.Orientation = 900
 
266
            Title.Visible = True
 
267
            Title.Caption = 'MinLength = 4'
 
268
          end        
 
269
          item
 
270
            Grid.Visible = False
 
271
            Intervals.MaxLength = 200
 
272
            Intervals.Options = [aipUseCount, aipUseMaxLength, aipUseMinLength, aipUseNiceSteps]
 
273
            TickColor = clNavy
 
274
            TickLength = 3
 
275
            AxisPen.Color = clNavy
 
276
            AxisPen.Visible = True
 
277
            Margin = 8
 
278
            Marks.LabelFont.Color = clNavy
 
279
            Minors = <>
 
280
            Title.LabelFont.Color = clNavy
 
281
            Title.LabelFont.Orientation = 900
 
282
            Title.Visible = True
 
283
            Title.Caption = 'MaxLength = 200'
 
284
          end        
 
285
          item
 
286
            Grid.Visible = False
 
287
            Intervals.Options = [aipUseMaxLength, aipUseMinLength]
 
288
            TickLength = 3
 
289
            AxisPen.Visible = True
 
290
            Margin = 8
 
291
            Marks.Format = '%0:.4g'
 
292
            Marks.Style = smsCustom
 
293
            Minors = <>
 
294
            Title.LabelFont.Orientation = 900
 
295
            Title.Visible = True
 
296
            Title.Caption = 'No nice steps'
 
297
          end>
 
298
        BackColor = clSilver
 
299
        Foot.Brush.Color = clBtnFace
 
300
        Foot.Font.Color = clBlue
 
301
        Frame.Visible = False
 
302
        Title.Brush.Color = clBtnFace
 
303
        Title.Font.Color = clBlue
 
304
        Title.Text.Strings = (
 
305
          'TAChart'
 
306
        )
 
307
        Align = alClient
 
308
        ParentColor = False
 
309
      end
 
310
    end
357
311
  end
358
312
  object lcsMarks: TListChartSource
359
313
    DataPoints.Strings = (
367
321
    left = 216
368
322
    top = 164
369
323
  end
370
 
  object catLog: TChartAxisTransformations
371
 
    left = 216
372
 
    top = 60
373
 
    object ChartAxisTransformations1LinearAxisTransform2: TLinearAxisTransform
374
 
      Scale = 2
375
 
    end
376
 
    object ChartAxisTransformations1LogarithmAxisTransform1: TLogarithmAxisTransform
377
 
      Base = 10
378
 
    end
379
 
  end
380
 
  object catT: TChartAxisTransformations
381
 
    left = 352
382
 
    top = 60
383
 
    object catTFahrToCel: TLinearAxisTransform
384
 
      Offset = -17.777777777
385
 
      Scale = 0.5555555555
386
 
    end
387
 
    object catTAutoScaleAxisTransform1: TAutoScaleAxisTransform
388
 
      Enabled = False
389
 
    end
390
 
  end
391
 
  object rcsTSummer: TRandomChartSource
392
 
    PointsNumber = 20
393
 
    RandSeed = 114536250
394
 
    XMax = 2009
395
 
    XMin = 1990
396
 
    YMax = 25
397
 
    YMin = 0
398
 
    left = 87
399
 
    top = 106
400
 
  end
401
 
  object rcsTWinter: TRandomChartSource
402
 
    PointsNumber = 20
403
 
    RandSeed = 23453245
404
 
    XMax = 2009
405
 
    XMin = 1990
406
 
    YMax = 20
407
 
    YMin = -15
408
 
    left = 87
409
 
    top = 156
410
 
  end
411
 
  object catTAuto: TChartAxisTransformations
412
 
    left = 352
413
 
    top = 112
414
 
    object catTAutoAutoScaleAxisTransform1: TAutoScaleAxisTransform
415
 
      Enabled = False
416
 
    end
417
 
  end
418
324
  object rcsDates: TRandomChartSource
419
325
    RandSeed = 1079653020
420
326
    XMax = 0
421
327
    XMin = 0
422
328
    YMax = 50
423
329
    YMin = 5
424
 
    left = 87
 
330
    left = 216
425
331
    top = 216
426
332
  end
427
333
  object DateTimeIntervalChartSource1: TDateTimeIntervalChartSource
 
334
    Params.Count = 10
 
335
    Params.MaxLength = 150
 
336
    Params.MinLength = 20
 
337
    Params.Options = [aipUseCount, aipUseMaxLength, aipUseMinLength, aipUseNiceSteps]
428
338
    left = 352
429
339
    top = 232
430
340
  end
433
343
    top = 232
434
344
    object ChartToolset1ZoomIn: TZoomClickTool
435
345
      Shift = [ssLeft]
436
 
      FixedPoint = True
437
346
      ZoomFactor = 4
438
347
      ZoomRatio = 0.25
439
348
    end
440
349
    object ChartToolset1ZoomOut: TZoomClickTool
441
350
      Shift = [ssRight]
442
 
      FixedPoint = True
443
351
      ZoomFactor = 0.25
444
352
      ZoomRatio = 4
445
353
    end
462
370
    left = 440
463
371
    top = 172
464
372
  end
 
373
  object csStripes: TChartStyles
 
374
    Styles = <    
 
375
      item
 
376
        Brush.Color = 16631498
 
377
        UsePen = False
 
378
      end    
 
379
      item
 
380
        Brush.Color = 12319483
 
381
        UsePen = False
 
382
      end>
 
383
    left = 352
 
384
    top = 176
 
385
  end
465
386
end