278 lines
8.4 KiB
C++
278 lines
8.4 KiB
C++
|
/*
|
||
|
|
* OPLInstrDlg.cpp
|
||
|
|
* ---------------
|
||
|
|
* Purpose: Editor for OPL-based synth instruments
|
||
|
|
* Notes : (currently none)
|
||
|
|
* Authors: OpenMPT Devs
|
||
|
|
* The OpenMPT source code is released under the BSD license. Read LICENSE for more details.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include "stdafx.h"
|
||
|
|
#include "OPLInstrDlg.h"
|
||
|
|
#include "../soundlib/OPL.h"
|
||
|
|
#include "../soundlib/Sndfile.h"
|
||
|
|
#include "resource.h"
|
||
|
|
#include "Mainfrm.h"
|
||
|
|
|
||
|
|
OPENMPT_NAMESPACE_BEGIN
|
||
|
|
|
||
|
|
BEGIN_MESSAGE_MAP(OPLInstrDlg, CDialog)
|
||
|
|
ON_WM_HSCROLL()
|
||
|
|
ON_MESSAGE(WM_MOD_DRAGONDROPPING, &OPLInstrDlg::OnDragonDropping)
|
||
|
|
ON_COMMAND(IDC_CHECK1, &OPLInstrDlg::ParamsChanged)
|
||
|
|
ON_COMMAND(IDC_CHECK2, &OPLInstrDlg::ParamsChanged)
|
||
|
|
ON_COMMAND(IDC_CHECK3, &OPLInstrDlg::ParamsChanged)
|
||
|
|
ON_COMMAND(IDC_CHECK4, &OPLInstrDlg::ParamsChanged)
|
||
|
|
ON_COMMAND(IDC_CHECK5, &OPLInstrDlg::ParamsChanged)
|
||
|
|
ON_COMMAND(IDC_CHECK6, &OPLInstrDlg::ParamsChanged)
|
||
|
|
ON_COMMAND(IDC_CHECK7, &OPLInstrDlg::ParamsChanged)
|
||
|
|
ON_COMMAND(IDC_CHECK8, &OPLInstrDlg::ParamsChanged)
|
||
|
|
ON_COMMAND(IDC_CHECK9, &OPLInstrDlg::ParamsChanged)
|
||
|
|
ON_CBN_SELCHANGE(IDC_COMBO1, &OPLInstrDlg::ParamsChanged)
|
||
|
|
ON_CBN_SELCHANGE(IDC_COMBO2, &OPLInstrDlg::ParamsChanged)
|
||
|
|
ON_NOTIFY_EX(TTN_NEEDTEXT, 0, &OPLInstrDlg::OnToolTip)
|
||
|
|
END_MESSAGE_MAP()
|
||
|
|
|
||
|
|
|
||
|
|
void OPLInstrDlg::DoDataExchange(CDataExchange *pDX)
|
||
|
|
{
|
||
|
|
CDialog::DoDataExchange(pDX);
|
||
|
|
DDX_Control(pDX, IDC_CHECK1, m_additive);
|
||
|
|
DDX_Control(pDX, IDC_SLIDER1, m_feedback);
|
||
|
|
|
||
|
|
for(int op = 0; op < 2; op++)
|
||
|
|
{
|
||
|
|
const int slider = op * 7;
|
||
|
|
const int check = op * 4;
|
||
|
|
DDX_Control(pDX, IDC_SLIDER2 + slider, m_attackRate[op]);
|
||
|
|
DDX_Control(pDX, IDC_SLIDER3 + slider, m_decayRate[op]);
|
||
|
|
DDX_Control(pDX, IDC_SLIDER4 + slider, m_sustainLevel[op]);
|
||
|
|
DDX_Control(pDX, IDC_SLIDER5 + slider, m_releaseRate[op]);
|
||
|
|
DDX_Control(pDX, IDC_CHECK2 + check, m_sustain[op]);
|
||
|
|
DDX_Control(pDX, IDC_SLIDER6 + slider, m_volume[op]);
|
||
|
|
DDX_Control(pDX, IDC_CHECK3 + check, m_scaleEnv[op]);
|
||
|
|
DDX_Control(pDX, IDC_SLIDER7 + slider, m_levelScaling[op]);
|
||
|
|
DDX_Control(pDX, IDC_SLIDER8 + slider, m_freqMultiplier[op]);
|
||
|
|
DDX_Control(pDX, IDC_COMBO1 + op, m_waveform[op]);
|
||
|
|
DDX_Control(pDX, IDC_CHECK4 + check, m_vibrato[op]);
|
||
|
|
DDX_Control(pDX, IDC_CHECK5 + check, m_tremolo[op]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
OPLInstrDlg::OPLInstrDlg(CWnd &parent, const CSoundFile &sndFile)
|
||
|
|
: m_parent(parent)
|
||
|
|
, m_sndFile(sndFile)
|
||
|
|
{
|
||
|
|
Create(IDD_OPL_PARAMS, &parent);
|
||
|
|
CRect rect;
|
||
|
|
GetClientRect(rect);
|
||
|
|
m_windowSize = rect.BottomRight();
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
OPLInstrDlg::~OPLInstrDlg()
|
||
|
|
{
|
||
|
|
DestroyWindow();
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
BOOL OPLInstrDlg::OnInitDialog()
|
||
|
|
{
|
||
|
|
CDialog::OnInitDialog();
|
||
|
|
EnableToolTips();
|
||
|
|
m_feedback.SetRange(0, 7);
|
||
|
|
for(int op = 0; op < 2; op++)
|
||
|
|
{
|
||
|
|
m_attackRate[op].SetRange(0, 15);
|
||
|
|
m_decayRate[op].SetRange(0, 15);
|
||
|
|
m_sustainLevel[op].SetRange(0, 15);
|
||
|
|
m_releaseRate[op].SetRange(0, 15);
|
||
|
|
m_volume[op].SetRange(0, 63);
|
||
|
|
m_volume[op].SetTicFreq(4);
|
||
|
|
m_levelScaling[op].SetRange(0, 3);
|
||
|
|
m_freqMultiplier[op].SetRange(0, 15);
|
||
|
|
}
|
||
|
|
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
BOOL OPLInstrDlg::PreTranslateMessage(MSG *pMsg)
|
||
|
|
{
|
||
|
|
if(pMsg)
|
||
|
|
{
|
||
|
|
// Forward key presses and drag&drop support to parent editor
|
||
|
|
if(pMsg->message == WM_SYSKEYUP || pMsg->message == WM_KEYUP ||
|
||
|
|
pMsg->message == WM_SYSKEYDOWN || pMsg->message == WM_KEYDOWN ||
|
||
|
|
pMsg->message == WM_DROPFILES)
|
||
|
|
{
|
||
|
|
if(pMsg->hwnd == m_hWnd)
|
||
|
|
{
|
||
|
|
pMsg->hwnd = m_parent.m_hWnd;
|
||
|
|
}
|
||
|
|
if(m_parent.PreTranslateMessage(pMsg))
|
||
|
|
{
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
} else if(pMsg->message == WM_CHAR)
|
||
|
|
{
|
||
|
|
// Avoid Windows sounds on note key repeats
|
||
|
|
if(HIWORD(pMsg->lParam) & 0x4000)
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return CDialog::PreTranslateMessage(pMsg);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
LRESULT OPLInstrDlg::OnDragonDropping(WPARAM wParam, LPARAM lParam)
|
||
|
|
{
|
||
|
|
return m_parent.SendMessage(WM_MOD_DRAGONDROPPING, wParam, lParam);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
// Swap OPL Key Scale Level bits for a "human-readable" value.
|
||
|
|
static uint8 KeyScaleLevel(uint8 kslVolume)
|
||
|
|
{
|
||
|
|
static constexpr uint8 KSLFix[4] = { 0x00, 0x80, 0x40, 0xC0 };
|
||
|
|
return KSLFix[kslVolume >> 6];
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
void OPLInstrDlg::SetPatch(OPLPatch &patch)
|
||
|
|
{
|
||
|
|
SetRedraw(FALSE);
|
||
|
|
|
||
|
|
m_additive.SetCheck((patch[10] & OPL::CONNECTION_BIT) ? BST_CHECKED : BST_UNCHECKED);
|
||
|
|
m_feedback.SetPos((patch[10] & OPL::FEEDBACK_MASK) >> 1);
|
||
|
|
for(int op = 0; op < 2; op++)
|
||
|
|
{
|
||
|
|
m_attackRate[op].SetPos(15 - (patch[4 + op] >> 4));
|
||
|
|
m_decayRate[op].SetPos(15 - (patch[4 + op] & 0x0F));
|
||
|
|
m_sustainLevel[op].SetPos(15 - (patch[6 + op] >> 4));
|
||
|
|
m_releaseRate[op].SetPos(15 - (patch[6 + op] & 0x0F));
|
||
|
|
m_volume[op].SetPos(63 - (patch[2 + op] & OPL::TOTAL_LEVEL_MASK));
|
||
|
|
m_levelScaling[op].SetPos(KeyScaleLevel(patch[2 + op]) >> 6);
|
||
|
|
m_freqMultiplier[op].SetPos(patch[0 + op] & OPL::MULTIPLE_MASK);
|
||
|
|
|
||
|
|
m_sustain[op].SetCheck((patch[0 + op] & OPL::SUSTAIN_ON) ? BST_CHECKED : BST_UNCHECKED);
|
||
|
|
m_scaleEnv[op].SetCheck((patch[0 + op] & OPL::KSR) ? BST_CHECKED : BST_UNCHECKED);
|
||
|
|
m_vibrato[op].SetCheck((patch[0 + op] & OPL::VIBRATO_ON) ? BST_CHECKED : BST_UNCHECKED);
|
||
|
|
m_tremolo[op].SetCheck((patch[0 + op] & OPL::TREMOLO_ON) ? BST_CHECKED : BST_UNCHECKED);
|
||
|
|
|
||
|
|
const auto waveform = patch[8 + op];
|
||
|
|
const int numWaveforms = (m_sndFile.GetType() == MOD_TYPE_S3M && waveform < 4) ? 4 : 8;
|
||
|
|
if(numWaveforms != m_waveform[op].GetCount())
|
||
|
|
{
|
||
|
|
m_waveform[op].ResetContent();
|
||
|
|
static constexpr const TCHAR *waveformNames[] =
|
||
|
|
{
|
||
|
|
_T("Sine"), _T("Half Sine"), _T("Absolute Sine"), _T("Pulse Sine"),
|
||
|
|
_T("Sine (Even Periods)"), _T("Absolute Sine (Even Periods)"), _T("Square"), _T("Derived Square")
|
||
|
|
};
|
||
|
|
for(int i = 0; i < numWaveforms; i++)
|
||
|
|
{
|
||
|
|
m_waveform[op].AddString(waveformNames[i]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
m_waveform[op].SetCurSel(waveform);
|
||
|
|
}
|
||
|
|
SetRedraw(TRUE);
|
||
|
|
m_patch = &patch;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
void OPLInstrDlg::ParamsChanged()
|
||
|
|
{
|
||
|
|
OPLPatch patch{{}};
|
||
|
|
if(m_additive.GetCheck() != BST_UNCHECKED) patch[10] |= OPL::CONNECTION_BIT;
|
||
|
|
patch[10] |= static_cast<uint8>(m_feedback.GetPos() << 1);
|
||
|
|
for(int op = 0; op < 2; op++)
|
||
|
|
{
|
||
|
|
patch[op] = static_cast<uint8>(m_freqMultiplier[op].GetPos());
|
||
|
|
if(m_sustain[op].GetCheck() != BST_UNCHECKED) patch[op] |= OPL::SUSTAIN_ON;
|
||
|
|
if(m_scaleEnv[op].GetCheck() != BST_UNCHECKED) patch[op] |= OPL::KSR;
|
||
|
|
if(m_vibrato[op].GetCheck() != BST_UNCHECKED) patch[op] |= OPL::VIBRATO_ON;
|
||
|
|
if(m_tremolo[op].GetCheck() != BST_UNCHECKED) patch[op] |= OPL::TREMOLO_ON;
|
||
|
|
patch[2 + op] = static_cast<uint8>((63 - m_volume[op].GetPos()) | KeyScaleLevel(static_cast<uint8>(m_levelScaling[op].GetPos() << 6)));
|
||
|
|
patch[4 + op] = static_cast<uint8>(((15 - m_attackRate[op].GetPos()) << 4) | (15 - m_decayRate[op].GetPos()));
|
||
|
|
patch[6 + op] = static_cast<uint8>(((15 - m_sustainLevel[op].GetPos()) << 4) | (15 - m_releaseRate[op].GetPos()));
|
||
|
|
patch[8 + op] = static_cast<uint8>(m_waveform[op].GetCurSel());
|
||
|
|
}
|
||
|
|
|
||
|
|
if(*m_patch != patch)
|
||
|
|
{
|
||
|
|
m_parent.SendMessage(WM_MOD_VIEWMSG, VIEWMSG_PREPAREUNDO);
|
||
|
|
*m_patch = patch;
|
||
|
|
m_parent.SendMessage(WM_MOD_VIEWMSG, VIEWMSG_SETMODIFIED, SampleHint().Data().AsLPARAM());
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
BOOL OPLInstrDlg::OnToolTip(UINT /*id*/, NMHDR *pNMHDR, LRESULT* /*pResult*/)
|
||
|
|
{
|
||
|
|
TOOLTIPTEXT *pTTT = (TOOLTIPTEXT *)pNMHDR;
|
||
|
|
UINT_PTR nID = pNMHDR->idFrom;
|
||
|
|
if(pTTT->uFlags & TTF_IDISHWND)
|
||
|
|
{
|
||
|
|
// idFrom is actually the HWND of the tool
|
||
|
|
nID = ::GetDlgCtrlID((HWND)nID);
|
||
|
|
}
|
||
|
|
|
||
|
|
static constexpr const char *feedback[] = {"disabled", "\xCF\x80/16", "\xCF\x80/8", "\xCF\x80/4", "\xCF\x80/2", "\xCF\x80", "2\xCF\x80", "4\xCF\x80"};
|
||
|
|
static constexpr const TCHAR *ksl[] = {_T("disabled"), _T("1.5 dB / octave"), _T("3 dB / octave"), _T("6 dB / octave")};
|
||
|
|
|
||
|
|
mpt::tstring text;
|
||
|
|
const CWnd *wnd = GetDlgItem(static_cast<int>(nID));
|
||
|
|
const CSliderCtrl *slider = static_cast<const CSliderCtrl *>(wnd);
|
||
|
|
switch(nID)
|
||
|
|
{
|
||
|
|
case IDC_SLIDER1:
|
||
|
|
// Feedback
|
||
|
|
text = mpt::ToWin(mpt::Charset::UTF8, feedback[slider->GetPos() & 7]);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case IDC_SLIDER2:
|
||
|
|
case IDC_SLIDER3:
|
||
|
|
case IDC_SLIDER5:
|
||
|
|
case IDC_SLIDER9:
|
||
|
|
case IDC_SLIDER10:
|
||
|
|
case IDC_SLIDER12:
|
||
|
|
// Attack / Decay / Release
|
||
|
|
text = _T("faster < ") + mpt::tfmt::val(slider->GetPos()) + _T(" > slower");
|
||
|
|
break;
|
||
|
|
case IDC_SLIDER4:
|
||
|
|
case IDC_SLIDER11:
|
||
|
|
// Sustain Level
|
||
|
|
{
|
||
|
|
const int pos = slider->GetPos();
|
||
|
|
text = mpt::tfmt::val((pos == 0) ? -93 : ((-15 + pos) * 3)) + _T(" dB");
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case IDC_SLIDER6:
|
||
|
|
case IDC_SLIDER13:
|
||
|
|
// Volume Level
|
||
|
|
text = mpt::tfmt::fix((-63 + slider->GetPos()) * 0.75, 2) + _T(" dB");
|
||
|
|
break;
|
||
|
|
case IDC_SLIDER7:
|
||
|
|
case IDC_SLIDER14:
|
||
|
|
// Key Scale Level
|
||
|
|
text = ksl[slider->GetPos() & 3];
|
||
|
|
break;
|
||
|
|
case IDC_SLIDER8:
|
||
|
|
case IDC_SLIDER15:
|
||
|
|
// Frequency Multiplier
|
||
|
|
if(slider->GetPos() == 0)
|
||
|
|
text = _T("0.5");
|
||
|
|
else
|
||
|
|
text = mpt::tfmt::val(slider->GetPos());
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
mpt::String::WriteWinBuf(pTTT->szText) = text.c_str();
|
||
|
|
return TRUE;
|
||
|
|
}
|
||
|
|
|
||
|
|
OPENMPT_NAMESPACE_END
|