Commit `bc8007e`

Nick committed on Oct 10, 2020

Make routine 0 accessible

commit bc8007e2dae8850267c0a6e2fd1ea71ed9c957fd parent 7cfb437

3 changed files +440−451

ModifiedhUGEDriver +1−1

`@@ -1 +1 @@`
1	`Subproject commit 03c9a345c48a369652975769cffa5dae25d844b4`	1	`Subproject commit a193a22b9314aa53fdca105eccf3e4fedff0cb98`

Modifiedtracker.lfm +437−442

 object frmTracker: TfrmTracker
-  Left = 255
+  Left = 697
-  Height = 1125
+  Height = 643
-  Top = 114
+  Top = 216
-  Width = 2220
+  Width = 1269
   AllowDropFiles = True
   Caption = 'hUGETracker'
-  ClientHeight = 1091
+  ClientHeight = 623
-  ClientWidth = 2220
+  ClientWidth = 1269
-  DesignTimePPI = 168
   KeyPreview = True
   Menu = MainMenu1
   OnCloseQuery = FormCloseQuery
   LCLVersion = '2.0.9.0'
   object TreeView1: TTreeView
     Left = 0
-    Height = 895
+    Height = 511
-    Top = 153
+    Top = 89
-    Width = 338
+    Width = 193
     Align = alLeft
     ParentFont = False
     ReadOnly = True
     }
   end
   object Splitter1: TSplitter
-    Left = 338
+    Left = 193
-    Height = 895
+    Height = 511
-    Top = 153
+    Top = 89
-    Width = 9
+    Width = 5
   end
   object Panel1: TPanel
-    Left = 347
+    Left = 198
-    Height = 895
+    Height = 511
-    Top = 153
+    Top = 89
-    Width = 1873
+    Width = 1071
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 895
+    ClientHeight = 511
-    ClientWidth = 1873
+    ClientWidth = 1071
     ParentFont = False
     TabOrder = 2
     object PageControl1: TPageControl
       Left = 0
-      Height = 895
+      Height = 511
       Top = 0
-      Width = 1873
+      Width = 1071
-      ActivePage = InstrumentTabSheet
+      ActivePage = RoutinesTabSheet
       Align = alClient
       ParentFont = False
-      TabIndex = 2
+      TabIndex = 5
       TabOrder = 0
       object GeneralTabSheet: TTabSheet
         Caption = 'General'
         ClientWidth = 1064
         ParentFont = False
         object SongInformationGroupbox: TGroupBox
-          Left = 14
+          Left = 8
-          Height = 238
+          Height = 136
-          Top = 14
+          Top = 8
-          Width = 534
+          Width = 305
           Caption = 'Song information'
-          ClientHeight = 203
+          ClientHeight = 116
-          ClientWidth = 530
+          ClientWidth = 301
           ParentFont = False
           TabOrder = 0
           object Label15: TLabel
-            Left = 14
+            Left = 8
             Height = 15
-            Top = 28
+            Top = 16
             Width = 27
             Caption = 'Song'
             ParentColor = False
             ParentFont = False
           end
           object Label16: TLabel
-            Left = 12
+            Left = 7
             Height = 15
-            Top = 84
+            Top = 48
             Width = 28
             Caption = 'Artist'
             ParentColor = False
             ParentFont = False
           end
           object SongEdit: TEdit
-            Left = 98
+            Left = 56
             Height = 23
             Hint = 'The name of your composition'
-            Top = 14
+            Top = 8
-            Width = 378
+            Width = 216
             OnChange = SongEditChange
             ParentFont = False
             TabOrder = 0
           end
           object ArtistEdit: TEdit
-            Left = 98
+            Left = 56
             Height = 23
             Hint = 'Your name or handle'
-            Top = 70
+            Top = 40
-            Width = 378
+            Width = 216
             OnChange = ArtistEditChange
             ParentFont = False
             TabOrder = 1
           end
           object Label21: TLabel
-            Left = 14
+            Left = 8
             Height = 15
-            Top = 136
+            Top = 78
             Width = 114
             Caption = 'Tempo (ticks per row)'
             ParentColor = False
             ParentFont = False
           end
           object TicksPerRowSpinEdit: TSpinEdit
-            Left = 233
+            Left = 133
             Height = 23
             Hint = 'How many ticks should happen before the row changes. Higher means slower'
-            Top = 128
+            Top = 73
-            Width = 88
+            Width = 50
             MaxValue = 20
             MinValue = 1
             OnChange = TicksPerRowSpinEditChange
           TabOrder = 0
           object HeaderControl1: THeaderControl
             Left = 1
-            Height = 52
+            Height = 30
             Hint = 'Left click to mute, right click to solo'
             Top = 1
             Width = 838
             Sections = <
               item
                 Alignment = taLeftJustify
-                Width = 56
+                Width = 32
                 Visible = True
               end
               item
                 Alignment = taCenter
                 ImageIndex = 1
                 Text = 'Duty 1'
-                Width = 233
+                Width = 133
                 Visible = True
               end
               item
                 Alignment = taCenter
                 ImageIndex = 1
                 Text = 'Duty 2'
-                Width = 233
+                Width = 133
                 Visible = True
               end
               item
                 Alignment = taCenter
                 ImageIndex = 1
                 Text = 'Wave'
-                Width = 233
+                Width = 133
                 Visible = True
               end
               item
                 Alignment = taCenter
                 ImageIndex = 1
                 Text = 'Noise'
-                Width = 233
+                Width = 133
                 Visible = True
               end>
             OnSectionClick = HeaderControl1SectionClick
             Height = 614
             Top = 31
             Width = 838
-            HorzScrollBar.Increment = 3
+            HorzScrollBar.Increment = 5
-            HorzScrollBar.Page = 32
+            HorzScrollBar.Page = 56
             HorzScrollBar.Smooth = True
             HorzScrollBar.Tracking = True
-            VertScrollBar.Increment = 5
+            VertScrollBar.Page = 88
-            VertScrollBar.Page = 50
             VertScrollBar.Smooth = True
             VertScrollBar.Tracking = True
             Align = alClient
               Left = 0
               Height = 614
               Top = 0
-              Width = 56
+              Width = 32
               Align = alLeft
               BorderStyle = bsNone
               ColCount = 1
-              DefaultColWidth = 56
+              DefaultColWidth = 32
               Enabled = False
               ParentFont = False
               RowCount = 64
           Left = 0
           Height = 646
           Top = 0
-          Width = 392
+          Width = 224
           Align = alLeft
           AutoEdit = False
           AutoFillColumns = True
           Columns = <
             item
               Alignment = taCenter
-              MinSize = 58
+              MinSize = 33
-              MaxSize = 58
+              MaxSize = 33
               Title.Caption = 'Dty1'
-              Width = 61
+              Width = 34
             end
             item
               Alignment = taCenter
-              MinSize = 58
+              MinSize = 33
-              MaxSize = 58
+              MaxSize = 33
               Title.Caption = 'Dty2'
-              Width = 61
+              Width = 34
             end
             item
               Alignment = taCenter
-              MinSize = 58
+              MinSize = 33
-              MaxSize = 58
+              MaxSize = 33
               Title.Caption = 'Wav'
-              Width = 61
+              Width = 34
             end
             item
               Alignment = taCenter
-              MinSize = 58
+              MinSize = 33
-              MaxSize = 58
+              MaxSize = 33
               Title.Caption = 'Nse'
-              Width = 63
+              Width = 37
             end>
-          DefaultColWidth = 30
+          DefaultColWidth = 17
-          DefaultRowHeight = 37
+          DefaultRowHeight = 21
           ExtendedSelect = False
           Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goRangeSelect, goRowMoving, goEditing, goTabs, goSmoothScroll, goFixedRowNumbering, goRowHighlight]
           ParentFont = False
           OnKeyDown = OrderEditStringGridKeyDown
           OnValidateEntry = OrderEditStringGridValidateEntry
           ColWidths = (
-            112
+            64
-            61
+            34
-            61
+            34
-            61
+            34
-            63
+            37
           )
         end
       end
       object InstrumentTabSheet: TTabSheet
         Caption = 'Instruments'
-        ClientHeight = 852
+        ClientHeight = 483
-        ClientWidth = 1865
+        ClientWidth = 1063
         ParentFont = False
         object PaintBox1: TPaintBox
           AnchorSideTop.Control = FlowPanel1
           Left = 0
           Height = 0
           Hint = 'Preview of how the resulting waveform will look with envelope applied'
-          Top = 852
+          Top = 483
-          Width = 1865
+          Width = 1063
           Align = alClient
           Color = clBlack
           ParentColor = False
         end
         object FlowPanel1: TFlowPanel
           Left = 0
-          Height = 860
+          Height = 492
           Top = 0
-          Width = 1865
+          Width = 1063
           Align = alTop
           AutoSize = True
           BevelOuter = bvNone
           ParentFont = False
           TabOrder = 0
           object InstrumentGroupBox: TGroupBox
-            Left = 12
+            Left = 7
-            Height = 422
+            Height = 241
-            Top = 12
+            Top = 7
-            Width = 474
+            Width = 271
             Anchors = []
-            BorderSpacing.Left = 12
+            BorderSpacing.Left = 7
-            BorderSpacing.Top = 12
+            BorderSpacing.Top = 7
-            BorderSpacing.Right = 12
+            BorderSpacing.Right = 7
-            BorderSpacing.Bottom = 12
+            BorderSpacing.Bottom = 7
             Caption = 'Instrument'
-            ClientHeight = 387
+            ClientHeight = 221
-            ClientWidth = 470
+            ClientWidth = 267
             ParentFont = False
             TabOrder = 0
             object InstrumentNumberSpinner: TSpinEdit
-              Left = 140
+              Left = 80
-              Height = 38
+              Height = 23
               Hint = 'What instrument to edit'
-              Top = 66
+              Top = 38
-              Width = 308
+              Width = 176
               MaxValue = 15
               MinValue = 1
               OnChange = InstrumentNumberSpinnerChange
               Value = 1
             end
             object Label1: TLabel
-              Left = 14
+              Left = 8
-              Height = 30
+              Height = 15
-              Top = 80
+              Top = 46
-              Width = 101
+              Width = 58
               Caption = 'Instrument'
               ParentColor = False
               ParentFont = False
             end
             object Label2: TLabel
-              Left = 14
+              Left = 8
-              Height = 30
+              Height = 15
-              Top = 136
+              Top = 78
-              Width = 56
+              Width = 32
               Caption = 'Name'
               ParentColor = False
               ParentFont = False
             end
             object InstrumentNameEdit: TEdit
-              Left = 140
+              Left = 80
-              Height = 38
+              Height = 23
               Hint = 'The name of the instrument'
-              Top = 122
+              Top = 70
-              Width = 308
+              Width = 176
               OnChange = InstrumentNameEditChange
               ParentFont = False
               TabOrder = 1
             end
             object Label3: TLabel
-              Left = 14
+              Left = 8
-              Height = 30
+              Height = 15
-              Top = 28
+              Top = 16
-              Width = 80
+              Width = 44
               Caption = 'Channel'
               Font.Style = [fsBold]
               ParentColor = False
               ParentFont = False
             end
             object InstrumentTypeCombobox: TComboBox
-              Left = 136
+              Left = 78
-              Height = 38
+              Height = 23
               Hint = 'What type of channel this instrument will be played on'
-              Top = 14
+              Top = 8
-              Width = 312
+              Width = 178
-              ItemHeight = 30
+              ItemHeight = 15
               ItemIndex = 0
               Items.Strings = (
                 'Square'
               Text = 'Square'
             end
             object LengthEnabledCheckbox: TCheckBox
-              Left = 21
+              Left = 12
-              Height = 34
+              Height = 19
               Hint = 'Cut the sound after a certain length of time'
-              Top = 206
+              Top = 118
-              Width = 98
+              Width = 57
               Caption = 'Length'
               OnChange = LengthEnabledCheckboxChange
               ParentFont = False
               TabOrder = 3
             end
             object InstrumentImportButton: TButton
-              Left = 21
+              Left = 12
-              Height = 44
+              Height = 25
-              Top = 322
+              Top = 184
-              Width = 203
+              Width = 116
               Caption = 'Import'
               OnClick = InstrumentImportButtonClick
               ParentFont = False
               TabOrder = 4
             end
             object InstrumentExportButton: TButton
-              Left = 242
+              Left = 138
-              Height = 44
+              Height = 25
-              Top = 322
+              Top = 184
-              Width = 203
+              Width = 116
               Caption = 'Export'
               OnClick = InstrumentExportButtonClick
               ParentFont = False
               TabOrder = 5
             end
             object Button1: TButton
-              Left = 21
+              Left = 12
-              Height = 44
+              Height = 25
               Hint = 'Test out the instrument with a C-5 note'
-              Top = 266
+              Top = 152
-              Width = 424
+              Width = 242
               Caption = 'Test C-5'
               OnClick = Button1Click
               ParentFont = False
               TabOrder = 6
             end
             object LengthTrackbar: TTrackBar
-              Left = 133
+              Left = 76
-              Height = 44
+              Height = 25
-              Top = 196
+              Top = 112
-              Width = 312
+              Width = 178
               Max = 63
               OnChange = LengthSpinnerChange
               Position = 0
             end
           end
           object EnvelopeGroupBox: TGroupBox
-            Left = 510
+            Left = 292
-            Height = 238
+            Height = 136
-            Top = 12
+            Top = 7
-            Width = 1018
+            Width = 582
             Anchors = []
-            BorderSpacing.Left = 12
+            BorderSpacing.Left = 7
-            BorderSpacing.Top = 12
+            BorderSpacing.Top = 7
-            BorderSpacing.Right = 12
+            BorderSpacing.Right = 7
-            BorderSpacing.Bottom = 12
+            BorderSpacing.Bottom = 7
             Caption = 'Envelope'
-            ClientHeight = 203
+            ClientHeight = 116
-            ClientWidth = 1014
+            ClientWidth = 578
             ParentFont = False
             TabOrder = 1
             object Label4: TLabel
-              Left = 14
+              Left = 8
-              Height = 30
+              Height = 15
-              Top = 16
+              Top = 9
-              Width = 80
+              Width = 46
               Caption = 'Start vol.'
               ParentColor = False
               ParentFont = False
             end
             object Label5: TLabel
-              Left = 14
+              Left = 8
-              Height = 30
+              Height = 15
-              Top = 84
+              Top = 48
-              Width = 84
+              Width = 48
               Caption = 'Direction'
               ParentColor = False
               ParentFont = False
             end
             object DirectionComboBox: TComboBox
-              Left = 144
+              Left = 82
-              Height = 38
+              Height = 23
               Hint = 'Whether to fade the sound in or out'
-              Top = 80
+              Top = 46
-              Width = 346
+              Width = 198
-              ItemHeight = 30
+              ItemHeight = 15
               ItemIndex = 1
               Items.Strings = (
                 'Up'
               Text = 'Down'
             end
             object Label6: TLabel
-              Left = 14
+              Left = 8
-              Height = 30
+              Height = 15
-              Top = 150
+              Top = 86
-              Width = 71
+              Width = 41
               Caption = 'Change'
               ParentColor = False
               ParentFont = False
             end
             object Panel5: TPanel
-              Left = 525
+              Left = 300
-              Height = 182
+              Height = 104
               Top = 0
-              Width = 472
+              Width = 270
               BevelOuter = bvLowered
-              ClientHeight = 182
+              ClientHeight = 104
-              ClientWidth = 472
+              ClientWidth = 270
               ParentFont = False
               TabOrder = 1
               object EnvelopePaintbox: TPaintBox
                 Left = 1
-                Height = 180
+                Height = 102
                 Hint = 'Preview of the volume envelope'
                 Top = 1
-                Width = 470
+                Width = 268
                 Align = alClient
                 ParentFont = False
                 OnPaint = EnvelopePaintboxPaint
               end
             end
             object StartVolTrackbar: TTrackBar
-              Left = 144
+              Left = 82
-              Height = 44
+              Height = 25
-              Top = 14
+              Top = 8
-              Width = 343
+              Width = 196
               Max = 15
               OnChange = StartVolSpinnerChange
               Position = 0
               TabOrder = 2
             end
             object EnvChangeTrackbar: TTrackBar
-              Left = 144
+              Left = 82
-              Height = 44
+              Height = 25
-              Top = 144
+              Top = 82
-              Width = 343
+              Width = 196
               Max = 7
               OnChange = EnvChangeSpinnerChange
               Position = 0
             end
           end
           object SquareGroupBox: TGroupBox
-            Left = 12
+            Left = 7
-            Height = 296
+            Height = 169
-            Top = 458
+            Top = 262
-            Width = 558
+            Width = 319
             Anchors = []
-            BorderSpacing.Left = 12
+            BorderSpacing.Left = 7
-            BorderSpacing.Top = 12
+            BorderSpacing.Top = 7
-            BorderSpacing.Right = 12
+            BorderSpacing.Right = 7
-            BorderSpacing.Bottom = 12
+            BorderSpacing.Bottom = 7
             Caption = 'Square'
-            ClientHeight = 261
+            ClientHeight = 149
-            ClientWidth = 554
+            ClientWidth = 315
             ParentFont = False
             TabOrder = 2
             object Label7: TLabel
-              Left = 14
+              Left = 8
-              Height = 30
+              Height = 15
-              Top = 28
+              Top = 16
-              Width = 107
+              Width = 61
               Caption = 'Sweep time'
               ParentColor = False
               ParentFont = False
             end
             object SweepTimeCombobox: TComboBox
-              Left = 182
+              Left = 104
-              Height = 38
+              Height = 23
               Hint = 'How long to sweep'
-              Top = 14
+              Top = 8
-              Width = 350
+              Width = 200
-              ItemHeight = 30
+              ItemHeight = 15
               ItemIndex = 0
               Items.Strings = (
                 'Off - no frequency change'
               Text = 'Off - no frequency change'
             end
             object SweepDirectionCombobox: TComboBox
-              Left = 182
+              Left = 104
-              Height = 38
+              Height = 23
               Hint = 'The direction of the sweep'
-              Top = 70
+              Top = 40
-              Width = 350
+              Width = 200
-              ItemHeight = 30
+              ItemHeight = 15
               ItemIndex = 1
               Items.Strings = (
                 'Up'
               Text = 'Down'
             end
             object Label8: TLabel
-              Left = 14
+              Left = 8
-              Height = 30
+              Height = 15
-              Top = 84
+              Top = 48
-              Width = 147
+              Width = 84
               Caption = 'Sweep direction'
               ParentColor = False
               ParentFont = False
             end
             object Label9: TLabel
-              Left = 14
+              Left = 8
-              Height = 30
+              Height = 15
-              Top = 147
+              Top = 84
-              Width = 101
+              Width = 56
               Caption = 'Sweep size'
               ParentColor = False
               ParentFont = False
             end
             object Label10: TLabel
-              Left = 14
+              Left = 8
-              Height = 30
+              Height = 15
-              Top = 210
+              Top = 120
-              Width = 44
+              Width = 25
               Caption = 'Duty'
               ParentColor = False
               ParentFont = False
             end
             object DutyCombobox: TComboBox
-              Left = 182
+              Left = 104
-              Height = 38
+              Height = 23
               Hint = 'Which duty cycle to use (changes timbre of wave)'
-              Top = 196
+              Top = 112
-              Width = 350
+              Width = 200
-              ItemHeight = 30
+              ItemHeight = 15
               ItemIndex = 2
               Items.Strings = (
                 '12.5%'
               Text = '50% (square)'
             end
             object SweepSizeTrackbar: TTrackBar
-              Left = 184
+              Left = 105
-              Height = 44
+              Height = 25
-              Top = 140
+              Top = 80
-              Width = 343
+              Width = 196
               Max = 7
               OnChange = SweepSizeSpinnerChange
               Position = 0
             end
           end
           object WaveGroupBox: TGroupBox
-            Left = 594
+            Left = 340
-            Height = 296
+            Height = 169
-            Top = 458
+            Top = 262
-            Width = 520
+            Width = 297
             Anchors = []
-            BorderSpacing.Left = 12
+            BorderSpacing.Left = 7
-            BorderSpacing.Top = 12
+            BorderSpacing.Top = 7
-            BorderSpacing.Right = 12
+            BorderSpacing.Right = 7
-            BorderSpacing.Bottom = 12
+            BorderSpacing.Bottom = 7
             Caption = 'Wave'
-            ClientHeight = 261
+            ClientHeight = 149
-            ClientWidth = 516
+            ClientWidth = 293
             ParentFont = False
             TabOrder = 3
             object Label11: TLabel
-              Left = 14
+              Left = 8
-              Height = 30
+              Height = 15
-              Top = 28
+              Top = 16
-              Width = 70
+              Width = 40
               Caption = 'Volume'
               ParentColor = False
               ParentFont = False
             end
             object Label12: TLabel
-              Left = 14
+              Left = 8
-              Height = 30
+              Height = 15
-              Top = 84
+              Top = 48
-              Width = 95
+              Width = 55
               Caption = 'Waveform'
               ParentColor = False
               ParentFont = False
             end
             object WaveformCombobox: TComboBox
-              Left = 182
+              Left = 104
-              Height = 38
+              Height = 23
               Hint = 'Which waveform is associated with this instrument'
-              Top = 70
+              Top = 40
-              Width = 308
+              Width = 176
-              ItemHeight = 30
+              ItemHeight = 15
               ItemIndex = 0
               Items.Strings = (
                 'Wave #0'
               Text = 'Wave #0'
             end
             object Panel4: TPanel
-              Left = 14
+              Left = 8
-              Height = 103
+              Height = 59
-              Top = 140
+              Top = 80
-              Width = 476
+              Width = 272
               BevelOuter = bvLowered
-              ClientHeight = 103
+              ClientHeight = 59
-              ClientWidth = 476
+              ClientWidth = 272
               ParentFont = False
               TabOrder = 1
               object WavePaintbox: TPaintBox
                 Left = 1
-                Height = 101
+                Height = 57
                 Hint = 'Preview of the waveform associated with this instrument'
                 Top = 1
-                Width = 474
+                Width = 270
                 Align = alClient
                 Color = clBlack
                 ParentColor = False
               end
             end
             object WaveVolumeCombobox: TComboBox
-              Left = 182
+              Left = 104
-              Height = 38
+              Height = 23
               Hint = 'The initial volume of the wave'
-              Top = 14
+              Top = 8
-              Width = 308
+              Width = 176
-              ItemHeight = 30
+              ItemHeight = 15
               ItemIndex = 1
               Items.Strings = (
                 'Mute (No sound)'
             end
           end
           object NoiseGroupBox: TGroupBox
-            Left = 1138
+            Left = 651
-            Height = 390
+            Height = 223
-            Top = 458
+            Top = 262
-            Width = 695
+            Width = 397
             Anchors = []
-            BorderSpacing.Left = 12
+            BorderSpacing.Left = 7
-            BorderSpacing.Top = 12
+            BorderSpacing.Top = 7
-            BorderSpacing.Right = 12
+            BorderSpacing.Right = 7
-            BorderSpacing.Bottom = 12
+            BorderSpacing.Bottom = 7
             Caption = 'Noise'
-            ClientHeight = 355
+            ClientHeight = 203
-            ClientWidth = 691
+            ClientWidth = 393
             ParentFont = False
             TabOrder = 4
             object SevenBitCounterCheckbox: TCheckBox
-              Left = 14
+              Left = 8
-              Height = 34
+              Height = 19
               Hint = 'Select LFSR width. When checked, output will sound like a tone rather than noise'
-              Top = 14
+              Top = 8
-              Width = 373
+              Width = 215
               Alignment = taLeftJustify
               Caption = '7 bit counter (more tone-like output)'
               OnChange = SevenBitCounterCheckboxChange
               TabOrder = 0
             end
             object Panel6: TPanel
-              Left = 14
+              Left = 8
-              Height = 266
+              Height = 152
-              Top = 70
+              Top = 40
-              Width = 658
+              Width = 376
               BevelOuter = bvLowered
-              ClientHeight = 266
+              ClientHeight = 152
-              ClientWidth = 658
+              ClientWidth = 376
               ParentFont = False
               TabOrder = 1
               object NoiseMacroPaintbox: TPaintBox
                 Left = 1
-                Height = 264
+                Height = 150
                 Top = 1
-                Width = 656
+                Width = 374
                 Align = alClient
                 ParentFont = False
                 OnMouseDown = NoiseMacroPaintboxMouseDown
           Width = 1064
           Align = alBottom
           Anchors = [akTop, akLeft, akRight, akBottom]
-          BorderSpacing.Top = 23
+          BorderSpacing.Top = 13
           ParentFont = False
           PopupMenu = WaveEditPopup
           OnMouseDown = WaveEditPaintBoxMouseDown
           OnPaint = WaveEditPaintBoxPaint
         end
         object WaveEditGroupBox: TGroupBox
-          Left = 14
+          Left = 8
-          Height = 243
+          Height = 139
-          Top = 14
+          Top = 8
-          Width = 994
+          Width = 568
           Caption = 'Wave Editor'
-          ClientHeight = 208
+          ClientHeight = 119
-          ClientWidth = 990
+          ClientWidth = 564
           ParentFont = False
           TabOrder = 0
           object Label20: TLabel
-            Left = 28
+            Left = 16
             Height = 15
-            Top = 28
+            Top = 16
             Width = 29
             Caption = 'Wave'
             ParentColor = False
             ParentFont = False
           end
           object WaveEditNumberSpinner: TSpinEdit
-            Left = 112
+            Left = 64
             Height = 23
-            Top = 14
+            Top = 8
-            Width = 140
+            Width = 80
             MaxValue = 15
             OnChange = WaveEditNumberSpinnerChange
             ParentFont = False
             TabOrder = 0
           end
           object ImportWaveButton: TButton
-            Left = 28
+            Left = 16
-            Height = 44
+            Height = 25
             Hint = 'Import a wave'
-            Top = 84
+            Top = 48
-            Width = 257
+            Width = 147
             Caption = 'Import'
             OnClick = ImportWaveButtonClick
             ParentFont = False
             TabOrder = 1
           end
           object ExportWaveButton: TButton
-            Left = 28
+            Left = 16
-            Height = 44
+            Height = 25
             Hint = 'Export a wave'
-            Top = 140
+            Top = 80
-            Width = 257
+            Width = 147
             Caption = 'Export'
             OnClick = ExportWaveButtonClick
             ParentFont = False
             TabOrder = 2
           end
           object HexWaveEdit: TEdit
-            Left = 504
+            Left = 288
             Height = 23
-            Top = 14
+            Top = 8
-            Width = 462
+            Width = 264
             MaxLength = 32
             OnChange = HexWaveEditEditingDone
             OnEditingDone = HexWaveEditEditingDone
             TabOrder = 3
           end
           object Label13: TLabel
-            Left = 308
+            Left = 176
             Height = 15
-            Top = 28
+            Top = 16
             Width = 100
             Caption = 'Hex representation'
             ParentColor = False
             ParentFont = False
           end
           object PlayWaveWhileDrawingCheckbox: TCheckBox
-            Left = 308
+            Left = 176
             Height = 19
-            Top = 70
+            Top = 40
             Width = 149
             Caption = 'Play wave while drawing'
             ParentFont = False
           Width = 939
           Align = alBottom
           Anchors = [akTop, akLeft, akRight, akBottom]
-          BorderSpacing.Top = 23
+          BorderSpacing.Top = 13
           MaxLength = 255
           OnChange = CommentMemoChange
           ParentFont = False
           TabOrder = 0
         end
         object Label17: TLabel
-          Left = 14
+          Left = 8
           Height = 15
-          Top = 14
+          Top = 8
           Width = 333
           Caption = 'This is an area to write comments for anyone editing your tune.'
           ParentColor = False
       end
       object RoutinesTabSheet: TTabSheet
         Caption = 'Routines'
-        ClientHeight = 502
+        ClientHeight = 483
-        ClientWidth = 939
+        ClientWidth = 1063
         ParentFont = False
         inline RoutineSynedit: TSynEdit
           AnchorSideTop.Control = Label19
           AnchorSideTop.Side = asrBottom
           Left = 0
-          Height = 374
+          Height = 355
           Top = 128
-          Width = 939
+          Width = 1063
           Align = alBottom
-          BorderSpacing.Top = 23
+          BorderSpacing.Top = 13
           Anchors = [akTop, akLeft, akRight, akBottom]
-          Font.Height = -23
+          Font.Height = -13
           Font.Name = 'Courier New'
           Font.Pitch = fpFixed
           Font.Quality = fqNonAntialiased
           ParentColor = False
           ParentFont = False
           TabOrder = 0
-          Gutter.Width = 100
+          Gutter.Width = 57
           Gutter.MouseActions = <>
           RightGutter.Width = 0
           RightGutter.MouseActions = <>
           OnChange = RoutineSyneditChange
           inline SynLeftGutterPartList1: TSynGutterPartList
             object SynGutterMarks1: TSynGutterMarks
-              Width = 42
+              Width = 24
               MouseActions = <>
             end
             object SynGutterLineNumber1: TSynGutterLineNumber
-              Width = 29
+              Width = 17
               MouseActions = <>
               MarkupInfo.Background = clBtnFace
               MarkupInfo.Foreground = clNone
               LeadingZeros = False
             end
             object SynGutterChanges1: TSynGutterChanges
-              Width = 7
+              Width = 4
               MouseActions = <>
               ModifiedColor = 59900
               SavedColor = clGreen
             end
             object SynGutterSeparator1: TSynGutterSeparator
-              Width = 4
+              Width = 2
               MouseActions = <>
               MarkupInfo.Background = clWhite
               MarkupInfo.Foreground = clGray
             end
             object SynGutterCodeFolding1: TSynGutterCodeFolding
-              Width = 18
               MouseActions = <>
               MarkupInfo.Background = clNone
               MarkupInfo.Foreground = clGray
           end
         end
         object Label18: TLabel
-          Left = 14
+          Left = 8
           Height = 15
-          Top = 28
+          Top = 16
           Width = 41
           Caption = 'Routine'
           ParentColor = False
           ParentFont = False
         end
         object RoutineNumberSpinner: TSpinEdit
-          Left = 112
+          Left = 64
           Height = 23
-          Top = 14
+          Top = 8
-          Width = 308
+          Width = 176
           MaxValue = 15
-          MinValue = 1
           OnChange = RoutineNumberSpinnerChange
           ParentFont = False
           TabOrder = 1
           Value = 1
         end
         object Label19: TLabel
-          Left = 14
+          Left = 8
           Height = 75
-          Top = 70
+          Top = 40
           Width = 506
           Caption = 'Routines are an advanced feature of hUGETracker, and you likely won''t need them at all'#13#10'if you are only interested in composing music. If you want to create a custom effect, or interface'#13#10'with game code that you''re writing a soundtrack for, then routines will come in handy.'#13#10#13#10'Refer to the user manual for more information!'
           ParentColor = False
   end
   object Panel2: TPanel
     Left = 0
-    Height = 112
+    Height = 64
-    Top = 41
+    Top = 25
-    Width = 2220
+    Width = 1269
     Align = alTop
     BevelOuter = bvNone
-    ClientHeight = 112
+    ClientHeight = 64
-    ClientWidth = 2220
+    ClientWidth = 1269
     ParentFont = False
     TabOrder = 3
     object LEDMeter1: TLEDMeter
       AnchorSideRight.Control = Duty1Visualizer
       Left = 0
-      Height = 56
+      Height = 32
-      Top = 56
+      Top = 32
-      Width = 840
+      Width = 481
       Anchors = [akTop, akLeft, akRight]
       BevelStyle = bvLowered
       Colors.Border = 2168839
     object LEDMeter2: TLEDMeter
       AnchorSideRight.Control = Duty1Visualizer
       Left = 0
-      Height = 56
+      Height = 32
       Top = 0
-      Width = 840
+      Width = 481
       Anchors = [akTop, akLeft, akRight]
       BevelStyle = bvLowered
       Colors.Border = 2168839
       Section3Value = 48
     end
     object Duty1Visualizer: TPaintBox
-      Left = 840
+      Left = 481
-      Height = 112
+      Height = 64
       Top = 0
-      Width = 345
+      Width = 197
       Align = alRight
       ParentFont = False
       OnClick = Duty1VisualizerClick
       OnPaint = Duty1VisualizerPaint
     end
     object Duty2Visualizer: TPaintBox
-      Left = 1185
+      Left = 678
-      Height = 112
+      Height = 64
       Top = 0
-      Width = 345
+      Width = 197
       Align = alRight
       ParentFont = False
       OnClick = Duty1VisualizerClick
       OnPaint = Duty2VisualizerPaint
     end
     object WaveVisualizer: TPaintBox
-      Left = 1530
+      Left = 875
-      Height = 112
+      Height = 64
       Top = 0
-      Width = 345
+      Width = 197
       Align = alRight
       ParentFont = False
       OnClick = Duty1VisualizerClick
       OnPaint = WaveVisualizerPaint
     end
     object NoiseVisualizer: TPaintBox
-      Left = 1875
+      Left = 1072
-      Height = 112
+      Height = 64
       Top = 0
-      Width = 345
+      Width = 197
       Align = alRight
       ParentFont = False
       OnClick = Duty1VisualizerClick
   end
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 43
+    Height = 23
-    Top = 1048
+    Top = 600
-    Width = 2220
+    Width = 1269
     AutoHint = True
     Panels = <
       item
-        Width = 817
+        Width = 467
       end
       item
-        Width = 350
+        Width = 200
       end
       item
-        Width = 350
+        Width = 200
       end>
     ParentFont = False
     ParentShowHint = False
   end
   object ToolBar1: TToolBar
     Left = 0
-    Height = 41
+    Height = 25
     Top = 0
-    Width = 2220
+    Width = 1269
     AutoSize = True
     Caption = 'ToolBar1'
     EdgeBorders = [ebBottom]
       ParentShowHint = False
     end
     object PanicToolButton: TToolButton
-      Left = 851
+      Left = 551
       Hint = 'Stops all sound output'
       Top = 0
       AutoSize = True
       ShowHint = True
     end
     object ToolButton2: TToolButton
-      Left = 221
+      Left = 145
       Top = 0
       Action = PlayCursorAction
     end
     object ToolButton4: TToolButton
-      Left = 331
+      Left = 219
       Top = 0
       Action = StopAction
     end
     object ExportGBButton: TToolButton
-      Left = 442
+      Left = 287
       Hint = 'Export the song as a standalone ROM'
       Top = 0
       AutoSize = True
       OnClick = ExportGBButtonClick
     end
     object ToolButton8: TToolButton
-      Left = 120
+      Left = 79
-      Height = 39
+      Height = 22
       Top = 0
       Caption = 'ToolButton8'
       Style = tbsDivider
     end
     object ToolButton6: TToolButton
-      Left = 433
+      Left = 284
-      Height = 39
+      Height = 22
       Top = 0
       Caption = 'ToolButton6'
       Style = tbsDivider
     end
     object ToolButton7: TToolButton
-      Left = 1775
+      Left = 1088
-      Height = 39
+      Height = 22
       Top = 0
       Caption = 'ToolButton7'
       Style = tbsSeparator
     end
     object OctaveSpinEdit: TSpinEdit
-      Left = 1016
+      Left = 654
-      Height = 38
+      Height = 23
       Hint = 'The octave offset for entering new notes'
       Top = 0
-      Width = 114
+      Width = 65
       MaxValue = 5
       OnChange = OctaveSpinEditChange
       ParentFont = False
       TabOrder = 0
     end
     object ToolButton9: TToolButton
-      Left = 927
+      Left = 606
-      Height = 39
+      Height = 22
       Top = 0
       Caption = 'ToolButton9'
       Style = tbsSeparator
     end
     object Label22: TLabel
-      Left = 941
+      Left = 611
-      Height = 39
+      Height = 22
       Top = 0
-      Width = 75
+      Width = 43
       AutoSize = False
       Caption = 'Octave  '
       Layout = tlCenter
       ParentFont = False
     end
     object Label23: TLabel
-      Left = 1130
+      Left = 719
-      Height = 39
+      Height = 22
       Top = 0
-      Width = 122
+      Width = 70
       AutoSize = False
       Caption = '  Instrument  '
       Layout = tlCenter
       ParentFont = False
     end
     object InstrumentComboBox: TComboBox
-      Left = 1252
+      Left = 789
-      Height = 38
+      Height = 23
       Hint = 'The selected instrument for new notes'
       Top = 0
-      Width = 374
+      Width = 214
       DropDownCount = 999
-      ItemHeight = 30
+      ItemHeight = 15
       ItemIndex = 0
       Items.Strings = (
         '(no instrument)'
       Text = '(no instrument)'
     end
     object Label24: TLabel
-      Left = 1626
+      Left = 1003
-      Height = 39
+      Height = 22
       Top = 0
-      Width = 61
+      Width = 35
       AutoSize = False
       Caption = '  Step  '
       Layout = tlCenter
       ParentFont = False
     end
     object StepSpinEdit: TSpinEdit
-      Left = 1687
+      Left = 1038
-      Height = 38
+      Height = 23
       Hint = 'How many rows to step down after entering a new note'
       Top = 0
-      Width = 88
+      Width = 50
       MaxValue = 63
       OnChange = StepSpinEditChange
       ParentFont = False
       TabOrder = 2
     end
     object ToolButton3: TToolButton
-      Left = 129
+      Left = 82
       Top = 0
       Action = PlayStartAction
     end
     object ExportGBSButton: TToolButton
-      Left = 564
+      Left = 368
       Hint = 'Export the song as a GBS soundtrack'
       Top = 0
       Caption = 'Export .GBS'
       OnClick = ExportGBSButtonClick
     end
     object ToolButton5: TToolButton
-      Left = 842
+      Left = 548
-      Height = 39
+      Height = 22
       Top = 0
       Caption = 'ToolButton5'
       Style = tbsDivider
     end
     object ToolButton10: TToolButton
-      Left = 697
+      Left = 455
       Hint = 'Export the song as WAV or MP3'
       Top = 0
       Caption = 'Render Song'
   end
   object MainMenu1: TMainMenu
     Images = ImageList1
-    Left = 70
+    Left = 40
-    Top = 56
+    Top = 32
     object MenuItem1: TMenuItem
       Caption = 'File'
       object MenuItem33: TMenuItem
     object DebugShiteButton: TMenuItem
       Caption = 'Debug shite'
       Visible = False
-      OnClick = DebugShiteButtonClick
     end
   end
   object MenuBarActionList: TActionList
     Images = ImageList1
-    Left = 182
+    Left = 104
-    Top = 126
+    Top = 72
     object FileOpen1: TFileOpen
       Category = 'File'
       Caption = '&Open ...'
     end
   end
   object ImageList1: TImageList
-    Left = 266
+    Left = 152
-    Top = 56
+    Top = 32
     Bitmap = {
       4C694E0000001000000010000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
   end
   object OpenDialog1: TOpenDialog
     Filter = 'hUGETracker Instruments|*.ugi'
-    Left = 140
+    Left = 80
-    Top = 98
+    Top = 56
   end
   object InstrumentSaveDialog: TSaveDialog
     Filter = 'hUGETracker Instruments|*.ugi'
-    Left = 140
+    Left = 80
-    Top = 98
+    Top = 56
   end
   object OrderEditPopup: TPopupMenu
-    Left = 224
+    Left = 128
-    Top = 70
+    Top = 40
     object MenuItem17: TMenuItem
       Caption = 'Insert new row'
       Hint = 'Insert a new row filled with brand new patterns'
   object ImageList2: TImageList
     Height = 32
     Width = 32
-    Left = 84
+    Left = 48
-    Top = 151
+    Top = 86
     Bitmap = {
       4C69020000002000000020000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
     Enabled = False
     Interval = 200
     OnTimer = OscilloscopeUpdateTimerTimer
-    Left = 154
+    Left = 88
-    Top = 84
+    Top = 48
   end
   object GBSSaveDialog: TSaveDialog
     Filter = 'Gameboy Soundtrack|*.gbs'
-    Left = 504
+    Left = 288
-    Top = 42
+    Top = 24
   end
   object WaveSaveDialog: TSaveDialog
     Filter = 'hUGETracker Waves|*.ugw'
-    Left = 644
+    Left = 368
-    Top = 42
+    Top = 24
   end
   object GBSaveDialog: TSaveDialog
     Filter = 'Gameboy ROM|*.GB'
-    Left = 574
+    Left = 328
-    Top = 42
+    Top = 24
   end
   object NoteHaltTimer: TTimer
     Enabled = False
     OnTimer = NoteHaltTimerTimer
-    Left = 140
+    Left = 80
-    Top = 151
+    Top = 86
   end
   object TrackerGridPopup: TPopupMenu
-    Left = 168
+    Left = 96
-    Top = 42
+    Top = 24
     object TrackerPopupEditEffect: TMenuItem
       Caption = 'Edit effect ...'
       OnClick = TrackerPopupEditEffectClick
   object WavSaveDialog: TSaveDialog
     DefaultExt = '.wav'
     Filter = 'Wave files|*.wav'
-    Left = 714
+    Left = 408
-    Top = 42
+    Top = 24
   end
   object SynAnySyn1: TSynAnySyn
     Enabled = False
     Entity = False
     DollarVariables = False
     ActiveDot = False
-    Left = 14
+    Left = 8
-    Top = 151
+    Top = 86
   end
   object MODOpenDialog: TOpenDialog
     DefaultExt = '.mod'
     Filter = 'GBT Player MOD files|*.mod'
-    Left = 784
+    Left = 448
-    Top = 56
+    Top = 32
   end
   object WaveEditPopup: TPopupMenu
-    Left = 14
+    Left = 8
-    Top = 56
+    Top = 32
     object MenuItem37: TMenuItem
       Caption = 'Copy'
       OnClick = MenuItem37Click
   end
   object ShortcutsActionList: TActionList
     Images = ImageList1
-    Left = 364
+    Left = 208
-    Top = 56
+    Top = 32
     object PlayStartAction: TAction
       Caption = '▶️ Start'
       DisableIfNoHandler = False
   end
   object GBDKCSaveDialog: TSaveDialog
     Filter = 'GBDK C File|*.c'
-    Left = 434
+    Left = 248
-    Top = 42
+    Top = 24
   end
   object RGBDSObjSaveDialog: TSaveDialog
     Filter = 'RGBDS Object|*.obj'
-    Left = 434
+    Left = 248
-    Top = 112
+    Top = 64
   end
   object GBDKObjSaveDialog: TSaveDialog
     Filter = 'GBDK Object|*.o'
-    Left = 504
+    Left = 288
-    Top = 112
+    Top = 64
   end
 end

Modifiedtracker.pas +2−8

     procedure InstrumentNumberSpinnerChange(Sender: TObject);
     procedure LengthSpinnerChange(Sender: TObject);
     procedure DebugPlayNoteButtonClick(Sender: TObject);
-    procedure DebugShiteButtonClick(Sender: TObject);
     procedure MenuItem11Click(Sender: TObject);
     procedure MenuItem12Click(Sender: TObject);
     procedure MenuItem14Click(Sender: TObject);
   LoadInstrument(itSquare, 1);
   LoadWave(0);
-  RoutineSynedit.Text := Song.Routines[1];
+  RoutineSynedit.Text := Song.Routines[0];
-  RoutineNumberSpinner.Value := 1;
+  RoutineNumberSpinner.Value := 0;
   SongEdit.Text := Song.Name;
   ArtistEdit.Text := Song.Artist;
   //PreviewInstrument(NotesToFreqs.KeyData[C_5], InstrumentComboBox.ItemIndex);
 end;
-procedure TfrmTracker.DebugShiteButtonClick(Sender: TObject);
-begin
-end;
 procedure TfrmTracker.MenuItem11Click(Sender: TObject);
 begin
   TrackerGrid.DoUndo;

Commit bc8007e

Commit `bc8007e`