Scope.cpp

//Copyright+LGPL

//-----------------------------------------------------------------------------------------------------------------------------------------------
// Copyright 2000-2013 Makoto Mori, Nobuyuki Oba
//-----------------------------------------------------------------------------------------------------------------------------------------------
// This file is part of MMTTY.

// MMTTY 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.

// MMTTY 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 "Scope.h"
#include "Option.h"
#include "Main.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
//TTScope *TScope;
static	int		m_SourceSel = 0;
static 	int		m_XW = 2048;
static	int		m_XOFF = (8192 - m_XW)/2;
static	int		m_CursorX = m_XOFF+(m_XW/2);
static	double	m_Gain = 2.0;
//---------------------------------------------------------------------
__fastcall TTScope::TTScope(TComponent* AOwner)
	: TForm(AOwner)
{
	FormStyle = ((TForm *)AOwner)->FormStyle;
	Font->Name = ((TForm *)AOwner)->Font->Name;
	Font->Charset = ((TForm *)AOwner)->Font->Charset;
	if( Font->Charset != SHIFTJIS_CHARSET ){
		Caption = "MMTTY Digital Scope";
		OKBtn->Caption = "Close";
		SrcSel->Caption = "Source";
		SrcSel->Items->Strings[1] = "Det.";
		SrcSel->Items->Strings[2] = "LPF";
		SBUpDown->Caption = "+-";
		UpBtn->Caption = "+";
		DownBtn->Caption = "-";
		LeftBtn->Caption = "<-";
		RightBtn->Caption = "->";
	}

	pBitmap = new Graphics::TBitmap();
	pBitmap->Width = PaintBox->Width;
	pBitmap->Height = PaintBox->Height;

	TRect rc;
	rc.Top = 0;
	rc.Bottom = pBitmap->Height;
	rc.Left = 0;
	rc.Right = pBitmap->Width;
	pBitmap->Canvas->Brush->Color = clBlack;
	pBitmap->Canvas->FillRect(rc);

	pDem = NULL;
	pMod = NULL;

//    m_XW = 2048;
//    m_Gain = 1.0;
}
//---------------------------------------------------------------------
__fastcall TTScope::~TTScope()
{
	delete pBitmap;
}
//---------------------------------------------------------------------
void __fastcall TTScope::Execute(CFSKDEM *pd, CFSKMOD *pm)
{
	pDem = pd;
	pMod = pm;

	SrcSel->ItemIndex = m_SourceSel;
	UpdateBtn();
	ShowModal();
}

void __fastcall TTScope::TrigNext(void)
{
	pDem->m_Scope = 0;
	for( int i = 0; i < 4; i++ ){
		pDem->m_ScopeMark[i].Collect(SCOPESIZE);
		pDem->m_ScopeSpace[i].Collect(SCOPESIZE);
	}
	pDem->m_ScopeSync.Collect(SCOPESIZE);
	pDem->m_ScopeBit.Collect(SCOPESIZE);
	pDem->m_Scope = 1;
}

#define GAGEWIDTH	5

void __fastcall TTScope::PaintPosition(void)
{
	TCanvas *pCanvas = pBitmap->Canvas;

	TRect rc;
	rc.Top = 0;
	rc.Bottom = GAGEWIDTH;
	rc.Left = 0;
	rc.Right = pBitmap->Width;

	pCanvas->Brush->Color = clBlack;
	pCanvas->FillRect(rc);

	int xw = (m_XW * rc.Right) / pDem->m_ScopeBit.m_ScopeSize;
	int x = (m_XOFF * rc.Right) / pDem->m_ScopeBit.m_ScopeSize;
	int xc = (m_CursorX * rc.Right) / pDem->m_ScopeBit.m_ScopeSize;
	pCanvas->Brush->Color = clGreen;
	rc.Left = x;
	rc.Right = x + xw;
	pCanvas->FillRect(rc);

	pCanvas->Pen->Color = clYellow;
	pCanvas->Pen->Style = psSolid;
	pCanvas->MoveTo(xc, rc.Top);
	pCanvas->LineTo(xc, rc.Bottom);

	pCanvas->Font->Color = clWhite;
	pCanvas->Font->Size = 8;
	char bf[32];
	sprintf(bf, "Gain:%.1lf", m_Gain);
	::SetBkMode(pCanvas->Handle, TRANSPARENT);
	pCanvas->TextOut(0, 0, bf);
}

void __fastcall TTScope::PaintScope(CScope *sp, int n)
{
	TRect rc;

	int YW = (pBitmap->Height - GAGEWIDTH) / 4;
	rc.Top = (YW * n) + GAGEWIDTH;
	rc.Bottom = rc.Top + YW;
	rc.Left = 0;
	rc.Right = pBitmap->Width;

	TCanvas *pCanvas = pBitmap->Canvas;

	pCanvas->Brush->Color = clBlack;
	pCanvas->FillRect(rc);

	if( !sp->GetFlag() ) return;

	if( n < 2 ){
		pCanvas->Pen->Color = clWhite;
		pBitmap->Canvas->Pen->Style = psDot;
		pCanvas->MoveTo(rc.Left, rc.Top + YW/2);
		pCanvas->LineTo(rc.Right, rc.Top + YW/2);
	}

	pCanvas->Pen->Color = clWhite;
	pBitmap->Canvas->Pen->Style = psSolid;
	double d;
	int x, y, xx, xe;
	double	ad = 0;
	for( x = 0; x < rc.Right; x++ ){
		xx = (x * m_XW / rc.Right) + m_XOFF;
		xe = xx + (m_XW / rc.Right);
		if( xe >= sp->m_ScopeSize ) xe = sp->m_ScopeSize - 1;
		for( ; xx <= xe; xx++ ){
			d = sp->pScopeData[xx];
			if( n >= 2 ){
				if( d < -8000.0 ){
					d = 8192.0;
					pCanvas->Pen->Color = clYellow;
				}
				else if( d < -4000 ){
					d = 8192.0;
					pCanvas->Pen->Color = clBlue;
				}
				else if( d || (ad == 0) ){
					pCanvas->Pen->Color = clWhite;
				}
				ad = d;
				y = rc.Bottom - int(d * YW/10000.0) - 1;
			}
			else if( (m_SourceSel == 1) && (MmttyWd->pSound->FSKDEM.m_type == 2) ){
				y = rc.Bottom - int(d * YW * m_Gain/32768.0) - YW/2;
			}
			else if( m_SourceSel ){
				y = rc.Bottom - int(d * YW * m_Gain/16384.0) - 1;
			}
			else {
				y = rc.Bottom - int(d * YW * m_Gain/32768.0) - YW/2;
			}
			if( y < rc.Top ) y = rc.Top;
			if( y > rc.Bottom ) y = rc.Bottom;
			if( x ){
				pCanvas->LineTo(x, y);
			}
			else {
				pCanvas->MoveTo(x, y);
			}
		}
	}
}

void __fastcall TTScope::PaintCursor(void)
{
	int x = (m_CursorX - m_XOFF) * PaintBox->Width / m_XW;
	if( (x >= 0) && (x < PaintBox->Width) ){
		PaintBox->Canvas->Pen->Color = clLime;
		PaintBox->Canvas->Pen->Style = psDot;
		PaintBox->Canvas->MoveTo(x, 5);
		PaintBox->Canvas->LineTo(x, pBitmap->Height - GAGEWIDTH - 5);
	}
}

void __fastcall TTScope::PaintBoxPaint(TObject *Sender)
{
	if( pDem == NULL ) return;

	PaintScope(&pDem->m_ScopeMark[m_SourceSel], 0);
	PaintScope(&pDem->m_ScopeSpace[m_SourceSel], 1);
	PaintScope(&pDem->m_ScopeBit, 2);
	PaintScope(&pDem->m_ScopeSync, 3);
	PaintPosition();
	PaintBox->Canvas->Draw(0, 0, (TGraphic*)pBitmap);
	PaintCursor();
}
//---------------------------------------------------------------------------
void __fastcall TTScope::TimerTimer(TObject *Sender)
{
	if( pDem == NULL ) return;

	if( pDem->m_ScopeBit.GetFlag() ){
		PaintBoxPaint(NULL);
		if( SBTrig->Down ){
			SBTrig->Down = FALSE;
		}
	}
}
//---------------------------------------------------------------------------
void __fastcall TTScope::SBTrigClick(TObject *Sender)
{
	TrigNext();
}
//---------------------------------------------------------------------------
void __fastcall TTScope::UpdateBtn(void)
{
	if( m_XW <= (pDem->m_ScopeBit.m_ScopeSize - 512) ){
		SBUpW->Enabled = TRUE;
	}
	else {
		SBUpW->Enabled = FALSE;
	}
	if( m_XW >= 1024 ){
		SBDownW->Enabled = TRUE;
	}
	else {
		SBDownW->Enabled = FALSE;
	}
	if( m_XOFF ){
		LeftBtn->Enabled = TRUE;
	}
	else {
		LeftBtn->Enabled = FALSE;
	}
	if( (m_XOFF + m_XW) < pDem->m_ScopeBit.m_ScopeSize ){
		RightBtn->Enabled = TRUE;
	}
	else {
		RightBtn->Enabled = FALSE;
	}
	if( pDem->m_atc ){
		SrcSel->Controls[3]->Enabled = TRUE;
	}
	else {
		SrcSel->Controls[3]->Enabled = FALSE;
		if( SrcSel->ItemIndex == 3 ){
			SrcSel->ItemIndex = m_SourceSel = 2;
		}
	}
}
//---------------------------------------------------------------------------
void __fastcall TTScope::LeftBtnClick(TObject *Sender)
{
	if( m_XOFF ){
		m_XOFF -= m_XW/4;
		if( m_XOFF < 0 ) m_XOFF = 0;
	}
	UpdateBtn();
}
//---------------------------------------------------------------------------
void __fastcall TTScope::RightBtnClick(TObject *Sender)
{
	m_XOFF += m_XW/4;
	if( (m_XOFF + m_XW) >= pDem->m_ScopeBit.m_ScopeSize ){
		m_XOFF = pDem->m_ScopeBit.m_ScopeSize - m_XW;
	}
	UpdateBtn();
}
//---------------------------------------------------------------------------
void __fastcall TTScope::AdjXoff(int x)
{
	if( (x >= 0) && (x < PaintBox->Width) ){
		int xoff = x * m_XW / PaintBox->Width + m_XOFF + 1;
		m_XOFF += (m_CursorX - xoff);
		if( m_XOFF < 0 ){
			m_XOFF = 0;
		}
		else if( (m_XOFF + m_XW) > pDem->m_ScopeBit.m_ScopeSize ){
			m_XOFF = pDem->m_ScopeBit.m_ScopeSize - m_XW;
		}
	}
	else if( (m_XOFF + m_XW) > pDem->m_ScopeBit.m_ScopeSize ){
		m_XOFF = pDem->m_ScopeBit.m_ScopeSize - m_XW;
	}
}
//---------------------------------------------------------------------------
void __fastcall TTScope::SBDownWClick(TObject *Sender)
{
	int x = (m_CursorX - m_XOFF) * PaintBox->Width / m_XW;
	if( m_XW >= 1024 ){
		m_XW -= 512;
		AdjXoff(x);
		PaintBoxPaint(NULL);
	}
	UpdateBtn();
}
//---------------------------------------------------------------------------
void __fastcall TTScope::SBUpWClick(TObject *Sender)
{
	int x = (m_CursorX - m_XOFF) * PaintBox->Width / m_XW;
	if( m_XW <= (pDem->m_ScopeBit.m_ScopeSize - 512) ){
		m_XW += 512;
		AdjXoff(x);
		PaintBoxPaint(NULL);
	}
	UpdateBtn();
}
//---------------------------------------------------------------------------
void __fastcall TTScope::UpBtnClick(TObject *Sender)
{
	m_Gain *= 1.2;
	PaintBoxPaint(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TTScope::DownBtnClick(TObject *Sender)
{
	m_Gain /= 1.2;
	PaintBoxPaint(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TTScope::PaintBoxMouseDown(TObject *Sender, TMouseButton Button,
	TShiftState Shift, int X, int Y)
{
	m_CursorX = (X * m_XW / pBitmap->Width) + m_XOFF;
	PaintBox->Canvas->Draw(0, 0, (TGraphic*)pBitmap);
	PaintCursor();
}
//---------------------------------------------------------------------------
void __fastcall TTScope::SBSetClick(TObject *Sender)
{
	TOptionDlg *pBox = new TOptionDlg(this);

	pBox->TabFont->TabVisible = FALSE;
	pBox->TabMisc->TabVisible = FALSE;
	pBox->Execute(pDem, pMod);
	delete pBox;
	UpdateBtn();
}
//---------------------------------------------------------------------------
void __fastcall TTScope::SrcSelClick(TObject *Sender)
{
	m_SourceSel = SrcSel->ItemIndex;
	SBUpDownClick(NULL);
//	PaintBoxPaint(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TTScope::SBUpDownClick(TObject *Sender)
{
	int x;
	double d, peak;
	peak = 0;
	for( x = m_XOFF; x < (m_XOFF + m_XW); x++ ){
		d = fabs(pDem->m_ScopeMark[SrcSel->ItemIndex].pScopeData[x]);
		if( peak < d ) peak = d;
		d = fabs(pDem->m_ScopeSpace[SrcSel->ItemIndex].pScopeData[x]);
		if( peak < d ) peak = d;
	}
	if( peak ){
		m_Gain = 16384.0 * 0.8 / peak;
	}
	PaintBoxPaint(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TTScope::SBPlayClick(TObject *Sender)
{
	if( MmttyWd->pSound->WaveFile.m_mode == 1 ){
		MmttyWd->KRxPosClick(NULL);
	}
	else {
		MmttyWd->KRxPlayClick(NULL);
	}
}
//---------------------------------------------------------------------------