mirror of
https://git.vladimir.cc/vladimir/ewsdr.git
synced 2026-08-25 20:37:33 +00:00
feat(tx): привязка профиля к паре «флаг + модуляция»
Одного значения на флаг мало: на слайсе с FT8 и на нём же голосом нужен разный звук, а слайс/главный меняют модуляцию на лету. Привязка стала таблицей TTXProfModeTable (режим → индекс профиля, -1 = не переключать), своя у каждого флага: MainByMode у главного (одна на устройство, общая для КВ и трансвертера) и TXProfByMode у слайса (сама разъезжается по контекстам — записи слайсов хранятся отдельно для КВ и трансвертера). Ключ — режим САМОГО ФЛАГА (FlagMode): у главного FMode, у слайса свой. Выбор в пилюле пишется в ячейку текущего режима, поэтому смена модуляции достаёт профиль, с которым в этом виде работали в прошлый раз. Применение — в трёх точках, все ДО пуша режима в WDSP (ApplyTXChainSettings внутри SetTXMode перешьёт цепь уже новыми значениями): SetTxSlice, SetMode (если передаём с главного) и SetSliceMode (если источник — этот слайс). Персист: tx_prof_modes в записи слайса, main_prof_modes в секции tx_profiles. Чтение защитное — индекс вне текущего списка профилей читается как -1. Round-trip проверен прогоном: обе таблицы переживают запись/чтение, незаданные режимы -1. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
This commit is contained in:
Claude Opus 5
+77
-16
@@ -178,9 +178,10 @@ type
|
||||
InDeviceIndex: Integer; // PortAudio-индекс ввода (-1 = общий)
|
||||
InDevName: string;
|
||||
AudioIn: TAudioInput; // НЕ владеет: ссылка на поток из mic-пула
|
||||
// TX-профиль слайса: индекс в FTXProfiles или -1 = «не переключать».
|
||||
// Применяется, когда слайс становится TX-источником (SetTxSlice).
|
||||
TXProfile: Integer;
|
||||
// TX-профиль слайса ПО РЕЖИМУ: индекс в FTXProfiles или -1 = «не
|
||||
// переключать». Применяется, когда слайс становится TX-источником
|
||||
// (SetTxSlice) и когда он меняет режим, будучи источником.
|
||||
TXProfByMode: TTXProfModeTable;
|
||||
DMR: TDMRSliceDecoder; // владеет; nil для не-DMR слайса
|
||||
end;
|
||||
|
||||
@@ -599,9 +600,14 @@ type
|
||||
procedure RenameTXProfile(Idx: Integer; const AName: string);
|
||||
procedure DeleteTXProfile(Idx: Integer);
|
||||
procedure ResetTXProfilesToFactory; // заводской набор заново
|
||||
// Профиль на TX-источник: -1 = не переключать (звучит активный).
|
||||
// Профиль на TX-источник, ключ — режим этого флага (-1 = не переключать,
|
||||
// звучит активный). Таблица у каждого флага своя: главный в FTXProfiles,
|
||||
// слайсы в своих записях.
|
||||
function FlagMode(SliceId: Integer): Integer;
|
||||
function SliceTXProfile(SliceId: Integer): Integer;
|
||||
procedure SetSliceTXProfile(SliceId, ProfIdx: Integer);
|
||||
function SliceTXProfileTable(SliceId: Integer): TTXProfModeTable;
|
||||
procedure SetSliceTXProfileTable(SliceId: Integer; const T: TTXProfModeTable);
|
||||
procedure RemapTXProfileBindings(Deleted: Integer); // после удаления/замены списка
|
||||
procedure ApplyBoundTXProfile; // профиль текущего TX-источника → в эфир
|
||||
procedure SaveTXProfilesToConfig;
|
||||
@@ -2156,7 +2162,7 @@ begin
|
||||
FSlices[slot].RxMuteOnTx := True; // себя на передаче по умолчанию не слышим
|
||||
FSlices[slot].FMSQOn := False; // squelch по умолчанию выключен
|
||||
FSlices[slot].FMSQLevel := 40;
|
||||
FSlices[slot].TXProfile := -1; // звучит тот профиль, что активен
|
||||
ClearTXProfModeTable(FSlices[slot].TXProfByMode); // звучит активный профиль
|
||||
FSlices[slot].NRMode := 0; // DSP слайса стартует выключенным
|
||||
FSlices[slot].NBMode := 0;
|
||||
FSlices[slot].SNB := False;
|
||||
@@ -2231,6 +2237,8 @@ begin
|
||||
// Этот слайс — источник передачи: передающий тракт идёт за его режимом
|
||||
// (иначе после смены режима в эфир ушёл бы прежний вид модуляции). Вход FM
|
||||
// RAW — внешний PCM, поэтому заодно пересматриваем источник модуляции.
|
||||
// Профиль этого слайса в НОВОМ режиме — до пуша цепи (см. SetMode).
|
||||
if (FTxSliceId = Id) and (Mode <> OldMode) then ApplyBoundTXProfile;
|
||||
if (FTxSliceId = Id) and (Mode <> OldMode) and
|
||||
FWDSPReady and Assigned(FDSPEngine) then
|
||||
begin
|
||||
@@ -3996,6 +4004,10 @@ begin
|
||||
if Assigned(FDMRDec) then FDMRDec.SetEnabled(FMode = MODE_DMR);
|
||||
ApplyModeDefaults; // дефолтный фильтр/девиация под режим
|
||||
FBandCache[FCurrentBand].Mode := FMode;
|
||||
// Профиль привязан к паре «флаг + модуляция»: если передаём с главного,
|
||||
// новый режим приносит свой профиль. До пуша в WDSP — ApplyTXChainSettings
|
||||
// внутри SetTXMode ниже перешьёт цепь уже с новыми значениями.
|
||||
if FTxSliceId = 0 then ApplyBoundTXProfile;
|
||||
if FWDSPReady and Assigned(FDSPEngine) then
|
||||
begin
|
||||
FDSPEngine.SetMode(FMode);
|
||||
@@ -5074,43 +5086,61 @@ procedure TRadioController.RemapTXProfileBindings(Deleted: Integer);
|
||||
else if B > Deleted then Dec(B);
|
||||
end;
|
||||
|
||||
var i: Integer;
|
||||
var i, m: Integer;
|
||||
begin
|
||||
Fix(FTXProfiles.MainBind);
|
||||
for m := 0 to CFG_MODE_MAX do Fix(FTXProfiles.MainByMode[m]);
|
||||
for i := 0 to High(FSlices) do
|
||||
if FSlices[i].Active then Fix(FSlices[i].TXProfile);
|
||||
if FSlices[i].Active then
|
||||
for m := 0 to CFG_MODE_MAX do Fix(FSlices[i].TXProfByMode[m]);
|
||||
end;
|
||||
|
||||
function TRadioController.FlagMode(SliceId: Integer): Integer;
|
||||
// Режим, в котором сейчас стоит этот флаг: у главного — FMode, у слайса — свой.
|
||||
var idx: Integer;
|
||||
begin
|
||||
Result := FMode;
|
||||
if SliceId > 0 then
|
||||
begin
|
||||
idx := FindSliceIndex(SliceId);
|
||||
if idx >= 0 then Result := FSlices[idx].Mode;
|
||||
end;
|
||||
Result := EnsureRange(Result, 0, CFG_MODE_MAX);
|
||||
end;
|
||||
|
||||
function TRadioController.SliceTXProfile(SliceId: Integer): Integer;
|
||||
// Привязка «этот источник передачи → этот профиль». -1 = не переключать.
|
||||
// Привязка «этот источник передачи В ЭТОМ РЕЖИМЕ → этот профиль».
|
||||
// -1 = не переключать. Ключ — режим самого флага, поэтому смена модуляции
|
||||
// сама достаёт профиль, с которым в этом виде работали в прошлый раз.
|
||||
var idx: Integer;
|
||||
begin
|
||||
Result := -1;
|
||||
if SliceId <= 0 then
|
||||
Result := FTXProfiles.MainBind
|
||||
Result := FTXProfiles.MainByMode[FlagMode(SliceId)]
|
||||
else
|
||||
begin
|
||||
idx := FindSliceIndex(SliceId);
|
||||
if idx >= 0 then Result := FSlices[idx].TXProfile;
|
||||
if idx >= 0 then Result := FSlices[idx].TXProfByMode[FlagMode(SliceId)];
|
||||
end;
|
||||
if (Result < 0) or (Result >= FTXProfiles.Count) then Result := -1;
|
||||
end;
|
||||
|
||||
procedure TRadioController.SetSliceTXProfile(SliceId, ProfIdx: Integer);
|
||||
var idx: Integer;
|
||||
// Пишем в ячейку ТЕКУЩЕГО режима этого флага: выбор запоминается за модуляцией.
|
||||
var idx, m: Integer;
|
||||
begin
|
||||
if (ProfIdx < -1) or (ProfIdx >= FTXProfiles.Count) then ProfIdx := -1;
|
||||
m := FlagMode(SliceId);
|
||||
if SliceId <= 0 then
|
||||
begin
|
||||
if FTXProfiles.MainBind = ProfIdx then Exit;
|
||||
FTXProfiles.MainBind := ProfIdx;
|
||||
if FTXProfiles.MainByMode[m] = ProfIdx then Exit;
|
||||
FTXProfiles.MainByMode[m] := ProfIdx;
|
||||
SaveTXProfilesToConfig;
|
||||
end
|
||||
else
|
||||
begin
|
||||
idx := FindSliceIndex(SliceId);
|
||||
if (idx < 0) or (FSlices[idx].TXProfile = ProfIdx) then Exit;
|
||||
FSlices[idx].TXProfile := ProfIdx;
|
||||
if (idx < 0) or (FSlices[idx].TXProfByMode[m] = ProfIdx) then Exit;
|
||||
FSlices[idx].TXProfByMode[m] := ProfIdx;
|
||||
// Персист слайсов делает MainForm на общем сохранении панов — здесь только
|
||||
// состояние. Привязку главного пишем сразу: она живёт в секции профилей.
|
||||
end;
|
||||
@@ -5120,6 +5150,37 @@ begin
|
||||
Changed(rfTXProfile);
|
||||
end;
|
||||
|
||||
procedure TRadioController.SetSliceTXProfileTable(SliceId: Integer;
|
||||
const T: TTXProfModeTable);
|
||||
// Восстановление сохранённой таблицы целиком (персист слайсов/панов).
|
||||
var idx, m: Integer;
|
||||
begin
|
||||
if SliceId <= 0 then
|
||||
begin
|
||||
FTXProfiles.MainByMode := T;
|
||||
Exit;
|
||||
end;
|
||||
idx := FindSliceIndex(SliceId);
|
||||
if idx < 0 then Exit;
|
||||
for m := 0 to CFG_MODE_MAX do
|
||||
if (T[m] >= 0) and (T[m] < FTXProfiles.Count) then
|
||||
FSlices[idx].TXProfByMode[m] := T[m]
|
||||
else
|
||||
FSlices[idx].TXProfByMode[m] := -1;
|
||||
end;
|
||||
|
||||
function TRadioController.SliceTXProfileTable(SliceId: Integer): TTXProfModeTable;
|
||||
var idx: Integer;
|
||||
begin
|
||||
ClearTXProfModeTable(Result);
|
||||
if SliceId <= 0 then Result := FTXProfiles.MainByMode
|
||||
else
|
||||
begin
|
||||
idx := FindSliceIndex(SliceId);
|
||||
if idx >= 0 then Result := FSlices[idx].TXProfByMode;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TRadioController.ApplyBoundTXProfile;
|
||||
// Профиль текущего TX-источника → в эфир. Ничего не делает, если источник ни к
|
||||
// чему не привязан (-1) или нужный профиль уже активен.
|
||||
|
||||
Reference in New Issue
Block a user