Commit `f050b7e`

Nick committed on Jan 10, 2020

Adding shift clock mask back in

commit f050b7e84e2d808c46ae3e80058a57e9e56b99c6 parent fba0189

3 changed files +16−7

Modifiedinstruments.pas +7−1

 function NoiseInstrumentToBytes(Instrument: TInstrument): TAsmInstrument;
 var
   Regs: TRegisters;
+  Poly: TPolynomialCounterRegister absolute Result[2];
 begin
   Regs := NoiseInstrumentToRegisters(0, True, Instrument);
   Result[0] := Regs.NR41;
   Result[1] := Regs.NR42;
-  Result[2] := Regs.NR43 and %00001111; // remove shift clock freq
+  Result[2] := Regs.NR43;
+  // Because *InstrumentToRegisters is meant for previewing, it puts in
+  // a value for shift clock freq, so we have to remove it and put in the mask
+  // instead.
+  Poly.ShiftClockFrequency := Instrument.ShiftClockFreq;
   Result[3] := Regs.NR44;
 end;

Modifiedtracker.lfm +7−6

 object frmTracker: TfrmTracker
-  Left = 899
+  Left = 550
   Height = 1275
-  Top = 236
+  Top = 338
   Width = 2056
   Caption = 'hUGETracker'
   ClientHeight = 1241
       Height = 845
       Top = 0
       Width = 1709
-      ActivePage = InstrumentTabSheet
+      ActivePage = PatternTabSheet
       Align = alClient
       ParentFont = False
-      TabIndex = 2
+      TabIndex = 1
       TabOrder = 0
       object GeneralTabSheet: TTabSheet
         Caption = 'General'
           Color = clBlack
           ParentColor = False
           ParentFont = False
+          Visible = False
           OnPaint = PaintBox1Paint
         end
         object FlowPanel1: TFlowPanel
               ProgressStyle = epsGradient
               Scale.DateTimeFormat = 'hh:nn:ss'
               Scale.LogarithmBase = 10
-              Scale.Max = 7
+              Scale.Max = 15
               Scale.Min = 0
               Scale.TickLongValue = 10
               Scale.TickMiddleValue = 5
             object Label25: TLabel
               Left = 16
               Height = 30
-              Top = 22
+              Top = 28
               Width = 149
               Caption = 'Shift clock mask'
               ParentColor = False

Modifiedtracker.pas +2−0

     end;
     Noise: begin
+      ShiftClockSpinner.Position := CI^.ShiftClockFreq;
       DivRatioSpinner.Position := CI^.DividingRatio;
       SevenBitCounterCheckbox.Checked := CI^.CounterStep = Seven;
     end;
 procedure TfrmTracker.RandomizeNoiseButtonClick(Sender: TObject);
 begin
+  ShiftClockSpinner.Position := 0;
   DivRatioSpinner.Position := Random(Round(DivRatioSpinner.Max));
   SevenBitCounterCheckbox.Checked := Random <= 0.5;
   LengthEnabledCheckbox.Checked := Random <= 0.5;

Commit f050b7e