Bil.h File Reference

#include "bildef.h"

Include dependency graph for Bil.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
float *	AllocFloatMat (int hp, int vp)
unsigned short *	AllocUSMat (int hp, int vp)
void	CloseFile (FILE *fd, int hp, int vp)
void	D_DoLens (MIMAGE lensmim, MOBJECT lensdraw, int lenswx, int lenswy, int lenspix, int sx, int sy)
void	D_Lens (void)
void	D_pbr_CB (MOBJECT p, void *od, void *ad)
void	D_VRange (char *str, int val, int, int g, int b)
	Create and display the status bar. More...
void	DB_AreaInput (MOBJECT obj, MEvent *pe, void *a_data)
float *	DeallocFloatMat (float *mat)
unsigned short *	DeallocUSMat (unsigned short *mat)
int	DrawAreaExposeCB (MOBJECT obj, MEvent *pexp, void *a_data)
int	FilterData (unsigned short *mat, int horpix, int verpix, int filw, int bp)
void	GrafoIMG (int mode)
void	InitImage (MIMAGE img, int xd, int yd, int rb, int gb, int bb)
MOBJECT	MDCreateFM_Shell (int mod, int fmt)
int	PrintObject (MOBJECT obj, int mode, int x, int y)
void	SetupPrinter (void)
int	ViewNext (FILE *nf)
int	ViewNext_BIN (int nf)
int	Visualizza (int mod, char *nomefile)
int	WhoSys (void)

Variables
bil	BIL
int	maxploth
int	maxplotw
double	NColors
MTFont	newfont
int	NFDATI
FILE *	NUMFDATI
omutemp	OMUTEMP
	structure for OMU temperatures More...
viewformobj	VFO

Function Documentation

AllocFloatMat()

float* AllocFloatMat	(	int	hp,
		int	vp
	)

Definition at line 2009 of file Spat_Plot.c.

Referenced by BrowseLog(), BuildLogRatio(), InitTempAD(), RunLogMode(), and WriteSelColandSmoothed().

{

    unsigned long mx;
    float   *mat;
    mx = (unsigned long) hp * (unsigned long) vp;
    mat = (float *) calloc( mx, sizeof(float));
//  if(mat == NULL ) //Only for malloc
//      return 1;

    return mat;

}

Here is the caller graph for this function:

AllocUSMat()

unsigned short* AllocUSMat	(	int	hp,
		int	vp
	)

Definition at line 1994 of file Spat_Plot.c.

Referenced by DatOrBinFormat(), DB_CalcFluxI(), DB_Column(), DB_InitCamera(), DrawAreaPlotCB(), DT_CorrFileEvora(), DT_CorrHeader(), LoadIo(), SaveIo(), and Visualizza().

{

    unsigned long mx;
    unsigned short  *mat;
    mx = (unsigned long) hp * (unsigned long) vp;
    mat = (unsigned short *) calloc( mx, sizeof(unsigned short));
//  if(mat == NULL ) //Only for malloc
//      return 1;

    return mat;

}

Here is the caller graph for this function:

CloseFile()

void CloseFile	(	FILE *	fd,
		int	hp,
		int	vp
	)

Definition at line 1304 of file Spat_Plot.c.

References spectrumheader::ccdnr, viewformobj::cmdpb, ContFP, DB_CloseImage(), DeallocUSMat(), DOASMODE, das::DOption, bil::DPLOT, flag::exemode, Fitem, das::Flag, optionini::hlineafter, optionini::hlinebefore, d_view::ImatGraf, d_view::ImatOrig, MMenuItemSetSensitive(), MMenuItemSetUnsensitive(), MObjectSetSensitive(), MObjectSetText(), MObjectSetUnsensitive(), MObjectUnmap(), MShellDestroy(), MShellSetTitle(), MShellUnrealize(), OFFLINEPLOT, d_view::pbr, d_view::RowShell, viewformobj::selallpb, Server, bil::SPH, bil::VFO, viewformobj::View_Sh, and viewformobj::YScalePB.

Referenced by D_PButt_CB(), MenuFileOLP_CB(), and ViewNext().

{

    int i;
    

    fclose(fd); //Close Data file


//  MObjectSetBackgroundRGB(BIL.DPLOT.drawapl, 0, 0, 0);    

    if(BIL.DPLOT.RowShell != 0)
    {
        MShellUnrealize(BIL.DPLOT.RowShell);
        MShellDestroy(BIL.DPLOT.RowShell);
        BIL.DPLOT.RowShell = 0;
        BIL.DPLOT.ImatGraf = DeallocUSMat(BIL.DPLOT.ImatGraf);
        BIL.DPLOT.ImatOrig = DeallocUSMat(BIL.DPLOT.ImatOrig);

    }
    else
    {
        for (i=DAS.DOption.hlinebefore; i < BIL.SPH.ccdnr - DAS.DOption.hlineafter; i++)
            MObjectUnmap(BIL.DPLOT.pbr[i]);
            BIL.DPLOT.ImatGraf = DeallocUSMat(BIL.DPLOT.ImatGraf);
            BIL.DPLOT.ImatOrig = DeallocUSMat(BIL.DPLOT.ImatOrig);
        

    }

    MShellSetTitle(BIL.VFO.View_Sh,"PLOTTING File: None");


    MObjectSetText(BIL.VFO.cmdpb[0], "Open");
    MObjectSetSensitive(BIL.VFO.cmdpb[0]);  //Set Button "Open" Sensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[1]); //Set button "Next" Unsensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[8]); //Set button "Previuos" Unsensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[3]); // Set "CloseFile" button as Unsensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[4]); // Set "Print" button as Unsensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[7]); 
    MObjectSetUnsensitive(BIL.VFO.cmdpb[6]); 
    MObjectSetSensitive(BIL.VFO.cmdpb[5]);  //Set Button "CloseWin" Sensitive
    MObjectSetUnsensitive(BIL.VFO.cmdpb[2]); // Set "Set as Io" button as Unsensitive

    if( (!DAS.Flag.exemode == OFFLINEPLOT) | (!DAS.Flag.exemode == DOASMODE))
    {
        MObjectSetUnsensitive(BIL.VFO.selallpb);
        MObjectSetUnsensitive(BIL.VFO.YScalePB); 
    }

    if (ContFP)
        ContFP = 0;


    if(DAS.Flag.exemode == OFFLINEPLOT )
    {
        DB_CloseImage(Server);  
        MMenuItemSetSensitive(Fitem[0]);
        MMenuItemSetUnsensitive(Fitem[1]);
        MMenuItemSetUnsensitive(Fitem[2]);
        MMenuItemSetUnsensitive(Fitem[3]);
        MMenuItemSetUnsensitive(Fitem[4]);
        MMenuItemSetSensitive(Fitem[5]);
    }
    else if(DAS.Flag.exemode == DOASMODE)
    {
        MMenuItemSetSensitive(Fitem[0]);
        MMenuItemSetUnsensitive(Fitem[1]);
        MMenuItemSetUnsensitive(Fitem[2]);
        MMenuItemSetUnsensitive(Fitem[3]);
        MMenuItemSetUnsensitive(Fitem[4]);
        MMenuItemSetSensitive(Fitem[5]);

    }


}   

Here is the call graph for this function:

Here is the caller graph for this function:

D_DoLens()

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

Definition at line 29 of file D_Zoom.c.

References BIL, bil::BLENS, mtcl::blue, bil::DPLOT, d_view::Imax, blens::Imim, d_view::Imin, maxploth, MDrawBox(), MDrawImage(), MDrawLine(), MImageGetPixelRGB(), MImageSetPixelRGB(), MInstallImage(), MTCL, MUninstallImage(), and p.

Referenced by D_LensResizeCB(), D_LensZoom(), D_To_DoLens(), and DB_AreaInput().

{

    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);

}

Here is the call graph for this function:

Here is the caller graph for this function:

D_Lens()

void D_Lens

(

void

)

Definition at line 138 of file D_Zoom.c.

References BIL, bil::BLENS, D_LensCloseCB(), D_LensResizeCB(), D_LensZoom(), D_To_DoLens(), False, HELV_SMALL, lbl, blens::LensDraw, blens::LensLbl, blens::LensLblX, blens::LensLblY, blens::LensMim, blens::LensON, blens::LensPix, LensShell, blens::LensWx, blens::LensWy, MAllocImage(), Maxx, MAXZOOM, MCreateColForm(), MCreateDrawArea(), MCreateLabel(), MCreateRowForm(), MCreateScrollBar(), MCreateShell(), MDrawAreaSetExposeCallback(), MDrawAreaSetResizeCallback(), MGetScreenWidth(), MObjectSetBackgroundRGB(), MObjectSetResize(), MObjectSetShadow(), MScrollBarSetPos(), MScrollBarSetPosCallback(), MShellRaise(), MShellRealize(), MShellSetWMCloseCallback(), newfont, SBT_HOR, SF_NO_MAXIMIZE, SF_NO_MINIMIZE, True, and WS_NONE.

Referenced by D_PButt_CB(), and MenuToolsOLP_CB().

{
    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;
}

Here is the call graph for this function:

Here is the caller graph for this function:

D_pbr_CB()

void D_pbr_CB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 717 of file Spat_Plot.c.

References d_view::actimg, mtcl::black, bil::BLENS, BlindPix, paramini::ccdWx, paramini::ccdXoff, d_view::COSTX, d_view::COSTY, D_AssignOrigin(), D_findmaxmin(), D_PlotAxis(), D_PlotGrid(), D_PlotOneLine(), das::DOption, bil::DPLOT, d_view::drawapl, d_view::eX, d_view::eY, FLAG, tools::FlagFilter, optionini::hlineafter, optionini::hlinebefore, IDX, IDY, d_view::ImatGraf, d_view::ImatOrig, d_view::Imax, blens::Imim, d_view::Imin, doas::lambda, viewformobj::lblX, MTCL, d_view::oX, d_view::oY, das::Paramini, d_view::pbr, Pix2Wl(), mtcl::PLColor, flag::plotYRange, PoslblX(), PoslblY(), bil::SPH, TOOLS, bil::VFO, spectrumheader::wavelen, and flag::Wl.

Referenced by MD_CreateBRowShell(), PButtSelAll_CB(), and ViewPlot().

{
    int q = (int) ad;
//  int t;

    //Assign limits to the Drawing coordinates
    D_AssignOrigin(BIL.DPLOT.drawapl);
    //Plot the axes
    D_PlotAxis(BIL.DPLOT.drawapl, BIL.BLENS.Imim, BIL.DPLOT.oX, BIL.DPLOT.oY, BIL.DPLOT.eX, BIL.DPLOT.eY, MTCL.black);
    //Plot grid
    D_PlotGrid(BIL.DPLOT.drawapl, BIL.BLENS.Imim, BIL.DPLOT.oX, BIL.DPLOT.oY, BIL.DPLOT.eX, BIL.DPLOT.eY);


    if(FLAG.plotYRange)
    {
        if(TOOLS.FlagFilter)
        {
            //Find Max & Min of the spectrum (BIL.DPLOT.Imax & BIL.DPLOT.Imin)
            D_findmaxmin(BIL.DPLOT.ImatOrig, 5, IDX,DAS.DOption.hlinebefore, IDY - DAS.DOption.hlineafter, BlindPix );
        }
        else
        {
            //Find Max & Min of the spectrum (BIL.DPLOT.Imax & BIL.DPLOT.Imin)
            D_findmaxmin(BIL.DPLOT.ImatGraf, 5, IDX,DAS.DOption.hlinebefore, IDY - DAS.DOption.hlineafter, BlindPix );  
        }
    }
    else
    {
        BIL.DPLOT.Imax = 65535;
        BIL.DPLOT.Imin = 0;
    }

    
    if(FLAG.Wl == 0) //Pixel X Scale
    {
        //Positioning of X labels
        PoslblX(BIL.VFO.lblX, 1, IDX, 0);
    }
    else if(FLAG.Wl == 1) //Wavelength X scale [A]
    {
        //CalcSpectrumLimits(0, BIL.SPH.wavelen, DAS.Paramini.ccdXoff, DAS.Paramini.ccdWx + 1, 512);
        Pix2Wl(0, BIL.SPH.wavelen, DAS.Paramini.ccdXoff, DAS.Paramini.ccdWx + 1, &DOAS);

        //Positioning of X labels
        PoslblX(BIL.VFO.lblX, (int)DOAS.lambda[0], (int)DOAS.lambda[IDX - 1], BIL.SPH.wavelen);
    }
    else if(FLAG.Wl == 2) //Pixel X Scale [nm]
    {
        //CalcSpectrumLimits(0, BIL.SPH.wavelen, DAS.Paramini.ccdXoff, DAS.Paramini.ccdWx + 1, 512);
        Pix2Wl(0, BIL.SPH.wavelen, DAS.Paramini.ccdXoff, DAS.Paramini.ccdWx + 1, &DOAS);
        //Positioning of X labels
        PoslblX(BIL.VFO.lblX, (int)(DOAS.lambda[0]/10), (int)(DOAS.lambda[IDX - 1]/10), BIL.SPH.wavelen/10);
    }
    //Positioning of Y labels
    PoslblY(BIL.DPLOT.Imin, BIL.DPLOT.Imax);
    
/**********************/
/*   Costruzione grafico dei dati ********************/
    if(BIL.DPLOT.actimg[q])
    {
        D_PlotOneLine(q, BIL.DPLOT.actimg[q],  BIL.DPLOT.drawapl, BIL.DPLOT.pbr, BIL.BLENS.Imim,
            BIL.DPLOT.ImatGraf, IDX, IDY,   MTCL.PLColor, BIL.DPLOT.COSTX, 
            BIL.DPLOT.COSTY, BIL.DPLOT.Imin, BIL.DPLOT.Imax, BIL.DPLOT.oX,
            BIL.DPLOT.oY, BlindPix); 
        BIL.DPLOT.actimg[q] = 0;
    }
    else
    {
        D_PlotOneLine(q, BIL.DPLOT.actimg[q],  BIL.DPLOT.drawapl, BIL.DPLOT.pbr, BIL.BLENS.Imim,
            BIL.DPLOT.ImatGraf, IDX, IDY,   MTCL.PLColor, BIL.DPLOT.COSTX, 
            BIL.DPLOT.COSTY, BIL.DPLOT.Imin, BIL.DPLOT.Imax, BIL.DPLOT.oX,
            BIL.DPLOT.oY, BlindPix); 
        BIL.DPLOT.actimg[q] = 1;
    }

}

Here is the call graph for this function:

Here is the caller graph for this function:

D_VRange()

void D_VRange	(	char *	str,
		int	val,
		int	r,
		int	g,
		int	b
	)

Create and display the status bar.

Parameters

*str	string as title of the status bar
val	value of the progressive index
r	red color id (0-255)
g	green color id (0-255)
b	blu color id (0-255)

Definition at line 206 of file Utils.c.

Referenced by AMS_DoPos(), D_Homing(), D_Positioning(), DB_Column(), DB_MirrorX(), DB_ScanMaxMin(), DemoInitMotor(), EleDatOrBinFormat(), HomeAzimFast(), HomeFiltersFast(), HomeNDFiltersFast(), and HomeTrack().

{
    char msg[16];
    static MOBJECT sts[16], shell[16];
    if(D_VRip < 0 && val == 100) 
        return;
    if(D_VRip < 0 && val > 0)
        return;
    if(val == 0)
    {
        if(D_VOpen) return;
        D_VOpen = 1;
        D_VRip++;
        shell[D_VRip] = MCreateShell(str, SF_NO_MAXIMIZE | SF_NO_MINIMIZE | SF_SAVEUNDER);
        MObjectSetBackgroundRGB(shell[D_VRip], DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
        sts[D_VRip] = MCreateStatusBar(shell[D_VRip], " 0 %", 100, HELV_SMALL);
        MObjectSetBackgroundRGB(sts[D_VRip], DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
        MStatusBarSetSliderRGB(sts[D_VRip], r, g, b);
        MObjectSetCompositeHeight(sts[D_VRip], 20);

        MShellSetWMCloseCallback(shell[D_VRip], D_CloseVR, 0L);
        //MShellRealizeXY(shell[D_VRip], ShLoc[1][0], ShLoc[1][1]);
        MShellRealize(shell[D_VRip]);
        MObjectResize(shell[D_VRip], 300, 35);
        // Chiama MGUI per modificare size shell
        MLoopWhileEvents(0);
        
    }
    else
    {
        if(val == 100)
        {
            MShellUnrealize(shell[D_VRip]);
            MShellDestroy(shell[D_VRip]);
            D_VRip--;
            D_VOpen = 0;
        }
        else
        {
            sprintf(msg, "%d %%", val);
            MObjectSetText(sts[D_VRip], msg);
            MStatusBarSetPos(sts[D_VRip], val);
            
        }
        MLoopWhileEvents(0);
        
    }
}

Here is the caller graph for this function:

DB_AreaInput()

void DB_AreaInput	(	MOBJECT	obj,
		MEvent *	pe,
		void *	a_data
	)

Definition at line 203 of file Spat_Plot.c.

References bil::BLENS, d_view::COSTX, d_view::COSTY, D_DoLens(), DOASMODE, bil::DPLOT, E_BUTTON_PRESS, E_BUTTON_RELEASE, E_MOTION, E_SELECT, E_WINDOW_ENTER, E_WINDOW_EXIT, flag::exemode, FLAG, das::Flag, d_view::ImatGraf, doas::lambda, blens::LensDraw, blens::LensLbl, blens::LensLblX, blens::LensLblY, blens::LensMim, blens::LensON, blens::LensPix, blens::LensWx, blens::LensWy, blens::LocX, blens::LocY, MDrawXorBox(), MDrawXorLine(), MObjectGetHeight(), MObjectGetWidth(), MObjectSetText(), MObjectShell(), MEvent::mouse, OFFLINEPLOT, p, blens::Pix, blens::S_LocX, blens::S_LocY, MMouseEvent::state, MEvent::type, bil::VFO, flag::Wl, MMouseEvent::x, X2Counts(), viewformobj::xincr, viewformobj::xloc, MMouseEvent::y, Y2Counts(), viewformobj::yincr, and viewformobj::yloc.

Referenced by ViewPlot().

{
    static int x1, y1, x2, y2, dx, dy;
    static int xp1, xp2, xp3, yp1, yp2, yp3, p, pol;
    char    buff[128];
    static int      s, f;
//  int     c;
    MOBJECT shell;

    switch (pe->type) 
    {
        
        case E_SELECT:

            break;
        case E_WINDOW_EXIT:

            break;
        case E_BUTTON_PRESS:
            break;
        case E_WINDOW_ENTER:
        case E_MOTION:
            shell = MObjectShell(obj);
            // Drag di un vertice del poligono
                if((pe->mouse.state & Button1Mask) && pol) 
                {
                    if(pol == 2)
                    {
                        MDrawXorLine(obj, xp1, yp1, xp2, yp2);
                        MDrawXorLine(obj, xp1, yp1, xp3, yp3);
                    }
                    pol = 2;
                    xp1 = pe->mouse.x;
                    yp1 = pe->mouse.y;

                }
                else
                {
                    if((pe->mouse.state & Button1Mask) && x1 > 0 && f) 
                    {
                    /*
                     * Erase the old line and draw the new one
                     * while dragging the mouse (draw in Xor mode)
                     */
                        if(f == 2)
                            MDrawXorBox(obj, x1, y1, (x2 - x1), (y2 - y1));
                        f = 2;
                        MDrawXorBox(obj, x1, y1, (pe->mouse.x - x1), (pe->mouse.y - y1));
                    }
                // Drag the box
                    if((pe->mouse.state & Button3Mask) && f == 4)
                    {
                    // Clear previous box
                        MDrawXorBox(obj, x1, y1, (x2 - x1), (y2 - y1));
                        x1 += (pe->mouse.x - dx); x2 += (pe->mouse.x - dx);
                        y1 += (pe->mouse.y - dy); y2 += (pe->mouse.y - dy);
                        MDrawXorBox(obj, x1, y1, (x2 - x1), (y2 - y1));
                        dx = pe->mouse.x;
                        dy = pe->mouse.y;
                    }
                    else
                    {
//                  MDrawXorBox(obj, x2 - 25, y2 - 25, 50, 50);

                        x2 = pe->mouse.x;
                        BIL.BLENS.LocX = x2 / (int) BIL.BLENS.Pix;
                        y2 = pe->mouse.y;
                        BIL.BLENS.LocY = y2 / (int) BIL.BLENS.Pix;

//                  MDrawXorBox(obj, LocX[s] - 25, LocY[s] - 25, 50, 50);
                        if(BIL.BLENS.LocX >= 0 && BIL.BLENS.LocX < (unsigned int) MObjectGetWidth(obj)  && 
                            BIL.BLENS.LocY >= 0 && BIL.BLENS.LocY < (unsigned int) MObjectGetHeight(obj) )
                            {
                            if( (!DAS.Flag.exemode == OFFLINEPLOT) | (!DAS.Flag.exemode == DOASMODE))
                            {

                            if(BIL.DPLOT.ImatGraf != 0)
                            {
                            
                                if(FLAG.Wl == 0)
                                {
                                    BIL.BLENS.S_LocX = X2Counts(BIL.BLENS.LocX);
                                    sprintf(buff, "%5d", BIL.BLENS.S_LocX);
                                    MObjectSetText(BIL.VFO.xloc, buff);
    
                                    sprintf(buff, "Dx = %.2lf", BIL.DPLOT.COSTX);
                                    MObjectSetText(BIL.VFO.xincr, buff);
                                }
                                else if(FLAG.Wl == 1)
                                {
                                    BIL.BLENS.S_LocX = (unsigned int)DOAS.lambda[X2Counts(BIL.BLENS.LocX)];
                                    sprintf(buff, "%.1lf",DOAS.lambda[X2Counts(BIL.BLENS.LocX)] );
                                    MObjectSetText(BIL.VFO.xloc, buff);

                                    sprintf(buff, "Dx = %.2lf", BIL.DPLOT.COSTX);
                                    MObjectSetText(BIL.VFO.xincr, buff);
                                }
                                else if(FLAG.Wl == 2)
                                {
                                    BIL.BLENS.S_LocX = (unsigned int)DOAS.lambda[X2Counts(BIL.BLENS.LocX)];
                                    sprintf(buff, "%.2lf",DOAS.lambda[X2Counts(BIL.BLENS.LocX)]/10 );
                                    MObjectSetText(BIL.VFO.xloc, buff);

                                    sprintf(buff, "Dx = %.2lf", BIL.DPLOT.COSTX);
                                    MObjectSetText(BIL.VFO.xincr, buff);
                                }

                                
                                BIL.BLENS.S_LocY = Y2Counts(BIL.BLENS.LocY);
                                sprintf(buff, "%5u", BIL.BLENS.S_LocY);
                                MObjectSetText(BIL.VFO.yloc, buff);

                                sprintf(buff, "Dy = %.2lf", BIL.DPLOT.COSTY);
                                MObjectSetText(BIL.VFO.yincr, buff);
                            
                            }
                            }

                            if(BIL.BLENS.LensON)
                            {
                                BIL.BLENS.S_LocX = X2Counts(BIL.BLENS.LocX);
                                sprintf(buff, "%5d, Wl: %.2lf", BIL.BLENS.S_LocX, DOAS.lambda[BIL.BLENS.S_LocX]);
                                MObjectSetText(BIL.BLENS.LensLblX, buff);

                                //Wavelength
                                //sprintf(buff, "%5d", DOAS.lambda[BIL.BLENS.S_LocX]);
                                //MObjectSetText(BIL.BLENS.LensLblWl, buff);

                                BIL.BLENS.S_LocY = Y2Counts(BIL.BLENS.LocY);
                                sprintf(buff, "%5u", BIL.BLENS.S_LocY);
                                MObjectSetText(BIL.BLENS.LensLblY, buff);
                                
                                sprintf(buff, "DY=%5u", (int) BIL.DPLOT.COSTY);
                                MObjectSetText(BIL.BLENS.LensLbl, buff);

                                D_DoLens(BIL.BLENS.LensMim, BIL.BLENS.LensDraw, BIL.BLENS.LensWx, BIL.BLENS.LensWy, BIL.BLENS.LensPix, BIL.BLENS.LocX, BIL.BLENS.LocY);

                            }
                        
                         }
                    }
                }
            
            break;
        case E_BUTTON_RELEASE:
            break;
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

DeallocFloatMat()

float* DeallocFloatMat

(

float *

mat

)

Definition at line 153 of file Spat_Plot.c.

Referenced by WriteSelColandSmoothed().

{
    free(mat);
    mat = 0;
    return mat;

}

Here is the caller graph for this function:

DeallocUSMat()

unsigned short* DeallocUSMat

(

unsigned short *

mat

)

Definition at line 145 of file Spat_Plot.c.

Referenced by CloseFile(), CloseFile_BIN(), ClosePlotCB(), DatOrBinFormat(), DT_CorrFileEvora(), and DT_CorrHeader().

{
    free(mat);
    mat = 0;
    return mat;

}

Here is the caller graph for this function:

DrawAreaExposeCB()

int DrawAreaExposeCB	(	MOBJECT	obj,
		MEvent *	pexp,
		void *	a_data
	)

FilterData()

int FilterData	(	unsigned short *	mat,
		int	horpix,
		int	verpix,
		int	filw,
		int	bp
	)

Definition at line 250 of file FFT.c.

References IDX, and SmoothingF().

Referenced by BuildLogRatio(), DB_Column(), and DrawAreaPlotCB().

{


    int x, y, n ;
    FILE *fd;
    double *avect;
    unsigned long eln = (unsigned long)(2 * (horpix - bp + 1))  ;

    
    fd = fopen("FilterUS_In.tmp", "w");
    if(fd < 0) return 1;
//  for(x = 0; x < horpix + 1; x++)
    for(x = 0; x < horpix ; x++)
    {
        if ((x <= horpix - bp ) & (x > 1))
        {
            fprintf(fd, "%04u ", x);
    
            for(y = 0; y < verpix; y++)
            {   
                fprintf(fd, "%05u ", mat[y * IDX + x]);
            }
            fprintf(fd, "\n", NULL);
        }
    }
    fprintf(fd, "\n", NULL);
    fclose(fd);



    if(filw <= 512)
        avect = (double *) calloc( eln, sizeof(double));
    else if((filw > 512) & (filw <1024))
        avect = (double *) calloc( 2*eln, sizeof(double));
    else if((filw >= 1024) & (filw <2048))
        avect = (double *) calloc( 4*eln, sizeof(double));


    if( avect == NULL )
        return 1;

    for(y = 0; y < verpix; y++)
    {
        n=1;
        for(x = 0; x < horpix; x++)
        {
            if ((x < horpix - bp) & (x > 1))
                {
                    avect[n] = (double)mat[y * (horpix) + x];
                    n++;
                }
            
        }

        SmoothingF(avect, n - 1 , filw);
        
        for(x = 0; x < horpix; x++)
        {
            if ((x < horpix - bp) & (x > 1))
            {
                mat[y * horpix + x] = (unsigned int)avect[x - 1] ;
            }

        }
    }
    
    free(avect);



    fd = fopen("FilterUS_Out.tmp", "w");
    if(fd < 0) return 1;

//  for(x = 0; x < horpix + 1; x++)
    for(x = 0; x < horpix ; x++)
    {
        if ((x <= horpix - bp ) & (x > 1))
        {
            fprintf(fd, "%04u ", x);
    
            for(y = 0; y < verpix; y++)
            {   
                fprintf(fd, "%05u ", mat[y * IDX + x]);
            }
            fprintf(fd, "\n", NULL);
        }
    }
    fprintf(fd, "\n", NULL);
    fclose(fd);

    return 0;

}

Here is the call graph for this function:

Here is the caller graph for this function:

GrafoIMG()

void GrafoIMG

(

int

mode

)

Definition at line 1242 of file Spat_Plot.c.

References bil::DPLOT, d_view::drawapl, DrawAreaPlotCB(), MDrawAreaSetExposeCallback(), and MObjectRedraw().

Referenced by ActEditCB(), BuildLogRatio(), DB_DisplayCB(), DB_EqTypePlotCB(), DB_FilterCB(), DB_SpikesCB(), DB_XUnitsCB(), PBYScale_CB(), ViewNext(), ViewNext_BIN(), and Visualizza().

{

    MObjectRedraw(BIL.DPLOT.drawapl);
/*  if (mode)
        MDrawAreaSetExposeCallback(BIL.DPLOT.drawapl, DAExOnLineCB, NULL);
    else
        MDrawAreaSetExposeCallback(BIL.DPLOT.drawapl, DrawAreaExposeCB, NULL);
*/
    MDrawAreaSetExposeCallback(BIL.DPLOT.drawapl, DrawAreaPlotCB, NULL);
    MObjectRedraw(BIL.DPLOT.drawapl); 

}

Here is the call graph for this function:

Here is the caller graph for this function:

InitImage()

void InitImage	(	MIMAGE	img,
		int	xd,
		int	yd,
		int	rb,
		int	gb,
		int	bb
	)

Definition at line 354 of file Spat_Plot.c.

References MImageSetPixelRGB().

Referenced by DrawAreaPlotCB(), LoadIo(), ViewNext(), ViewNext_BIN(), and ViewPlot().

{
    int i, k;
    
    for (i=0;i<xd;i++)
    {
        for (k=0;k<yd;k++)
            {
                MImageSetPixelRGB(img, i , k, rb, gb, bb);
            }
    }

}

Here is the call graph for this function:

Here is the caller graph for this function:

MDCreateFM_Shell()

MOBJECT MDCreateFM_Shell	(	int	mod,
		int	fmt
	)

Definition at line 407 of file DFileMan.c.

References _MAX_PATH, CENTER_ALIGN, ChDriveCB(), D_FInpFDCB(), D_FMDoneCB(), palette::DB_BG, palette::DB_BG_Albl, palette::DB_FG_Plbl, palette::DB_UnSel, bil::DFILEM, DFileType(), DFMSelListCB(), DFMT, DPAL, DRV, False, FList, FMDONE, fmfont, FMINIT, lbl, LEFT_ALIGN, MCreateClippedEdit(), MCreateColForm(), MCreateLabel(), MCreatePButton(), MCreateRButton(), MCreateRowForm(), MCreateShell(), MCreateSList(), MCreateTableForm(), MEditSetActCallback(), MFormSetSpacing(), MLabelSetAlignment(), MLoopWhileFlag(), MObjectAlign(), MObjectSetBackgroundRGB(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetText(), MObjectSetUnsensitive(), MPButtonSetCallback(), MRButtonActivate(), MRButtonSetCallback(), MShellDestroy(), MShellRealizeXY(), MShellUnrealize(), MSListSetSelectionCallback(), MSListSetSortCallback(), MTableFormSetColAlign(), MTableFormSetRowAlign(), Row1, Row2, SELDRV, SF_MODAL, ShowFileDrive(), tb1, TOP_ALIGN, True, txtfile, txtpath, WhoSys(), and d_fileman::WORKDIRECTORY.

Referenced by DT_CorrFileEvora(), DT_CorrHeader(), DT_FluxIndex(), DT_LinkSpectra(), MenuFileOLP_CB(), and SetAsIo().

{
    MOBJECT _colform000;
    MOBJECT _colform001;
//  MOBJECT _label000;
    MOBJECT tb2;
    MOBJECT FM_Shell;
    MOBJECT pb;
    char buf[256];
    int     drive, curdrive = 0, sysop;
    char curdir[_MAX_PATH];
    
    DFileType(fmt);

    _getcwd( BIL.DFILEM.WORKDIRECTORY, _MAX_PATH );
    curdrive = _getdrive();

    sysop = WhoSys();



    FM_Shell = MCreateShell("File Manager", SF_MODAL);//0); //SF_NO_RESIZE|SF_NO_MAXIMIZE|SF_NO_MINIMIZE);
    MObjectSetBackgroundRGB(FM_Shell, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    _colform000 = MCreateColForm(FM_Shell);
    MObjectAlign(_colform000, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(_colform000, True, True);

    Row1 = MCreateRowForm(_colform000);
    MObjectAlign(Row1, LEFT_ALIGN, TOP_ALIGN);
    //MObjectSetBackgroundRGB(Row1, 149, 145, 153);
    MObjectSetBackgroundRGB(Row1, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(Row1, False, True);



/*
    Row1 = MCreateRowForm(_colform000);
    MObjectAlign(Row1, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(Row1, 149, 145, 153);
    MObjectSetResize(Row1, True, True);
    MObjectSetCompositeWidth(Row1, 80);

    tb2 = MCreateTableForm(Row1, 2);
    MFormSetSpacing(tb2, 1);
    MTableFormSetColAlign(tb2, 0, LEFT_ALIGN);
    MTableFormSetRowAlign(tb2, 1, TOP_ALIGN);
    MObjectAlign(tb2, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(tb2, 149, 145, 153);
    MObjectSetBackgroundRGB(tb2, 149, 145, 153);
    MObjectSetResize(tb2, True, False);
*/

    tb2 = MCreateTableForm(Row1, 2);
    MObjectSetBackgroundRGB(tb2, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(tb2, True, True);



    for(drive = 1; drive <= 26; drive++)
    {
        sprintf( buf, "%c:", drive + 'A' - 1 );
        DRV[drive] = MCreateRButton(tb2, buf, fmfont);
        MObjectSetForegroundRGB(DRV[drive], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
//      MObjectSetCompositeWidth(DRV[drive], 150);
        MRButtonSetCallback(DRV[drive], (OBJ_VALUE_CB) ChDriveCB, (void *) drive);
        //controlla quali dischi sono presenti
        if(_chdrive(drive))
            MObjectSetUnsensitive(DRV[drive]);
    }

    Row2 = MCreateRowForm(_colform000);
    MObjectAlign(Row2, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(Row2, 149, 145, 153);
    MObjectSetResize(Row2, True, True);


    FList = MCreateSList(Row2, fmfont, 255, 14, 37);
//  MSListSetSortCallback(FList, strcmp);
    MSListSetSortCallback(FList, stricmp);
    MObjectAlign(FList, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(FList, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(FList, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(FList, True, True);
//  MSBLSetHead(FList, "Name                       "  "Date    "  "Size");


/*
    FList = MCreateSList(Row2, FIXED_SMALL, 256, 14, 37);
    MObjectAlign(FList, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(FList, 255, 255, 255);
    MObjectSetBackgroundRGB(FList, 0, 0, 0);
    MObjectSetResize(FList, True, True);
*/
    _colform001 = MCreateColForm(FM_Shell);
    MFormSetSpacing(_colform001, 1);
    MObjectAlign(_colform001, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(_colform001, True, False);

    tb1 = MCreateTableForm(_colform001, 3);
    MFormSetSpacing(tb1, 1);
    MTableFormSetColAlign(tb1, 0, LEFT_ALIGN);
    MTableFormSetRowAlign(tb1, 0, TOP_ALIGN);
    MTableFormSetRowAlign(tb1, 1, TOP_ALIGN);
    MObjectAlign(tb1, LEFT_ALIGN, TOP_ALIGN);
//  MObjectSetForegroundRGB(tb1, 149, 145, 153);
    MObjectSetBackgroundRGB(tb1, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(tb1, True, True);

    lbl = MCreateLabel(tb1, "Path:", fmfont);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
//  MObjectSetShadow(lbl, WS_SHADOW_IN, 2, 0);
    MObjectSetResize(lbl, True, True);

    txtpath = MCreateClippedEdit(tb1, "", 255, 32, fmfont);
    MObjectSetForegroundRGB(txtpath, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(txtpath, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MEditSetActCallback(txtpath, D_FInpFDCB, (void *) 0);
    MObjectAlign(txtpath, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(txtpath, True, True);

    if(mod) // Open
    {
        pb = MCreatePButton(tb1, "Open", fmfont);
        MPButtonSetCallback(pb, D_FMDoneCB, (void *) 0);    
        MObjectSetResize(pb, True, True);
        MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    }
    else  //Save as
    {
        pb = MCreatePButton(tb1, "Save As", fmfont);
        MPButtonSetCallback(pb, D_FMDoneCB, (void *) 2);
        MObjectSetResize(pb, True, True);
        MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);

    }
    lbl = MCreateLabel(tb1, "File:", fmfont);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MLabelSetAlignment(lbl, LEFT_ALIGN);
    MObjectAlign(lbl, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetResize(lbl, True, True);

    txtfile = MCreateClippedEdit(tb1, "", 255, 32, fmfont);
    MObjectSetForegroundRGB(txtfile, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(txtfile, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectAlign(txtfile, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(txtfile, True, True);
    MEditSetActCallback(txtfile, D_FInpFDCB, (void *) 1);



    pb = MCreatePButton(tb1, "Cancel", fmfont);
    MPButtonSetCallback(pb, D_FMDoneCB, (void *) 1);
    MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetResize(pb, True, True);

    
    
    MShellRealizeXY(FM_Shell, 0,0);


   /* Restore original drive.*/
   _chdrive( curdrive );
    SELDRV = curdrive ;
    if (sysop)
        MRButtonActivate(DRV[SELDRV]);
    else
        MRButtonActivate(DRV[SELDRV]);

//  sprintf(curdir,"%s%s",BIL.DFILEM.WORKDIRECTORY,"\\");
    sprintf(curdir,"%s",BIL.DFILEM.WORKDIRECTORY);

    ShowFileDrive(curdir, DFMT);

    strcat(curdir,"\\");
    MObjectSetText(txtpath, curdir);


//  MEditSetActCallback(txtfile, txtfileEditCB, curdir);    


    MSListSetSelectionCallback(FList, (LIST_SEL_CB) DFMSelListCB, NULL);


    FMINIT = 0;
    MLoopWhileFlag(&FMINIT, 0);

    if(FMDONE)
        {
            FMINIT = 0;
            MShellUnrealize(FM_Shell);
            MShellDestroy(FM_Shell);
            
        }



    return FM_Shell;

}

Here is the caller graph for this function:

PrintObject()

int PrintObject	(	MOBJECT	obj,
		int	mode,
		int	x,
		int	y
	)

Definition at line 37 of file D_print.c.

References False, MMessageDialog(), MObjectGetHeight(), MObjectGetWidth(), MObjectRedraw(), and MShellRaise().

Referenced by D_PButt_CB(), and MenuToolsOLP_CB().

{
    
    MPRINT_OPTIONS pe ;
    DOC_ID did;
    MPAGE_OPTIONS pages;

            
    pages.startPage = pages.minPage = 1;
    pages.endPage = pages.maxPage = 1;
    did = MOpenPrintDoc("Print Test", False, PO_PORTRAIT, &pages);
    if (did == NULL)
    {
        MMessageDialog("", "Print aborted", "Ok", NULL);
        return 1;
    }

    pe.mode = mode;
    pe.x = x;
    pe.y = y;
    pe.w = MObjectGetWidth(obj);
    pe.h = MObjectGetHeight(obj);
            
    MObjectRedraw(obj);
    MPrintObject(obj, did, &pe);
    MClosePrintDoc(did);

    MShellRaise(obj);
    
    return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

SetupPrinter()

void SetupPrinter

(

void

)

Definition at line 14 of file D_print.c.

References MMessageDialog().

Referenced by D_PButt_CB(), and MenuToolsOLP_CB().

{
    int MPrintSetup(int po, int *xres, int *yres, int *pwidth, int *pheight, int *nplanes);
    int xres, yres, pwidth, plength, nplanes;

    if (MPrintSetup(PO_DEFAULT, &xres, &yres, &pwidth, &plength, &nplanes))
    {
    char buf[128];

        sprintf(buf,
        "Setup options:\n\
        Paper width: %d (mm)\n\
        Paper length: %d (mm)\n\
        X res: %d (pixels)\n\
        Y res: %d (pixels)\n\
        Planes: %d",
        pwidth, plength, xres, yres, nplanes);
        
        MMessageDialog("", buf, "Ok", NULL);
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

ViewNext()

int ViewNext

(

FILE *

nf

)

Definition at line 2365 of file Spat_Plot.c.

References AbsFilePos, bil::BLENS, CloseFile(), viewformobj::cmdpb, ContFP, DB_CloseImage(), DB_InitDil(), bil::DFILEM, DI_ImageProperties(), DI_Regen(), DI_ScanMaxMin(), DOASMODE, das::DOption, bil::DPLOT, d_view::drawapl, DrawButtons(), flag::exemode, Fitem, das::Flag, GrafoIMG(), img::High, optionini::hlineafter, optionini::hlinebefore, d_fileman::HOMEDIRECTORY, IDX, IDY, img::IHigh, img::ILow, img::Imat, d_view::ImatGraf, d_view::ImatOrig, dil::Img, blens::Imim, InitImage(), img::Low, image::Mat, maxploth, maxplotw, MMenuItemSetSensitive(), MMessageDialog(), MObjectSetBackgroundRGB(), MObjectSetSensitive(), MShellRaise(), OFFLINEPLOT, ON_OFFLINEPLOT, ReadHeader_ASCII(), ReadIMG(), REL_FILE_POS, Server, SwapMatrix(), bil::VFO, viewformobj::View_Sh, and d_fileman::WORKDIRECTORY.

Referenced by D_PButt_CB(), MenuFileOLP_CB(), and ViewPre().

{

    int er = 0, i;
    long XXX = 0;

    MObjectSetSensitive(BIL.VFO.cmdpb[8]); //Set button "Previuos" Sensitive
    if((DAS.Flag.exemode == OFFLINEPLOT) | (DAS.Flag.exemode == DOASMODE))
    {
        MMenuItemSetSensitive(Fitem[2]);
    }

        /********************************/
    AbsFilePos = ftell( nf );
        
    for (i = ContFP; i>0; i--)  
    {
        XXX = XXX + REL_FILE_POS[i];
    }

    ContFP++;   
    REL_FILE_POS[ContFP] = AbsFilePos ;
        /***************************************/
    
    er = ReadHeader_ASCII(1, nf);
    if (er) 
    {
        er = MMessageDialog("DAS information", "End Of File reached.\n Do you want to close the file ?" , "Yes", "No", NULL);
        if (er)
            return 1;
        else
            CloseFile(nf, IDX, IDY);        //Raggiunta fine del file
            MObjectSetBackgroundRGB(BIL.DPLOT.drawapl, 220, 220, 220);      
    }
    else
    {
        DrawButtons(DAS.DOption.hlinebefore, DAS.DOption.hlineafter , IDY);

        InitImage(BIL.BLENS.Imim, maxplotw, maxploth, 192, 192, 192);
    

        
        ReadIMG(nf, BIL.DPLOT.ImatOrig, IDX, IDY);


        GrafoIMG(ON_OFFLINEPLOT);

        if((DAS.Flag.exemode == OFFLINEPLOT) | (DAS.Flag.exemode == DOASMODE))
        {
            DB_CloseImage(Server);
            
            _chdir(BIL.DFILEM.HOMEDIRECTORY);
            DB_InitDil();
            _chdir(BIL.DFILEM.WORKDIRECTORY);
    
            SwapMatrix(BIL.DPLOT.ImatGraf, DIL.Img.Mat[Server].Imat, IDX, IDY);

            // Y Zoom for high vertical binning
            if((IDY) < 50)
            DI_ImageProperties(Server, (U16)IDX, (U16)IDY, (U16)IDX, (U16)IDY, 0, 0, NULL, 1, 100 / IDY, 0);
//          Image[Server].attrib = 1;
            DI_Regen(Server);


            DI_ScanMaxMin(Server, &DIL.Img.Mat[Server].High, &DIL.Img.Mat[Server].Low);         
            DIL.Img.Mat[Server].ILow = DIL.Img.Mat[Server].Low ;
            DIL.Img.Mat[Server].IHigh = DIL.Img.Mat[Server].High ;
            DI_Regen(Server);
        }
    }
        //The focus taken by the Plot shell
        MShellRaise(BIL.VFO.View_Sh);

    return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ViewNext_BIN()

int ViewNext_BIN

(

int

nf

)

Definition at line 2284 of file Spat_Plot.c.

References AbsFilePos, bil::BLENS, CloseFile_BIN(), viewformobj::cmdpb, ContFP, D_AssignLabelPlot(), DB_CloseImage(), DB_InitDil(), bil::DFILEM, DI_ImageProperties(), DI_Regen(), DI_ScanMaxMin(), DOASMODE, das::DOption, bil::DPLOT, d_view::drawapl, DrawButtons(), flag::exemode, Fitem, das::Flag, GrafoIMG(), img::High, optionini::hlineafter, optionini::hlinebefore, d_fileman::HOMEDIRECTORY, IDX, IDY, img::IHigh, img::ILow, img::Imat, d_view::ImatGraf, d_view::ImatOrig, dil::Img, blens::Imim, d_view::Imin, InitImage(), viewformobj::lblmin, img::Low, image::Mat, maxploth, maxplotw, MMenuItemSetSensitive(), MMessageDialog(), MObjectSetBackgroundRGB(), MObjectSetSensitive(), MObjectSetText(), MShellRaise(), OFFLINEPLOT, ON_OFFLINEPLOT, ReadHeader_BIN(), ReadIMG_BIN(), REL_FILE_POS, Server, SwapMatrix(), bil::VFO, viewformobj::View_Sh, and d_fileman::WORKDIRECTORY.

Referenced by D_PButt_CB(), MenuFileOLP_CB(), and ViewPre_BIN().

{

    int er = 0, i;
    long XXX = 0;
    char str[32];

    MObjectSetSensitive(BIL.VFO.cmdpb[8]); //Set button "Previuos" Sensitive
    if((DAS.Flag.exemode == OFFLINEPLOT) | (DAS.Flag.exemode == DOASMODE))
    {
        MMenuItemSetSensitive(Fitem[2]);
    }

        /********************************/
    AbsFilePos = tell( nf );
        
    for (i = ContFP; i>0; i--)  
    {
        XXX = XXX + REL_FILE_POS[i];
    }

    ContFP++;   
    REL_FILE_POS[ContFP] = AbsFilePos ;
        /***************************************/
    
    er = ReadHeader_BIN(nf);
    D_AssignLabelPlot();
    if (er) 
    {
        er = MMessageDialog("DAS information", "End Of File reached.\n Do you want to close the file ?" , "Yes", "No", NULL);
        if (er)
            return 1;
        else
            CloseFile_BIN(nf, IDX, IDY);        //Raggiunta fine del file
            MObjectSetBackgroundRGB(BIL.DPLOT.drawapl, 220, 220, 220);      
    }
    else
    {
        DrawButtons(DAS.DOption.hlinebefore, DAS.DOption.hlineafter , IDY);

        InitImage(BIL.BLENS.Imim, maxplotw, maxploth, 192, 192, 192);
    

        
        ReadIMG_BIN(nf, BIL.DPLOT.ImatOrig, IDX, IDY);


        GrafoIMG(ON_OFFLINEPLOT);

        sprintf(str,"%u", BIL.DPLOT.Imin);
        MObjectSetText(BIL.VFO.lblmin, str);

        if(DAS.Flag.exemode == OFFLINEPLOT)
        {
            DB_CloseImage(Server);
            
            _chdir(BIL.DFILEM.HOMEDIRECTORY);
            DB_InitDil();
            _chdir(BIL.DFILEM.WORKDIRECTORY);
    
            SwapMatrix(BIL.DPLOT.ImatGraf, DIL.Img.Mat[Server].Imat, IDX, IDY);

            // Y Zoom for high vertical binning
            if((IDY) < 50)
            DI_ImageProperties(Server, (U16)IDX, (U16)IDY, (U16)IDX, (U16)IDY, 0, 0, NULL, 1, 100 / IDY, 0);
//          Image[Server].attrib = 1;
            DI_Regen(Server);

            DI_ScanMaxMin(Server, &DIL.Img.Mat[Server].High, &DIL.Img.Mat[Server].Low);         
            DIL.Img.Mat[Server].ILow = DIL.Img.Mat[Server].Low ;
            DIL.Img.Mat[Server].IHigh = DIL.Img.Mat[Server].High ;
            DI_Regen(Server);
        }
    }

    //The focus taken by the Plot shell
    MShellRaise(BIL.VFO.View_Sh);

    return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Visualizza()

int Visualizza	(	int	mod,
		char *	nomefile
	)

Definition at line 2069 of file Spat_Plot.c.

References AllocUSMat(), CCD_INFO, config::CCDType, viewformobj::cmdpb, D_AssignLabelPlot(), DB_InitDil(), DC_LoadCameraConfig(), DC_OpenPar(), DC_RWData(), bil::DFILEM, DI_ImageProperties(), DI_Regen(), DI_ScanMaxMin(), DOASMODE, das::DOption, bil::DPLOT, DrawButtons(), flag::exemode, FBIF, FDAT, Fitem, das::Flag, Fmenu, GrafoIMG(), img::High, optionini::hlineafter, optionini::hlinebefore, d_fileman::HOMEDIRECTORY, IDX, IDY, img::IHigh, img::ILow, img::Imat, d_view::ImatGraf, d_view::ImatOrig, dil::Img, d_view::Imin, viewformobj::lblmin, img::Low, MakeItemSensitiveCB(), MakeItemUnsensitiveCB(), image::Mat, MMenuItemSetSensitive(), MMenuItemSetUnsensitive(), MMessageDialog(), MObjectSetSensitive(), MObjectSetText(), MObjectSetUnsensitive(), MShellRaise(), MShellSetTitle(), NFDATI, NUMFDATI, O_BINARY, OFFLINEPLOT, ON_OFFLINEPLOT, config::Platform, PTF_INFO, READ_DATA, ReadHeader_ASCII(), ReadHeader_BIN(), ReadIMG(), ReadIMG_BIN(), REL_FILE_POS, viewformobj::selallpb, Server, SwapMatrix(), bil::VFO, viewformobj::View_Sh, d_fileman::WORKDIRECTORY, and viewformobj::YScalePB.

Referenced by D_PButt_CB(), MenuFileOLP_CB(), and RunOLP().

{

    FILE    *fd;
    int fn;
    char buf[128];
    int er=0;
    
    switch (mod)
    {
        case FBIF: //Bif Ext
            fn = open(nomefile,  O_RDONLY | O_BINARY, S_IREAD );
            if(fn < 0)  return(-1);
            break;
        case FDAT: //Dat Ext
            fd = fopen(nomefile, "r");
            if(fd < 0) return 1;
            break;
    }



    sprintf(buf,"PLOTTING File: %s", nomefile);
    MShellSetTitle(BIL.VFO.View_Sh, buf);
    
//  MObjectSetUnsensitive(BIL.VFO.cmdpb[0]);  //Set Button "Open" Unsensitive
    MObjectSetText(BIL.VFO.cmdpb[0], "Save As");

    


    MObjectSetSensitive(BIL.VFO.cmdpb[1]);  //Set Button "Next" Sensitive
    MObjectSetSensitive(BIL.VFO.cmdpb[2]); // Set "Set as Io" button as sensitive
    MObjectSetSensitive(BIL.VFO.cmdpb[3]); // Set "CloseFile" button as sensitive
    MObjectSetSensitive(BIL.VFO.cmdpb[4]); // Set "Print" button as sensitive
    MObjectSetSensitive(BIL.VFO.cmdpb[7]); 
    MObjectSetSensitive(BIL.VFO.cmdpb[6]); 
    MObjectSetUnsensitive(BIL.VFO.cmdpb[5]);  //Set Button "CloseWin" Unsensitive

    if( (!DAS.Flag.exemode == OFFLINEPLOT) | (!DAS.Flag.exemode == DOASMODE))
    {
        MObjectSetSensitive(BIL.VFO.selallpb); 
        MObjectSetSensitive(BIL.VFO.YScalePB); 
    }


    if( (DAS.Flag.exemode == OFFLINEPLOT) | (DAS.Flag.exemode == DOASMODE))
    {
        MakeItemUnsensitiveCB (Fmenu, Fitem[0], 0); //Open Unsensitive
        MakeItemSensitiveCB (Fmenu, Fitem[1], 0);   //Next Sensitive
//      Fitem[2] = MMenuAddItem(Fmenu, "Previous", (MENU_ITEM_CB) MenuFileOLP_CB, (void *)2);
            MakeItemUnsensitiveCB (Fmenu, Fitem[2], 0);
        MakeItemSensitiveCB (Fmenu, Fitem[3], 0); //Save as.. Sensitive
        MakeItemSensitiveCB (Fmenu, Fitem[4], 0); // Close Sensitive
        MakeItemUnsensitiveCB (Fmenu, Fitem[5], 0);// Close Plot Sensitive
/*
        Tmenu = MCreateMenu(dmenu, "Tools");
        Titem[0] = MMenuAddItem(Tmenu, "Filter/Smooth", (MENU_ITEM_CB) MenuToolsOLP_CB, 0);
        Titem[1] = MMenuAddItem(Tmenu, "Zoom", (MENU_ITEM_CB) MenuToolsOLP_CB, (void *)1);
        Titem[2] = MMenuAddItem(Tmenu, "Sun calculator", (MENU_ITEM_CB) MenuToolsOLP_CB, (void *)2);
        Titem[3] = MMenuAddItem(Tmenu, "Print ", (MENU_ITEM_CB) MenuToolsOLP_CB, (void *)3);

        Optmenu = MCreateMenu(dmenu, "Options");
        item = MMenuAddItem(Optmenu, "X Units", (MENU_ITEM_CB) NULL, 0);
        item = MMenuAddItem(Optmenu, "Y Scale", (MENU_ITEM_CB) NULL, 0);
        item = MMenuAddItem(Optmenu, "Hidden Lines", (MENU_ITEM_CB) NULL, 0);

        menu = MCreateMenu(dmenu, "Help");
        item = MMenuAddItem(menu, "About", (MENU_ITEM_CB) NULL, 0);
*/
    }




    //MObjectSetBackgroundRGB(BIL.DPLOT.drawapl, 220, 220, 220);
    if(DAS.Flag.exemode == OFFLINEPLOT)
    {

        MMenuItemSetUnsensitive(Fitem[0]);
        MMenuItemSetSensitive(Fitem[1]);
        MMenuItemSetSensitive(Fitem[3]);
        MMenuItemSetSensitive(Fitem[4]);
        MMenuItemSetUnsensitive(Fitem[5]);
    }

    switch (mod)
    {
        case FBIF: //Bif Ext
            NFDATI = fn;
            er = ReadHeader_BIN(fn);
            D_AssignLabelPlot();
            break;

        case FDAT: //dat Ext
            NUMFDATI = fd;
            er = ReadHeader_ASCII(1, fd); //New Format (data after 10/12/03)
            break;
    }

    DrawButtons(DAS.DOption.hlinebefore, DAS.DOption.hlineafter , IDY);
    

    BIL.DPLOT.ImatOrig = AllocUSMat(IDX, IDY);
    BIL.DPLOT.ImatGraf = AllocUSMat(IDX, IDY);
    if (er)
        MMessageDialog("DAS PLOT Inf.", "Unable to allocate memory ...", "OK", NULL);

    REL_FILE_POS[0] = 0;

    switch (mod)
    {
        case FBIF: //Bif Ext
            ReadIMG_BIN(NFDATI, BIL.DPLOT.ImatOrig, IDX, IDY);
            break;

        case FDAT: //Dat Ext
            ReadIMG(NUMFDATI, BIL.DPLOT.ImatOrig, IDX, IDY);
            break;
    }
    

    GrafoIMG(ON_OFFLINEPLOT);

        sprintf(buf,"%u", BIL.DPLOT.Imin);
        MObjectSetText(BIL.VFO.lblmin, buf);


 if((DAS.Flag.exemode == OFFLINEPLOT) | (DAS.Flag.exemode == DOASMODE))
 {
     _chdir(BIL.DFILEM.HOMEDIRECTORY);

    DC_LoadCameraConfig("config\\camera.cfg", &Cfg);
    DC_OpenPar(Cfg.Platform, Cfg.CCDType, 0);
    DC_RWData(CCD_INFO, READ_DATA, &DC_CCD, 0);
    DC_RWData(PTF_INFO, READ_DATA, &DC_HP, 0);
//  strcpy(Cfg.PtfName, DC_PtfName(0));
//  DC_LoadPlatform(Cfg.PtfName);

    
/*******************/   
/***  Init Dil   ***/
    DB_InitDil();
/*******************/
    
    _chdir(BIL.DFILEM.WORKDIRECTORY);

    SwapMatrix(BIL.DPLOT.ImatGraf, DIL.Img.Mat[Server].Imat, IDX, IDY);

            // Y Zoom for high vertical binning
            if((IDY) < 50)
            DI_ImageProperties(Server, (U16)IDX, (U16)IDY, (U16)IDX, (U16)IDY, 0, 0, NULL, 1, 100 / IDY, 0);
//          Image[Server].attrib = 1;
            DI_Regen(Server);



    DI_ScanMaxMin(Server, &DIL.Img.Mat[Server].High, &DIL.Img.Mat[Server].Low);         
    DIL.Img.Mat[Server].ILow = DIL.Img.Mat[Server].Low ;
    DIL.Img.Mat[Server].IHigh = DIL.Img.Mat[Server].High ;
    DI_Regen(Server);
 }
    //The focus taken by the Plot shell
    MShellRaise(BIL.VFO.View_Sh);

    return 0;

}

Here is the call graph for this function:

Here is the caller graph for this function:

WhoSys()

int WhoSys

(

void

)

Definition at line 306 of file DFileMan.c.

References BOOL, and WIN_NT.

Referenced by DB_InitCamera(), and MDCreateFM_Shell().

{
#ifdef _WIN32
    int  so;
    OSVERSIONINFOEX osvi;
    BOOL bOsVersionInfoEx;

    ZeroMemory(&osvi, sizeof(OSVERSIONINFOEX));
    osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEX);

    if( !(bOsVersionInfoEx = GetVersionEx ((OSVERSIONINFO *) &osvi)) )
    {
    // If OSVERSIONINFOEX doesn't work, try OSVERSIONINFO.
        osvi.dwOSVersionInfoSize = sizeof (OSVERSIONINFO);
        if (! GetVersionEx ( (OSVERSIONINFO *) &osvi) ) 
        return 0;
    }

    switch (osvi.dwPlatformId)
    {
        // NT, 2000
        case VER_PLATFORM_WIN32_NT:
            so = WIN_NT;
            break;
        // 95, 98, Me
        case VER_PLATFORM_WIN32_WINDOWS:
            so = 0;
            break;
        // Win 32
        case VER_PLATFORM_WIN32s:
            so =  0;
        break;
    }
    return so; 
#else
    return 0;
#endif
}

Here is the caller graph for this function:

Variable Documentation

BIL

bil BIL

Definition at line 28 of file 2DPlot.c.

Referenced by BuildLogRatio(), D_DoLens(), D_Lens(), D_LensCloseCB(), D_LensResizeCB(), D_LensZoom(), D_To_DoLens(), DB_InitCamera(), DB_InitDil(), LoadDasSysCol(), LoadDB_DispCoeff(), LoadDB_Options(), LoadEquipment(), LoadFTPSetting(), LoadGeoCoord(), LoadGeoDB(), LoadHardware(), LoadParam(), LoadTestPalette(), and LoadTruePalette().

maxploth

int maxploth

Definition at line 51 of file Spat_Plot.c.

Referenced by D_DoLens(), DrawAreaPlotCB(), LoadIo(), RefreshDrArea(), ViewNext(), ViewNext_BIN(), and ViewPlot().

maxplotw

int maxplotw

Definition at line 51 of file Spat_Plot.c.

Referenced by DrawAreaPlotCB(), LoadIo(), RefreshDrArea(), ViewNext(), ViewNext_BIN(), and ViewPlot().

NColors

double NColors

newfont

MTFont newfont

Definition at line 95 of file CreateForms.c.

Referenced by D_Lens(), and DB_TestF().

NFDATI

int NFDATI

Definition at line 27 of file Bil.h.

Referenced by D_PButt_CB(), MenuFileOLP_CB(), and Visualizza().

NUMFDATI

FILE* NUMFDATI

Definition at line 26 of file Bil.h.

Referenced by D_PButt_CB(), MenuFileOLP_CB(), and Visualizza().

OMUTEMP

omutemp OMUTEMP

structure for OMU temperatures

Definition at line 29 of file 2DPlot.c.

VFO

viewformobj VFO