D_Zoom.c

Go to the documentation of this file.

#include <windows.h>
#include <stdio.h>
#include <math.h>
#include "mgui.h"
#include "bil.h"
#include "DAS_Spatram.h"


MOBJECT LensShell;

unsigned int Maxx;
void D_DoLens(MIMAGE lensmim, MOBJECT lensdraw, int lenswx, 
              int lenswy, int lenspix, int sx, int sy);
void D_LensZoom(MOBJECT o, MVALUE o_data, void *a_data);
void D_To_DoLens(void);
void D_LensResizeCB(MOBJECT obj, DRAWAREA_PREF *pref, void *ad);
void D_LensCloseCB(MOBJECT p, void *od, void *ad);
void D_Lens(void);


/********************************************************/
void D_DoLens(MIMAGE lensmim, MOBJECT lensdraw, int lenswx, int lenswy, int lenspix, int sx, int sy)
{

    int     l, h, p, d, md, x, y, wx, wy, ox, oy, px, py;
    double  dd;
    int dred, dgreen, dblu;
    sx++; sy++;
    wx = lenswx / lenspix;
    wy = lenswy / lenspix;
    h= BIL.DPLOT.Imax;
    l= BIL.DPLOT.Imin;

    p = lenspix;
    d = h - l;
    dd = d /= 256;
    // If less then 256 levels
    //     inc range
    if(d == 0)
    {
        md = 1;
        dd = (double) (h - l) / 256.0;
        if(dd == 0)
        {
            md = 0;
            dd = d = 1;
        }
    }
    for(y = sy - wy / 2; y < sy + wy / 2; y++)
    {
        

//      ma = &DPLOT.Graf[(long) y * maxplotw];
        
        for(x = sx - wx / 2; x < sx + wx / 2; x++)
        {
            if(x >= 0 && x < maxplotw && y >= 0 && y < maxploth)
            {
                MImageGetPixelRGB(BIL.BLENS.Imim, x, y, &dred, &dgreen, &dblu); 
            }
            ox = (long) (x - (sx - wx / 2)) * p;
            oy = (long) (y - (sy - wy / 2)) * p;
            for(py = 0; py < p; py++)
                for(px = 0; px < p; px++)
                MImageSetPixelRGB(lensmim, ox + px, oy + py, dred, dgreen, dblu);
        }
    }

    MInstallImage(lensmim);
    MDrawImage(lensdraw, lensmim, 0, 0, wx * p, wy * p, 0, 0);
    MUninstallImage(lensmim);

    sx = wx / 2 * p - p;
    sy = wy / 2 * p - p;
    MDrawBox(lensdraw, wx / 2 * p - p, wy / 2 * p - p, p, p, MTCL.blue);

    // Y line
    MDrawLine(lensdraw, sx + p / 2, sy - 30, sx + p / 2, sy, MTCL.blue);
    MDrawLine(lensdraw, sx + p / 2, sy + p, sx + p / 2, sy + 30 + p, MTCL.blue);

    // X Line
    MDrawLine(lensdraw, sx - 30, sy + p / 2, sx, sy + p / 2, MTCL.blue);
    MDrawLine(lensdraw, sx + p + 30, sy + p / 2, sx + p, sy + p / 2, MTCL.blue);

}

void D_LensZoom(MOBJECT o, MVALUE o_data, void *a_data)
{
    int     l = (int) o_data, w = (int) a_data;
    char    buf[16];

    if(l < 2) l = 2;
    BIL.BLENS.LensPix = l;
    sprintf(buf, "DanBo ZOOM = %d", BIL.BLENS.LensPix);
    
    BIL.BLENS.LWx = (BIL.BLENS.LensWx / BIL.BLENS.LensPix) * BIL.BLENS.LensPix;
    BIL.BLENS.LWy = (BIL.BLENS.LensWy / BIL.BLENS.LensPix) * BIL.BLENS.LensPix;

    //MObjectSetText(LensLbl, buf);
//  MShellSetTitle(BIL.BLENS.LensShell, buf);
    D_DoLens(BIL.BLENS.LensMim, BIL.BLENS.LensDraw, BIL.BLENS.LWx, BIL.BLENS.LWy, BIL.BLENS.LensPix, BIL.BLENS.LocX, BIL.BLENS.LocY);

}
void D_To_DoLens(void)
{
    D_DoLens(BIL.BLENS.LensMim, BIL.BLENS.LensDraw, BIL.BLENS.LWx, BIL.BLENS.LWy, BIL.BLENS.LensPix, BIL.BLENS.LocX, BIL.BLENS.LocY);
}
void D_LensResizeCB(MOBJECT obj, DRAWAREA_PREF *pref, void *ad)
{

    BIL.BLENS.LensWx = pref->new_w;
    BIL.BLENS.LensWy = pref->new_h;

    BIL.BLENS.LWx = (BIL.BLENS.LensWx / BIL.BLENS.LensPix) * BIL.BLENS.LensPix;
    BIL.BLENS.LWy = (BIL.BLENS.LensWy / BIL.BLENS.LensPix) * BIL.BLENS.LensPix;

    MFreeImage(BIL.BLENS.LensMim);
    BIL.BLENS.LensMim = MAllocImage(BIL.BLENS.LWx + BIL.BLENS.LensPix, BIL.BLENS.LWy + BIL.BLENS.LensPix, 24);
    D_DoLens(BIL.BLENS.LensMim, BIL.BLENS.LensDraw, BIL.BLENS.LWx, BIL.BLENS.LWy, BIL.BLENS.LensPix, BIL.BLENS.LocX, BIL.BLENS.LocY);

}
void D_LensCloseCB(MOBJECT p, void *od, void *ad)
{
    MShellUnrealize(p);
    MShellDestroy(p);
    BIL.BLENS.LensON = 0;
    MFreeImage(BIL.BLENS.LensMim);

}

void D_Lens(void)
{
    MOBJECT a, b, lbl, sb;
    MTFont newfont;

    newfont = HELV_SMALL; //MLoadFont("Times", 16, False, False);

    if(BIL.BLENS.LensON)
    {
        MShellRaise(LensShell);
        return;
    }

    LensShell = MCreateShell("DanBo ZOOM ", SF_NO_MAXIMIZE|SF_NO_MINIMIZE);
    MObjectSetBackgroundRGB(LensShell, 64, 68, 72);

    a = MCreateRowForm(LensShell);
    MObjectSetShadow(a, WS_NONE, 0, 0);
    MObjectSetBackgroundRGB(a, 128, 128, 128);

    Maxx = MGetScreenWidth();
    BIL.BLENS.LensWx =  Maxx / 4;

    BIL.BLENS.LensPix = 2;

    BIL.BLENS.LensWy = BIL.BLENS.LensWx = (BIL.BLENS.LensWx / BIL.BLENS.LensPix) * BIL.BLENS.LensPix;
    
    BIL.BLENS.LensDraw = MCreateDrawArea(a, BIL.BLENS.LensWx, BIL.BLENS.LensWy);
    MObjectSetResize(BIL.BLENS.LensDraw, True, True);

    BIL.BLENS.LensMim = MAllocImage(BIL.BLENS.LensWx, BIL.BLENS.LensWy, 24);
    MDrawAreaSetExposeCallback(BIL.BLENS.LensDraw, (OBJ_EVENT_CB) D_To_DoLens, NULL);
    MDrawAreaSetResizeCallback(BIL.BLENS.LensDraw, D_LensResizeCB, NULL);

    b = MCreateColForm(a);
    MObjectSetBackgroundRGB(b, 184, 132, 0);

    lbl = MCreateLabel(b, "X:", newfont);
    MObjectSetBackgroundRGB(lbl, 255,255,255);
    MObjectSetResize(lbl, False, True);
//  MObjectSetForegroundRGB(lbl, );

    BIL.BLENS.LensLblX = MCreateLabel(b, "  0000 ", newfont);
    MObjectSetBackgroundRGB(BIL.BLENS.LensLblX, 255,255,255);
    MObjectSetResize(BIL.BLENS.LensLblX , True, True);
//  MObjectSetForegroundRGB(LensLblX, );

    lbl = MCreateLabel(b, "Y:", newfont);
    MObjectSetBackgroundRGB(lbl, 255,255,255);
//  MObjectSetForegroundRGB(lbl, );
    BIL.BLENS.LensLblY = MCreateLabel(b, "0000", newfont);
    MObjectSetBackgroundRGB(BIL.BLENS.LensLblY, 255,255,255);
//  MObjectSetForegroundRGB(LensLblY, );

    BIL.BLENS.LensLbl = MCreateLabel(b, "ZOOM = 2", newfont);
    MObjectSetBackgroundRGB(BIL.BLENS.LensLbl, 184, 132, 0);
    MObjectSetBackgroundRGB(BIL.BLENS.LensLbl, 255,255,255);


    b = MCreateColForm(a);
//  MObjectSetBackgroundRGB(b, );

    sb = MCreateScrollBar(a, SBT_HOR, 0, MAXZOOM);
    MScrollBarSetPos(sb, 0);
    MScrollBarSetPosCallback(sb, D_LensZoom, (void *) 0);
    MObjectSetBackgroundRGB(sb, 184, 132, 0);
//  MObjectSetForegroundRGB(sb, );

    MShellRealize(LensShell);
    MShellSetWMCloseCallback(LensShell, D_LensCloseCB, NULL);
    BIL.BLENS.LensON = 1;
}