src/gui/MForm.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <math.h>

#include "gshhs.hpp"
#include "bbox.hpp"
#include "cell.hpp"

#include "MForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

const crMove = 5;

TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
        min_lon = -180;
        max_lat = 90;

        mag = 12.0;  //pixels/deg

        isDragging = false;
        MoveX = MoveY = false;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::LoadGSHHSdataClick(TObject *Sender)
{
        if (!OpenDialog->Execute()) return;

        BoundingBox bbox;
        bbox.xmin = -180;
        bbox.xmax = 360;
        bbox.ymin = -90;
        bbox.ymax = 90;

#if 0   // test
        bbox.xmin = 125;
        bbox.xmax = 145;
        bbox.ymin = 25;
        bbox.ymax = 50;
#endif

        for (int level = 1; level <= 4; level++) {
                polygon[level].LoadFromGshhsBinary(OpenDialog->FileName.c_str(),
                        level, bbox, -1);
        }

        PaintBox->Invalidate();
}
//---------------------------------------------------------------------------
void TMainForm::LonLat2Screen(double lon, double lat, int &x, int &y)
{
        x = (int)((lon - min_lon) * mag);
        y = (int)((max_lat - lat) * mag);
}

//---------------------------------------------------------------------------
void TMainForm::Screen2LonLat(int x, int y, double &lon, double &lat)
{
        lon = x / mag + min_lon;
        lat = max_lat - y / mag;
}

//---------------------------------------------------------------------------


void __fastcall TMainForm::PaintBoxPaint(TObject *Sender)
{
        int i, x, y;

        PaintBox->Width = 360 * mag;
        PaintBox->Height = 180 * mag;
        
        TCanvas *canvas = PaintBox->Canvas;

        canvas->Brush->Color = clWhite;
        canvas->Brush->Style = bsSolid;

        canvas->Rectangle(0, 0, 360 * mag, 180 * mag);
        
        canvas->Brush->Color = clBlue;

        // draw grids
        if (mag >= 16.0) {
                canvas->Brush->Color = clLtGray;

                for (i = 0; i < 768; i++) {
                        LonLat2Screen(i * 360.0 / 768.0 - 180,  90, x, y);
                        canvas->MoveTo(x, y);
                        LonLat2Screen(i * 360.0 / 768.0 - 180, -90, x, y);
                        canvas->LineTo(x, y);
                }
                for (i = 0; i < 512; i++) {
                        LonLat2Screen(-180, 90 - i * 180.0 / 512.0, x, y);
                        canvas->MoveTo(x, y);
                        LonLat2Screen( 180, 90 - i * 180.0 / 512.0, x, y);
                        canvas->LineTo(x, y);
                }
        }

        // draw contuors
        canvas->Brush->Color = clBlue;
        for (int level = 1; level <= 4; level++) {
                int nvlist = polygon[level].numVList();
                for (int i = 0; i < nvlist; i++) {
                        GpcVertexList *vlist = polygon[level].getVList(i);

                        // draw contour
                        int n = vlist->numVertices();
                        double lat, lon;
                        double prev_lon = 0;

                        for (int j = 0; j < n; j++) {
                                lon = vlist->vx(j);
                                lat = vlist->vy(j);

                                if (lon > 180) lon -= 360;
                                if (lon < -180 || lon > 180) {
                                        Application->MessageBoxA("ouch", "ouch");
                                }

                                // convert coordinates
                                LonLat2Screen(lon, lat, x, y);
                                if (x < 0 || 360 * mag < x) {
                                        Application->MessageBox("ouch", "ouch");
                                }
                                if (j == 0) {
                                        canvas->MoveTo(x, y);
                                } else if (fabs(lon - prev_lon) < 300) {
                                        canvas->LineTo(x, y);
                                } else {
                                        canvas->MoveTo(x, y);
                                }

                                prev_lon = lon;
                        }
                }
        }
}


//---------------------------------------------------------------------------
// Mouse Down : drag start
void __fastcall TMainForm::PaintBoxMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        // drag
        isDragging = true;

        // save drag start point
        POINT p;
        GetCursorPos(&p);
        DragX = p.x;
        DragY = p.y;

        MoveX = MoveY = 0;
        Timer->Enabled = true;

        Screen->Cursor = crMove;
}

//---------------------------------------------------------------------------
// Mouse Up : stop drag
void __fastcall TMainForm::PaintBoxMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        if (isDragging) {
                isDragging = false;
                Timer->Enabled = false;
                Screen->Cursor = crDefault;
        }
}

//---------------------------------------------------------------------------
// Mouse move : dragging etc.
void __fastcall TMainForm::PaintBoxMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
        double lon, lat;

        Screen2LonLat(X, Y, lon, lat);

        int cx = Cell::lon2x(lon);
        int cy = Cell::lat2y(lat);

        AnsiString s;
        s.sprintf("Lat:%f Lon:%f  Cell(%d, %d)", lon, lat, cx, cy);
        StatusBar->SimpleText = s;

        if (isDragging) {
                POINT p;
                GetCursorPos(&p);
                MoveX = p.x - DragX;
                MoveY = p.y - DragY;
        }
}
//---------------------------------------------------------------------------
// Scroll window
void __fastcall TMainForm::OnTimer(TObject *Sender)
{
        if (!isDragging) return;

        ScrollBox->HorzScrollBar->Position += MoveX * 0.5;
        ScrollBox->VertScrollBar->Position += MoveY * 0.5;
}


//---------------------------------------------------------------------------


void __fastcall TMainForm::ZoomInClick(TObject *Sender)
{
        SetZoom(2);
}
void __fastcall TMainForm::ZoomOutClick(TObject *Sender)
{
        SetZoom(0.5);
}

//---------------------------------------------------------------------------
// �g���k��
void TMainForm::SetZoom(double m)
{
        // display area size
        int width = ScrollBox->Width;
        int height = ScrollBox->Height;

        // get current center
        int cx = ScrollBox->HorzScrollBar->Position + width / 2;
        int cy = ScrollBox->VertScrollBar->Position + height / 2;

        // magnify
        mag *= m;
        cx  *= m;
        cy  *= m;

        // move to new center
        ScrollBox->HorzScrollBar->Position = cx - width / 2;
        ScrollBox->VertScrollBar->Position = cy - height / 2;

        PaintBox->Invalidate();
}

//---------------------------------------------------------------------------

