ew8bak/ewsdr
1
0
Fork 0
mirror of https://git.vladimir.cc/vladimir/ewsdr.git synced 2026-08-25 20:37:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

Revert "Add WFM (broadcast FM) demodulator support"

Browse Source 
This reverts commit e52e32dc20.
This commit is contained in:
ew8bak
2026-06-01 14:40:39 +03:00
parent e52e32dc20
commit d8584323ac
3 changed files with 25 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MainForm.pas
+23 -36
View File
@@ -92,17 +92,11 @@ const
(20000, 18000, 16000, 12000, 10000, 9000, 8000, 7000, 6000, 5000);
FILT_AM_DEF = 4; // 10k
// FM filter presets:
// NFM — 2.5 kHz deviation / 11 kHz BW (узкополосный FM, любительские диапазоны)
// FM — 5.0 kHz deviation / 16 kHz BW (расширенный NFM)
// WFM — 75 kHz deviation / 200 kHz BW (broadcast FM 88..108 МГц).
// Требует dsp_rate (ширину канала) >= ~120 кГц для моно, >= ~192 кГц
// для стерео+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);
// FM: NFM (2.5 kHz deviation / 11 kHz BW) and FM (5.0 kHz deviation / 16 kHz BW)
FILT_FM_COUNT = 2;
FILT_FM_NAMES: array[0..1] of string = ('NFM', 'FM');
FILT_FM_BW: array[0..1] of Integer = (11000, 16000);
FILT_FM_DEV: array[0..1] of Double = (2500.0, 5000.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
begin
BtnFilter[i].Caption := FILT_FM_NAMES[i];
BtnFilter[i].Left := LeftPanelButtonLeft(PanelFilter.Width, FILT_FM_COUNT, i);
BtnFilter[i].Width := LeftPanelButtonWidth(PanelFilter.Width, FILT_FM_COUNT, i);
BtnFilter[i].Top := 16;
BtnFilter[i].Visible := True;
StyleButton(BtnFilter[i], i = FFilter);
end;
for i := FILT_FM_COUNT to FILT_COUNT - 1 do BtnFilter[i].Visible := False;
BtnFilter[0].Caption := FILT_FM_NAMES[0];
BtnFilter[0].Left := LeftPanelButtonLeft(PanelFilter.Width, 2, 0);
BtnFilter[0].Width := LeftPanelButtonWidth(PanelFilter.Width, 2, 0);
BtnFilter[0].Top := 16;
BtnFilter[0].Visible := True;
StyleButton(BtnFilter[0], FFilter = 0);
BtnFilter[1].Caption := FILT_FM_NAMES[1];
BtnFilter[1].Left := LeftPanelButtonLeft(PanelFilter.Width, 2, 1);
BtnFilter[1].Width := LeftPanelButtonWidth(PanelFilter.Width, 2, 1);
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.SetRXWFMDeviation(FFMDeviation)
else
FDSPEngine.SetRXFMDeviation(FFMDeviation);
FDSPEngine.SetRXFMDeviation(FFMDeviation);
FDSPEngine.SetTXFMParams(FFMDeviation, FTXSettings.FMLowCut,
FTXSettings.FMHighCut, FTXSettings.FMEmphPosition);
// FM-сквелч узкополосного демодулятора (RXA_FM) на WFM смысла не имеет,
// и WDSP в RXA_WFM просто проигнорирует флаг — отключаем UI-эффектом.
FDSPEngine.SetFMSquelch(FFMSQOn and (FFilter <> 2), FFMSQLevel);
FDSPEngine.SetFMSquelch(FFMSQOn, FFMSQLevel);
end
else
FDSPEngine.SetFMSquelch(False, 0);
@@ -5277,9 +5266,7 @@ end;
procedure TMainForm.ApplyFMSquelch;
begin
if FWDSPReady then
// SQL относится к узкополосному FM-демодулятору; для WFM (FFilter = 2)
// отключаем, иначе кнопка SQL не имела бы эффекта в WDSP.
FDSPEngine.SetFMSquelch(FFMSQOn and (FMode = MODE_FM) and (FFilter <> 2), FFMSQLevel);
FDSPEngine.SetFMSquelch(FFMSQOn and (FMode = MODE_FM), FFMSQLevel);
end;
procedure TMainForm.BtnFMSQClick(Sender: TObject);