mirror of
https://git.vladimir.cc/vladimir/ewsdr.git
synced 2026-08-25 20:37:33 +00:00
ew8bakandClaude Opus 4.8
a988849d3e
Add ADALM-Pluto / AD9361 support as a second hardware backend alongside openHPSDR, sharing the WDSP DSP pipeline and the existing controller API (UI stays decoupled from logic). - RadioBackend.pas: abstract TRadioBackend + TBackendCaps + TRadioDevice (Kind/URI/Serial). THPSDRNetwork now derives from it (state via virtual getters); TRadioController.FNetwork is the base type. - IIOBindings.pas: dynamic libiio loader (runs without libiio present). - PlutoBackend.pas: scan/probe-by-URI, connect, LO/rate/bandwidth/gain control, RX streaming thread (int16->24bit BE -> OnDDCIQ), Q conjugated to match WDSP IQ convention. Verified on LibreSDR (AD9361) over network. - Unified discovery: TDiscoverThread scans both backends; network Plutos found via direct ProbeURI (no mDNS needed). ConnectDevice dispatches by Dev.Kind (EnsureBackend swaps backend, preserving callbacks). - DeviceStore/DeviceForm: persist Kind/URI/Serial; save Pluto via AddSavedPluto so saved/autostart devices reconnect across restarts. - VHF/UHF band plan (BoardUtils, kind-aware): 6m..ADS-B for Pluto; fixes HF clamps (band detect, mouse-wheel 60 MHz cap, freq-display max). - SampleRateOverlay: configurable presets (Pluto 576k..5760k, >520 ksps), auto-width to fit. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
94 lines
3.2 KiB
ObjectPascal
94 lines
3.2 KiB
ObjectPascal
unit BoardUtils;
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE Delphi}
|
|
{$ENDIF}
|
|
|
|
interface
|
|
|
|
function BoardTypeName(BoardType: Integer): string;
|
|
// Индекс диапазона по частоте. Pluto=True → VHF/UHF план, иначе HF (openHPSDR).
|
|
function FreqToBandIdx(Hz: Double; Pluto: Boolean = False): Integer;
|
|
// Короткое имя диапазона для кнопки (зависит от плана).
|
|
function BandName(Idx: Integer; Pluto: Boolean = False): string;
|
|
// Частота по умолчанию при входе в диапазон (если нет сохранённой/в диапазоне).
|
|
function BandDefaultFreq(Idx: Integer; Pluto: Boolean = False): Double;
|
|
|
|
implementation
|
|
|
|
uses SysUtils;
|
|
|
|
const
|
|
BAND_COUNT = 11;
|
|
|
|
// ---- HF/6m план (openHPSDR) ----
|
|
HF_NAMES: array[0..BAND_COUNT-1] of string = (
|
|
'160m','80m','60m','40m','30m','20m','17m','15m','12m','10m','6m');
|
|
HF_LO: array[0..BAND_COUNT-1] of Double = (
|
|
1800000, 3500000, 5330000, 7000000, 10100000,
|
|
14000000, 18068000, 21000000, 24890000, 28000000, 50000000);
|
|
HF_HI: array[0..BAND_COUNT-1] of Double = (
|
|
2000000, 4000000, 5410000, 7300000, 10150000,
|
|
14350000, 18168000, 21450000, 24990000, 29700000, 54000000);
|
|
HF_DEF: array[0..BAND_COUNT-1] of Double = (
|
|
1840000, 3700000, 5357000, 7100000, 10120000,
|
|
14200000, 18130000, 21300000, 24940000, 28400000, 50150000);
|
|
|
|
// ---- VHF/UHF/SHF план (Pluto / AD936x), 11 слотов ----
|
|
VU_NAMES: array[0..BAND_COUNT-1] of string = (
|
|
'6m','4m','2m','1.25m','70cm','23cm','13cm','9cm','FM','Air','ADS-B');
|
|
VU_LO: array[0..BAND_COUNT-1] of Double = (
|
|
50000000, 70000000, 144000000, 222000000, 430000000,
|
|
1240000000, 2300000000, 3300000000, 88000000, 118000000, 1087000000);
|
|
VU_HI: array[0..BAND_COUNT-1] of Double = (
|
|
54000000, 70500000, 148000000, 225000000, 440000000,
|
|
1300000000, 2450000000, 3500000000, 108000000, 137000000, 1093000000);
|
|
VU_DEF: array[0..BAND_COUNT-1] of Double = (
|
|
50150000, 70200000, 145000000, 223500000, 433500000,
|
|
1296200000, 2320000000, 3400100000, 100000000, 124000000, 1090000000);
|
|
|
|
function BoardTypeName(BoardType: Integer): string;
|
|
begin
|
|
case BoardType of
|
|
1: Result := 'HERMES (ANAN-10/100)';
|
|
2: Result := 'HERMES-E (ANAN-10E/100B)';
|
|
3: Result := 'ANGELIA (ANAN-100D)';
|
|
4: Result := 'ORION (ANAN-200D)';
|
|
5: Result := 'ORION MkII (ANAN-7000/8000)';
|
|
6: Result := 'HERMES-LITE 2';
|
|
10: Result := 'SATURN (G2)';
|
|
else Result := Format('Unknown Board #%d', [BoardType]);
|
|
end;
|
|
end;
|
|
|
|
function FreqToBandIdx(Hz: Double; Pluto: Boolean): Integer;
|
|
var
|
|
i: Integer;
|
|
begin
|
|
Result := -1;
|
|
if Pluto then
|
|
begin
|
|
for i := 0 to BAND_COUNT - 1 do
|
|
if (Hz >= VU_LO[i]) and (Hz <= VU_HI[i]) then Exit(i);
|
|
end
|
|
else
|
|
begin
|
|
for i := 0 to BAND_COUNT - 1 do
|
|
if (Hz >= HF_LO[i]) and (Hz <= HF_HI[i]) then Exit(i);
|
|
end;
|
|
end;
|
|
|
|
function BandName(Idx: Integer; Pluto: Boolean): string;
|
|
begin
|
|
if (Idx < 0) or (Idx >= BAND_COUNT) then Exit('');
|
|
if Pluto then Result := VU_NAMES[Idx] else Result := HF_NAMES[Idx];
|
|
end;
|
|
|
|
function BandDefaultFreq(Idx: Integer; Pluto: Boolean): Double;
|
|
begin
|
|
if (Idx < 0) or (Idx >= BAND_COUNT) then Exit(0);
|
|
if Pluto then Result := VU_DEF[Idx] else Result := HF_DEF[Idx];
|
|
end;
|
|
|
|
end.
|