Revert "Add WFM (broadcast FM) demodulator support"

This reverts commit e52e32dc20.

MainForm.pas

@@ -92,17 +92,11 @@ const
     (20000, 18000, 16000, 12000, 10000, 9000, 8000, 7000, 6000, 5000);
   FILT_AM_DEF = 4;    // 10k
 
-  // FM filter presets:
+  // FM: NFM (2.5 kHz deviation / 11 kHz BW) and FM (5.0 kHz deviation / 16 kHz BW)
-  //   NFM — 2.5 kHz deviation / 11 kHz BW (узкополосный FM, любительские диапазоны)
+  FILT_FM_COUNT = 2;
-  //   FM  — 5.0 kHz deviation / 16 kHz BW (расширенный NFM)
+  FILT_FM_NAMES: array[0..1] of string  = ('NFM', 'FM');
-  //   WFM — 75 kHz deviation / 200 kHz BW (broadcast FM 88..108 МГц).
+  FILT_FM_BW:    array[0..1] of Integer = (11000, 16000);
-  //         Требует dsp_rate (ширину канала) >= ~120 кГц для моно, >= ~192 кГц
+  FILT_FM_DEV:   array[0..1] of Double  = (2500.0, 5000.0);
-  //         для стерео+RDS. На малой ширине демодулятор WDSP всё равно
-  //         отработает, но качество пострадает.
-  FILT_FM_COUNT = 3;
-  FILT_FM_NAMES: array[0..2] of string  = ('NFM', 'FM', 'WFM');
-  FILT_FM_BW:    array[0..2] of Integer = (11000, 16000, 200000);
-  FILT_FM_DEV:   array[0..2] of Double  = (2500.0, 5000.0, 75000.0);
   FILT_FM_DEF = 0;    // NFM
 
   // CTCSS tones (38 standard tones, no None — toggle via CTCSS button)
@@ -4465,21 +4459,24 @@ var
 begin
   if FMode = MODE_FM then
   begin
-    // FM: рисуем ровно FILT_FM_COUNT кнопок (NFM / FM / WFM), растягивая их на всю строку
+    // FM: show only NFM and WFM buttons, resize them to fill the row
     CloseCTCSSPopup;
-    if (FFilter < 0) or (FFilter >= FILT_FM_COUNT) then FFilter := FILT_FM_DEF;
+    if FFilter > 1 then FFilter := FILT_FM_DEF;   // sanitize, keep NFM/WFM as-is
     FFilterBW    := FILT_FM_BW[FFilter];
     FFMDeviation := FILT_FM_DEV[FFilter];
-    for i := 0 to FILT_FM_COUNT - 1 do
+    BtnFilter[0].Caption := FILT_FM_NAMES[0];
-    begin
+    BtnFilter[0].Left    := LeftPanelButtonLeft(PanelFilter.Width, 2, 0);
-      BtnFilter[i].Caption := FILT_FM_NAMES[i];
+    BtnFilter[0].Width   := LeftPanelButtonWidth(PanelFilter.Width, 2, 0);
-      BtnFilter[i].Left    := LeftPanelButtonLeft(PanelFilter.Width, FILT_FM_COUNT, i);
+    BtnFilter[0].Top     := 16;
-      BtnFilter[i].Width   := LeftPanelButtonWidth(PanelFilter.Width, FILT_FM_COUNT, i);
+    BtnFilter[0].Visible := True;
-      BtnFilter[i].Top     := 16;
+    StyleButton(BtnFilter[0], FFilter = 0);
-      BtnFilter[i].Visible := True;
+    BtnFilter[1].Caption := FILT_FM_NAMES[1];
-      StyleButton(BtnFilter[i], i = FFilter);
+    BtnFilter[1].Left    := LeftPanelButtonLeft(PanelFilter.Width, 2, 1);
-    end;
+    BtnFilter[1].Width   := LeftPanelButtonWidth(PanelFilter.Width, 2, 1);
-    for i := FILT_FM_COUNT to FILT_COUNT - 1 do BtnFilter[i].Visible := False;
+    BtnFilter[1].Top     := 16;
+    BtnFilter[1].Visible := True;
+    StyleButton(BtnFilter[1], FFilter = 1);
+    for i := 2 to FILT_COUNT - 1 do BtnFilter[i].Visible := False;
     // Shrink panel to fit label + 1 button row so SQL/CTCSS sit right below
     PanelFilter.Height := BtnFilter[0].Top + BtnFilter[0].Height + 4;
     if PanelFMSQ <> nil then
@@ -5208,22 +5205,14 @@ begin
   end;
   if FWDSPReady then
   begin
-    // WFM-флаг ставим ДО SetFilter и до отправки девиации, чтобы движок
-    // переключил RXA в RXA_WFM и SetRXAWFMDeviation попал на активный демодулятор.
-    FDSPEngine.SetWFMMode((FMode = MODE_FM) and (FFilter = 2));
     FDSPEngine.SetFilter(Lo, Hi);
     FDSPEngine.SetTXFilter(Lo, Hi);
     if FMode = MODE_FM then
     begin
-      if FFilter = 2 then
+      FDSPEngine.SetRXFMDeviation(FFMDeviation);
-        FDSPEngine.SetRXWFMDeviation(FFMDeviation)
-      else
-        FDSPEngine.SetRXFMDeviation(FFMDeviation);
       FDSPEngine.SetTXFMParams(FFMDeviation, FTXSettings.FMLowCut,
                                FTXSettings.FMHighCut, FTXSettings.FMEmphPosition);
-      // FM-сквелч узкополосного демодулятора (RXA_FM) на WFM смысла не имеет,
+      FDSPEngine.SetFMSquelch(FFMSQOn, FFMSQLevel);
-      // и WDSP в RXA_WFM просто проигнорирует флаг — отключаем UI-эффектом.
-      FDSPEngine.SetFMSquelch(FFMSQOn and (FFilter <> 2), FFMSQLevel);
     end
     else
       FDSPEngine.SetFMSquelch(False, 0);
@@ -5277,9 +5266,7 @@ end;
 procedure TMainForm.ApplyFMSquelch;
 begin
   if FWDSPReady then
-    // SQL относится к узкополосному FM-демодулятору; для WFM (FFilter = 2)
+    FDSPEngine.SetFMSquelch(FFMSQOn and (FMode = MODE_FM), FFMSQLevel);
-    // отключаем, иначе кнопка SQL не имела бы эффекта в WDSP.
-    FDSPEngine.SetFMSquelch(FFMSQOn and (FMode = MODE_FM) and (FFilter <> 2), FFMSQLevel);
 end;
 
 procedure TMainForm.BtnFMSQClick(Sender: TObject);

WDSP.pas

@@ -495,20 +495,6 @@ procedure SetRXAFMLimRun(channel: Integer; run: Integer); cdecl; external WDSP_L
 procedure SetRXAFMLimGain(channel: Integer; gaindB: Double); cdecl; external WDSP_LIB;
 procedure SetRXAFMAFFilter(channel: Integer; low: Double; high: Double); cdecl; external WDSP_LIB;
 
-// ---------------------------------------------------------------------------
-// wfm.c / rds.c  (Broadcast WFM demodulator with stereo MPX + RDS)
-// Requires channel dsp_rate >= ~192 kHz for RDS, >= ~120 kHz for stereo only.
-// ---------------------------------------------------------------------------
-procedure SetRXAWFMStereo(channel: Integer; stereo_run: Integer); cdecl; external WDSP_LIB;
-procedure SetRXAWFMRDS(channel: Integer; rds_run: Integer); cdecl; external WDSP_LIB;
-procedure SetRXAWFMDeemphTau(channel: Integer; tau: Double); cdecl; external WDSP_LIB;  // 50e-6 EU, 75e-6 US
-procedure SetRXAWFMDeviation(channel: Integer; deviation: Double); cdecl; external WDSP_LIB;
-function  GetRXAWFMStereoLocked(channel: Integer): Integer; cdecl; external WDSP_LIB;
-function  GetRXAWFMRDSSynced(channel: Integer): Integer; cdecl; external WDSP_LIB;
-// offset_type: 0=A, 1=B, 2=C, 3=C', 4=D. errors: 0 if syndrome matched cleanly.
-function  GetRXAWFMRDSBlock(channel: Integer; data: PWord; offset_type: PByte;
-  errors: PByte): Integer; cdecl; external WDSP_LIB;
-
 // ---------------------------------------------------------------------------
 // fmmod.c  (FM Modulator)
 // ---------------------------------------------------------------------------

WDSPEngine.pas

@@ -36,8 +36,7 @@ const
   WDSP_CWU = 4;
   WDSP_FM  = 5;
   WDSP_AM  = 6;
-  WDSP_SAM = 10;
+  WDSP_SAM = 12;
-  WDSP_WFM = 12;
 
   // Наши индексы режимов (совпадают с кнопками MainForm)
   MODE_LSB = 0;
@@ -278,8 +277,6 @@ type
     FSMeter:     Double;
     FFilterLow:  Integer;
     FFilterHigh: Integer;
-    FWFMEnabled:   Boolean;  // переключатель: при MODE_FM использовать RXA_WFM вместо RXA_FM
-    FWFMDeviation: Double;   // девиация для широкополосного WFM (например, 75 кГц)
     FAGCMode:          TWDSPAGCMode;
     FAGCTop:           Double;   // gain (dB) = agc_gain в piHPSDR
     FAGCSlope:         Integer;  // наклон АРУ в дБ (default 0)
@@ -364,8 +361,6 @@ type
     procedure SetSNB(Enable: Boolean);
     procedure SetANF(Enable: Boolean);
     procedure SetRXFMDeviation(Deviation: Double);
-    procedure SetWFMMode(Enabled: Boolean);
-    procedure SetRXWFMDeviation(Deviation: Double);
     procedure SetFMSquelch(Enable: Boolean; Level: Integer);
     procedure SetVolume(Vol: Double);
     procedure SetMute(Mute: Boolean);
@@ -695,7 +690,7 @@ begin
     MODE_DSB: Result := WDSP_DSB;
     MODE_CWL: Result := WDSP_CWL;
     MODE_CWU: Result := WDSP_CWU;
-    MODE_FM:  if FWFMEnabled then Result := WDSP_WFM else Result := WDSP_FM;
+    MODE_FM:  Result := WDSP_FM;
     MODE_AM:  Result := WDSP_AM;
     MODE_SAM: Result := WDSP_SAM;
     else      Result := WDSP_USB;
@@ -833,8 +828,6 @@ begin
   FTXEQFreqs[10] := 3500;
   FTXAMCarrier     := 0.5;
   FTXFMDeviation   := 5000.0;
-  FWFMEnabled      := False;
-  FWFMDeviation    := 75000.0;
   FTXFMLowCut      := 300;
   FTXFMHighCut     := 3000;
   FTXFMEmphPos     := 1;
@@ -1546,29 +1539,6 @@ begin
   SetRXAFMDeviation(RXA_CHAN, Deviation);
 end;
 
-// Переключает RXA-демодулятор между узкополосным FM (RXA_FM) и широкополосным
-// WFM (RXA_WFM, broadcast 88..108 МГц со стерео и RDS). Срабатывает только при
-// FMode = MODE_FM; в других режимах флаг просто запоминается до перехода в FM.
-procedure TWDSPEngine.SetWFMMode(Enabled: Boolean);
-begin
-  if FWFMEnabled = Enabled then Exit;
-  FWFMEnabled := Enabled;
-  if not FInitialized then Exit;
-  if FMode = MODE_FM then
-  begin
-    SetRXAMode(RXA_CHAN, ModeToWDSP(FMode));
-    if Enabled then
-      SetRXAWFMDeviation(RXA_CHAN, FWFMDeviation);
-  end;
-end;
-
-procedure TWDSPEngine.SetRXWFMDeviation(Deviation: Double);
-begin
-  FWFMDeviation := Deviation;
-  if not FInitialized then Exit;
-  SetRXAWFMDeviation(RXA_CHAN, Deviation);
-end;
-
 procedure TWDSPEngine.SetFMSquelch(Enable: Boolean; Level: Integer);
 var Threshold: Double;
 begin