mirror of
https://github.com/n5ac/mmvari.git
synced 2025-12-06 04:12:03 +01:00
582 lines
18 KiB
C++
582 lines
18 KiB
C++
|
//Copyright+LGPL
|
|||
|
|
|
|||
|
|
//-----------------------------------------------------------------------------------------------------------------------------------------------
|
|||
|
|
// Copyright 2000-2013 Makoto Mori, Nobuyuki Oba
|
|||
|
|
//-----------------------------------------------------------------------------------------------------------------------------------------------
|
|||
|
|
// This file is part of MMVARI.
|
|||
|
|
|
|||
|
|
// MMVARI is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License
|
|||
|
|
// as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
|
|||
|
|
|
|||
|
|
// MMVARI is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|||
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.
|
|||
|
|
|
|||
|
|
// You should have received a copy of the GNU Lesser General Public License along with MMTTY. If not, see
|
|||
|
|
// <http://www.gnu.org/licenses/>.
|
|||
|
|
//-----------------------------------------------------------------------------------------------------------------------------------------------
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
#include <vcl.h>
|
|||
|
|
#pragma hdrstop
|
|||
|
|
|
|||
|
|
#include "ClockAdj.h"
|
|||
|
|
#include "Main.h"
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
#pragma package(smart_init)
|
|||
|
|
#pragma resource "*.dfm"
|
|||
|
|
//TClockAdjDlg *ClockAdjDlg;
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
__fastcall TClockAdjDlg::TClockAdjDlg(TComponent* Owner)
|
|||
|
|
: TForm(Owner)
|
|||
|
|
{
|
|||
|
|
m_fDisEvent = TRUE;
|
|||
|
|
Font->Name = ((TForm *)Owner)->Font->Name;
|
|||
|
|
Font->Charset = ((TForm *)Owner)->Font->Charset;
|
|||
|
|
if( sys.m_MsgEng ){
|
|||
|
|
Caption = "Calibrating the SoundCard (Clock-RX) with a Time Standard Broadcast Station";
|
|||
|
|
SBClose->Caption = "Cancel";
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
char bf[256];
|
|||
|
|
sprintf(bf, "<EFBFBD>T<EFBFBD>E<EFBFBD><EFBFBD><EFBFBD>h<EFBFBD>J<EFBFBD>[<5B>h(%uHz<48>n)<29>̎<EFBFBD><CC8E>M<EFBFBD>N<EFBFBD><4E><EFBFBD>b<EFBFBD>N<EFBFBD>l<EFBFBD>̊r<CC8A><72>", SAMPBASE);
|
|||
|
|
Caption = bf;
|
|||
|
|
}
|
|||
|
|
m_SampFreq = SAMPFREQ;
|
|||
|
|
m_ToneFreq = 1000.0;
|
|||
|
|
m_Clock.Create(PBoxT->Width);
|
|||
|
|
m_Clock.SetSampleFreq(m_SampFreq);
|
|||
|
|
m_Clock.SetToneFreq(m_ToneFreq);
|
|||
|
|
m_pBitmapFFT = new Graphics::TBitmap;
|
|||
|
|
m_pBitmapFFT->Width = PBoxFFT->Width;
|
|||
|
|
m_pBitmapFFT->Height = PBoxFFT->Height;
|
|||
|
|
m_pBitmapT = new Graphics::TBitmap;
|
|||
|
|
// m_pBitmapT->Width = PBoxT->Width;
|
|||
|
|
// m_pBitmapT->Height = PBoxT->Height;
|
|||
|
|
|
|||
|
|
m_FFTWindow = (3000-1) * FFT_SIZE / MainVARI->m_FFTSampFreq;
|
|||
|
|
|
|||
|
|
m_StgT.Sum = 0;
|
|||
|
|
m_StgT.Max = 16384;
|
|||
|
|
m_StgT.VW = 16384;
|
|||
|
|
|
|||
|
|
m_MouseDown = 0;
|
|||
|
|
m_Point = 0;
|
|||
|
|
m_PointRX = 0;
|
|||
|
|
m_CursorX = 640;
|
|||
|
|
CreateWaterColors();
|
|||
|
|
CBTone->Text = m_ToneFreq;
|
|||
|
|
|
|||
|
|
m_fDisEvent = FALSE;
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::FormDestroy(TObject *Sender)
|
|||
|
|
{
|
|||
|
|
if( m_pBitmapFFT ) delete m_pBitmapFFT;
|
|||
|
|
if( m_pBitmapT ) delete m_pBitmapT;
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::FormCloseQuery(TObject *Sender,
|
|||
|
|
bool &CanClose)
|
|||
|
|
{
|
|||
|
|
CanClose = TRUE;
|
|||
|
|
double d = SAMPFREQ - m_SampFreq;
|
|||
|
|
d = fabs(d);
|
|||
|
|
if( d >= 0.005 ){
|
|||
|
|
if( YesNoMB(sys.m_MsgEng ? "The clock value (%.2lfHz) is not applied, are you sure?":"<EFBFBD>N<EFBFBD><EFBFBD><EFBFBD>b<EFBFBD>N<EFBFBD>l(%.2lfHz)<29>͓K<CD93>p<EFBFBD><70><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD>. <20><><EFBFBD>낵<EFBFBD><EB82B5><EFBFBD>ł<EFBFBD><C582><EFBFBD>?", m_SampFreq) == IDNO ){
|
|||
|
|
CanClose = FALSE;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::SBCloseClick(TObject *Sender)
|
|||
|
|
{
|
|||
|
|
Close();
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::FormClose(TObject *Sender,
|
|||
|
|
TCloseAction &Action)
|
|||
|
|
{
|
|||
|
|
if( Action == caHide ){
|
|||
|
|
::PostMessage(MainVARI->Handle, WM_WAVE, waveClockAdj, DWORD(this));
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::Execute(void)
|
|||
|
|
{
|
|||
|
|
char bf[256];
|
|||
|
|
sprintf(bf, "%.2lf", m_SampFreq);
|
|||
|
|
EditClock->Text = bf;
|
|||
|
|
UdClock->Position = 0;
|
|||
|
|
UpdatePPM();
|
|||
|
|
Visible = TRUE;
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::UpdatePPM(void)
|
|||
|
|
{
|
|||
|
|
double dd = ((m_SampFreq - SAMPBASE) * 1000000.0 / SAMPBASE);
|
|||
|
|
|
|||
|
|
char bf[64];
|
|||
|
|
sprintf(bf, "(%+dppm)", int(dd+0.5));
|
|||
|
|
LPPM->Caption = bf;
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::DrawMsg(void)
|
|||
|
|
{
|
|||
|
|
TCanvas *cp = m_pBitmapT->Canvas;
|
|||
|
|
|
|||
|
|
cp->Font->Name = Font->Name;
|
|||
|
|
cp->Font->Charset = Font->Charset;
|
|||
|
|
cp->Font->Color = clWhite;
|
|||
|
|
cp->Font->Size = 10;
|
|||
|
|
int FH = cp->TextHeight("A");
|
|||
|
|
int Y = 5;
|
|||
|
|
if( sys.m_MsgEng ){
|
|||
|
|
cp->TextOut(10, Y, "1) Receive standard radio wave (e.g. BPM on 5MHz, 10MHz, 15MHz, 20MHz)."); Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, "2) Tune into the tick sound."); Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, "3) Continue listening to the sound for a while. You have a vertical line."); Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, "4) Click the lower point of the line."); Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, "5) Click the upper point of the line."); Y+=FH;
|
|||
|
|
Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, "You could use FAX broadcasting instead of WWV, but be sure it has"); Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, "exact timing.");
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
cp->TextOut(10, Y, "1.BPM(WWV)<29><>AM<41>܂<EFBFBD><DC82><EFBFBD>SSB<53>Ŏ<EFBFBD><C58E>M<EFBFBD><4D><EFBFBD>A<EFBFBD><41><EFBFBD>̉<EFBFBD><CC89>ʂ̉<CA82><CC89>ɂ<EFBFBD><C982><EFBFBD>Tone<6E><65>1000Hz"); Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, " <20>܂<EFBFBD><DC82><EFBFBD>1800Hz<48><7A><EFBFBD>ݒ肵<DD92>܂<EFBFBD>. (<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>g<EFBFBD><67> = 5MHz, 10MHz, 15MHz, 20MHz)"); Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, "2.SSB<53>̏ꍇ<CC8F>͂P<CD82>b<EFBFBD>`<60>b<EFBFBD>N<EFBFBD><4E><EFBFBD><EFBFBD>Tone<6E>ɏd<C98F>Ȃ<EFBFBD><C882>悤<EFBFBD>Ɏ<EFBFBD><C98E>M<EFBFBD><4D><EFBFBD>g<EFBFBD><67><EFBFBD><EFBFBD><F092B290><EFBFBD><EFBFBD>܂<EFBFBD>."); Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, "3.<2E><><EFBFBD>炭<CE82><E782AD><EFBFBD>M<EFBFBD><4D><EFBFBD>ďc<C48F>܂<EFBFBD><DC82>͎߂̑ѐ<CC91><D190><EFBFBD><EFBFBD>\<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̂<EFBFBD><EFBFBD>҂<EFBFBD><EFBFBD>܂<EFBFBD><EFBFBD>i<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>j."); Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, "4.<2E>\<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ꂽ<EFBFBD>ѐ<EFBFBD><EFBFBD>̉<EFBFBD><EFBFBD>̒[<5B>_<EFBFBD><5F><EFBFBD>N<EFBFBD><4E><EFBFBD>b<EFBFBD>N<EFBFBD><4E><EFBFBD>܂<EFBFBD>."); Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, "5.<2E>X<EFBFBD>ɓ<EFBFBD><C993><EFBFBD><EFBFBD>ѐ<EFBFBD><D190>̏<EFBFBD><CC8F>̒[<5B>_<EFBFBD><5F><EFBFBD>N<EFBFBD><4E><EFBFBD>b<EFBFBD>N<EFBFBD><4E><EFBFBD><EFBFBD><EFBFBD>ƃN<C683><4E><EFBFBD>b<EFBFBD>N<EFBFBD>l<EFBFBD><6C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>I<EFBFBD><49>"); Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, " <20>ݒ肳<DD92><E882B3><EFBFBD>܂<EFBFBD>.<2E>i2<69>_<EFBFBD>Ԃ̋<D482><CC8B><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ق<EFBFBD><D982><EFBFBD><EFBFBD><EFBFBD><EFBFBD>m<EFBFBD>ł<EFBFBD><C582>j"); Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, "6.<2E>ŏI<C58F>I<EFBFBD>ɑѐ<C991><D190><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɂ܂<C982><DC82><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>悤<EFBFBD>ɂȂ<EFBFBD><EFBFBD><EFBFBD>OK<EFBFBD>ł<EFBFBD>."); Y+=FH+FH;
|
|||
|
|
cp->TextOut(10, Y, "- BPM(WWV)<29>̑<EFBFBD><CC91><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɁA<C981><41><EFBFBD>x<EFBFBD>͗<EFBFBD><CD97><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD><EFBFBD>AJMH,JMG<4D>Ȃǂ<C882>FAX<41><58><EFBFBD><EFBFBD><EFBFBD><EFBFBD>0.5<EFBFBD>b<EFBFBD><EFBFBD><EFBFBD><EFBFBD>"); Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, " <20>f<EFBFBD>b<EFBFBD>h<EFBFBD>Z<EFBFBD>N<EFBFBD>^<5E>𗘗p<F0979897><70><EFBFBD>Ă<EFBFBD>OK<4F>̂悤<CC82>ł<EFBFBD>."); Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, "- NTT<54>̎<EFBFBD><CC8E><EFBFBD><EFBFBD>T<EFBFBD>[<5B>r<EFBFBD>X<EFBFBD>𗘗p<F0979897><70><EFBFBD>邱<EFBFBD>Ƃ<EFBFBD><C682>ł<EFBFBD><C582>܂<EFBFBD>."); Y+=FH+FH;
|
|||
|
|
cp->TextOut(10, Y, "<EFBFBD><EFBFBD><EFBFBD>N<EFBFBD><EFBFBD><EFBFBD>b<EFBFBD>N - <20><><EFBFBD><EFBFBD><EFBFBD>̊J<CC8A>n"); Y+=FH;
|
|||
|
|
cp->TextOut(10, Y, "<EFBFBD>E<EFBFBD>N<EFBFBD><EFBFBD><EFBFBD>b<EFBFBD>N - <20><><EFBFBD><EFBFBD><EFBFBD>J<EFBFBD>[<5B>\<EFBFBD><EFBFBD><EFBFBD>ړ<EFBFBD>");
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::FormResize(TObject *Sender)
|
|||
|
|
{
|
|||
|
|
SBClose->Left = PCC->ClientWidth - SBClose->Width - 2;
|
|||
|
|
SBSet->Left = SBClose->Left - SBSet->Width - 2;
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::Do(short ds)
|
|||
|
|
{
|
|||
|
|
if( m_Clock.Do(ds) ){
|
|||
|
|
TCanvas *pCanvas = m_pBitmapT->Canvas;
|
|||
|
|
TRect src;
|
|||
|
|
src.Left = 0; src.Right = m_pBitmapT->Width;
|
|||
|
|
src.Top = 0; src.Bottom = m_pBitmapT->Height;
|
|||
|
|
TRect trc = src;
|
|||
|
|
src.Bottom--;
|
|||
|
|
trc.Top++;
|
|||
|
|
pCanvas->CopyRect(trc, pCanvas, src);
|
|||
|
|
|
|||
|
|
int sum = 0;
|
|||
|
|
int max = 0;
|
|||
|
|
int mp;
|
|||
|
|
int d;
|
|||
|
|
for( int i = 0; i < src.Right; i++ ){
|
|||
|
|
d = m_Clock.GetData(i);
|
|||
|
|
if( max < d ){
|
|||
|
|
max = d;
|
|||
|
|
mp = i;
|
|||
|
|
}
|
|||
|
|
sum += d;
|
|||
|
|
|
|||
|
|
d = (d - m_StgT.Sum) * 256 / m_StgT.VW;
|
|||
|
|
if( d >= 256 ) d = 255;
|
|||
|
|
if( d < 0 ) d = 0;
|
|||
|
|
pCanvas->Pixels[i][0] = m_tWaterColors[d];
|
|||
|
|
}
|
|||
|
|
pCanvas->Pixels[mp][0] = clRed;
|
|||
|
|
|
|||
|
|
sum /= src.Right;
|
|||
|
|
m_StgT.Sum = (m_StgT.Sum + sum) / 2;
|
|||
|
|
m_StgT.Max = (m_StgT.Max + max) / 2;
|
|||
|
|
m_StgT.VW = m_StgT.Max - m_StgT.Sum;
|
|||
|
|
if( m_StgT.VW < 128 ) m_StgT.VW = 128;
|
|||
|
|
m_PointY++;
|
|||
|
|
m_PointRX++;
|
|||
|
|
if( m_PointRX >= PBoxT->Height ) m_PointRX = PBoxT->Height;
|
|||
|
|
PBoxTPaint(NULL);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::DrawFFT(BOOL fClear)
|
|||
|
|
{
|
|||
|
|
if( !m_pBitmapFFT ) return;
|
|||
|
|
|
|||
|
|
TCanvas *pCanvas = m_pBitmapFFT->Canvas;
|
|||
|
|
TRect rc;
|
|||
|
|
rc.Left = 0; rc.Top = 0;
|
|||
|
|
rc.Right = m_fftXW; rc.Bottom = m_fftYW;
|
|||
|
|
pCanvas->Brush->Color = MainVARI->m_tFFTColset[0].c;
|
|||
|
|
pCanvas->Pen->Color = MainVARI->m_tFFTColset[0].c;
|
|||
|
|
pCanvas->FillRect(rc);
|
|||
|
|
|
|||
|
|
pCanvas->Pen->Style = psDot;
|
|||
|
|
int xx, y;
|
|||
|
|
int fh = pCanvas->TextHeight("A");
|
|||
|
|
|
|||
|
|
switch(MainVARI->m_FFTVType){
|
|||
|
|
case 0:
|
|||
|
|
pCanvas->Pen->Color = MainVARI->m_tFFTColset[3].c;
|
|||
|
|
for( y = 6; y <= 86; y += 20 ){
|
|||
|
|
xx = y * m_fftYW / 100;
|
|||
|
|
pCanvas->MoveTo(0, xx); pCanvas->LineTo(m_fftXW, xx);
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
case 1:
|
|||
|
|
pCanvas->Pen->Color = MainVARI->m_tFFTColset[3].c;
|
|||
|
|
for( y = 6; y <= 66; y += 20 ){
|
|||
|
|
xx = y * m_fftYW / 60;
|
|||
|
|
pCanvas->MoveTo(0, xx); pCanvas->LineTo(m_fftXW, xx);
|
|||
|
|
}
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
#if 1
|
|||
|
|
pCanvas->Font->Height = -12;
|
|||
|
|
pCanvas->Font->Color = MainVARI->m_tFFTColset[2].c;
|
|||
|
|
pCanvas->Pen->Color = MainVARI->m_tFFTColset[3].c;
|
|||
|
|
MainVARI->DrawFreqScale(pCanvas, m_fftXW, m_fftYW, 0, 3000, fh, FALSE);
|
|||
|
|
#else
|
|||
|
|
int A, L;
|
|||
|
|
A = 500; L = 500;
|
|||
|
|
f = 0;
|
|||
|
|
int f, fw;
|
|||
|
|
char bf[128];
|
|||
|
|
pCanvas->Font->Height = -12;
|
|||
|
|
pCanvas->Font->Color = MainVARI->m_tFFTColset[2].c;
|
|||
|
|
pCanvas->Pen->Color = MainVARI->m_tFFTColset[3].c;
|
|||
|
|
y = 0;
|
|||
|
|
for( ; f < 3000; f += A ){
|
|||
|
|
xx = f * m_fftXW / 3000;
|
|||
|
|
if( xx >= m_fftXW ) break;
|
|||
|
|
if( !(f % 1000) || !(f % L) ){
|
|||
|
|
sprintf(bf, "%u", f);
|
|||
|
|
fw = pCanvas->TextWidth(bf)/2;
|
|||
|
|
if( (xx - fw) > 0 ) pCanvas->TextOut(xx - fw, y, bf);
|
|||
|
|
// pCanvas->MoveTo(xx, y ? 0 : fh); pCanvas->LineTo(xx, y ? m_fftYW-fh : m_fftYW);
|
|||
|
|
pCanvas->MoveTo(xx, fh); pCanvas->LineTo(xx, m_fftYW);
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
pCanvas->MoveTo(xx, 0); pCanvas->LineTo(xx, m_fftYW);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
#endif
|
|||
|
|
pCanvas->Pen->Color = clGreen;
|
|||
|
|
xx = (DEMSAMPFREQ*0.5) * m_fftXW / 3000;
|
|||
|
|
pCanvas->MoveTo(xx, fh); pCanvas->LineTo(xx, m_fftYW);
|
|||
|
|
int rfo = m_ToneFreq;
|
|||
|
|
pCanvas->Pen->Style = psSolid;
|
|||
|
|
pCanvas->Pen->Color = MainVARI->m_tFFTColset[4].c;
|
|||
|
|
xx = 0.5 + rfo * m_fftXW / 3000;
|
|||
|
|
pCanvas->MoveTo(xx, fh); pCanvas->LineTo(xx, m_fftYW);
|
|||
|
|
POINT pt[4];
|
|||
|
|
pt[0].x = xx; pt[0].y = fh;
|
|||
|
|
pt[1].x = xx - 3; pt[1].y = fh+3;
|
|||
|
|
pt[2].x = xx; pt[2].y = fh + 6;
|
|||
|
|
pt[3].x = xx + 3; pt[3].y = fh+3;
|
|||
|
|
pCanvas->Brush->Color = MainVARI->m_tFFTColset[4].c;
|
|||
|
|
pCanvas->Polygon(pt, 3);
|
|||
|
|
|
|||
|
|
if( !fClear ){
|
|||
|
|
pCanvas->Pen->Style = psSolid;
|
|||
|
|
pCanvas->Pen->Color = MainVARI->m_tFFTColset[1].c;
|
|||
|
|
|
|||
|
|
double k = double(PBoxFFT->Height)/double(MainVARI->PBoxFFT->Height);
|
|||
|
|
int *pFFT = MainVARI->m_fftout;
|
|||
|
|
int xo = 0;
|
|||
|
|
int x, y;
|
|||
|
|
if( MainVARI->m_FFTVType == 1 ){
|
|||
|
|
int yo = m_fftYW * 40;
|
|||
|
|
for( x = 0; x < m_fftXW; x++ ){
|
|||
|
|
xx = xo + (x * m_FFTWindow / m_fftXW);
|
|||
|
|
y = pFFT[xx] * k;
|
|||
|
|
y = m_fftYW - ((y-yo)/60);
|
|||
|
|
if( x ){
|
|||
|
|
pCanvas->LineTo(x, y);
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
pCanvas->MoveTo(x, y);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
for( x = 0; x < m_fftXW; x++ ){
|
|||
|
|
xx = xo + (x * m_FFTWindow / m_fftXW);
|
|||
|
|
y = pFFT[xx] * k;
|
|||
|
|
y = m_fftYW - (y/100);
|
|||
|
|
if( x ){
|
|||
|
|
pCanvas->LineTo(x, y);
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
pCanvas->MoveTo(x, y);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::UpdateFFT(void)
|
|||
|
|
{
|
|||
|
|
DrawFFT(FALSE);
|
|||
|
|
PBoxFFTPaint(NULL);
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::PBoxTPaint(TObject *Sender)
|
|||
|
|
{
|
|||
|
|
PBoxT->Canvas->Draw(0, 0, m_pBitmapT);
|
|||
|
|
DrawCursor();
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::PBoxFFTPaint(TObject *Sender)
|
|||
|
|
{
|
|||
|
|
PBoxFFT->Canvas->Draw(0, 0, m_pBitmapFFT);
|
|||
|
|
MainVARI->DrawErrorMsg(PBoxFFT->Canvas, m_fftXW, m_fftYW, FALSE);
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::PCFFTResize(TObject *Sender)
|
|||
|
|
{
|
|||
|
|
m_pBitmapFFT->Width = PBoxFFT->Width;
|
|||
|
|
m_pBitmapFFT->Height = PBoxFFT->Height;
|
|||
|
|
TCanvas *pCanvas = m_pBitmapFFT->Canvas;
|
|||
|
|
pCanvas->Brush->Color = MainVARI->m_tFFTColset[0].c;
|
|||
|
|
TRect rc;
|
|||
|
|
rc.Left = 0; rc.Top = 0;
|
|||
|
|
rc.Right = m_pBitmapFFT->Width;
|
|||
|
|
rc.Bottom = m_pBitmapFFT->Height;
|
|||
|
|
pCanvas->FillRect(rc);
|
|||
|
|
m_fftXW = m_pBitmapFFT->Width;
|
|||
|
|
m_fftYW = m_pBitmapFFT->Height;
|
|||
|
|
DrawFFT(TRUE);
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::PCTResize(TObject *Sender)
|
|||
|
|
{
|
|||
|
|
BOOL f = m_pBitmapT->Width != PBoxT->Width;
|
|||
|
|
|
|||
|
|
m_pBitmapT->Width = PBoxT->Width;
|
|||
|
|
m_pBitmapT->Height = PBoxT->Height;
|
|||
|
|
if( f ){
|
|||
|
|
TCanvas *pCanvas = m_pBitmapT->Canvas;
|
|||
|
|
pCanvas->Brush->Color = clBlack;
|
|||
|
|
TRect rc;
|
|||
|
|
rc.Left = 0; rc.Top = 0;
|
|||
|
|
rc.Right = m_pBitmapT->Width;
|
|||
|
|
rc.Bottom = m_pBitmapT->Height;
|
|||
|
|
pCanvas->FillRect(rc);
|
|||
|
|
|
|||
|
|
m_Clock.Create(PBoxT->Width);
|
|||
|
|
DrawMsg();
|
|||
|
|
m_PointRX = 0;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::SBSetClick(TObject *Sender)
|
|||
|
|
{
|
|||
|
|
MainVARI->SetSampleFreq(m_SampFreq, FALSE);
|
|||
|
|
Close();
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::UdClockClick(TObject *Sender,
|
|||
|
|
TUDBtnType Button)
|
|||
|
|
{
|
|||
|
|
double f;
|
|||
|
|
sscanf(AnsiString(EditClock->Text).c_str(), "%lf", &f); //JA7UDE 0428
|
|||
|
|
if( Button == Comctrls::btNext ){
|
|||
|
|
f += 0.01;
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
f -= 0.01;
|
|||
|
|
}
|
|||
|
|
char bf[128];
|
|||
|
|
sprintf(bf, "%.2lf", f);
|
|||
|
|
EditClock->Text = bf;
|
|||
|
|
m_SampFreq = f;
|
|||
|
|
m_Clock.SetSampleFreq(f);
|
|||
|
|
UpdatePPM();
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::DrawMessage(LPCSTR p)
|
|||
|
|
{
|
|||
|
|
TCanvas *pCanvas = PBoxT->Canvas;
|
|||
|
|
int xr = pCanvas->TextWidth(p);
|
|||
|
|
int xl = (PBoxT->Width - xr)/2;
|
|||
|
|
xr += xl;
|
|||
|
|
int FH = pCanvas->TextHeight(p);
|
|||
|
|
int VC = PBoxT->Height - FH;
|
|||
|
|
pCanvas->Pen->Color = clWhite;
|
|||
|
|
pCanvas->Brush->Color = clBlack;
|
|||
|
|
pCanvas->RoundRect(xl-10, VC-FH, xr+10, VC+FH, 10, 10);
|
|||
|
|
pCanvas->Font->Color = clWhite;
|
|||
|
|
pCanvas->TextOut(xl, VC-FH/2, p);
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
double __fastcall TClockAdjDlg::GetPointSamp(void)
|
|||
|
|
{
|
|||
|
|
if( m_PointY == m_PointY2 ) return m_SampFreq;
|
|||
|
|
double d = (m_PointX2 - m_PointX);
|
|||
|
|
d = d * m_SampFreq / PBoxT->Width;
|
|||
|
|
d /= (m_PointY - m_PointY2);
|
|||
|
|
d += m_SampFreq;
|
|||
|
|
d = int(d * 100 + 0.5) * 0.01;
|
|||
|
|
return d;
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::DrawCursor(void)
|
|||
|
|
{
|
|||
|
|
TCanvas *pCanvas = PBoxT->Canvas;
|
|||
|
|
pCanvas->Pen->Color = clLime;
|
|||
|
|
pCanvas->Pen->Style = psDot;
|
|||
|
|
pCanvas->MoveTo(m_CursorX, 0);
|
|||
|
|
int rop = ::SetROP2(pCanvas->Handle, R2_MASKPENNOT);
|
|||
|
|
pCanvas->LineTo(m_CursorX, PBoxT->Height - 1);
|
|||
|
|
::SetROP2(pCanvas->Handle, rop);
|
|||
|
|
if( m_Point ){
|
|||
|
|
pCanvas->Pen->Color = clYellow;
|
|||
|
|
pCanvas->Pen->Style = psSolid;
|
|||
|
|
pCanvas->MoveTo(m_PointX, m_PointY);
|
|||
|
|
::SetROP2(pCanvas->Handle, R2_MASKPENNOT);
|
|||
|
|
pCanvas->LineTo(m_PointX2, m_PointY2);
|
|||
|
|
::SetROP2(pCanvas->Handle, rop);
|
|||
|
|
char bf[256];
|
|||
|
|
if( sys.m_MsgEng ){
|
|||
|
|
sprintf( bf, "OK : Left button, Cancel : Right button Clock=%.2lf", GetPointSamp());
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
sprintf( bf, "<EFBFBD><EFBFBD><EFBFBD><EFBFBD> : <20><><EFBFBD>{<7B>^<5E><>, <20><><EFBFBD>~ : <20>E<EFBFBD>{<7B>^<5E><> Clock=%.2lf", GetPointSamp());
|
|||
|
|
}
|
|||
|
|
DrawMessage(bf);
|
|||
|
|
if( PBoxT->Cursor != crCross ) PBoxT->Cursor = crCross;
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
if( PBoxT->Cursor != crDefault ) PBoxT->Cursor = crDefault;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::PBoxTMouseDown(TObject *Sender,
|
|||
|
|
TMouseButton Button, TShiftState Shift, int X, int Y)
|
|||
|
|
{
|
|||
|
|
if( Button == mbLeft ){
|
|||
|
|
if( m_Point ){
|
|||
|
|
m_Point = 0;
|
|||
|
|
if( m_PointY2 != m_PointY ){
|
|||
|
|
m_SampFreq = GetPointSamp();
|
|||
|
|
char bf[256];
|
|||
|
|
sprintf(bf, "%.2lf", m_SampFreq);
|
|||
|
|
EditClock->Text = bf;
|
|||
|
|
m_Clock.SetSampleFreq(m_SampFreq);
|
|||
|
|
UpdatePPM();
|
|||
|
|
|
|||
|
|
TRect rc;
|
|||
|
|
rc.Left = 0; rc.Right = m_pBitmapT->Width;
|
|||
|
|
rc.Top = 0;
|
|||
|
|
rc.Bottom = m_PointRX;
|
|||
|
|
TCanvas *pCanvas = m_pBitmapT->Canvas;
|
|||
|
|
pCanvas->Brush->Color = clBlack;
|
|||
|
|
pCanvas->FillRect(rc);
|
|||
|
|
m_PointRX = 0;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
m_PointX2 = m_PointX = X;
|
|||
|
|
m_PointY2 = m_PointY = Y;
|
|||
|
|
m_Point = 1;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
else if( m_Point ){
|
|||
|
|
m_Point = 0;
|
|||
|
|
}
|
|||
|
|
else {
|
|||
|
|
m_CursorX = X;
|
|||
|
|
}
|
|||
|
|
PBoxTPaint(NULL);
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::PBoxTMouseMove(TObject *Sender,
|
|||
|
|
TShiftState Shift, int X, int Y)
|
|||
|
|
{
|
|||
|
|
if( m_Point ){
|
|||
|
|
m_PointX2 = X;
|
|||
|
|
m_PointY2 = Y;
|
|||
|
|
PBoxTPaint(NULL);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::CreateWaterColors(void)
|
|||
|
|
{
|
|||
|
|
UCOL col[3];
|
|||
|
|
col[0].c = clBlack;
|
|||
|
|
col[1].c = clWhite;
|
|||
|
|
col[2].c = clYellow;
|
|||
|
|
int i;
|
|||
|
|
UCOL c;
|
|||
|
|
for( i = 0; i < 160; i++ ){
|
|||
|
|
c = GetGrade2(col, i, 160);
|
|||
|
|
m_tWaterColors[i] = c.c;
|
|||
|
|
}
|
|||
|
|
for( i = 0; i < 96; i++ ){
|
|||
|
|
c = GetGrade2(&col[1], i, 96);
|
|||
|
|
m_tWaterColors[i+160] = c.c;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
|
|||
|
|
void __fastcall TClockAdjDlg::CBToneChange(TObject *Sender)
|
|||
|
|
{
|
|||
|
|
if( m_fDisEvent ) return;
|
|||
|
|
|
|||
|
|
int f;
|
|||
|
|
sscanf(AnsiString(CBTone->Text).c_str(), "%d", &f); //JA7UDE 0428
|
|||
|
|
if( (f >= 250) && (f <= 2700) ){
|
|||
|
|
SetToneFreq(f);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
void __fastcall TClockAdjDlg::SetToneFreq(int f)
|
|||
|
|
{
|
|||
|
|
if( f < 250 ) f = 250;
|
|||
|
|
if( f > 2700 ) f = 2700;
|
|||
|
|
m_ToneFreq = f;
|
|||
|
|
m_Clock.SetToneFreq(m_ToneFreq);
|
|||
|
|
m_fDisEvent++;
|
|||
|
|
CBTone->Text = m_ToneFreq;
|
|||
|
|
m_fDisEvent--;
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
|
|||
|
|
void __fastcall TClockAdjDlg::PBoxFFTMouseDown(TObject *Sender,
|
|||
|
|
TMouseButton Button, TShiftState Shift, int X, int Y)
|
|||
|
|
{
|
|||
|
|
if( Button != mbLeft ) return;
|
|||
|
|
|
|||
|
|
SetToneFreq((X * 3000) / PBoxFFT->Width);
|
|||
|
|
m_MouseDown = 1;
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
|
|||
|
|
void __fastcall TClockAdjDlg::PBoxFFTMouseMove(TObject *Sender,
|
|||
|
|
TShiftState Shift, int X, int Y)
|
|||
|
|
{
|
|||
|
|
if( m_MouseDown ){
|
|||
|
|
SetToneFreq((X * 3000) / PBoxFFT->Width);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
|
|||
|
|
void __fastcall TClockAdjDlg::PBoxFFTMouseUp(TObject *Sender,
|
|||
|
|
TMouseButton Button, TShiftState Shift, int X, int Y)
|
|||
|
|
{
|
|||
|
|
m_MouseDown = FALSE;
|
|||
|
|
}
|
|||
|
|
//---------------------------------------------------------------------------
|
|||
|
|
|