Commit `933bcf0`

Nick committed on Dec 30, 2019

Start WIP on oscilloscopes

commit 933bcf03ec07fdec4079d7f2f5c19860936a306b parent d808920

2 changed files +87−11

Modifiedtracker.lfm +51−10

 object frmTracker: TfrmTracker
-  Left = 862
+  Left = 802
   Height = 1396
-  Top = 197
+  Top = 180
   Width = 2212
   Caption = 'hUGETracker'
   ClientHeight = 1362
       Height = 966
       Top = 0
       Width = 1865
-      ActivePage = GeneralTabSheet
+      ActivePage = InstrumentTabSheet
       Align = alClient
       ParentFont = False
-      TabIndex = 0
+      TabIndex = 2
       TabOrder = 0
       object GeneralTabSheet: TTabSheet
         Caption = 'General'
     Width = 2212
     Align = alTop
     BevelOuter = bvNone
+    ClientHeight = 312
+    ClientWidth = 2212
     ParentFont = False
     TabOrder = 3
+    object Panel6: TPanel
+      Left = 1522
+      Height = 312
+      Top = 0
+      Width = 690
+      Align = alRight
+      AutoSize = True
+      ClientHeight = 312
+      ClientWidth = 690
+      TabOrder = 0
+      object Duty1Visualizer: TPaintBox
+        Left = 1
+        Height = 152
+        Top = 1
+        Width = 344
+        OnPaint = Duty1VisualizerPaint
+      end
+      object WaveVisualizer: TPaintBox
+        Left = 1
+        Height = 160
+        Top = 153
+        Width = 344
+        OnPaint = WaveVisualizerPaint
+      end
+      object Duty2Visualizer: TPaintBox
+        Left = 345
+        Height = 152
+        Top = 1
+        Width = 344
+        OnPaint = Duty2VisualizerPaint
+      end
+      object NoiseVisualizer: TPaintBox
+        Left = 345
+        Height = 160
+        Top = 153
+        Width = 344
+        OnPaint = NoiseVisualizerPaint
+      end
+    end
   end
   object StatusBar1: TStatusBar
     Left = 0
     end
   end
   object ImageList1: TImageList
-    left = 1129
+    left = 232
-    top = 75
+    top = 80
     Bitmap = {
       4C694D0000001000000010000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
     top = 75
   end
   object OrderEditPopup: TPopupMenu
-    left = 1325
+    left = 376
-    top = 75
+    top = 80
     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 = 1129
+    left = 232
-    top = 187
+    top = 168
     Bitmap = {
       4C69020000002000000020000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000

Modifiedtracker.pas +36−1

   Menus, Spin, StdCtrls, ActnList, StdActns, SynEdit, math, Instruments, Waves,
   Song, EmulationThread, Utils, Constants, sound, vars, machine,
   about_hugetracker, TrackerGrid, lclintf, lmessages, Buttons, Grids, DBCtrls,
-  ECProgressBar, HugeDatatypes, LCLType, Codegen, SymParser;
+  ECProgressBar, HugeDatatypes, LCLType, RackCtls, Codegen, SymParser;
 type
   { TfrmTracker }
     MenuItem18: TMenuItem;
     MenuItem19: TMenuItem;
     MenuItem20: TMenuItem;
+    Duty1Visualizer: TPaintBox;
+    WaveVisualizer: TPaintBox;
+    Duty2Visualizer: TPaintBox;
+    NoiseVisualizer: TPaintBox;
     Panel3: TPanel;
+    Panel6: TPanel;
     PasteAction: TAction;
     CopyAction: TAction;
     HelpLookupManual: TAction;
     TrackerGrid: TTrackerGrid;
     procedure CopyActionExecute(Sender: TObject);
     procedure CutActionExecute(Sender: TObject);
+    procedure Duty1VisualizerPaint(Sender: TObject);
+    procedure Duty2VisualizerPaint(Sender: TObject);
     procedure FileOpen1Accept(Sender: TObject);
     procedure FileSaveAs1Accept(Sender: TObject);
     procedure HeaderControl1MouseDown(Sender: TObject; Button: TMouseButton;
     procedure MenuItem19Click(Sender: TObject);
     procedure MenuItem5Click(Sender: TObject);
     procedure NoiseFreqSpinnerChange(Sender: TObject);
+    procedure NoiseVisualizerPaint(Sender: TObject);
     procedure OrderEditStringGridAfterSelection(Sender: TObject; aCol,
       aRow: Integer);
     procedure OrderEditStringGridColRowDeleted(Sender: TObject;
     procedure SweepTimeComboboxChange(Sender: TObject);
     procedure WaveformComboboxChange(Sender: TObject);
     procedure WavePaintboxPaint(Sender: TObject);
+    procedure WaveVisualizerPaint(Sender: TObject);
     procedure WaveVolumeComboboxChange(Sender: TObject);
   private
     Song: TSong;
     procedure UpdateUIAfterLoad;
     procedure DrawWaveform(PB: TPaintBox; Wave: TWave);
+    procedure DrawVizualizer(PB: TPaintBox; Channel: Integer);
     procedure PreviewInstrument(Freq: Integer; Instr: Integer);
   public
   end;
 end;
+procedure TfrmTracker.DrawVizualizer(PB: TPaintBox; Channel: Integer);
+begin
+end;
 procedure TfrmTracker.PreviewInstrument(Freq: Integer; Instr: Integer);
 var
   Regs: TRegisters;
     DrawWaveform(WavePaintbox, Song.Waves[WaveformCombobox.ItemIndex]);
 end;
+procedure TfrmTracker.WaveVisualizerPaint(Sender: TObject);
+begin
+end;
 procedure TfrmTracker.WaveVolumeComboboxChange(Sender: TObject);
 begin
   CurrentInstrument^.OutputLevel := WaveVolumeCombobox.ItemIndex;
   PostMessage(Screen.ActiveControl.Handle, LM_CUT, 0, 0);
 end;
+procedure TfrmTracker.Duty1VisualizerPaint(Sender: TObject);
+begin
+end;
+procedure TfrmTracker.Duty2VisualizerPaint(Sender: TObject);
+begin
+end;
 procedure TfrmTracker.CopyActionExecute(Sender: TObject);
 begin
   PostMessage(Screen.ActiveControl.Handle, LM_COPY, 0, 0);
   CurrentInstrument^.ShiftClockFreq := Round(NoiseFreqSpinner.Position);
 end;
+procedure TfrmTracker.NoiseVisualizerPaint(Sender: TObject);
+begin
+end;
 procedure TfrmTracker.OrderEditStringGridAfterSelection(Sender: TObject; aCol,
   aRow: Integer);
 begin

Commit 933bcf0

Commit `933bcf0`